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

1、WOR酷式精心整理仓库治理系统工程的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程.由于本人是个初学者,里面存在很多缺乏之处望得到高手们的指导.此文可作供初学者们学习交流.作者联系方式：E-mail最终运行效果翻开软件由现如下登录界面输入系统预设用户名及密码11单击“登录或单击“新用户添加新用户进入如卡主界面：建立工程1、 创立标准 EXE,:'2、 按“翻开二二;7 二二;L 二3、 添加MDI体一一翻开I工；4、 编辑菜单一 二一在空白处右击一一点击“菜单编辑器在“标题里输入“系统,在“名称里输入“Sys 注意此处不能为汉字点

2、击“下一个再点击" 口 “确定退到MDI界面点击系统一一“退生如下,.然后编写代码.代码如下：PrivateSubExit_Click飞'一,、EndEndSub 汩:M , ；:.J数据库的建立VB6.0中可以创立Access数据库.如下建立一个“用户表的数据库,用来存放用户信息及一些由入库管理信息.如下列图单击“外接程序再单击“可视化数据治理器由现如图点击“文件“新建" MicrosoftAccess-“ Version2.0MDB 输入数据库名,“保存由现如下列图在数据窗口中右击一一“新建表,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍.精心整理

3、专业资料整理WOR/式精心整理登录界面窗口的建立最终界面如下：1、Adodcl的添加过程为：单击“工程一一“部件由现下列图所示,选择“控件下的 MicrosoftADODataControl6.0 (OLEDB 单击“确定在工具栏中会由现&口 图标,单击它并拖动到相应位置即可.其它元件不在说明.2、本窗体代码如下：PrivateSubCommand1_Click()fCommand1.Caption="那么添加新用户IfText1.Text=""ThenMsgBox"请输入用户名！'"登录、“确定按钮确定"AndCom

4、mand2.Caption="取消"Then ' 如果为“确定'提示用户输入用户名;登录信息提示："ExitSubElse'DimusenameAsString' “'：检测用户名是否已经存在DimstrSAsString ：匚.usename=Trim(Text1.Text): 匕: :：/ / 工、：/strS="select*from用户登录信息表where “ 用户名='"&usename&Adodc1.CommandType=adCmdTextAdodc1.RecordS

5、ource=strS 0 f、Adodc1.RefreshMsgBox" 您输入的用户已存在 ！,"Text1.Text=""Text2.Text="" : ' : ,Text3.Text=""Text1.SetFocus登录提示信息:ExitSubEndIfEndIfIfText2.Text=""Then'MsgBox"密码不能为空!","登录提示信息:Text2.SetFocus提示用户密码不能为空ExitSubEndIfIfText3.Text

6、=""ThenMsgBox" 请再次输入密码!","登录提示信息:Text3.SetFocusExitSubEndIf专业资料整理WOR/式IfText2.Text<>Text3.TextThen登录提示信息:MsgBox"两次输入的密码不一致,请确认！","Text2.Text=""Text3.Text=""Text2.SetFocus精心整理专业资料整理WOR酷式精心整理 ExitSubElseMsgBox("添加新用户成功,现在您可以登陆系统了！&

7、quot;)Label3.Visible=FalseText3.Visible=FalseCommand1.Caption="登录"Command2.Caption="退由"EndIfElse'DimstrSnoAsStringDimstrSelectAsString strSno=Trim(Text1.Text)'strSelect="select 密码from用户登录信息表whereAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.Refresh+

8、 1 j|MsgBox"用户名不存在,请重新输入！ ," 0登录提示信息：孑Text1.Text=""Text2.Text=""“ '彳 J ；田;Text1.SetFocus一 ,.ExitSub/二EndIfForm1.Hide-:1' .* ,二 . ,'UnloadMe ''； 二 “ JForm2.Show'MsgBox"-；登陆成功！","登录提示信息："Else 、, :MsgBox"密码不正确,请重新输入！",&

9、quot;登录提示信息："Text2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()'IfCommand2.Caption=" 取消"ThenLabel3.Visible=FalseText3.Visible=FalseCommand1.Caption="登录"Command2.Caption="退由"“登录按钮,用户登录检测用户名是否存在用户名='"&strSno&"

10、9;“退出或“取消按钮专业资料整理WOR酷式Text1.Text=""Text2.Text=""Textl.SetFocusElseEnd'UnloadMeEndIfEndSub精心整理专业资料整理WOR酷式精心整理PrivateSubCommand3_Click()新用户按钮Label3.Visible=TrueText3.Visible=TrueText1.Text=""Text2.Text=""Text3.Text=""Command1.Caption="确定"

11、Command2.Caption="取消"Text1.SetFocusEndSubPrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle);Label6.Visible=TrueEndSub【 工 .' ' /,PrivateSubCommand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) 口 二二 ,Label6.Visible=Falsei； ；-1EndSubj , 广 1

