home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 November / VPR9611B.ISO / vabasic / ntclnt.exe / DISK18 / data.18 / INSTALL.TXT
Text File  |  1996-07-30  |  6KB  |  196 lines
  1. ! IBM_VisualAge_for_Basic 1.1.0
  2.  
  3. *qtArray.class: Viper.Form
  4. *qtArray.BackColor: &H80000005&
  5. *qtArray.Parent: NO_PARENT
  6. *qtArray.Name: qtArray
  7. *qtArray.ScaleHeight: 2775.000000
  8. *qtArray.ScaleMode: 1
  9. *qtArray.Height: 3240
  10. *qtArray.Left: 1185
  11. *qtArray.Top: 2370
  12. *qtArray.ForeColor: &H80000008&
  13. *qtArray.Caption: "SP OCX Stats "
  14. *qtArray.Load: Form_Load
  15. *qtArray.Tag: "qtArray"
  16. *qtArray.ScaleWidth: 5655.000000
  17. *qtArray.Width: 5835
  18. *Label1(4).class: Viper.Label
  19. *Label1(4).BackColor: &H80000005&
  20. *Label1(4).Parent: qtArray
  21. *Label1(4).Name: Label1
  22. *Label1(4).Height: 372.000000
  23. *Label1(4).Left: 120.000000
  24. *Label1(4).Top: 120.000000
  25. *Label1(4).ForeColor: &H80000008&
  26. *Label1(4).Caption: "Schema of Staff Table:"
  27. *Label1(4).Alignment: 1
  28. *Label1(4).Index: 4
  29. *Label1(4).TabIndex: 0
  30. *Label1(4).Width: 1728.000000
  31. *Label1(5).class: Viper.Label
  32. *Label1(5).BackColor: &H80000005&
  33. *Label1(5).Parent: qtArray
  34. *Label1(5).Name: Label1
  35. *Label1(5).Height: 852.000000
  36. *Label1(5).Left: 120.000000
  37. *Label1(5).Top: 600.000000
  38. *Label1(5).ForeColor: &H80000008&
  39. *Label1(5).Caption: "Statistic type (mean, variance, standard deviation, standard error):"
  40. *Label1(5).Alignment: 1
  41. *Label1(5).Index: 5
  42. *Label1(5).TabIndex: 1
  43. *Label1(5).Width: 1728.000000
  44. *Label1(6).class: Viper.Label
  45. *Label1(6).BackColor: &H80000005&
  46. *Label1(6).Parent: qtArray
  47. *Label1(6).Name: Label1
  48. *Label1(6).Height: 252.000000
  49. *Label1(6).Left: 120.000000
  50. *Label1(6).Top: 1440.000000
  51. *Label1(6).ForeColor: &H80000008&
  52. *Label1(6).Caption: "Return value:"
  53. *Label1(6).Alignment: 1
  54. *Label1(6).Index: 6
  55. *Label1(6).TabIndex: 2
  56. *Label1(6).Width: 1728.000000
  57. *Label1(7).class: Viper.Label
  58. *Label1(7).BackColor: &H80000005&
  59. *Label1(7).Parent: qtArray
  60. *Label1(7).Name: Label1
  61. *Label1(7).Height: 252.000000
  62. *Label1(7).Left: 120.000000
  63. *Label1(7).Top: 1920.000000
  64. *Label1(7).ForeColor: &H80000008&
  65. *Label1(7).Caption: "SQLCode:"
  66. *Label1(7).Alignment: 1
  67. *Label1(7).Index: 7
  68. *Label1(7).TabIndex: 3
  69. *Label1(7).Width: 1728.000000
  70. *Command4.class: Viper.CommandButton
  71. *Command4.BackColor: &H80000005&
  72. *Command4.Parent: qtArray
  73. *Command4.Name: Command4
  74. *Command4.Height: 375.000000
  75. *Command4.Left: 1320.000000
  76. *Command4.Click: Command4_Click
  77. *Command4.Top: 2280.000000
  78. *Command4.Caption: "&Exit"
  79. *Command4.Tag: "Command4"
  80. *Command4.TabIndex: 4
  81. *Command4.Width: 975.000000
  82. *Text1(4).class: Viper.TextBox
  83. *Text1(4).Parent: qtArray
  84. *Text1(4).Name: Text1
  85. *Text1(4).Height: 288.000000
  86. *Text1(4).Left: 1920.000000
  87. *Text1(4).Top: 240.000000
  88. *Text1(4).ScrollBars: 2
  89. *Text1(4).Text: ""
  90. *Text1(4).Index: 4
  91. *Text1(4).TabIndex: 5
  92. *Text1(4).Width: 3600.000000
  93. *Text1(5).class: Viper.TextBox
  94. *Text1(5).Parent: qtArray
  95. *Text1(5).Name: Text1
  96. *Text1(5).Height: 288.000000
  97. *Text1(5).Left: 1920.000000
  98. *Text1(5).Top: 840.000000
  99. *Text1(5).ScrollBars: 2
  100. *Text1(5).Text: ""
  101. *Text1(5).Index: 5
  102. *Text1(5).TabIndex: 6
  103. *Text1(5).Width: 3600.000000
  104. *Text1(6).class: Viper.TextBox
  105. *Text1(6).Parent: qtArray
  106. *Text1(6).Name: Text1
  107. *Text1(6).Height: 288.000000
  108. *Text1(6).Left: 1920.000000
  109. *Text1(6).Top: 1440.000000
  110. *Text1(6).ScrollBars: 2
  111. *Text1(6).Text: ""
  112. *Text1(6).Index: 6
  113. *Text1(6).TabIndex: 7
  114. *Text1(6).Width: 3600.000000
  115. *Text1(7).class: Viper.TextBox
  116. *Text1(7).Parent: qtArray
  117. *Text1(7).Name: Text1
  118. *Text1(7).Height: 288.000000
  119. *Text1(7).Left: 1920.000000
  120. *Text1(7).Top: 1920.000000
  121. *Text1(7).ScrollBars: 2
  122. *Text1(7).Text: ""
  123. *Text1(7).Index: 7
  124. *Text1(7).TabIndex: 8
  125. *Text1(7).Width: 3600.000000
  126. *CommandRun.class: Viper.CommandButton
  127. *CommandRun.BackColor: &H80000005&
  128. *CommandRun.Parent: qtArray
  129. *CommandRun.Name: CommandRun
  130. *CommandRun.Height: 375.000000
  131. *CommandRun.Left: 120.000000
  132. *CommandRun.Click: CommandRun_Click
  133. *CommandRun.Top: 2280.000000
  134. *CommandRun.Caption: "&Run"
  135. *CommandRun.Tag: "Command1"
  136. *CommandRun.TabIndex: 9
  137. *CommandRun.Width: 975.000000
  138. *Sp1.class: OLEAutomation.SPLib.SpCtrl
  139. *Sp1.Parent: qtArray
  140. *Sp1.Name: Sp1
  141. *Sp1.Left: 2550.000000
  142. *Sp1.Top: 2250.000000
  143. *Sp1.PropertySet: myModule.LoadData("#P##K#31c7130874cafedeca#S##E#")
  144. *qtArray+Declaration.Parent: qtArray
  145. *qtArray+Declaration.Scope: Private
  146. *qtArray+Declaration.class: Declaration
  147. *qtArray+Declaration.Body: \
  148. Option Explicit\
  149. \
  150.  
  151.  
  152. *qtArray+CommandRun_Click.Parent: qtArray
  153. *qtArray+CommandRun_Click.Scope: Private
  154. *qtArray+CommandRun_Click.class: Procedure
  155. *qtArray+CommandRun_Click.Body: Sub CommandRun_Click()\
  156.     Dim result As Double, sqlstmt As String\
  157.     Screen.MousePointer = 11\
  158.     sqlstmt = "Select salary from " & Text1(4) & ".staff"\
  159.     Text1(6).Text = "-"\
  160.     Text1(7).Text = "-"\
  161.     ' Build sqlsproc.bas on the server for the following call:\
  162.     ' Pass: server, pathproc, uid, pwd, schema, stattype, result, rcode\
  163. \
  164.     Sp1.opendb\
  165.     Sp1.RunTimeTypeCheck = False\
  166.     Sp1.NullIndicator(0) = 0\
  167.     Sp1.NullIndicator(1) = 0\
  168.     Sp1.NullIndicator(2) = 0\
  169. \
  170.     Sp1.Adapter.Call sqlstmt, Text1(5), result\
  171. \
  172.     Text1(6).Text = result\
  173.     Text1(7).Text = Sp1.errorid\
  174.     Sp1.CloseDb\
  175.     Screen.MousePointer = 0\
  176. End Sub
  177.  
  178. *qtArray+Command4_Click.Parent: qtArray
  179. *qtArray+Command4_Click.Scope: Private
  180. *qtArray+Command4_Click.class: Procedure
  181. *qtArray+Command4_Click.Body: Sub Command4_Click()\
  182.   Unload Me\
  183. End Sub
  184.  
  185. *qtArray+Form_Load.Parent: qtArray
  186. *qtArray+Form_Load.Scope: Private
  187. *qtArray+Form_Load.class: Procedure
  188. *qtArray+Form_Load.Body: Sub Form_Load()\
  189.   Dim opts As Long\
  190.   Dim stats As String\
  191.   ReDim labels(7) As String\
  192.   ReDim texts(7) As String\
  193.   loadini\
  194. End Sub
  195.  
  196.