倉庫管理系統(tǒng)(VB+Access+源代碼)

1、倉庫管理系統(tǒng)項目的建立這是本人利用閑暇之余在VB6.0上制作的一個簡陋的類庫管系統(tǒng)，現(xiàn)圖文結(jié)合的方式一步一步展現(xiàn)制作過程。由于本人是個初學(xué)者，里面存在很多不足之處望得到高手們的指導(dǎo)。此文可作供初學(xué)者們學(xué)習(xí)交流。作者聯(lián)系方式：E-mailluo.QQ:1355044347最終運行效果打開軟件出現(xiàn)如下登錄界面輸入系統(tǒng)預(yù)設(shè)用戶名及密碼（11）單擊“登錄”或單擊“新用戶”添加新用戶進入如下主界面：建立工程1、創(chuàng)建標(biāo)準(zhǔn)EXE2、按“打開”3、添加MDI窗體一一打開4、編輯菜單在空白處右擊一一點擊“菜單編輯器”在“標(biāo)題”里輸入“系統(tǒng)”,在“名稱”里輸入“SyS'（注意此處不能為漢字）點擊“下一個”

2、再點擊“確定”退到MDI界面點擊“系統(tǒng)”一一“退出”如下，然后編寫代碼。代碼如下：PrivateSubExit_Click()EndEndSub數(shù)據(jù)庫的建立,用來存放用戶信VB6.0中可以創(chuàng)建Access數(shù)據(jù)庫。如下建立一個“用戶表”的數(shù)據(jù)庫息及一些出入庫管理信息。如下圖單擊“外接程序”外琴程序 囪口創(chuàng)J轄劉再單擊“可視化數(shù)據(jù)管理器”出現(xiàn)如圖疔并歸亳寓W工作宣日。LLi?S TlJ 想 除3L *JJ電）上項丁門Jarlrr- IJ IhitfeJM ij.1 劃d . 丁“工 FllisCP點擊“文件”一一“新建”“保存”出現(xiàn)如下圖Microsoft AccessVersion 2.0 MD

3、B”輸入數(shù)據(jù)庫名,在數(shù)據(jù)窗口中右擊一一“新建表”，最終如下女胖正軍更五乒WLlCf.隼防乳IMiMa條E3*工卡表改置H土n仔臣庫戶UI憎莊歸出人用獸aa胃B往數(shù)據(jù)表里添加數(shù)據(jù)在這里就不羅嗦了,請查閱相關(guān)書籍。登錄界面窗口的建立最終界面如下:FM INiI ii*1、Adodcl的添加過程為：單擊“工程”一一“部件”出現(xiàn)下圖所示，選擇“控件”下的"MicrosoftADODataControl6.0(OLEDB”單擊“確定”在工具欄中會出現(xiàn)“”圖標(biāo)，單擊它并拖動到相應(yīng)位置即可。其它元件不在一一說明。2、本窗體代碼如下：PrivateSubCommand1_Click()'&q

4、uot;登錄”、“確定”按鈕IfCommand1.Caption="確定"AndCommand2.Caption="取消"Then'如果為“確定”則添加新用戶IfText1.Text=""Then'提示用戶輸入用戶名MsgBox"請輸入用戶名！"一"登錄信息提示："ExitSubElse'DimusenameAsString'檢測用戶名是否已經(jīng)存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*fr

5、om用戶登錄信息表where用戶名='"&usename&""'Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"您輸入的用戶已存在！",，”登錄提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIf

6、EndIf提示用戶密碼不能為空IfText2.Text=""ThenExit SubMsgBox"密碼不能為空!","登錄提示信息：Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox " 請再次輸入密碼!", , "登錄提示信息：Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox " 兩次輸入的密碼不一致, 請確認 !", , " 登