12、n . ；/ /PrivateSubForm_Load() 口二 二三,1.于 击 JLabel3.Visible=False"1田：Text3.Visible=False 孑二.EndSub一一一PrivateSubTimer1_Timer()'时间 time1 控件的 time 事件代码,用来IfLabel4.Left+Label4.Width>0Then显示向左移动的欢送字幕当标签右边位置大于0时,标签向左移Label4.MoveLabel4.Left-80Else否那么标签从头开始Label4.Left=Form1.ScaleWidthEndIfIfLabel5

13、.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form1.ScaleWidthEndIfEndSub主界面窗体如下：代码:专业资料整理WOR酷式PrivateSubAddNew_Click()Frame1.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Caption="由库信息DimpmAsString精心整理专业资料整理WOR酷式精心整理DimnAsStringpm=InputBox("产

14、品名"," 请输入",0)n="select*from 由库表 where品名='"&pm&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_Click()Frame2.Caption=" 由库信息口.DimXHAsString京 'DimnAsStringXH=InputBox("产品型号"," 请输

15、入",0)/ ' v n="select*from 由库表 where型号="'&XH&"'Adodc2.CommandType=adCmdText. " 工 :匚Adodc2.RecordSource=n；二,、Adodc2.Refresh:匕,：EndSub J J '一二 ： PrivateSubCKCZ_Click()二:'Form2.Hide", 1一:Form6.ShowEndSub.JPrivateSubCKJSHR_Click()二 .一Frame2.Captio

16、n="由库信息"口 "DimJSHRAsStringDimnAsString .口 一JSHR=InputBox(" l 经手人"," 请输入",0)n="select*from ;由库表 where 经手人='"&JSHR&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGridlEndSubPrivateSubCKSHJ_Click()Frame2.Caption

17、=" 由库信息DimCHKRQAsStringDimnAsStringCHKRQ=InputBox("由库日期,格式为：月 /日/年如：12/1/2022"," 请输入",0)n="select*from 由库表 where 由库日期='"&CHKRQ&"'专业资料整理WOR酷式Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCalllnitGridlEndSubPrivateSubCKZCX_Click(

18、)Frame2.Caption=" 由库信息精心整理专业资料整理WOR酷式精心整理DimZBAsStringZB="select*from 由库表Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()IfText1.Text=""Then'提示用户输入用户名MsgBox"请输入用户名！","登录信息提示："一ExitSubElse'Dim

19、usenameAsString'检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)3 7： 一. ?.strS="select*from用户登录信息表 where 用户名=:"&usename&"'".,口Adodc1.CommandType=adCmdText, 葭 “：¥ 二一.Adodc1.RecordSource=strS J J 'I二 . Adodc1.RefreshMsgBox" 您输入的用户已存在 ！","一登

20、录提示信息："''Text1.Text=""Text2.Text="": ,; iText3.Text=""Text1.SetFocusExitSubEndIfEndIf , * 'IfText2.Text=""Then'提示用户密码不能为空MsgBox"密码不能为空!","登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请再次输入密

21、码!","登录提示信息：Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不一致,请确认!","登录提示信息："专业资料整理WOR酷式Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseeDimXAsInteger精心整理专业资料整理WOR酷式精心整理X=MsgBox("成功添加新用户,是否要重新登录!",vbYesNo+vbQu

22、estion+vbDefaultButton1,"提示信息！)IfX=vbYesThenUnloadMeForm3.ShowEndIf'MsgBox("成功添加新用户！")'Label3.Visible=False'Text3.Visible=False'Command1.Caption="登录"'Command2.Caption="退由"口.EndIfFrame1.Visible=FalseFrame2.Visible=True' /'. .Text1.Text=&q

23、uot;"二,Text2.Text="' k:= 二",J "Text3.Text=""'Form3.Show二 + JEndSub" j；田： 一PrivateSubCommand2_Click()一 ,产:上Frame1.Visible=Falsef" .,一二Frame2.Visible=TrueEndSubPrivateSubCXDL_Click()JForm3.Show 一,T.：二 口'UnloadMe >1'EndSub J _J ' ':Priv

24、ateSubExit_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSub专业资料整理WOR酷式PrivateSubForm_Load()UnloadFormlFrame1.Visible=FalseCallInitGrid0Me.Height=MDIForm1.Height-1060Me.Width=MDIForm1.Width-560Me.Top=MDIForm1.TopMe.Left=MDIForm1.LeftEndSub精心整理专业

25、资料整理WOR酷式精心整理PrivateSubGHCZ_Click()'Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption=" 归还信息"DimpmAsStringDimnAsStringpm=InputBox("产品名"," 请输入",0)n="select*from 归还表 where品名='"&pm&"'口.Adodc2.CommandType=adCmdText卡 Adodc2.R

26、ecordSource=nAdodc2.Refresh二 /,. CallInitGrid2;二'？EndSubi ：； ' 一 ,；,PrivateSubGHRCX_Click()nFrame2.Caption=" 归还信息"DimJCRAsString;三1.二. 1:二 0DimnAsString；上 J JJCR=InputBox(" 归还人",请输入,0)n="select*from 归还表 where归还人='"&JCR&"'Adodc2.CommandType=a

27、dCmdText、,ji jiAdodc2.RecordSource=nAdodc2.Refresh “i 'CallInitGrid2EndSubPrivateSubGHSJCX_Click()Frame2.Caption=" 归还信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox("归还日期,格式为：月 /日/年如：12/1/2022," 请输入",0)n="select*from 归还表 where归还日期='"&JCRQ&"'Ado

28、dc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click()Frame2.Caption=" 归还信息"专业资料整理WOR酷式DimXHAsStringDimnAsStringXH=InputBox"产品型号","请输入",0n="select*from 归还表 where 型号='"&XH&"'Adodc2.CommandTyp

29、e=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理专业资料整理WOR酷式精心整理CallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption="归还信息"DimZBAsStringZB="select*from 归还表"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.Hid

30、eForm7.ShowEndSubPrivateSubJCHPMCHX_Click()Frame2.Caption="借由信息DimpmAsStringDimnAsStringpm=InputBox("产品名"," 请输入,',0)n="select*from 借由表 where 品名='"&pm&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=n ,% 气 %Adodc2.RefreshCallInitGrid2EndSub .、!

31、:PrivateSubJCHXHCHX_Click()Frame2.Caption="借由信息DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)n="select*from 借由表 where 型号='"&XH&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()专业资料

32、整理WOR酷式Frame2.Caption="借由信息DimJCRAsStringDimnAsStringJCR=InputBox" 借由人"," 请输入",0n="select*from 借由表 where借由人='"&JCR&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理专业资料整理WOR酷式精心整理CallInitGrid2EndSubPrivateSubJCSHJCX_Click()F

33、rame2.Caption=" 借由信息DimJCRQAsStringDimnAsStringJCRQ=InputBox("借由日期,格式为：月 /日/年如：12/1/2022"," 请输入",0)n="select*from 借由表 where借出日期='"&JCRQ&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh靠 'CallInitGrid2EndSub【,.PrivateSubJCZC

34、X_Click(), 二 , 二 二二二Frame2.Caption=" 借由信息"飞 / ：; “,厂DimZBAsString".:二一:？°ZB="select*from借由表：九 : ：,二'Adodc2.CommandType=adCmdText J J '一二" . Adodc2.RecordSource=ZBAdodc2.Refresh, 口 一,、；:CallInitGrid2EndSub.JPrivateSubJSHRCHX_Click().Frame2.Caption="归还信息"

35、;口 "DimJSHRAsStringDimnAsString .口 一JSHR=InputBox(" l 经手人"," 请输入",0) n="select*from 归还表 where 经手人='"&JSHR&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption=" 借出信息&quo

36、t;DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0) n="select*from 借由表 where 经手人='"&JSHR&"'专业资料整理WOR酷式Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption=" 库存信息"精心整

