仓库管理系统(VB+Access+源代码)

1、仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名与密码11丨单击“登录或单击“新用户添加新用户进入如下主界面：建立工程1、创建标准EXE2、按“打开llTP可哇Jft的OC7E«lTn吗曾-flc-4l*.nZ色片5ViJII3?Til-:r*世砂呜44*Jf-UEEiJil"InS匕anrutirp£P-hbI5ii

2、sVmAkt""1"1吓jlrfaiTia妞al!a-H-riiiIvJm?7Fb1-5Liri±Lb口Erui-4115f=±=1eII3、添加MDI窗体一一打开Forn*Ioarm0IAWfCMIgF51wwMl*s、Form!另梅杓（AA士打用旧.乐t!W宾炖HMJ口O両加用户惊忡坟J辭力niwu主何Cfijrd»SnMiJJ13CE.J!"?htt-占；uW»b亡工PPftWQ3-*DMTMIL.已匸亡Datafiixvironmnl"Tiny|MMIliflILHillUilIM"Ti

3、ny|MMIliflILHillUilIMIF军島E百f書论讯删W雨力口恋仲IAJ-4、编辑采单在空白处右击一一点击“菜单编辑器在“标题里输入“系统，在“名称里输入Sys"注意此处不能为汉字1.主ifH袄应LEDIS)|iitlifcBiS:QI|d-Rib创厂£&<£)刁百曲dlPUTHLCEJ*1*J*|trbi|VtOJI点击“下一个再点击“确定"退到MDI界面点击“系统"一一“退出"如下，然后编写代码。代码如下：PrivateSubExit_Click()EndEndSub数据库的建立VB6.0中可以创建Acce

4、ss数据库。如下建立一个“用户表'的数据库，用来存放用户信息与一些出入库管理信息。如下列图单击“外接程序"再单击“可视化数据管理器'出现如图“Version2.0MDB"输入数据"MicrosoftAccess在数据窗口中右击曰泄岛匡1匹凰已声点击“文件”_“新建”一库名，“保存"出现如下列图Iti裁世库苗ur-irsx往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。登录界面窗口的建立最终界面如下:1、Adodcl的添加过程为：单击“工程一一“部件'出现下列图所示，选择“控件'下的“MicrosoftADODataCo

5、ntrol6.0OLEDB"ftfl切*7-vtaUftlA-iIMa皿】pri匚fU4L1DUtFu*yraLxs.iTaiJftLrT“LkHums*toLiL:!truri«pfc<Lji-L0TitrLjita*ri.-.Jlha-fee：2:Lab広Qm严'电11-hIkjTL和IF创JQIs-o-iaWlC«l<nvCwirvl1£町lir#il»fLCWlitD氏HiPJUriio-iivJtC-mhC«nLrft电MmbUttlA<«ilE-aoil.1J.2.C阪宦ifWEN)墮T

6、i刖綸框峠*100UlWF单击"确定"在工具栏中会出现""图标，单击它并拖动到相应位置即可。其它元件不在一一说明。2、本窗体代码如下：PrivateSubCommand1_Click()'“登录"、“确定"按钮IfCommandl.Caption="确定“AndCommand2.Caption="取消“Then'如果为“确定"那么添加新用户IfText1.Text=""Then'提示用户输入用户名MsgBox"请输入用户名！","登

7、录信息提示："ExitSubElse'DimusenameAsString'检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from用户登录信息表where用户名='"&usename&川"AdodclmandType=adCmdTextAdodcI.RecordSource=strSAdodcI.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"您输入的用户已存在r:,"登录

8、提示信息："Textl.Text=""Text2.Text=""Text3.Text=""Textl.SetFocusExitSubEndIfEndIfIfText2.Text=""Then'提示用户密码不能为空MsgBox"密码不能为空!","登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请再次输入密码r',"登录提示信息："

