毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB+Access仓库管理系统 第10页

更新时间:2008-1-11:  来源:毕业论文

VB+Access仓库管理系统 第10页

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

    list1.rows = list1.rows + 1

    list1.TextMatrix(roww, 0) = instorehouse.Recordset.Fields(0)

    list1.TextMatrix(roww, 1) = instorehouse.Recordset.Fields(1)

    list1.TextMatrix(roww, 2) = instorehouse.Recordset.Fields(2)

    list1.TextMatrix(roww, 3) = instorehouse.Recordset.Fields(3)

    list1.TextMatrix(roww, 4) = instorehouse.Recordset.Fields(4)

    list1.TextMatrix(roww, 5) = instorehouse.Recordset.Fields(5)

    list1.TextMatrix(roww, 6) = instorehouse.Recordset.Fields(6)

    roww = roww + 1

    instorehouse.Recordset.MoveNext

  Loop

End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VB+Access仓库管理系统 第10页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。