form2.frm

一个很好的仓库管理系统

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "仓库管理系统"
   ClientHeight    =   5745
   ClientLeft      =   2055
   ClientTop       =   2130
   ClientWidth     =   9540
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":0000
   ScaleHeight     =   5745
   ScaleMode       =   0  'User
   ScaleWidth      =   95835.8
   Begin VB.Menu 物资基本信息 
      Caption         =   "物资基本信息"
      Begin VB.Menu 添加物资信息 
         Caption         =   "添加物资信息"
         Shortcut        =   ^A
      End
      Begin VB.Menu 仓库物资剩余信息查询 
         Caption         =   "仓库物资剩余信息查询"
      End
   End
   Begin VB.Menu 物资入库信息管理 
      Caption         =   "物资入库信息管理"
      Begin VB.Menu 物资入库单填写 
         Caption         =   "物资入库单填写"
         Shortcut        =   ^F
      End
      Begin VB.Menu 物资入库单列表 
         Caption         =   "物资入库单列表"
         Shortcut        =   ^G
      End
   End
   Begin VB.Menu 物资出库信息管理 
      Caption         =   "物资出库信息管理"
      Begin VB.Menu 物资出库单填写 
         Caption         =   "物资出库单填写"
         Shortcut        =   ^D
      End
      Begin VB.Menu 物资出库单列表 
         Caption         =   "物资出库单列表"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu 查询 
      Caption         =   "查询"
      Begin VB.Menu 物资入库单列表查询 
         Caption         =   "物资入库单列表查询"
         Shortcut        =   ^I
      End
      Begin VB.Menu 物资出库单列表查询 
         Caption         =   "物资出库单列表查询"
         Shortcut        =   ^J
      End
   End
   Begin VB.Menu 用户管理 
      Caption         =   "用户管理"
      Begin VB.Menu 用户注册 
         Caption         =   "用户注册"
         Shortcut        =   ^Z
      End
   End
   Begin VB.Menu 退出 
      Caption         =   "退出"
   End
   Begin VB.Menu 说明 
      Caption         =   "说明"
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub


Private Sub 仓库物资剩余信息查询_Click()
Form4.Show
End Sub

Private Sub 说明_Click()
Form10.Show
End Sub

Private Sub 添加物资信息_Click()
Form8.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from basicinfo "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form8.DataGrid1.DataSource = rsTable
Form8.DataGrid1.Caption = "查询结果如下："

End Sub

Private Sub 退出_Click()
Unload Me

End Sub

Private Sub 物品信息添加_Click()
Form8.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from basicinfo "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form8.DataGrid1.DataSource = rsTable
Form8.DataGrid1.Caption = "查询结果如下："
End Sub

Private Sub 物资出库单列表_Click()
Form7.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from output11 "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form7.DataGrid1.DataSource = rsTable
Form7.DataGrid1.Caption = "查询结果如下："
End Sub

Private Sub 物资出库单列表查询_Click()
Form7.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from output11 "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form7.DataGrid1.DataSource = rsTable
Form7.DataGrid1.Caption = "查询结果如下："
End Sub

Private Sub 物资出库单填写_Click()
Form6.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from basicinfo "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form6.DataGrid1.DataSource = rsTable
Form6.DataGrid1.Caption = "查询结果如下："
End Sub



Private Sub 物资基本信息列表_Click()
Form4.Show
End Sub

Private Sub 物资入库单列表_Click()
Form3.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from input11 "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form3.DataGrid1.DataSource = rsTable
Form3.DataGrid1.Caption = "查询结果如下："
End Sub

Private Sub 物资入库单列表查询_Click()
Form3.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from input11 "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form3.DataGrid1.DataSource = rsTable
Form3.DataGrid1.Caption = "查询结果如下："
End Sub

Private Sub 物资入库单填写_Click()
Form5.Show
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
pubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\runnerup.mdb" & ";" & "Persist Security Info=False"
pubConn.ConnectionTimeout = 30
pubConn.Open
rsTable.CursorLocation = adUseClient
strSQL = "select  * from basicinfo "
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set Form5.DataGrid1.DataSource = rsTable
Form5.DataGrid1.Caption = "查询结果如下："
End Sub


Private Sub 修改密码_Click()

End Sub

Private Sub 用户注册_Click()
Form9.Show
End Sub