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

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

2、“下一個”再點擊?！薄按_定”退到MDI界面點擊“系統(tǒng)”“退出”如下，然后編寫代碼。代碼如下：PrivateSubExit_Click()EndEndSub數(shù)據(jù)庫的建立VB6.0中可以創(chuàng)建Access數(shù)據(jù)庫。如下建立一個“用戶表”的數(shù)據(jù)庫，用來存放用戶信息及一些出入庫管理信息。如下圖單擊“外接程序”再單擊“可視化數(shù)據(jù)管理器”出現(xiàn)如圖點擊“文件”“新建”"MicrosoftAccess”“Version2.0MDB輸入數(shù)據(jù)庫名，“保存”出現(xiàn)如下圖在數(shù)據(jù)窗口中右擊一一“新建表”，最終如下往數(shù)據(jù)表里添加數(shù)據(jù)在這里就不羅嗦了，請查閱相關(guān)書籍。登錄界面窗口的建立最終界面如下：1、Adodc1的添

3、加過程為：單擊“工程”一一“部件”出現(xiàn)下圖所示，選擇“控件”下的“MicrosoftADODataControl6.0(OLEDB”單擊“確定”在工具欄中會出現(xiàn)“步”圖標，單擊它并拖動到相應位置即可。其它元件不在一一說明。2、本窗體代碼如下：PrivateSubCommand1_Click()'"登錄”、“確定”按鈕IfCommand1.Caption="確定"AndCommand2.Caption="取消"Then'如果為“確定”則添加新用戶IfText1.Text=""Then'提示用戶輸入用戶名

4、MsgBox"請輸入用戶名！"一"登錄信息提示："ExitSubElse'DimusenameAsString'檢測用戶名是否已經(jīng)存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from用戶登錄信息表where用戶名='"&usename&"”'Adodc1mandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshIfAdodc1.Recordset.EOF=Fal

5、seThenMsgBox"您輸入的用戶已存在！"，”登錄提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Textl.SetFocusExitSubEndIfEndIfIfText2.Text=""Then提示用戶密碼不能為空MsgBox"密碼不能為空！"，"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請再次輸入密碼!"

6、;,Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThen息："MsgBox"兩次輸入的密碼不一致Text2.Text=""登錄提示信息:登錄提示信息:，請確認!","登錄提示信Text3.Text=""Text2.SetFocusExitSubElseAdodcI.Recordset.AddNew添加新用戶Adodc1.Recordset.Fields("用戶名")=Trim(Text1.Text)Adodc1.Recordse

7、t.Fields("密碼")=Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox("添加新用戶成功，現(xiàn)在您可以登陸系統(tǒng)了！")Label3.Visible=FalseText3.Visible=FalseCommand1.Caption="登錄Command2.Caption="退出EndIfElse“登錄”按鈕，用戶登錄DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)檢測用戶名是否存在strSelect="sel

8、ect密碼from用戶登錄信息表where用戶名='"&strSno&"”'AdodcImandType=adCmdTextAdodcI.RecordSource=strSelectAdodcI.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"用戶名不存在，請重新輸入！"一"登錄提示信息:"Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfIfAdodc1.Record

9、set.Fields("密碼")=Trim(Text2.Text)Then'檢測密碼是否正確Form1.Hide'UnloadMeForm2.Show'MsgBox"登陸成功！"一"登錄提示信息："ElseMsgBox”密碼不正確，請重新輸入！"，”登錄提示信息：Text2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSub'"退出”或“取消”按鈕IfCommand2.Caption="取消"Then

10、Label3.Visible=FalseText3.Visible=FalseCommand1.Caption="登錄"Command2.Caption="退出"Text1.Text=""Text2.Text=""Text1.SetFocusElseEnd'UnloadMeEndIfEndSubPrivateSub'“新用戶”按鈕Label3.Visible=TrueText3.Visible=TrueText1.Text=""Command2_Click()Command3_C

11、lick()Text2.Text=""Text3.Text=""Commandl.Caption="確定"Command2.Caption="取消"Textl.SetFocusEndSubPrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(ButtorAsInteger,ShiftAsInteger,XAs

12、Single,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer(),時間timel控件的time事件代碼，用來'顯示向左移動的歡迎字幕IfLabel4.Left+Label4.Width>0Then第8頁當標簽右邊位置大于0時，標簽向左移Label4.MoveLabel4.Left-80Else'否則標簽從頭開始Label4.Left=Forml.ScaleWidthEndI

13、fIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form1.ScaleWidthEndIfEndSub主界面窗體如下：代碼：PrivateSubAddNew_Click()Frame1.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Caption="出庫信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","

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

15、號='"&XH&Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()'Form2.HideForm6.Show第10頁EndSubPrivateSubCKJSHR_Click()Frame2.Caption="出庫信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人","請輸入",0)n="select*from出庫表w

