Form2.frm
上传用户:xzhdjhq
上传日期:2013-04-04
资源大小:302k
文件大小:7k
源码类别:

软件工程

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "仓库管理系统"
  4.    ClientHeight    =   5745
  5.    ClientLeft      =   2055
  6.    ClientTop       =   2130
  7.    ClientWidth     =   9540
  8.    LinkTopic       =   "Form2"
  9.    Picture         =   "Form2.frx":0000
  10.    ScaleHeight     =   5745
  11.    ScaleMode       =   0  'User
  12.    ScaleWidth      =   95835.8
  13.    Begin VB.Menu 物资基本信息 
  14.       Caption         =   "物资基本信息"
  15.       Begin VB.Menu 添加物资信息 
  16.          Caption         =   "添加物资信息"
  17.          Shortcut        =   ^A
  18.       End
  19.       Begin VB.Menu 仓库物资剩余信息查询 
  20.          Caption         =   "仓库物资剩余信息查询"
  21.       End
  22.    End
  23.    Begin VB.Menu 物资入库信息管理 
  24.       Caption         =   "物资入库信息管理"
  25.       Begin VB.Menu 物资入库单填写 
  26.          Caption         =   "物资入库单填写"
  27.          Shortcut        =   ^F
  28.       End
  29.       Begin VB.Menu 物资入库单列表 
  30.          Caption         =   "物资入库单列表"
  31.          Shortcut        =   ^G
  32.       End
  33.    End
  34.    Begin VB.Menu 物资出库信息管理 
  35.       Caption         =   "物资出库信息管理"
  36.       Begin VB.Menu 物资出库单填写 
  37.          Caption         =   "物资出库单填写"
  38.          Shortcut        =   ^D
  39.       End
  40.       Begin VB.Menu 物资出库单列表 
  41.          Caption         =   "物资出库单列表"
  42.          Shortcut        =   ^E
  43.       End
  44.    End
  45.    Begin VB.Menu 查询 
  46.       Caption         =   "查询"
  47.       Begin VB.Menu 物资入库单列表查询 
  48.          Caption         =   "物资入库单列表查询"
  49.          Shortcut        =   ^I
  50.       End
  51.       Begin VB.Menu 物资出库单列表查询 
  52.          Caption         =   "物资出库单列表查询"
  53.          Shortcut        =   ^J
  54.       End
  55.    End
  56.    Begin VB.Menu 用户管理 
  57.       Caption         =   "用户管理"
  58.       Begin VB.Menu 用户注册 
  59.          Caption         =   "用户注册"
  60.          Shortcut        =   ^Z
  61.       End
  62.    End
  63.    Begin VB.Menu 退出 
  64.       Caption         =   "退出"
  65.    End
  66.    Begin VB.Menu 说明 
  67.       Caption         =   "说明"
  68.    End
  69. End
  70. Attribute VB_Name = "Form2"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75. Private Sub Command1_Click()
  76. Unload Me
  77. End Sub
  78. Private Sub 仓库物资剩余信息查询_Click()
  79. Form4.Show
  80. End Sub
  81. Private Sub 说明_Click()
  82. Form10.Show
  83. End Sub
  84. Private Sub 添加物资信息_Click()
  85. Form8.Show
  86. Dim pubConn As New ADODB.Connection
  87. Dim rsTable As New ADODB.Recordset
  88. Dim strSQL As String
  89. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  90. pubConn.ConnectionTimeout = 30
  91. pubConn.Open
  92. rsTable.CursorLocation = adUseClient
  93. strSQL = "select  * from basicinfo "
  94. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  95. Set Form8.DataGrid1.DataSource = rsTable
  96. Form8.DataGrid1.Caption = "查询结果如下:"
  97. End Sub
  98. Private Sub 退出_Click()
  99. Unload Me
  100. End Sub
  101. Private Sub 物品信息添加_Click()
  102. Form8.Show
  103. Dim pubConn As New ADODB.Connection
  104. Dim rsTable As New ADODB.Recordset
  105. Dim strSQL As String
  106. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  107. pubConn.ConnectionTimeout = 30
  108. pubConn.Open
  109. rsTable.CursorLocation = adUseClient
  110. strSQL = "select  * from basicinfo "
  111. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  112. Set Form8.DataGrid1.DataSource = rsTable
  113. Form8.DataGrid1.Caption = "查询结果如下:"
  114. End Sub
  115. Private Sub 物资出库单列表_Click()
  116. Form7.Show
  117. Dim pubConn As New ADODB.Connection
  118. Dim rsTable As New ADODB.Recordset
  119. Dim strSQL As String
  120. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  121. pubConn.ConnectionTimeout = 30
  122. pubConn.Open
  123. rsTable.CursorLocation = adUseClient
  124. strSQL = "select  * from output11 "
  125. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  126. Set Form7.DataGrid1.DataSource = rsTable
  127. Form7.DataGrid1.Caption = "查询结果如下:"
  128. End Sub
  129. Private Sub 物资出库单列表查询_Click()
  130. Form7.Show
  131. Dim pubConn As New ADODB.Connection
  132. Dim rsTable As New ADODB.Recordset
  133. Dim strSQL As String
  134. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  135. pubConn.ConnectionTimeout = 30
  136. pubConn.Open
  137. rsTable.CursorLocation = adUseClient
  138. strSQL = "select  * from output11 "
  139. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  140. Set Form7.DataGrid1.DataSource = rsTable
  141. Form7.DataGrid1.Caption = "查询结果如下:"
  142. End Sub
  143. Private Sub 物资出库单填写_Click()
  144. Form6.Show
  145. Dim pubConn As New ADODB.Connection
  146. Dim rsTable As New ADODB.Recordset
  147. Dim strSQL As String
  148. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  149. pubConn.ConnectionTimeout = 30
  150. pubConn.Open
  151. rsTable.CursorLocation = adUseClient
  152. strSQL = "select  * from basicinfo "
  153. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  154. Set Form6.DataGrid1.DataSource = rsTable
  155. Form6.DataGrid1.Caption = "查询结果如下:"
  156. End Sub
  157. Private Sub 物资基本信息列表_Click()
  158. Form4.Show
  159. End Sub
  160. Private Sub 物资入库单列表_Click()
  161. Form3.Show
  162. Dim pubConn As New ADODB.Connection
  163. Dim rsTable As New ADODB.Recordset
  164. Dim strSQL As String
  165. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  166. pubConn.ConnectionTimeout = 30
  167. pubConn.Open
  168. rsTable.CursorLocation = adUseClient
  169. strSQL = "select  * from input11 "
  170. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  171. Set Form3.DataGrid1.DataSource = rsTable
  172. Form3.DataGrid1.Caption = "查询结果如下:"
  173. End Sub
  174. Private Sub 物资入库单列表查询_Click()
  175. Form3.Show
  176. Dim pubConn As New ADODB.Connection
  177. Dim rsTable As New ADODB.Recordset
  178. Dim strSQL As String
  179. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  180. pubConn.ConnectionTimeout = 30
  181. pubConn.Open
  182. rsTable.CursorLocation = adUseClient
  183. strSQL = "select  * from input11 "
  184. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  185. Set Form3.DataGrid1.DataSource = rsTable
  186. Form3.DataGrid1.Caption = "查询结果如下:"
  187. End Sub
  188. Private Sub 物资入库单填写_Click()
  189. Form5.Show
  190. Dim pubConn As New ADODB.Connection
  191. Dim rsTable As New ADODB.Recordset
  192. Dim strSQL As String
  193. pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "runnerup.mdb" & ";" & "Persist Security Info=False"
  194. pubConn.ConnectionTimeout = 30
  195. pubConn.Open
  196. rsTable.CursorLocation = adUseClient
  197. strSQL = "select  * from basicinfo "
  198. rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
  199. Set Form5.DataGrid1.DataSource = rsTable
  200. Form5.DataGrid1.Caption = "查询结果如下:"
  201. End Sub
  202. Private Sub 修改密码_Click()
  203. End Sub
  204. Private Sub 用户注册_Click()
  205. Form9.Show
  206. End Sub