! IBM_VisualAge_for_Basic 1.1.0

*qtArray.class: Viper.Form
*qtArray.BackColor: &H80000005&
*qtArray.Parent: NO_PARENT
*qtArray.Name: qtArray
*qtArray.ScaleHeight: 2775.000000
*qtArray.ScaleMode: 1
*qtArray.Height: 3240
*qtArray.Left: 1185
*qtArray.Top: 2370
*qtArray.ForeColor: &H80000008&
*qtArray.Caption: "SP OCX Stats "
*qtArray.Load: Form_Load
*qtArray.Tag: "qtArray"
*qtArray.ScaleWidth: 5655.000000
*qtArray.Width: 5835
*Label1(4).class: Viper.Label
*Label1(4).BackColor: &H80000005&
*Label1(4).Parent: qtArray
*Label1(4).Name: Label1
*Label1(4).Height: 372.000000
*Label1(4).Left: 120.000000
*Label1(4).Top: 120.000000
*Label1(4).ForeColor: &H80000008&
*Label1(4).Caption: "Schema of Staff Table:"
*Label1(4).Alignment: 1
*Label1(4).Index: 4
*Label1(4).TabIndex: 0
*Label1(4).Width: 1728.000000
*Label1(5).class: Viper.Label
*Label1(5).BackColor: &H80000005&
*Label1(5).Parent: qtArray
*Label1(5).Name: Label1
*Label1(5).Height: 852.000000
*Label1(5).Left: 120.000000
*Label1(5).Top: 600.000000
*Label1(5).ForeColor: &H80000008&
*Label1(5).Caption: "Statistic type (mean, variance, standard deviation, standard error):"
*Label1(5).Alignment: 1
*Label1(5).Index: 5
*Label1(5).TabIndex: 1
*Label1(5).Width: 1728.000000
*Label1(6).class: Viper.Label
*Label1(6).BackColor: &H80000005&
*Label1(6).Parent: qtArray
*Label1(6).Name: Label1
*Label1(6).Height: 252.000000
*Label1(6).Left: 120.000000
*Label1(6).Top: 1440.000000
*Label1(6).ForeColor: &H80000008&
*Label1(6).Caption: "Return value:"
*Label1(6).Alignment: 1
*Label1(6).Index: 6
*Label1(6).TabIndex: 2
*Label1(6).Width: 1728.000000
*Label1(7).class: Viper.Label
*Label1(7).BackColor: &H80000005&
*Label1(7).Parent: qtArray
*Label1(7).Name: Label1
*Label1(7).Height: 252.000000
*Label1(7).Left: 120.000000
*Label1(7).Top: 1920.000000
*Label1(7).ForeColor: &H80000008&
*Label1(7).Caption: "SQLCode:"
*Label1(7).Alignment: 1
*Label1(7).Index: 7
*Label1(7).TabIndex: 3
*Label1(7).Width: 1728.000000
*Command4.class: Viper.CommandButton
*Command4.BackColor: &H80000005&
*Command4.Parent: qtArray
*Command4.Name: Command4
*Command4.Height: 375.000000
*Command4.Left: 1320.000000
*Command4.Click: Command4_Click
*Command4.Top: 2280.000000
*Command4.Caption: "&Exit"
*Command4.Tag: "Command4"
*Command4.TabIndex: 4
*Command4.Width: 975.000000
*Text1(4).class: Viper.TextBox
*Text1(4).Parent: qtArray
*Text1(4).Name: Text1
*Text1(4).Height: 288.000000
*Text1(4).Left: 1920.000000
*Text1(4).Top: 240.000000
*Text1(4).ScrollBars: 2
*Text1(4).Text: ""
*Text1(4).Index: 4
*Text1(4).TabIndex: 5
*Text1(4).Width: 3600.000000
*Text1(5).class: Viper.TextBox
*Text1(5).Parent: qtArray
*Text1(5).Name: Text1
*Text1(5).Height: 288.000000
*Text1(5).Left: 1920.000000
*Text1(5).Top: 840.000000
*Text1(5).ScrollBars: 2
*Text1(5).Text: ""
*Text1(5).Index: 5
*Text1(5).TabIndex: 6
*Text1(5).Width: 3600.000000
*Text1(6).class: Viper.TextBox
*Text1(6).Parent: qtArray
*Text1(6).Name: Text1
*Text1(6).Height: 288.000000
*Text1(6).Left: 1920.000000
*Text1(6).Top: 1440.000000
*Text1(6).ScrollBars: 2
*Text1(6).Text: ""
*Text1(6).Index: 6
*Text1(6).TabIndex: 7
*Text1(6).Width: 3600.000000
*Text1(7).class: Viper.TextBox
*Text1(7).Parent: qtArray
*Text1(7).Name: Text1
*Text1(7).Height: 288.000000
*Text1(7).Left: 1920.000000
*Text1(7).Top: 1920.000000
*Text1(7).ScrollBars: 2
*Text1(7).Text: ""
*Text1(7).Index: 7
*Text1(7).TabIndex: 8
*Text1(7).Width: 3600.000000
*CommandRun.class: Viper.CommandButton
*CommandRun.BackColor: &H80000005&
*CommandRun.Parent: qtArray
*CommandRun.Name: CommandRun
*CommandRun.Height: 375.000000
*CommandRun.Left: 120.000000
*CommandRun.Click: CommandRun_Click
*CommandRun.Top: 2280.000000
*CommandRun.Caption: "&Run"
*CommandRun.Tag: "Command1"
*CommandRun.TabIndex: 9
*CommandRun.Width: 975.000000
*Sp1.class: OLEAutomation.SPLib.SpCtrl
*Sp1.Parent: qtArray
*Sp1.Name: Sp1
*Sp1.Left: 2550.000000
*Sp1.Top: 2250.000000
*Sp1.PropertySet: myModule.LoadData("#P##K#31c7130874cafedeca#S##E#")
*qtArray+Declaration.Parent: qtArray
*qtArray+Declaration.Scope: Private
*qtArray+Declaration.class: Declaration
*qtArray+Declaration.Body: \
Option Explicit\
\