9、Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不一致,请确认!","登录提示信息:Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElse(“用户名")=Trim(Text1.Text)Adodc1.Recordset.Fields("密码MsgBox("添加新用户成功，现在您可以登陆系统了！")添加新用户Label3.Visible=Fa

10、lseText3.Visible=FalseCommand1.Caption="登录Command2.Caption="退出EndIfElse“登录"按钮，用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)strSelect="select检测用户名是否存在密码from用户登录信息表where用户名=&strSno&呐Adodc1mandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshIfAdod

11、c1.Recordset.EOF=TrueThenMsgBox"用户名不存在，请重新输入！","登录提示信息:Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields("密码")=Trim(Text2.Text)ThenForm1.Hide'UnloadMeForm2.Show'MsgBox"登陆成功！","登录提示信息："ElseMsgBox"

12、;密码不正确，请重新输入！","登录提示信息：Text2.Text=""Text2.SetFocusEndIf检测密码是否正确EndIfEndSubPrivateSubCommand2_Click()'“退出"或“取消"按钮IfCommand2.Caption="取消“ThenLabel3.Visible=FalseText3.Visible=FalseCommand1.Caption="登录“Command2.Caption="退出“Text1.Text=""Text2.Te

13、xt=""Text1.SetFocusElseEnd'UnloadMeEndIfEndSubPrivateSubCommand3_Click()'“新用户"按钮Label3.Visible=TrueText3.Visible=TrueText1.Text=""Text2.Text=""Text3.Text=""Command1.Caption="确定“Command2.Caption="取消“Text1.SetFocusEndSubPrivateSubCommand3_

14、MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,丫AsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,丫AsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer()'时间timel控件的time事

15、件代码，用来'显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width>0Then'当标签右边位置大于0时，标签向左移-80Else'否那么标签从头开始Label4.Left=Forml.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0Then-80ElseLabel5.Left=Forml.ScaleWidthEndIfEndSub主界面窗体如下:代码:PrivateSubAddNew_Click()Framel.Visible=TrueFrame2.Visible=FalseEndSubPrivat

16、eSubCHKPMCHX_Click()Frame2.Caption="出库信息"DimpmAsStringDimnAsStringpm=lnputBox("产品名","请输入",0)n="select*from出库表where品名=&pm&"“'Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGridlEndSubPrivateSubCHKXHCHX_Click()Frame2.Caption="

17、;出库信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)n="select*from出库表where型号=“，&XH&"“，Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()'Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption="出库

18、信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from出库表where经手人=&JSHR&"“，Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGridlEndSubPrivateSubCKSHJ_Click()Frame2.Caption="出库信息"DimCHKRQAsString请输入",0)Dimn

19、AsStringCHKRQ=InputBox("出库日期，格式为：月/日/年女口：12/1/2011",n="select*from出库表where出库日期=CHKRQ&呐Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCalllnitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption="出库信息"DimZBAsStringZB="select*from出库表"Adodc2mandType=adCmdT

20、extAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()IfTextl.Text=""Then'MsgBox"请输入用户名！","登录信息提示："ExitSubElse'DimusenameAsString'DimstrSAsStringusename=Trim(Text1.Text)strS="select*from用户登录信息表where用户名='"&usena

21、me&川"AdodclmandType=adCmdTextAdodcI.RecordSource=strSAdodcI.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"您输入的用户已存在!","登录提示信息："Textl.Text=""Text2.Text=""Text3.Text=""Textl.SetFocusExitSubEndIfEndIfIfText2.Text=""Then'MsgBox&quo

22、t;密码不能为空r:,"登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请再次输入密码!","登录提示信息："Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不一致，请确认!","登录提示信息："Text2.Text=""Text3.Text=""Text2.SetF

23、ocusExitSubElseAdodcl.Recordset.AddNew'Adodc1.Recordset.Fields("用户名")=Trim(Textl.Text)Adodc1.Recordset.Fields("密码")=Trim(Text2.Text)提示用户输入用户名检测用户名是否已经存在提示用户密码不能为空添加新用户DimXAsInteger提示信息!")X=MsgBox("成功添加新用户，是否要重新登录！"，vbYesNo+vbQuestion+vbDefaultButtonl,IfX=vbYesT

24、henUnloadMeForm3.ShowEndIf'MsgBox("成功添加新用户！")'Label3.Visible=False'Text3.Visible=False'Command1.Caption="登录“'Command2.Caption="退出“EndIfFrame1.Visible=FalseFrame2.Visible=TrueText1.Text=""Text2.Text="”Text3.Text=""'Form3.ShowEndSubP

25、rivateSubCommand2_Click()Frame1.Visible=FalseFrame2.Visible=TrueEndSubPrivateSubCXDL_Click()Form3.Show'UnloadMeEndSubPrivateSubExit_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_Load()TextUserName=Trim(Form1.Text1.Text)Unlo

26、adForm1Frame1.Visible=FalseCallInitGridOMe.Height=MDIForm1.Height-1060Me.Width=MDIForml.Width-560Me.Top=MDIForml.TopMe.Left=MDIForml.LeftEndSubPrivateSubGHCZ_Click()'Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption="归还信息"DimpmAsStringDimnAsStringpm=InputBox("产品名&qu

27、ot;,"请输入",0)n="select*from归还表where品名=&pm&"山Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_Click()Frame2.Caption="归还信息"DimJCRAsStringDimnAsStringJCR=InputBox("归还人","请输入",0)n="select*from归还表wh