7、錄提示信息：Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElse添加新用戶Adodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名 ") = Trim(Text1.Text)Adodc1.Recordset.Fields("密碼 ") = Trim(Text2.Text)Adodc1.Recordset.Update")MsgBox("添加新用戶成功，現(xiàn)在您可以登陸系統(tǒng)了！Label3.Visible

8、=FalseText3.Visible=FalseCommand1.Caption = "登錄 "Command2.Caption = "退出 "EndIfElse“登錄”按鈕，用戶登錄DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)檢測用戶名是否存在strSelect = "select密碼from用戶登錄信息表where用戶名='"&strSno&"'"Adodc1.CommandType=adCmdText

9、Adodc1.RecordSource=strSelectAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThen登錄提示信息：MsgBox"用戶名不存在，請重新輸入！Text1.Text=""Text2.Text=""Text1.SetFocus檢測密碼是否正確“退出”或“取消”按鈕“新用戶”按鈕EndIfIfAdodc1.Recordset.Fields("密碼")=Trim(Text2.Text)ThenForm1.Hide'UnloadMeForm2.Show'Msg

10、Box"登陸成功！","登錄提示信息："ElseMsgBox"密碼不正確，請重新輸入！","登錄提示信息：Text2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()'IfCommand2.Caption="取消"ThenLabel3.Visible=FalseText3.Visible=FalseCommand1.Caption="登錄"Command2.Caption=&quo

11、t;退出"Text1.Text=""Text2.Text=""Text1.SetFocusElseEnd'UnloadMeEndIfEndSubPrivateSubCommand3_Click()'Label3.Visible=TrueText3.Visible=TrueText1.Text=""Text2.Text=""Text3.Text=""Command1.Caption="確定"Command2.Caption="取消"

12、Text1.SetFocusEndSubPrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseAdodc2.RecordSource = nText3.V

13、isible=FalseEndSubPrivateSubTimer1_Timer()用來IfLabel4.Left+Label4.Width>0Then左移Label4.MoveLabel4.Left-80ElseLabel4.Left=Form1.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form1.ScaleWidthEndIfEndSub時間time1控件的time事件代碼,顯示向左移動的歡迎字幕當(dāng)標(biāo)簽右邊位置大于0時，標(biāo)簽向否則標(biāo)簽從頭開始主

14、界面窗體如下:代碼:PrivateSubAddNew_Click()Frame1.Visible=TrueFrame2.Visible=FalsePrivateSubCHKPMCHX_Click()Frame2.Caption="出庫信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)n="select*from出庫表where品名='"&pm&"'"Adodc2.CommandType=adCmdTextA

15、dodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_Click()Frame2.Caption="出庫信息"DimXHAsStringDimnAsStringXH=InputBox("產(chǎn)品型號","請輸入",0)n="select*from出庫表where型號='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=

16、nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()'Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption="出庫信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人","請輸入",0)n="select*from出庫表where經(jīng)手人='"&JSHR&"'"Adodc2.CommandType=adCm

17、dTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption="出庫信息"DimCHKRQAsStringDimnAsStringCHKRQ=InputBox("出庫日期，格式為：月/日/年如：12/1/2011","請輸入",0)n="select*from出庫表where出庫日期='"&CHKRQ&"'"Adodc2.Comman

18、dType=adCmdTextAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption="出庫信息"DimZBAsStringZB="select*from出庫表"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()IfText1.Text=""Then'MsgBox"請

19、輸入用戶名！","登錄信息提示："ExitSubElse'DimusenameAsString'DimstrSAsStringusename=Trim(Text1.Text)strS="select*from用戶登錄信息表where用戶名='"&usename&"'"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox&qu

20、ot;您輸入的用戶已存在!","登錄提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then'MsgBox"密碼不能為空!","登錄提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請再次輸入密碼!",

21、"登錄提示信息："Text3.SetFocusExitSubEndIf提示用戶輸入用戶名檢測用戶名是否已經(jīng)存在提示用戶密碼不能為空IfText2.Text<>Text3.TextThenMsgBox"兩次輸入的密碼不一致,請確認!","登錄提示信息："Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseAdodc1.Recordset.AddNew'添加新用戶Adodc1.Recordset.Fields("用戶名&