*qtArray+CommandRun_Click.Parent: qtArray
*qtArray+CommandRun_Click.Scope: Private
*qtArray+CommandRun_Click.class: Procedure
*qtArray+CommandRun_Click.Body: Sub CommandRun_Click()\
    Dim result As Double, sqlstmt As String\
    Screen.MousePointer = 11\
    sqlstmt = "Select salary from " & Text1(4) & ".staff"\
    Text1(6).Text = "-"\
    Text1(7).Text = "-"\
    ' Build sqlsproc.bas on the server for the following call:\
    ' Pass: server, pathproc, uid, pwd, schema, stattype, result, rcode\
\
    Sp1.opendb\
    Sp1.RunTimeTypeCheck = False\
    Sp1.NullIndicator(0) = 0\
    Sp1.NullIndicator(1) = 0\
    Sp1.NullIndicator(2) = 0\
\
    Sp1.Adapter.Call sqlstmt, Text1(5), result\
\
    Text1(6).Text = result\
    Text1(7).Text = Sp1.errorid\
    Sp1.CloseDb\
    Screen.MousePointer = 0\
End Sub

*qtArray+Command4_Click.Parent: qtArray
*qtArray+Command4_Click.Scope: Private
*qtArray+Command4_Click.class: Procedure
*qtArray+Command4_Click.Body: Sub Command4_Click()\
  Unload Me\
End Sub

*qtArray+Form_Load.Parent: qtArray
*qtArray+Form_Load.Scope: Private
*qtArray+Form_Load.class: Procedure
*qtArray+Form_Load.Body: Sub Form_Load()\
  Dim opts As Long\
  Dim stats As String\
  ReDim labels(7) As String\
  ReDim texts(7) As String\
  loadini\
End Sub