28、ere归还人=&JCR&"”，Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHSJCX_Click()Frame2.Caption="归还信息"DimJCRQAsString请输入",0)DimnAsStringJCRQ=InputBox("归还日期，格式为：月/日/年女口：12/1/2011",n="select*from归还表where归还日期"&JCRQ&

29、amp;呐Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click()Frame2.Caption="归还信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)n="select*from归还表where型号='"&XH&Adodc2mandType=adCmdTextAdodc2.Record

30、Source=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption="归还信息"DimZBAsStringZB="select*from归还表"Adodc2mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.HideForm7.ShowEndSubPrivateSubJCHPMCHX_Click()Frame

31、2.Caption="借出信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0)n="select*from借出表where品名=&pm&"“'Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_Click()Frame2.Caption="借出信息"DimXHAsStringD

32、imnAsStringXH=InputBox("产品型号","请输入",0)n="select*from借出表where型号='"&XH&Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCalllnitGrid2EndSubPrivateSubJCRCX_Click()Frame2.Caption="借出信息"DimJCRAsStringDimnAsStringJCR=InputBox("借出人",&q

33、uot;请输入",0)n="select*from借出表where借出人='"&JCR&Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption="借出信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox("借出日期，格式为：月/日/年如：12/1/2011","请输入",

34、0)n="select*from借出表where借出日期='"&JCRQ&Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption="借出信息"DimZBAsStringZB="select*from借出表"Adodc2mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallIni

35、tGrid2EndSubPrivateSubJSHRCHX_Click()Frame2.Caption="归还信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from归还表where经手人='"&JSHR&"'"Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCalllnitGrid2EndSubPrivat

36、eSubJSHRCX_Click()Frame2.Caption="借出信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from借出表where经手人='"&JSHR&Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption="

37、;库存信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0)n="select*from库存表where品名='"&pm&Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()'Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Cap

38、tion="入库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from入库表where经手人='"&JSHR&"'"Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption="入库信息&qu

39、ot;DimpmAsStringDimnAsStringpm=lnputBox("产品名","请输入",0)IfLen(pm)>0Thenn="select*from入库表where品名=&pm&"山Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGridlEndSubPrivateSubRKSHJ_Click()Frame2.Caption="入库信息"DimRKRQAsStringDimnAsS

40、tring请输入",0)RKRQ=InputBox("入库日期，格式为：月/日/年女口：12/1/2011",n="select*from入库表where入库日期=&RKRQ&川"Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption="入库信息"DimXHAsStringDimnAsStringXH=InputBox("

41、产品型号","请输入",0)IfLen(XH)>0Thenn="select*from入库表where型号=“，&XH&"“，Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption="入库信息"DimZBAsStringZB="select*from入库表"Adodc2mandType=adCmdTe

42、xtAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGridlEndSubPrivateSubTimer1_Timer()当标签右边位置大于0时，标签向左否那么标签从头开始IfLabel4.Left+Label4.Width>0Then'移-80Else'Label4.Left=Form2.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0Then-80ElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width>0Th

43、en-80ElseLabel6.Left=Form2.ScaleWidthEndIfIfLabel7.Left+Label7.Width>0Then-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSubPrivateSubXGMM_Click()'Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption="库存信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0

44、)IfLen(XH)>0Then'AndVal(XH)<>0n="select*from库存表where型号=“，&XH&"“，Adodc2mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption="库存信息"DimZBAsString'DimNAsString'PM=InputBox("产品名","请输

45、入",0)ZB="select*from库存表"'where品名='"&PM&Adodc2mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGridOEndSubPrivateSubInitGridO()WithDataGridl.Columns(0).Width=1600.Columns(1).Width=2200.Columns(2).Width=2200.Columns(3).Width=1000.Columns(4).Width=1000.C

46、olumns(5).Width=4000EndWithEndSubPrivateSubInitGrid1()WithDataGridl.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).Width=800.Columns(7).Width=4000EndWithEndSubPrivateSubInitGrid2()WithDataGrid1'.Columns(

47、0).Caption="学号"'.Columns(1).Caption="课程名"'.Columns(2).Caption="学分"'.Columns(3).Caption="成绩"'设置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).

48、Width=1000.Columns(7).Width=800.Columns(8).Width=4000EndWithEndSub用户重新登录界面代码：PrivateSubCommand1_Click()DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)'检测用户名是否存在strSelect="select密码from用户登录信息表where用户名=&strSno&呐Adodc1mandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.Re