16、here經(jīng)手人='"&JSHR&""Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption="出庫信息"DimCHKRQAsStringDimnAsStringCHKRQ=InputBox("出庫日期，格式為：月/日/年如：12/1/2011","請輸入",0)n="select*from出庫表wh

17、ere出庫日期='"&CHKRQ&""Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh第11頁CallInitGridlEndSubPrivateSubCKZCX_Click()Frame2.Caption="出庫信息"DimZBAsStringZB="select*from出庫表"Adodc2mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1End

18、SubPrivateSubCommand1_Click()IfText1.Text=""Then提示用戶輸入用戶名MsgBox"請輸入用戶名！"一"登錄信息提示："ExitSubElseDimusenameAsString檢測用戶名是否已經(jīng)存在DimstrSAsStringusename=Trim(Text1.Text)第12頁strS="select*from用戶登錄信息表where用戶名="&usename&"”'AdodcImandType=adCmdTextAdodcI.R

19、ecordSource=strSAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"您輸入的用戶已存在！"，”登錄提示信息:Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfThenEndIfIfText2.Text=""'提示用戶密碼不能為空MsgBox"密碼不能為空！"一"登錄提示信息："Text2.SetFoc

20、usExitSubEndIfIfText3.Text=""ThenMsgBox"請再次輸入密碼！"一"登錄提示信息："第13頁Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"兩次輸入的密碼不一致，請確認!”，”登錄提示信息："Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseAdodc1.Recordset.AddNew'添加新用戶

21、Adodc1.Recordset.Fields（"用戶名"）=Trim（Text1.Text）Adodc1.Recordset.Fields（"密碼"）=Trim（Text2.Text）Adodc1.Recordset.UpdateDimXAsIntegerX=MsgBox（"成功添加新用戶，是否要重新登錄！"，vbYesNo+vbQuestion+vbDefaultButtonl,”提示信息！”）IfX=vbYesThenUnloadMeForm3.Show第14頁EndIf'MsgBox("成功添加新用戶！&qu

22、ot;)'Label3.Visible=False'Text3.Visible=False'Command1.Caption="登錄"'Command2.Caption="退出"EndIfFrame1.Visible=FalseFrame2.Visible=TrueText1.Text=""Text2.Text=""Text3.Text=""'Form3.ShowEndSubPrivateSubCommand2_Click()Frame1.Visible=

23、FalseFrame2.Visible=TrueEndSubPrivateSubCXDL_Click()Form3.Show'UnloadMeEndSub第15頁PrivateSubExit_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_Load()TextUserName=Trim(Form1.Text1.Text)UnloadForm1Frame1.Visible=FalseCallInitG

24、rid0Me.Height=MDIForm1.Height-1060Me.Width=MDIForm1.Width-560Me=MDIForm1Me.Left=MDIForm1.LeftEndSubPrivateSubGHCZ_Click()第16頁Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption="歸還信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)n="select*from歸還表w

25、here品名='"&pm&""Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_Click()Frame2.Caption="歸還信息"DimJCRAsStringDimnAsStringJCR=InputBox("歸還人","請輸入",0)n="select*from歸還表where歸還人='"&JCR&am

26、p;"”'Adodc2mandType=adCmdTextAdodc2.RecordSource=n第17頁Adodc2.RefreshCallInitGrid2EndSubPrivateSubGHSJCX_Click()Frame2.Caption="歸還信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox("歸還日期，格式為：月/日/年如：12/1/2011",請輸入",0)n="select*from歸還表where歸還日期='"&JCRQ&&

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

28、=adCmdText第18頁Adodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption="歸還信息"DimZBAsStringZB="select*from歸還表"Adodc2mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.HideForm7.ShowEndSubPriv

29、ateSubJCHPMCHX_Click()Frame2.Caption="借出信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)第19頁n="select*from借出表where品名='"&pm&""Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_Click()Fra

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

31、JCRAsStringDimnAsStringJCR=InputBox("借出人","請輸入",0)第20頁n="select*from借出表where借出人='"&JCR&""Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption="借出信息"DimJCRQAsStringDimnAsStri

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

33、借出表"第21頁Adodc2mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_Click()Frame2.Caption="歸還信息”DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人”,"請輸入”,0)n="select*from歸還表where經(jīng)手人='"&JSHR&Adodc2mandType=adCmdTextAdodc2.Recor

34、dSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption="借出信息”DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人”,"請輸入”,0)n="select*from借出表where經(jīng)手人='"&JSHR&第22頁Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPriva

35、teSubPMCX_Click()Frame2.Caption="庫存信息"DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)n="select*from庫存表where品名='"&pm&""Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()'Form2.HideF