22、quot;)=Trim(Text1.Text)Adodc1.Recordset.Fields("密碼")=Trim(Text2.Text)Adodc1.Recordset.UpdateDimXAsIntegerX=MsgBox("成功添加新用戶，是否要重新登錄!",vbYesNo+vbQuestion+vbDefaultButton1,"提示信息!")IfX=vbYesThenUnloadMeForm3.ShowEndIf'MsgBox("成功添加新用戶！")'Label3.Visible=Fals

23、e'Text3.Visible=False'Command1.Caption="登錄"'Command2.Caption="退出"EndIfFrame1.Visible=FalseFrame2.Visible=TrueText1.Text=""Text2.Text="'"Text3.Text=""'Form3.ShowEndSubPrivateSubCommand2_Click()Frame1.Visible=FalseFrame2.Visible=Tru

24、eEndSubPrivateSubCXDL_Click()Form3.Show'UnloadMeEndSubPrivateSubExit_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_Load()TextUserName=Trim(Form1.Text1.Text)UnloadForm1Frame1.Visible=FalseCallInitGrid0Me.Height=MDIForm1.Heig

25、ht-1060Me.Width=MDIForm1.Width-560Me.Top=MDIForm1.TopMe.Left=MDIForm1.LeftEndSubPrivateSubGHCZ_Click()'Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption="歸還信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)n="select*from歸還表where品名='"

26、&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_Click()Frame2.Caption="歸還信息"DimJCRAsStringDimnAsStringJCR=InputBox("歸還人","請輸入",0)n="select*from歸還表where歸還人='"&JCR&"&

27、#39;"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2PrivateSubGHSJCX_Click()Frame2.Caption="歸還信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox("歸還日期，格式為：月/日/年如：12/1/2011","請輸入",0)n="select*from歸還表where歸還日期='"&JCRQ&"

28、;'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click()Frame2.Caption="歸還信息"DimXHAsStringDimnAsStringXH=InputBox("產(chǎn)品型號","請輸入",0)n="select*from歸還表where型號='"&XH&"'"Adodc2.Co

29、mmandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption="歸還信息"DimZBAsStringZB="select*from歸還表"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.HideForm7.ShowE

30、ndSubPrivateSubJCHPMCHX_Click()Frame2.Caption="借出信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)n = "select * from借出表where品名='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJ

31、CHXHCHX_Click()Frame2.Caption="借出信息"DimXHAsStringDimnAsStringXH=InputBox("產(chǎn)品型號","請輸入",0)n="select*from借出表where型號='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()Frame2.

32、Caption="借出信息"DimJCRAsStringDimnAsStringJCR=InputBox("借出人","請輸入",0)n="select*from借出表where借出人='"&JCR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption="借出信

33、息"DimJCRQAsStringDimnAsStringJCRQ=InputBox("借出日期，格式為：月/日/年如：12/1/2011","請輸入",0)n="select*from借出表where借出日期='"&JCRQ&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption=&q

34、uot;借出信息"DimZBAsStringZB="select*from借出表"Adodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_Click()Adodc2.CommandType = adCmdTextFrame2.Caption="歸還信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人","請輸入",0)n = "select * from歸還表wh

35、ere經(jīng)手人='"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption="借出信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人","請輸入",0)n = "select * from借出表where經(jīng)手人='

36、;"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption="庫存信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)n = "select * from庫存表where品名='"&pm&

37、;"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()'Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Caption="入庫信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人","請輸入",0)n="select*fr

38、om入庫表where經(jīng)手人='"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption="入庫信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)IfLen(pm)>0Thenn="select*fr

39、om入庫表where品名='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_Click()Frame2.Caption="入庫信息"DimRKRQAsStringDimnAsStringRKRQ=InputBox("入庫日期，格式為：月/日/年如：12/1/2011","請輸入",0)n="s

40、elect*from入庫表where入庫日期='"&RKRQ&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption="入庫信息"DimXHAsStringDimnAsStringXH=InputBox("產(chǎn)品型號","請輸入",0)IfLen(XH)>0Thenn="