49、freshIfAdodc1.Recordset.EOF=TrueThenMsgBox"用户名不存在，请重新输入！","登录提示信息："Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields("密码")=Trim(Text2.Text)Then'检测密码是否正确UnloadMeForm2.Show'MsgBox"登陆成功！","登录提示信息："

50、ElseMsgBox"密码不正确，请重新输入！","登录提示信息:Text2.Text=""Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用户密码界面E價茂至科界面X用尸苦£r"auaiBiiuairirn-1髓码：-r-他码i:1:-i Biiiiaii.i> -iriiBiBiirai-irr2rr.n4>1J-:-:代码：PrivateSubCommand1_Click()IfTrim(Text1.T

51、ext)<>Form2.TextUserNameThenMsgBox"用户名不正确，请确认！","信息提示！"Text1.Text=""Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsStringname=Trim(Text1.Text)names="select*from用户登录信息表where用户名='"&name&川"AdodclmandType=adCmdTextAdodcI.RecordSource=name

52、sAdodcI.RefreshIfText2.Text=""ThenMsgBox"请输入旧密码!","信息提示！"Text2.SetFocusExitSubEndIf(“密码")<>Trim(Text2.Text)ThenMsgBox"旧密码不正确，请确认r:,"信息提示！"Text2.Text=""Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请输入新密码!",&q

53、uot;信息提示！"Text3.SetFocusExitSubEndIfIfText4.Text=""ThenMsgBox"请再次输入新密码r:,"信息提示！"Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox"两次输入的新密码不一致r:,"信息提示！Text3.Text=""Text4.Text=""Text3.SetFocusExitSubElseAdodc1.Rec

54、ordset.Fields("密码")=Trim(Text3.Text)MsgBox("密码修改成功！")UnloadMe'Form2.ShowEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMe'Form2.ShowEndSub入库管理代码：PrivateSubCommand1_Click()IfTextl.Text=""AndText2.Text=""ThenMsgBox"“品名"和“型号"不能同时为空，必须输入其中一

55、项r:,"提示信息!"ExitSubText1.SetFocusElseIfText3.Text=""AndText4.Text=""ThenMsgBox"请输入产品“数量"或“单位"之一r:,"提示信息!"Text3.SetFocusExitSubEndIfIfText5.Text=""ThenMsgBox"请经手人签名Text5.SetFocusExitSubEndIfAdodc1.RefreshAdodc1.Recordset.Fields(&quo

56、t;Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("IfText5.Text=""ThenMsgBox"请经手人签名Text5.SetFocusExitSubEndIfAdodc1.RefreshAdodc1.Recordset.Fields("A

57、dodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("!",vbCritical,"提示信息!"品名")=Trim(Text1.Text)型号")=Trim(Text2.Text)数量")=Trim(Text3.Text)单位"

58、;)=Trim(Text4.Text)经手人")=Trim(Text5.Text)入库日期")=Date说明")=Trim(Text7.Text)添加EndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Textl.Text)n=Val(Text3.Text)pms="select*from库存表where品名='"&pm&川"Form2.Adodc2mandType=adCmdTextWithForm2.Adodc2.Recordset

59、.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields(".Adodc2.Recordset.Fields("EndWithElsem=Form2.Adodc2.Recordset.Fields("IfForm2.Adodc2.Recordset.Fields("Form2.Adodc2.Recordset.Fields("EndIf品名")=Trim(Text1.Text)型号"

60、)=Trim(Text2.Text)数量")=Trim(Text3.Text)单位")=Trim(Text4.Text)说明")=Trim(Text7.Text)数量“).Value型号")=Trim(Text2.Text)Then数量")=Val(m)+Val(n)EndIfDimXAsIntegerX=MsgBox("产品入库登记成功，是否继续添加产品！"，vbYesNo+vbQuestion+vbDefaultButton1,IfX=vbNoThenUnloadMe'Form2.Show提示信息!")

61、ElseTextl.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Textl.SetFocusEndIfForm2.Frame2.Caption="入库信息"DimZBAsStringZB="select*from入库表"'where品名=“，&PM&"Form

62、2.Adodc2mandType=adCmdTextForm2.Adodc2.RecordSource=ZBPrivateSubCommand2_Click()Textl.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()UnloadMe'

63、Form2.ShowEndSub出库管理代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""ThenMsgBox"“品名"和“型号"不能同时为空，必须输入其中一项r:,"提示信息!"ExitSubElseIfText1.Text=""AndCombo3.Text=""Then

64、9;Text4.Text=""ThenMsgBox"请输入产品“数量"或“单位"之一!","提示信息!"Text2.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"请经手人签名！",vbCritical,"提示信息!"Text2.SetFocusExitSubEndIfAdodcI.Refresh(“(“Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("EndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.