您现在的位置：毕业论文 >> 课程设计 >> 正文

仓库管理系统数据库课程设计第6页

更新时间：2009-7-26: 来源：毕业论文

仓库管理系统数据库课程设计第6页
Call list2disp
Command1.Enabled = False

'-------------------------------------------------
End Sub

Private Sub Form_Load()
Me.Top = (Mainform.Height - Me.Height) / 2 - 800
Me.Left = (Mainform.Width - Me.Width) / 2
Me.Caption = "仓库管理系统→" & "入库操作"
instorehouse.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"
outstorehouse.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"
person.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"
stock.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"
Call clearzore
Call option1def
Call list2def
Call list1def
Call list1disp
Text1(6).Text = Date
Text1(9).Text = Operater1
Command1.Enabled = False
End Sub

Private Sub list2_Click()
row1 = list2.Row '返回单击的行值
If row1 <> 0 Then
Command1.Enabled = True
End If
outstorehouse.RecordSource = "select * from outstorehouse where 编号=" + list2.TextMatrix(row1, 4)
outstorehouse.Refresh
If outstorehouse.Recordset.EOF = False Then   '此if 为了判断LIST1中是否有数据
Frame6.Enabled = True
With outstorehouse.Recordset
    If IsNull(.Fields(8)) = True Then
        Text1(13).Text = ""
         Else
          Text1(13).Text = .Fields(8)
     End If
    If IsNull(.Fields(9)) = True Then
        Text1(14).Text = ""
         Else
          Text1(14).Text = .Fields(9)
     End If
    If IsNull(.Fields(10)) = True Then
        Text1(15).Text = ""
         Else
          Text1(15).Text = .Fields(10)
     End If
    If IsNull(.Fields(11)) = True Then
        Text1(16).Text = ""
         Else
          Text1(16).Text = .Fields(11)
     End If
      End With
     Else
     Frame6.Enabled = False
    End If
End Sub

Private Sub Option1_Click()
rk = "初次入库"
Call option1def
End Sub

Private Sub Option2_Click()
rk = "余料入库"
Command1.Enabled = False
Call option2def
list2.Enabled = False '一开始就屏蔽list2的单击事件
End Sub
Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = &HC0FFFF
End Sub
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &HFFC0C0
If Index = 7 Then
   person.RecordSource = "select * from person where 编号 = '" + Trim(Text1(7)) + "'"
   person.Refresh
   If person.Recordset.EOF Then
      MsgBox ("库中无此人，请重新输入编号！")
      Text1(7).Text = ""
      Text1(8).Text = ""
      'Text1(7).SetFocus
    Else
      Text1(8).Text = person.Recordset.Fields(1)
   End If
End If
End Sub
Private Sub list2def() '将list2的表头初始化
list2.TextMatrix(0, 0) = "品名"
list2.TextMatrix(0, 1) = "规格"
list2.TextMatrix(0, 2) = "领料人"
list2.TextMatrix(0, 3) = "出库日期"
list2.TextMatrix(0, 4) = "编号"
End Sub
Private Sub list1def()   '将list1的表头初始化
list1.TextMatrix(0, 0) = "品名"
list1.TextMatrix(0, 1) = "规格"
list1.TextMatrix(0, 2) = "导电"
list1.TextMatrix(0, 3) = "硬度"
list1.TextMatrix(0, 4) = "数量"
list1.TextMatrix(0, 5) = "单位"
list1.TextMatrix(0, 6) = "入料日期"
End Sub

Private Sub option1def() '按option1屏蔽补充出库信息项
list2.Enabled = False
Frame6.Enabled = False
Frame5.Enabled = False
End Sub
Private Sub option2def() '按option2打开补充出库信息项
list2.Enabled = True
Frame6.Enabled = True
Frame5.Enabled = True
End Sub
Private Sub clearzore() '将数据项初始化
For i = 0 To 16
Text1(i).Text = ""
Text1(i).BackColor = &HFFC0C0
Next i
Option1.Value = True
rk = "初次入库"
End Sub
Private Sub list2disp()
Dim roww As Integer           ''行
list2.Clear
Call list2def
roww = 1
list2.rows = 1
outstorehouse.RecordSource = "select * from outstorehouse where 品名 ='" + Trim(Text1(11).Text) + _
"' and 规格 ='" + Trim(Text1(12).Text) + "'"
outstorehouse.Refresh
If outstorehouse.Recordset.EOF = True Then
     list2.Enabled = False '屏蔽list2的单击事件
     Exit Sub
     Else
      list2.Enabled = True
End If
outstorehouse.Recordset.MoveFirst
Do While outstorehouse.Recordset.EOF = False
       list2.rows = list2.rows + 1
    list2.TextMatrix(roww, 0) = outstorehouse.Recordset.Fields(0)
    list2.TextMatrix(roww, 1) = outstorehouse.Recordset.Fields(1)
    list2.TextMatrix(roww, 2) = outstorehouse.Recordset.Fields(7)
    list2.TextMatrix(roww, 3) = outstorehouse.Recordset.Fields(6)
    list2.TextMatrix(roww, 4) = outstorehouse.Recordset.Fields(11)
    roww = roww + 1
    outstorehouse.Recordset.MoveNext
Loop
reccount = outstorehouse.Recordset.RecordCount
End Sub
Private Sub list1disp()
Dim roww As Integer           ''行
roww = 1
list1.Clear
list1.rows = 1
Call list1def
instorehouse.RecordSource = "instorehouse"
instorehouse.Refresh
If instorehouse.Recordset.EOF = False Then
instorehouse.Recordset.MoveFirst
End If
Do While instorehouse.Recordset.EOF = False