仓库管理系统VBAccess源代码

1、项目的建立这是本人利用闲暇之余在 VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现 制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。 此文可作供初学者 们学习交流。作者联系方式：E-mail最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（11）单击“登录”或单击“新用户”添加新用户进入如下主界面:建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体4、编辑菜单打开在空白处右击一一点击“菜单编辑器”在“标题”里输入“系统”，在“名称”里输入“ Sys（注意此处不能为汉字） 点击“下一个”再点击岑“退出”如下，然后编写代码。“确定”退到

2、MDI界面点击“系统”代码如下：PrivateSubExit_Click（）EndEndSub数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一 些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图“Version2.0MDB'输入数据库名，“保存”点击“文件”“新建”“ MicrosoftAccess” 出现如下图在数据窗口中右击“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。登录界面窗口的建立最终界面如下：1、Adodc1的添加过程为：单击“工程”一一“部件”出现下图所示，选择“控件

3、”下的 “MicrosoftADODataControl6.0（ OLEDB ”单击“确定”在工具栏中会出现“0” ”图标，单击它并拖动到相应位置即可。其它元件不在说明。2、本窗体代码如下:Comma ndl.Ca ption="登录"PrivateSubComma nd1_Click()'“登录"、“确定”按钮IfCommandl.Caption="确定"AndCommand2.Caption="取消"Then'如果为“确定”则添加新用户IfText1.Text=""The n'

4、提示用户输入用户名MsgBo乂请输入用户名！"”"登录信息提示:ExitSubElse'DimusenameAsString'检测用户名是否已经存在DimstrSAsStri nguse name=Trim(Text1.Text)strS="select*from用户登录信息表 where 用户名='"&usename&""'Adodc1.Comma ndTyp e=adCmdTextAdodc1.RecordSource=strSAdodd.RefreshMsgBox'您输入的

5、用户已存在!","登录提示信息:Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""The n'提示用户密码不能为空MsgBox'密码不能为空!","登录提示信息:Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请再次输入密码!","登录提

6、示信息：-Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不一致，请确认!","登录提示信息:Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElse")MsgBox("添加新用户成功，现在您可以登陆系统了!Label3.Visible=FalseText3.Visible=FalseComma nd2.Ca ption="退出"EndIfE

7、lse' “登录”按钮，用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)' 检测用户名是否存在strSelect='select 密码 from 用户登录信息表 where 用户名 =''&strSno&'''Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox"用户名不存在，请重新输入！"”"登录提示信息

8、：-Text1.Text=''Text2.Text=''Text1.SetFocusExitSubEndIfForm1.Hide'UnloadMeForm2.Show'MsgBox" 登陆成功！ "," 登录提示信息：ElseMsgBo乂密码不正确，请重新输入！"”"登录提示信息:Text2.Text=''Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()' “退出”或“取消”按钮IfCommand2.Capti

9、on=" 取消 "ThenLabel3.Visible=FalseText3.Visible=FalseComma ndl.Ca ption=''登录''Comma nd2.Ca ption=''退出''Text1.Text=''Text2.Text=''Text1.SetFocusElseEnd'UnloadMeEndIfEndSubPrivateSubCommand3_Click()' “新用户”按钮Label3.Visible=TrueText3.Visib