41、;select*from入庫表where型號='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption="入庫信息"DimZBAsStringZB="select*from入庫表"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdod

42、c2.RefreshCallInitGrid1EndSubPrivateSubTimer1_Timer()當(dāng)標(biāo)簽右邊位置大于 0 時，標(biāo)簽向左IfLabel4.Left+Label4.Width>0Then移Label4.MoveLabel4.Left-80否則標(biāo)簽從頭開始ElseLabel4.Left=Form2.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width

43、>0ThenLabel6.MoveLabel6.Left-80ElseLabel6.Left=Form2.ScaleWidthEndIfIfLabel7.Left+Label7.Width>0ThenLabel7.MoveLabel7.Left-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSubPrivateSubXGMM_Click()'Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption="庫存信息DimXHAsStringDimnAsStringX

44、H=InputBox("產(chǎn)品型號","請輸入",0)IfLen(XH)>0Then'AndVal(XH)<>0n="select*from庫存表where型號='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption="庫存信息"DimZ

45、BAsString'DimNAsString'PM=InputBox("產(chǎn)品名","請輸入",0)ZB="select*from庫存表"'where品名='"&PM&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid0EndSubPrivateSubInitGrid0()WithDataGrid1.Columns(0).Width=1600.C

46、olumns(1).Width=2200.Columns(2).Width=2200.Columns(3).Width=1000.Columns(4).Width=1000.Columns(5).Width=4000EndWithEndSubPrivateSubInitGrid1()WithDataGrid1.Columns(0).Width=800.Columns(1).Width=1600.Columns(2).Width=1600.Columns(3).Width=800.Columns(4).Width=800.Columns(5).Width=1000.Columns(6).Widt

47、h=800.Columns(7).Width=4000EndWithEnd SubPrivateSubInitGrid2()WithDataGridl'.Columns(0).Caption="學(xué)號"'.Columns(1).Caption="課程名"'.Columns(2).Caption="學(xué)分"'.Columns(3).Caption="成績"'設(shè)置DtgCond的列寬.Columns(0).Width=800.Columns(1).Width=1600.Columns

48、(2).Width=1600.Columns(3).Width=800.Columns(4).Width=800.Columns(5).Width=800.Columns(6).Width=1000.Columns(7).Width=800.Columns(8).Width=4000EndWithEndSub用戶重新登錄界面代碼：PrivateSubCommand1_Click()DimstrSnoAsStringDimstrSelectAsString檢測用戶名是否存在strSno=Trim(Text1.Text)strSelect = "select密碼from用戶登錄信息表wh

49、ere用戶名='"&strSno&""'Adodcl.CommandType=adCmdTextAdodcI.RecordSource=strSelectAdodcI.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"Textl.Text=""用戶名不存在，請重新輸入!登錄提示信息:Text2.Text=""Textl.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields("密碼")=T

50、rim(Text2.Text)Then'檢測密碼是否正確UnloadMeForm2.Show'MsgBox"登陸成功！"一"登錄提示信息："ElseMsgBox"密碼不正確，請重新輸入！"一"登錄提示信息："Text2.Text=""Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用戶密碼界面代碼：PrivateSubCommand1_Click()IfTrim(Text1.

51、Text)<>Form2.TextUserNameThenMsgBox"用戶名不正確，請確認！"一"信息提示!Text1.Text=""Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsStringname=Trim(Text1.Text)names="select*from用戶登錄信息表where用戶名='"&name&"'"Adodc1.CommandType=adCmdTextAdodc1.RecordSo

52、urce=namesAdodc1.RefreshIfText2.Text=""ThenMsgBox"請輸入舊密碼!","信息提示！"Text2.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields("密碼")<>Trim(Text2.Text)ThenMsgBox"舊密碼不正確，請確認!","信息提示！"Text2.Text=""Text2.SetFocusExitSubEndIfIfText3.Text=

