home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a025 / 10.ddi / BLOGIN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-03-12  |  4.1 KB  |  182 lines
  1. login
  2. SQL Server Login
  3. Form1
  4. Label1
  5. &Server:
  6. Server_name_field
  7. Text1
  8.     OK_BUTTON
  9. Label2
  10. &Login ID:
  11. login_id_field
  12. Text1
  13. CANCEL_BUTTON
  14. Cancel
  15. Label3
  16. &Password:
  17. password_field
  18. Text1
  19. text1
  20. Label1
  21. Server_name_field
  22. Label2?
  23. Login_id_field
  24. Label3
  25. PASSWORD_FIELD
  26. Command1
  27. Command2
  28. Form1K
  29. Login~
  30. CONNECT_MENU
  31.     EDIT_MENU
  32. EMPLOYEES_MENU~
  33. HOUSES_MENU
  34. REPORTS_MENU
  35.     EXIT_MENUQ
  36. Command2_Clickc
  37. Command1_Click+
  38. Login_id
  39. Server_name
  40. Server_fields
  41. Password
  42. SQLInit
  43. SqlConn
  44. SqlOpenConnection=
  45. Server
  46. Form_Click
  47. Server_name_field_Change
  48. login_id_field_ChangeN
  49. Result|
  50. SqlUseQ
  51. FAILm
  52. ThenMsgBoxe
  53.     Form_Load^
  54. Cancel+
  55. enabledL
  56. Server_name_field_LostFocus,
  57.     OK_BUTTON
  58. login_id_field_LostFocus>
  59. password_field_Change
  60. password_field_LostFocusp
  61. Cancel_button
  62. Ourplace!
  63. VBSQL1
  64. value1+
  65. value2\
  66. OK_BUTTON_Click
  67. OK_BUTTON_KeyUp`
  68. KeyCodep
  69. Shiftl
  70. CANCEL_BUTTON_Click
  71. SqlClose
  72.     INFO_MENU
  73. STANDARD_MENU
  74. LAYOUT_MENU
  75. DETAILS_MENU
  76. SALES_MENU
  77. login_id_field_KeyUp
  78. Server_name_field_KeyUp=
  79. password_field_KeyUp
  80. SQL_ERRORS
  81. standard_form{
  82. LIST_NO_FIELDc
  83. STREET_FIELD
  84. CITY_FIELD1
  85. DISTRICT_FIELD
  86. Label4
  87. RETRIEVE_BUTTON<
  88. Command3
  89. Command4W
  90. DRIVE_COMBO
  91. DIR_TREE_COMBO@
  92. FILE_NAME_COMBO
  93. SIZE_FIELD3
  94. BITMAP_PICTURE
  95. FROM_FILE_BUTTON,
  96. TO_SQL_BUTTON^
  97. TO_CDRIVE_BUTTON
  98. Database$
  99. Results
  100. VBQUERYX
  101. Caption
  102. MAINFORM
  103. ThenMAINFORM!
  104. Result5
  105. SqlGetTime
  106. Database_name
  107. SqlDbn
  108. GetDatabaseName
  109. SqlCmdA
  110. SqlExecL    
  111. SqlResultsU
  112. NOMORERESULTS
  113. olumn
  114. lining
  115. compute
  116. columns
  117. SqlNextRowN
  118. NOMOREROWS
  119. SqlData
  120. SqlSetLoginTimeL
  121. Status
  122. SqlSetTime
  123. Primary_window_titlej
  124. PrimaryWindowTitle
  125. PrimaryWindow
  126. ExecuteSQLCommand~
  127. ChangePrimaryWindowCaptionc
  128. Servername
  129. GetPassword
  130. textbox
  131. RECENT_KEY4
  132. attempte
  133. lastkey,
  134. lpMsg
  135. GetAsyncKeyState
  136. KEY_BACK
  137. selstart
  138. KEY_RETURN
  139. PeekMessage
  140. WM_KEYFIRST
  141. WM_KEYLAST
  142.     PM_REMOVE
  143. PM_NOYIELD
  144. password_field_GotFocus%    
  145. KEY_CAPITAL
  146. KEY_NUMLOCK
  147.     FilterMin
  148.     FilterMax
  149. Remove
  150. KEY_TAB
  151.     DefServer
  152. DefLogin
  153. ProgramName
  154. LoginID
  155.     LoginTime
  156.     QueryTime
  157. LoginTimeout
  158. QueryTimeout
  159. DatabaseName@    
  160. SqlName
  161. SqlUpdConn
  162. ExitApplication
  163. ThenExit
  164. password_field_KeyPress
  165. KeyAscii
  166. LoginToServer
  167. Form_Load
  168. OK_BUTTON_Click
  169.  Get the server name, login Id, & password from the form
  170. Must supply a server name"
  171. Must supply a login id
  172.  Open select connection for browse mode:
  173.  Now Open update connection for browse mode:
  174.  Check to see if the connection is live, if so, then close ite
  175.  Set the max time to login to 30 seconds
  176.  Open the new connection
  177.  Change the caption of the application to reflect the server name and the database
  178.  Set the max time we will wait for a SQL Server response
  179. CANCEL_BUTTON_Click
  180. password_field_KeyPress
  181.  This will keep the key from being seenX
  182.