10、le=TrueText1.Text=''Text2.Text=''Text3.Text=''Command2.Caption=' 取消'Text1.SetFocusEndSubCommand1.Caption=' 确定'PrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(ButtonAsInteger,Sh

11、iftAsInteger,XAsSingle,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer()' 时间 time1 控件的 time 事件代码，用来' 显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width>0Then' 当标签右边位置大于 0 时，标签向左移Label4.MoveLabel4.Left-80Else' 否则标签从头开始

12、Label4.Left=Form1.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form1.ScaleWidthEndIfEndSub主界面窗体如下：代码：PrivateSubAddNew_Click()Frame1.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Caption=" 出库信息 "DimpmAsStringDimnAsString

13、pm=InputBox(" 产品名 "," 请输入 ",0)n="select*from 出库表 where 品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1PrivateSubCHKXHCHX_Click()XH=InputBox(" 产品型号 "," 请输入 ",0)EndSubFrame2.Caption=&q

14、uot; 出库信息 "DimXHAsStringDimnAsStringn="select*from 出库表 where 型号 ='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()'Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption=" 出库信息 "DimJSH

15、RAsStringDimnAsStringJSHR=InputBox(" 经手人 "," 请输入 ",0)n="select*from出库表 where 经手人='"&JSHR&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption=" 出库信息 "DimCHKRQAsStringDimnAsStringCHK

16、RQ=InputBox（"出库日期，格式为：月/日/年如：12/1/2011"," 请输入",0）n="select*from出库表 where 出库日期="'&CHKRQ&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption=" 出库信息 "DimZBAsStringZB="select*from

17、 出库表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()IfText1.Text=""Then' 提示用户输入用户名MsgBo乂请输入用户名！","登录信息提示:Else'usename=Trim(Text1.Text)ExitSubDimusenameAsString' 检测用户名是否已经存在DimstrSAsStringstrS="se

18、lect*from 用户登录信息表 where 用户名 ='"&usename&"'"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBo乂您输入的用户已存在登录提示信息:Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then' 提示用

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

20、SetFocusExitSubElseDimXAsInteger提示信息 !"）X=MsgBox(''成功添加新用户，是否要重新登录！",vbYesNo+vbQuesti on+vbDefaultButto n1,"IfX=vbYesThenUnloadMeForm3.ShowEndIf'MsgBox（" 成功添加新用户！ "）'Label3.Visible=False'Text3.Visible=False'Command1.Caption=" 登录"'Command

21、2.Caption=" 退出"EndIfFrame1.Visible=FalseFrame2.Visible=TrueText1.Text=""Text3.Text=""'Form3.ShowText2.Text="'"EndSubPrivateSubCommand2_Click()Frame1.Visible=FalseFrame2.Visible=TrueEndSubPrivateSubCXDL_Click()Form3.Show'UnloadMeEndSubPrivateSubExit

22、_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_Load()UnloadForm1Frame1.Visible=FalseCallInitGrid0Me.Height=MDIForm1.Height-1060Me.Width=MDIForm1.Width-560Me.Top=MDIForm1.TopMe.Left=MDIForm1.LeftEndSubPrivateSubGHCZ_Click()'

23、Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption=" 归还信息 "DimpmAsStringDimnAsStringpm=InputBox(" 产品名 "," 请输入 ",0)n="select*from 归还表 where 品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nCallInitGrid2Privat

24、eSubGHRCX_Click()Frame2.Caption=" 归还信息 "JCR=InputBox(" 归还人 "," 请输入 ",0)n="select*from 归还表 where 归还人 ='"&JCR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHSJCX_Click()Frame2.Caption=&q

25、uot; 归还信息 "DimJCRQAsStringDimnAsStringJCRQ=InputBox（"归还日期，格式为：月/ 日/年如：12/1/2011","请输入",0）n="select*from 归还表 where 归还日期 ='"&JCRQ&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click()Fr

26、ame2.Caption=" 归还信息 "DimXHAsStringDimnAsStringXH=InputBox(" 产品型号 "," 请输入",0)n="select*from归还表 where 型号="'&XH&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption=" 归还信息 "D

27、imZBAsStringZB="select*from 归还表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.HideForm7.ShowPrivateSubJCHPMCHX_Click()Frame2.Caption=" 借出信息 "pm=InputBox(" 产品名 "," 请输入",0)EndSubDimpmAsString

28、DimnAsStringn="select*from借出表 where 品名='"&pm&""'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_Click()Frame2.Caption=" 借出信息 "DimXHAsStringDimnAsStringXH=InputBox(" 产品型号 "," 请输入 ",0

29、)n="select*from 借出表 where 型号 ='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()Frame2.Caption=" 借出信息 "DimJCRAsStringDimnAsStringJCR=InputBox(" 借出人"," 请输入 ",0)n="sel

30、ect*from 借出表 where 借出人 ='"&JCR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption=" 借出信息 "DimJCRQAsStringDimnAsStringJCRQ=InputBox（"借出日期，格式为：月/ 日/年如：12/1/2011"," 请输入"