37、理专业资料整理WOR酷式精心整理DimpmAsStringDimnAsStringpm=InputBox("产品名"," 请输入",0)n="select*from 库存表 where品名='"&pm&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()'Form2.HideForm5.ShowEndSubPrivateSubR

38、KJSHR_Click()Frame2.Caption="入库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 入库表 where 经手人='"&JSHR&"'Adodc2.CommandType=adCmdText 、 一Adodc2.RecordSource=nAdodc2.Refresh.、. j =,CallInitGrid1 ： ； 1 1EndSub.：；一>

39、;=产 .- pPrivateSubRKPMCHX_Click()"Frame2.Caption="入库信息"DimpmAsStringDimnAsStringpm=InputBox("产品名"," 请输入",0)IfLen(pm)>0Thenn="select*from 入库表 where 品名='"&pm&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallI

40、nitGrid1EndSubPrivateSubRKSHJ_Click()专业资料整理WOR酷式Frame2.Caption="入库信息"DimRKRQAsStringDimnAsStringRKRQ=InputBox"入库日期,格式为：月 /日/年如：12/1/2022"," 请输入",0n="select*from 入库表 where入库日期='"&RKRQ&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc

41、2.Refresh精心整理专业资料整理WOR酷式DimnAsStringXH=InputBox("IfLen(XH)>0Thenn="select*from专业资料整理当标签右边位置大于0时,标签向左移否那么标签从头开始精心整理CalllnitGridlEndSubPrivateSubRKXHCHX_Click()Frame2.Caption="入库信息DimXHAsString产品型号","请输入",0)入库表 where型号="'&XH&"'Adodc2.CommandTy