53、""ThenMsgBox"請輸入新密碼!","信息提示！"Text3.SetFocusExitSubEndIfIfText4.Text=""ThenMsgBox"請再次輸入新密碼!","信息提示！"Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox"兩次輸入的新密碼不一致!","信息提示！"Text3.Text="&quo

54、t;Text4.Text=""Text3.SetFocusExitSubElseAdodc1.Recordset.Fields("密碼")=Trim(Text3.Text)Adodc1.Recordset.UpdateMsgBox("密碼修改成功！")UnloadMe'Form2.ShowEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub入庫管理代碼：PrivateSubCommand1_Click()IfTextl.Text="&qu

55、ot;AndText2.Text=""ThenMsgBox"“品名”和“型號”不能同時為空，必須輸入其中一項！"，”提示信息ExitSubText1.SetFocusElseIfText3.Text=""AndText4.Text=""Then提示信息MsgBox"請輸入產(chǎn)品“數(shù)量”或“單位”之一Text3.SetFocusExitSubEndIfIf Text5.Text = "" ThenMsgBox " 請經(jīng)手人簽名Text5.SetFocusExit SubEnd I

56、fAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields(",vbCritical,"提示信息添加品名")=Trim(Text1.Text) 型

57、號")=Trim(Text2.Text) 數(shù)量")=Trim(Text3.Text) 單位")=Trim(Text4.Text) 經(jīng)手人")=Trim(Text5.Text) 入庫日期")=Date 說明")=Trim(Text7.Text)Adodc1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Text1.Text)n=Val(Text3.Text)pms="select*from庫存表where品名=&#

58、39;"&pm&"'"Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=pmsForm2.Adodc2.RefreshIfForm2.Adodc2.Recordset.EOFThenWith Form2.Adodc2.Recordset.AddNew.Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fi

59、elds(".Adodc2.Recordset.Fields(".Adodc2.Recordset.UpdateEnd With品名 ") = Trim(Text1.Text)型號 ") = Trim(Text2.Text)數(shù)量 ") = Trim(Text3.Text)單位 ") = Trim(Text4.Text)說明 ") = Trim(Text7.Text)Else數(shù)量 ").Value型號 ") = Trim(Text2.Text) Then數(shù)量 ") = Val(m) + Val(n

60、)m=Form2.Adodc2.Recordset.Fields(IfForm2.Adodc2.Recordset.Fields("Form2.Adodc2.Recordset.Fields("Form2.Adodc2.Recordset.UpdateEndIfEndIfDimXAsInteger提示信息 !")X=MsgBox("產(chǎn)品入庫登記成功，是否繼續(xù)添加產(chǎn)品!",vbYesNo+vbQuestion+vbDefaultButton1,IfX=vbNoThenUnloadMe'Form2.ShowElseText1.Text=&q

61、uot;"Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndIfForm2.Frame2.Caption="入庫信息DimZBAsStringZB="select*from入庫表"'where品名='"&PM&"“'Form2.Adodc2

62、.CommandType=adCmdTextForm2.Adodc2.RecordSource=ZBForm2.Adodc2.RefreshEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSubPrivateSubCommand

63、3_Click()UnloadMe'Form2.ShowEndSub出庫管理代碼：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""ThenMsgBox"“品名”和“型號”不能同時為空，必須輸入其中一項！"，”提示信息ExitSubElseIfText1.Text=""AndCombo3.Text=""Th

64、en'Text4.Text=""ThenMsgBox"請輸入產(chǎn)品“數(shù)量”或“單位”之一!","提示信息！"Text2.SetFocusEnd IfIf Text2.Text = "" ThenMsgBox " 請經(jīng)手人簽名 !", vbCritical, "提示信息 !"Text2.SetFocusExit SubEnd IfAdodc1.RefreshAdodc1.Recordset.AddNew添加Adodc1.Recordset.Fields("品名 ") = Trim(Combo1.Text) 'Trim(Text1.Text)Adodc1.Recordset.Fields("型號 ") = Trim(Combo2.Text) '