仓库管理系统源代码数据库实训 第7页

仓库管理系统源代码数据库实训 第7页
 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
5.2.5出库界面设置
 
图5.5出库界面设置

  与出库界面相关的代码
   Private Sub Command1_Click()
  Dim YesNo As String
   '-------------------------------判断输入----------------------------
    If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then  '当不要补充出库的信息时
       MsgBox ("品名与规格不能为空!")
       Text1(0).SetFocus
       Exit Sub
     End If
     If Trim(Text1(8).Text) = "" Then
       MsgBox ("请输入领料人!")
       Text1(7).SetFocus
       Exit Sub
     End If
  If IsNumeric(Text1(4)) = False Then       '判断数量是否为数值
    MsgBox ("你输入的数量有误,请输入数值!")
    Text1(4).Text = ""
    Text1(4).SetFocus
    Exit Sub
  End If
 
   '---------------------------------------------------------------------
   '-------------------------修改库存中的信息----------------------------
   stock.RecordSource = "select * from stock where 品名='" + Trim(Text1(0)) + "' and 规格='" + Trim(Text1(1)) + "'"
   stock.Refresh
   If stock.Recordset.EOF = True Then
     MsgBox ("仓库中无此物品,请采购!")
     Text1(0).SelStart = 0
     Text1(0).SelLength = Len(Text1(0).Text)
     Text1(0).SetFocus
     Exit Sub
    Else                 '存在此物,判断它的数量值
     With stock.Recordset
        If .Fields(4) < Val(Text1(4)) And .Fields(4) <> 0 Then
        
         YesNo = MsgBox("数量超出库存数量【" + Trim(Str(.Fields(4))) + "】是否全取!", vbYesNo)
           '-------------------   '根据操作来进行操作
           If YesNo = "6" Then
             temp = .Fields(4)
             .Fields(4) = 0
             .Update
              '给出库加信息
              outstorehouse.RecordSource = "outstorehouse"
              outstorehouse.Refresh
              With outstorehouse.Recordset
                .AddNew
                .Fields(0) = Text1(0)
                .Fields(1) = Text1(1)
                .Fields(2) = Text1(2)
                .Fields(3) = Text1(3)
                .Fields(4) = temp
                .Fields(5) = Text1(5)
                .Fields(6) = Date
                .Fields(7) = Text1(7)
                .Fields(8) = Text1(8)
                .Fields(9) = Text1(9)
                .Fields(10) = Text1(10)               
               
                .Update
              End With
              Call list1disp
              Call Command2_Click
            '------------------------------
             Else
              Text1(4).SelStart = 0
              Text1(4).SelLength = Len(Text1(4))
              Text1(4).SetFocus
              Exit Sub

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

  • 上一篇文章:
  • 下一篇文章:
  • Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有