31、;,0）n="select*from借出表 where 借出日期='"&JCRQ&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption=" 借出信息 "DimZBAsStringZB="select*from 借出表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc

32、2.RefreshCallInitGrid#EndSubPrivateSubJSHRCHX_Click()Frame2.Caption=" 归还信息 "DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人 "," 请输入 ",0)n="select*from 归还表 where 经手人 ='"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Re

33、freshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption=" 借出信息 "DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人 "," 请输入 ",0)n="select*from 借出表 where 经手人 ='"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh

34、CallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption=" 库存信息 "DimpmAsStringDimnAsStringpm=InputBox(" 产品名 "," 请输入 ",0)n="select*from 库存表 where 品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0E

35、ndSubPrivateSubRKCZ_Click()'Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Caption=" 入库信息 "DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人 "," 请输入 ",0)n="select*from 入库表 where 经手人 ='"&JSHR&"'"Adodc2.CommandType=adCmdTextA

36、dodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption=" 入库信息 "DimpmAsStringDimnAsStringpm=InputBox(" 产品名 "," 请输入 ",0)IfLen(pm)>0Thenn="select*from入库表 where 品名='"&pm&""'Adodc2.CommandType=adCmd

37、TextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_Click()Frame2.Caption=" 入库信息 "DimRKRQAsStringDimnAsStringRKRQ=InputBox（"入库日期，格式为：月/ 日/年如：12/1/2011","请输入",0）n="select*from 入库表 where 入库日期 ='"&RKRQ&"'"Adodc

38、2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption=" 入库信息 "DimXHAsStringDimnAsStringXH=InputBox(" 产品型号 "," 请输入",0)IfLen(XH)>0Thenn="select*from入库表 where 型号="'&XH&Adodc2.CommandTyp

39、e=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption=" 入库信息 "DimZBAsStringZB="select*from 入库表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubTimer1_Timer()IfLabel4.Left+Label4.Wi

40、dth>0Then' 当标签右边位置大于 0 时，标签向左移Label4.MoveLabel4.Left-80Else' 否则标签从头开始Label4.Left=Form2.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width>0ThenLabel6.MoveLabel6.Left-80ElseLabel6.Left=Form2.ScaleWid

41、thEndIfIfLabel7.Left+Label7.Width>0ThenLabel7.MoveLabel7.Left-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSubPrivateSubXGMM_Click()'Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption=" 库存信息 "DimXHAsStringDimnAsStringXH=InputBox(" 产品型号 "," 请输入 ",0)IfLen(

42、XH)>0Then'AndVal(XH)<>0n="select*from 库存表 where 型号 ='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption=" 库存信息 "DimZBAsString'DimNAsString'PM=InputBox(&qu

43、ot; 产品名"," 请输入 ",0)WithDataGrid1.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.Columns(1).Width=1600.Columns(2).Width=1600.Columns(

44、3).Width=800.Columns(4).Width=800.Columns(5).Width=1000.Columns(6).Width=800.Columns(7).Width=4000EndWithEndSubPrivateSubInitGrid2()WithDataGrid1'.Columns(0).Caption="学号"'.Columns(1).Caption="课程名"'.Columns(2).Caption="学分"'.Columns(3).Caption="成绩 &qu

45、ot;' 设置 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()DimstrSnoAsStringDimstrSelectAsStr

46、ing strSno=Trim(Text1.Text)' 检测用户名是否存在strSelect="select 密码 from 用户登录信息表 where 用户名 ='"&strSno&"'"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox"用户名不存在，请重新输入！","登录提示信息:Text1.Text=""Text2.Text=""Te

47、xt1.SetFocusExitSubEndIfUnloadMeForm2.Show 'MsgBox" 登陆成功！ "," 登录提示信息：ElseMsgBox"密码不正确，请重新输入！登录提示信息:Text2.Text=""Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用户密码界面代码：PrivateSubCommand1_Click()IfTrim(Text1.Text)<>Form2.TextUserNa