42、pe=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption="入库信息"DimZBAsStringZB="select*from入库表Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.Refresh.、CallInitGrid1EndSub .'" 工PrivateSubTimer1_Timer() .IfLabel4.Left

43、+Label4.Width>0ThenLabel4.MoveLabel4.Left-80ElseLabel4.Left=Form2.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width>0ThenLabel6.MoveLabel6.Left-80ElseWOR酷式Label6.Left=Form2.ScaleWidthEndIfIfLabel7.Left+Lab

44、el7.Width>0ThenLabel7.MoveLabel7.Left-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSub精心整理专业资料整理WOR酷式精心整理PrivateSubXGMM_Click()'Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption=" 库存信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)IfLen(XH)>0Th

45、en'AndVal(XH)<>0n="select*from 库存表 where 型号='"&XH&"'Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption=" 库存信息广DimZBAsString' 一'DimNAsString'PM=InputBox("产品名",&qu

46、ot;；请输入",0)ZB="select*from 库存表"'where,品名='"&PM&"'Adodc2.CommandType=adCmdText ： 十Adodc2.RecordSource=ZBAdodc2.Refresh .口 一CallInitGrid. 1 *=, ,EndSubPrivateSubInitGrid0()WithDataGridl.Columns(0).Width=1600.Columns(1).Width=2200.Columns(2).Width=2200.Colum

47、ns(3).Width=1000.Columns(4).Width=1000.Columns(5).Width=4000EndWithEndSub专业资料整理WOR酷式PrivateSubInitGrid1()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精心整理专业资料整理WOR酷式精心整理.Columns(6).Width=800.Columns(7).W

48、idth=4000EndWithEndSubPrivateSubInitGrid2()WithDataGrid1'.Columns(0).Caption="学号"'.Columns(1).Caption="课程名"'.Columns(2).Caption="学分"'.Columns(3).Caption="成绩"'设置DtgCond的列宽.Columns(0).Width=800.Columns(1).Width=1600.Columns(2).Width=1600.Colu

49、mns(3).Width=800.Columns(4).Width=800.Columns(5).Width=800:匕.Columns(6).Width=1000 J 1.'1.Columns(7).Width=800.Columns(8).Width=4000". 1一二EndWithEndSub.J用户重新登录界面代码：PrivateSubCommand1_Click():DimstrSnoAsString检测用户名是否存在用户名='"&strSno&"'"DimstrSelectAsString strSn

50、o=Trim(Text1.Text)'strSelect="select 密码from用户登录信息表 whereAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox"用户名不存在,请重新输入！","登录提示信息：Text1.Text=""Text2.Text=""Text1.SetFocusExitSub专业资料整理WOR酷式EndIfUnloadMeForm2.Show,MsgBox"登陆成功！

51、","登录提示信息："ElseMsgBox"密码不正确,请重新输入！","登录提示信息:精心整理专业资料整理WOR酷式精心整理Text2.Text=""Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用户密码界面 代码：PrivateSubCommand1_Click()IfTrim(Text1.Text)<>Form2.TextUserNameThenMsgBox"用户名不正确,请确认！

52、","信息提示！"Text1.Text=""Text1.SetFocus-产 工：一户ExitSub- j/ 一Else_,/孑DimnameAsStringDimnamesAsStringname=Trim(Text1.Text):1' .*, ,names="select*from 用户登录信息表 where用户名='"&name&"'Adodc1.CommandType=adCmdTextAdodc1.RecordSource=namesIAdodc1.RefreshI

53、fText2.Text=""ThenMsgBox"请输入旧密码！","信息提示！"Text2.SetFocusExitSubEndIfMsgBox"旧密码不正确,请确认 !","信息提示！"Text2.Text=""Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请输入新密码!","信息提示！"专业资料整理WOR酷式Text3.SetFocusExitSubEn

54、dIfIfText4.Text=""Then信息提示!MsgBox"请再次输入新密码！,"Text4.SetFocusExitSub精心整理专业资料整理WOR酷式精心整理EndIfIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox"两次输入的新密码不一致！",信息提示！"Text3.Text=""Text4.Text=""Text3.SetFocusExitSubElseMsgBox(" 密码修改成功！")Unl

55、oadMe'Form2.ShowEndIfEndIfEndSub.； 串 PrivateSubCommand2_Click(): : j 1UnloadMen ：/,二. 'J'Form2.Show/ :二.、' ：口L 二EndSub=- ?/" 二入库治理代码：PrivateSubCommand1_Click() %、:,IfText1.Text=""AndText2.Text=""ThenMsgBox"品名和型号不能同时为空,必须输入其中一项!","提示信息！"Exi

56、tSubText1.SetFocusElse九.IfText3.Text=""AndText4.Text=""ThenMsgBox"请输入产品“数量或“单位之一 !","提示信息！Text3.SetFocusExitSubEndIfIfText5.Text=""ThenMsgBox"请经手人签名！,vbCritical," 提示信息！Text5.SetFocusExitSubEndIf专业资料整理WOR酷式AdodcI.RefreshEndIfDimpmAsStringDimpmsAs

57、StringDimnAsStringDimmAsStringpm=Trim(Text1.Text)精心整理专业资料整理WOR酷式精心整理n=Val(Text3.Text)pms="select*from 库存表 where 品名='"&pm&"'WithForm2EndWithElseEndIfEndIfDimXAsIntegerX=MsgBox("产品入库登记成功,是否继续添加产品2一心!",vbYesNo+vbQuestion+vbDefaultButton1,"提示信息！)IfX=vbNoThen

58、UnloadMe'Form2.ShowElseText1.Text=""L- ；工; 二 ：,Text2.Text=""1/.Text3.Text="" / ,.:.Text4.Text=""' ,二'二二一.:匚：Text5.Text=""Text6.Text="""、二-二户Text7.Text=""Text1.SetFocus. 二/EndIf 一 工 %DimZBAsStringZB="select*fr

59、om ,入库表"'where : 品名='"&PM&"'EndSub : 0:口 "PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()专业资料整理WOR酷式UnloadMe&#