倉庫管理系統(tǒng)課程設(shè)計(jì)(編輯修改稿)
2025-05-09 01:00 本頁面
【文章內(nèi)容簡介】 End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case T_InStorehouse Call M_InStorehouse_Click Case T_Calc Shell ( + \) 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 SelectEnd Sub 入庫錄入界面與該窗體相關(guān)的程序 Public rk As String 39。入庫的類型Public reccount As Integer 39。記錄條數(shù)Public row1 As Integer 39。單擊list2時(shí)返回的行數(shù)Private Sub Command1_Click() 39。補(bǔ)充數(shù)據(jù) 39。判斷輸入的數(shù)據(jù)是否都為空 39。補(bǔ)充出庫信息 If Trim(Text1(13)) Or Trim(Text1(14)) Or Trim(Text1(15)) Or Trim(Text1(16)) Then = select * from outstorehouse where 編號= + (row1, 4) With .Fields(8) = Text1(13) .Fields(9) = Text1(14) .Fields(10) = Text1(15) .Fields(11) = Text1(16) .Update End With Call Command2_Click = False Else MsgBox (請輸入數(shù)據(jù)！) End If 39。End SubPrivate Sub Command2_Click() 39。補(bǔ)充出庫信息時(shí)的數(shù)據(jù)清零 For i = 13 To 16 Text1(i).Text = Next iEnd SubPrivate Sub Command3_Click() 39。按確定按鈕 39。判斷輸入 If = False Then If Trim(Text1(0).Text) = Or Trim(Text1(1).Text) = Then 39。當(dāng)不要補(bǔ)充出庫的信息時(shí) MsgBox (品名與規(guī)格不能為空！) Text1(0).SetFocus Exit Sub End If If Trim(Text1(8).Text) = Then MsgBox (請輸入領(lǐng)料人！) Text1(7).SetFocus Exit Sub End If Else If Trim(Text1(0).Text) = Or Trim(Text1(1).Text) = Then 39。入庫的關(guān)鍵信息 MsgBox (品名與規(guī)格不能為空！) Text1(0).SetFocus Exit Sub End If If Trim(Text1(11).Text) = Or Trim(Text1(12).Text) = Then 39。當(dāng)要補(bǔ)充出庫的信息時(shí) MsgBox (品名與規(guī)格不能為空！) Text1(11).SetFocus Exit Sub End If If Trim(Text1(8).Text) = Then MsgBox (請輸入領(lǐng)料人！) Text1(7).SetFocus Exit Sub End If End If If IsNumeric(Text1(4)) = False Then 39。判斷數(shù)量是否為數(shù)值 MsgBox (你輸入的數(shù)量有誤，請輸入數(shù)值！) Text1(4).Text = Text1(4).SetFocus Exit Sub End If 39。 Text1(9).Text = Operater1 39。給進(jìn)庫表增加信息 = select * from instorehouse With .AddNew .Fields(0) = Text1(0).Text .Fields(1) = Text1(1).Text .Fields(2) = Text1(2).Text .Fields(3) = Text1(3).Text .Fields(4) = Val(Text1(4).Text) .Fields(5) = Text1(5).Text .Fields(6) = Date .Fields(7) = Text1(7).Text .Fields(8) = Text1(8).Text .Fields(9) = Text1(9).Text .Fields(10) = Text1(10).Text .Fields(11) = rk .Update End With Call list1disp 39。 39。給庫存表增加信息 = select * from stock where 品名 =39。 + Trim(Text1(0)) _ + 39。 and 規(guī)格 = 39。 + Trim(Text1(1).Text) + 39。 39。查找?guī)熘惺欠裼性撐锲? If = True Then With .AddNew .Fields(0) = Text1(0).Text .Fields(1) = Text1(1).Text .Fields(2) = Text1(2).Text .Fields(3) = Text1(3).Text .Fields(4) = Val(Text1(4).Text) .Fields(5) = Text1(5).Text .Update End With Else With .Fields(4) = .Fields(4) + Text1(4) .Update End With End If 39。 39。給出庫表增加信息 = select * from stock where 品名 =39。 + Trim(Text1(0)) _ + 39。 and 規(guī)格 = 39。 + Trim(Text1(1).Text) + 39。 39。查找?guī)熘惺欠裼性撐锲? 39。 Call clearzore Text1(6) = Date Text1(9) = Operater1 Text1(0).SetFocusEnd SubPrivate Sub Command4_Click() 39。取消 Call
公司管理相關(guān)推薦
鄂ICP備17016276號-1