48、meThenMsgBox"用户名不正确，请确认！","信息提示！-Text1.Text=""Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsString name=Trim(Text1.Text) names="select*from 用户登录信息表 where 用户名 ='"&name&"'"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=namesAdodc1.Refre

49、shIfText2.Text=""ThenMsgBox'请输入旧密码!","信息提示！-EndIfMsgBox"旧密码不正确，请确认信息提示！-Text2.SetFocusText2.SetFocusExitSubText2.Text=""ExitSubEndIfIfText3.Text=""ThenMsgBox"请输入新密码!","信息提示！-Text3.SetFocusExitSubEndIfIfText4.Text=""ThenMsgBox&

50、quot;请再次输入新密码！信息提示！-Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox"两次输入的新密码不一致!","信息提示！"Text3.Text=""Text4.Text=""Text3.SetFocusExitSubElseMsgBox（"密码修改成功！"）UnloadMe 'Form2.ShowEndIfEndIfEndSubPrivateSubCommand2_Cli

51、ck()UnloadMe 'Form2.ShowEndSub入库管理代码：PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""Then！"," 提示信息 ！"MsgBox" “品名”和“型号”不能同时为空，必须输入其中一项ExitSubText1.SetFocusElseIfText3.Text=""AndText4.Text=""ThenMsgBox"请输入产品“数量”或“单位”之一!"

52、;,"提示信息!"ExitSubEndIf提示信息 ！"MsgBox'请经手人签名！",vbCritical,"Text5.SetFocusExitSubText3.SetFocusIfText5.Text=""ThenEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsString pm=Trim(Text1.Text) n=Val(Text3.Text) pms="select*from 库存表 where 品名 =&

53、#39;"&pm&"'"WithForm2EndWithElseEndIfEndIfDimXAsInteger提示信息 !")X=MsgBox("产品入库登记成功，是否继续添加产品！",vbYesNo+vbQuestio n+vbDefaultButto n1,"IfX=vbNoThenUnloadMe 'Form2.ShowElseText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=&

54、quot;"Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndIfDimZBAsStringZB="select*from 入库表"'where 品名='"&PM&EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text="&qu

55、ot;Text5.Text=""Text6.Text=""Text7.Text=""EndSubUnloadMe 'Form2.ShowText1.SetFocusPrivateSubCommand3_Click()EndSub出库管理代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""ThenMsgB

56、ox" “品名”和“型号”不能同时为空，必须输入其中一项！"," 提示信息 ！"ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox'请输入产品“数量”或“单位”之一!","提示信息!"Text2.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox'请经手人签名！",vbCritica

57、l,"提示信息 !"Text2.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表 where 品名='"&pm&""'EndIfDimXAsIntegerX=MsgBox("产品出库登记成功，是否继续添加产品！",vbYesNo+vbQues

58、tio n+vbDefaultButto n1,"提示信息 ！")IfX=vbNoThenUnloadMe'Form2.ShowEndIfCombo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""DimZBAsStringZB="select*from 出库表"'where 品名='"&PM&

59、amp;PrivateSubCommand2_Click()Combo2.Text=""Text4.Text=""EndSubCombo1.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand3_Click()UnloadMe'Form2.ShowEndSubPrivateSubForm_L

60、oad()Adodc2.RefreshLoopEndSub借出管理代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""ThenMsgBox" “品名”和“型号”不能同时为空，必须输入其中一项！"," 提示信息 ！"ExitSubElseIfText1.Text=""AndCombo3.Text="&q

61、uot;Then'Text4.Text=""ThenMsgBox'请输入产品“数量”或“单位”之一!","提示信息!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox'请经手人签名！",vbCritical,"提示信息 !"Text2.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=

62、Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表 where 品名='"&pm&""'EndIfDimXAsIntegerX=MsgBox("产品借出登记成功，是否继续添加产品！",vbYesNo+vbQuestio n+vbDefaultButto n1,"提示信息 ！")IfX=vbNoThenUnloadMeForm2.ShowEndIfCombo1.Text=""Combo2.Text="

63、;"Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""DimZBAsStringZB="select*from 借出表"'where 品名='"&PM&EndSubPrivateSubCommand2_Click()Combo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand3_Click()Unl