Form2.frm
上传用户:xzhdjhq
上传日期:2013-04-04
资源大小:302k
文件大小:7k
- 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