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

Private Sub M_PrintMonth_Click()
   FrmPrintMonth.Show
End Sub

Private Sub M_Printmustbuy_Click()
DataReport3.Show
End Sub

Private Sub M_ProducePlan_Click()
  FrmProduceplanManage1.Show
End Sub

Private Sub M_Sparelist_Click()
FrmSpareList.Show
End Sub

Private Sub M_StorehouseManage_Click()
  FrmStorehousemanage.Show
End Sub

Private Sub M_StorehouseSetup_Click()
  frmStorehouse.Show
End Sub

Private Sub M_PrintMust_Click()
   FrmPrintMust.Show
End Sub

Private Sub M_TEMP_Click()
  frmTEMP.Show 1
End Sub

Private Sub M_TotalDay_Click()
  FrmTotalDay.Show
End Sub

Private Sub M_TotalMonth_Click()
  FrmTotalmonth.Show
End Sub

Private Sub MDIForm_Load()
  Mainform.BackColor = &H80000003
  Mainform.WindowState = 2
  str1 = "日一二三四五优"
  StatusBar1.Panels.Item(4).Text = "星期" & Mid(str1, Weekday(Date), 1)
  StatusBar1.Panels.Item(3).Text = Date
  StatusBar1.Panels.Item(1).Text = "管理员:    " & Operater1
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = MsgBox("退出前请确定数据是否保存!!", 1 + 32)
    If Cancel = 1 Then End
End Sub

Private Sub MDIForm_Resize()
'  Mainform.WindowState = 2
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
    Case "T_InStorehouse"
      FirstInStore_Click
    Case "T_Calc"
      Shell (App.Path + "\calc.exe")
    Case "T_Lend"
       Call M_LendThings_Click
    Case "T_Exchange"
      Call M_Exchange_Click
    Case "T_Temp"
      Call M_TEMP_Click
    Case "T_Exit"
      Call M_Exit_Click
    Case "T_OutStorehouse"
      Call M_OutStorehouse_Click
    Case "T_StorehouseManage"
      Call M_StorehouseManage_Click
    Case "T_FindPerson"
      Call M_FindPerson_Click
    Case "T_FindArticle"
      Call M_FindArticle_Click
    Case "T_ProducePlan"
      Call M_ProducePlan_Click
    End Select
End Sub

5.2.4入库界面设置
 
图5.4入库界面设置

与入库界面相关代码
Public rk As String  '入库的类型
Public reccount As Integer  '记录条数
Public row1 As Integer '单击list2时返回的行数

Private Sub Command1_Click()  '补充数据
     '判断输入的数据是否都为空
  '-----------------------------------------------补充出库信息 --------------------------
   If Trim(Text1(13)) <> "" Or Trim(Text1(14)) <> "" Or Trim(Text1(15)) <> "" Or Trim(Text1(16)) <> "" Then
       outstorehouse.RecordSource = "select * from outstorehouse where 编号=" + list2.TextMatrix(row1, 4)
       outstorehouse.Refresh
    With outstorehouse.Recordset
       .Fields(8) = Text1(13)
       .Fields(9) = Text1(14)
       .Fields(10) = Text1(15)
       .Fields(11) = Text1(16)
       .Update
    End With
    Call Command2_Click
    Command1.Enabled = False
        Else
       MsgBox ("请输入数据！")
   End If
   '---------------------------------------------
End Sub

Private Sub Command2_Click() '补充出库信息时的数据清零
  For i = 13 To 16
   Text1(i).Text = ""
  Next i
End Sub

Private Sub Command3_Click()   '按确定按钮
  '-------------------------------判断输入----------------------------
  If Option2.Value = False Then
     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
  Else
     If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then  '入库的关键信息
       MsgBox ("品名与规格不能为空！")
       Text1(0).SetFocus
       Exit Sub
     End If
     If Trim(Text1(11).Text) = "" Or Trim(Text1(12).Text) = "" Then  '当要补充出库的信息时
       MsgBox ("品名与规格不能为空！")
       Text1(11).SetFocus
       Exit Sub
     End If
     If Trim(Text1(8).Text) = "" Then
       MsgBox ("请输入领料人！")
       Text1(7).SetFocus
       Exit Sub
     End If
  End If
  If IsNumeric(Text1(4)) = False Then       '判断数量是否为数值
    MsgBox ("你输入的数量有误，请输入数值！")
    Text1(4).Text = ""

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