36、orm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Caption="入庫彳言息”第23頁DimJSHRAsStringDimnAsStringJSHR=InputBox("經(jīng)手人","請輸入",0)n="select*from入庫表where經(jīng)手人='"&JSHR&"'"Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPriv

37、ateSubRKPMCHX_Click()Frame2.Caption="入庫彳言息”DimpmAsStringDimnAsStringpm=InputBox("產(chǎn)品名","請輸入",0)IfLen(pm)>0Thenn="select*from入庫表where品名='"&pm&""Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSub第24頁PrivateSubR

38、KSHJ_Click()Frame2.Caption="入庫彳言息”DimRKRQAsStringDimnAsStringRKRQ=InputBox("入庫日期，格式為：月/日/年如：12/1/2011",請輸入",0)n="select*from入庫表where入庫日期='"&RKRQ&""，Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKXHCHX_Clic

39、k()Frame2.Caption="入庫彳言息”DimXHAsStringDimnAsStringXH=InputBox("產(chǎn)品型號","請輸入",0)IfLen(XH)>0Thenn="select*from入庫表where型號='"&XH&"'"Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh第25頁EndIfCallInitGridlEndSubPrivateSubRKZCX_Click()

40、Frame2.Caption="入庫彳言息”DimZBAsStringZB="select*from入庫表"Adodc2mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubThenPrivateSubTimer1_Timer()IfLabel4.Left+Label4.Width>0當標簽右邊位置大于0時，標簽向左移Label4.MoveLabel4.Left-80Else否則標簽從頭開始Label4.Left=Form2.ScaleWidthEndIfIfLabe

41、l5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80第26頁ElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width>0ThenLabel6.MoveLabel6.Left-80ElseLabel6.Left=Form2.ScaleWidthEndIfIfLabel7.Left+Label7.Width>0ThenLabel7.MoveLabel7.Left-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSubPriva

42、teSubXGMM_Click()'Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption="庫存信息"DimXHAsStringDimnAsString第27頁XH=InputBox("產(chǎn)品型號","請輸入",0)IfLen(XH)>0Then'AndVal(XH)<>0n="select*from庫存表where型號='"&XH&"'"Adodc2mandT

43、ype=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption="庫存信息"DimZBAsString'DimNAsString'PM=InputBox("產(chǎn)品名","請輸入",0)ZB="select*from庫存表"'where品名='"&PM&"”'Adodc2mandType=adCm

44、dTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid0EndSubPrivateSubInitGrid0()WithDataGrid1第28頁.Columns(0).Width=1600.Columns(1).Width=2200.Columns(2).Width=2200.Columns(3).Width=1000.Columns(4).Width=1000.Columns(5).Width=4000EndWithEndSubPrivateSubInitGrid1()WithDataGrid1.Columns(0).Width=800.C

45、olumns(1).Width=1600.Columns(2).Width=1600.Columns(3).Width=800.Columns(4).Width=800.Columns(5).Width=1000.Columns(6).Width=800.Columns(7).Width=4000EndWithEndSubPrivateSubInitGrid2()WithDataGrid1第29頁.Columns(0).Caption="學號".Columns(1).Caption="課程名".Columns(2).Caption="學分&qu

46、ot;.Columns(3).Caption="成績"'設(shè)置DtgCond的列寬.Columns(0).Width=800.Columns(1).Width=1600.Columns(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()Dim

47、strSnoAsStringDimstrSelectAsString第30頁strSnoTrim(Textl.Text)檢測用戶名是否存在strSelect="select密碼from用戶登錄信息表where用戶名='"&strSno&"'"AdodcImandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"用戶名不存在，請重新輸入！"一"登錄提示信息:

48、Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields(密碼")=Trim(Text2.Text)Then檢測密碼是否正確UnloadMeForm2.Show'MsgBox"登陸成功！"一"登錄提示信息："ElseMsgBox"密碼不正確，請重新輸入！"一"登錄提示信息:Text2.Text=""第31頁Text2.SetFocusEndIfEndS

49、ubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用戶密碼界面代碼：PrivateSubCommand1_Click()IfTrim(Text1.Text)<>Form2.TextUserNameThenMsgBox"用戶名不正確，請確認！"一"信息提示！"Text1.Text=""Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsStringname=Trim(Text1.Text)names="sele

50、ct*from用戶登錄信息表where用戶名='"&name&"'"第32頁AdodcImandType=adCmdTextAdodcI.RecordSource=namesAdodcI.RefreshIfText2.Text=""ThenMsgBox"請輸入舊密碼！"，"信息提示！"Text2.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields("密碼")<>Trim(Text2.Text)ThenM

51、sgBox"舊密碼不正確，請確認!","信息提示！"Text2.Text=""Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入新密碼！"一"信息提示！"Text3.SetFocusExitSubEndIfIfText4.Text=""ThenMsgBox"請再次輸入新密碼!","信息提示！"Text4.SetFocus第33頁ExitSubEndIfIfT

52、rim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox"兩次輸入的新密碼不一致！"，”信息提示!Text3.Text=""Text4.Text=""Text3.SetFocusExitSubElseAdodc1.Recordset.Fields(密碼")=Trim(Text3.Text)AdodcI.Recordset.UpdateMsgBox("密碼修改成功！")UnloadMe'Form2.ShowEndIfEndIfEndSubPrivateSub

53、Command2_Click()UnloadMe'Form2.ShowEndSub第34頁入庫管理代碼：PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox”“品名”和“型號”不能同時為空，必須輸入其中一項！”，"提示信息！"ExitSubText1.SetFocusElseIfText3.Text=""AndText4.Text=""ThenMsgBox”請輸入產(chǎn)品“數(shù)量”或“單位”之一!",，

54、”提示信息！"Text3.SetFocusExitSubEndIfIfText5.Text=""ThenMsgBox"請經(jīng)手人簽名!",vbCritical,"提示信息！”Text5.SetFocusExitSubEndIfAdodc1.RefreshAdodc1.Recordset.AddNew'添加第35頁Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fie

55、lds("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Text1.Text)n=Val(Text3.Text)品名")=Trim(Text1.Text)型號")=Trim(Text2.Text)數(shù)量")=Trim(Text3.Text)單位"

56、;)=Trim(Text4.Text)經(jīng)手人")=Trim(Text5.Text)入庫日期")=Date說明")=Trim(Text7.Text)pms="select*from庫存表where品名='"&pm&""Form2.Adodc2mandType=adCmdTextForm2.Adodc2.RecordSource=pmsForm2.Adodc2.RefreshIfForm2.Adodc2.Recordset.EOFThenWithForm2.Adodc2.Recordset.AddNew第

57、36頁.Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.UpdateEndWithElse品名")=Trim(Textl.Text)型號")=Trim(Text2.Text)數(shù)量")=Trim(Text3.Text)單位")=Trim(Text4.Text)說明&

58、quot;)=Trim(Text7.Text)m=Form2.Adodc2.Recordset.Fields("數(shù)量").ValueIfForm2.Adodc2.Recordset.Fields(型號")=Trim(Text2.Text)ThenForm2.Adodc2.Recordset.Fields(數(shù)量")=Val(m)+Val(n)Form2.Adodc2.Recordset.UpdateEndIfEndIfDimXAsIntegerX=MsgBox("產(chǎn)品入庫登記成功，是否繼續(xù)添加產(chǎn)品!",vbYesNo+vbQuestio

59、n+vbDefaultButtonl,"提示信息！”)IfX=vbNoThenUnloadMe'Form2.ShowElse第37頁Textl.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Textl.SetFocusEndIfForm2.Frame2.Caption="入庫彳言息”DimZBAsStrin

60、gZB="select*from入庫表"'where品名='"&PM&"”'Form2.Adodc2mandType=adCmdTextForm2.Adodc2.RecordSource=ZBForm2.Adodc2.RefreshEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text="&qu

61、ot;第38頁Text6.Text=""Text7.Text=""Textl.SetFocusEndSubPrivateSubCommand3_Click()UnloadMe'Form2.ShowEndSub出庫管理代碼：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""ThenMsgBox”“品名”和“型號”不能同時為空，必

62、須輸入其中一項！"，"提示信息！"ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox”請輸入產(chǎn)品“數(shù)量”或“單位”之一!",，”提示信息！"Text2.SetFocus第39頁ExitSubEndIfIfText2.Text=""ThenMsgBox"請經(jīng)手人簽名!",vbCritical,"提示信息！”Text2.SetFocusExi

63、tSubEndIfAdodc1.RefreshAdodc1.Recordset.AddNew'添加Adodc1.Recordset.Fields("'Trim(Text1.Text)Adodc1.Recordset.Fields("'Trim(Text2.Text)Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("'Trim(Text4.Text)Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adod

64、c1.Recordset.Fields("品名")=Trim(Combo1.Text)型號")=Trim(Combo2.Text)數(shù)量")=Trim(Text1.Text)單位")=Trim(Combo3.Text)經(jīng)手人")=Trim(Text2.Text)出庫日期")=Date說明")=Trim(Text4.Text)Adodc1.Recordset.UpdateEndIf第40頁DimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combol.Text)n=Val(Textl.Text)pms="select*from庫存表where品名='"&pm&""Form2.Adodc2mandType=adCmdTextForm2.Adodc2.RecordSource=pmsForm2.Adodc2.Refresh型號")=Trim(