<HTML>

 

<HEAD>

<TITLE>Sales Analyzer</TITLE>

</HEAD>

 

<BODY>

<H2>Sales Analysis</H2>

<H4>View the latest sales data using the Sales Analyzer control</H4>

 

<OBJECT ID="Sales1" WIDTH=436 HEIGHT=343 CLASSID="CLSID:**Your own unique value will go here**" CODEBASE="Analyzer.ocx#version=1,2,0,0">

<PARAM NAME="_ExtentX" VALUE="11536">

<PARAM NAME="_ExtentY" VALUE="9049">

<PARAM NAME="ExtractFile" VALUE="C:\Program Files\Microsoft Visual Studio\Projects\Analyzer\Sales.txt">

<PARAM NAME="ChartType" VALUE="1">

</OBJECT>

 

<SCRIPT LANGUAGE="VBScript">

<!--

Sub Sales1_FileStatus(StatusCode)

   Select Case StatusCode

      Case 0

         'File is valid: No action

      Case Else

         Sales1.ExtractFile = InputBox("The ExtractFile property was " & _

            "not set or invalid." & vbCrLf & "Please enter a valid " & _

            "path, then click the extract button:", "Extract File Invalid")

   End Select

End Sub

 

Sub Sales_PointSelected(evtCompanyName, evtOrderID, evtSalesAmount, evtShippedDate)

   MsgBox "Order #" & evtOrderID & " for " & FormatCurrency(evtSalesAmount) & _

      vbCrLf & "Shipped on " & FormatDateTime(evtShippedDate, 2), vbInformation, evtCompanyName

End Sub

 

-->

</SCRIPT>

</BODY>

</HTML>