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

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

2、&”“确定”退到MDI界面点击“系统”一一“退出”如下，然后编写代码。代码如下：Private Sub Exit_Click（） EndEnd Sub数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”“新建”" Microsoft Access”“Version 2.0 MDB'输入数据库名，“保存”出现如下图在数据窗口中右击一一“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。精心整理登录界面窗口的建立最终

3、界面如下：1、Adodcl的添加过程为：单击“工程”一一“部件”出现下图所示，选择“控件”下的“MicrosoftADO Data Control 6.0 (OLEDB ”单击“确定”在工具栏中会出现“旷”图标，单击它并拖动到相应位置即可。其它元件不在一一说明。2、本窗体代码如下：Private Sub Command1_Click()'"登录”、“确定”按钮If Command1.Caption ="确定"And Command2.Caption =" 取消"Then'如果为“确定”则添加新用户If Text1.Text =

4、"" Then'提示用户输入用户名MsgBox ”请输入用户名！"一" 登录信息提示："Exit SubElse'Dim usename As String'检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = "select * from用户登录信息表 where 用户名='"& usename & ""'Adodc1.CommandType = adCmdTextAdodc1.

5、RecordSource = strSAdodc1.RefreshMsgBox " 您输入的用户已存在！"，”登录提示信息："Text1.Text =""Text2.Text =""Text3.Text =""Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = "" Then'提示用户密码不能为空MsgBox " 密码不能为空！"" 登录提示信息："Text2.SetFocusExit Su

6、bEnd IfIf Text3.Text = "" ThenMsgBox "请再次输入密码!","登录提示信息："Text3.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致，请确认!","登录提示信息："Text2.Text =""Text3.Text =""Text2.SetFocus精心整理精心整理Exit Sub精心整理ElseMsgBox

7、(“添加新用户成功，现在您可以登陆系统了!Label3.Visible = FalseText3.Visible = FalseCommandl.Caption ="登录"Command2.Caption ="退出"End IfElse'Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text)'strSelect = "select密码from用户登录信息表Adodc1.CommandType = adCmdTextAdodc1.RecordSour

8、ce = strSelect")“登录”按钮，用户登录检测用户名是否存在where 用户名='"& strSno & "川Adodc1.RefreshMsgBox”用户名不存在，请重新输入！"一"登录提示信息:Text1.Text =""Text2.Text =""Textl.SetFocusExit SubEnd IfForml.Hide'Unload MeForm2.Show'MsgBox "登陆成功！"一" 登录提示信息：&quo

9、t;ElseMsgBox "密码不正确，请重新输入！"一"登录提示信息：Text2.Text =""Text2.SetFocusEnd If?人。/“二一、八 End IfEnd Sub .:“退出”或“取消”按钮Private Sub Command2_Click()'If Command2.Caption ="取消"ThenLabel3.Visible = FalseText3.Visible = FalseCommandl.Caption ="登录"Command2.Caption =&qu

10、ot;退出"Textl.Text =""Text2.Text =""Textl.SetFocusElseEnd 'Unload MeEnd IfEnd Sub精心整理Private Sub Command3_Click()'“新用户”按钮Label3.Visible = TrueText3.Visible = TrueTextl.Text =""Text2.Text =""Text3.Text =""Commandl.Caption =" 确定"Co

11、mmand2.Caption =" 取消"Textl.SetFocusEnd SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = FalseEnd SubPrivate

12、 Sub Form_Load()Label3.Visible = FalseText3.Visible = FalseEnd Sub时间timel控件的time事件代码，用来显示向左移动的欢迎字幕当标签右边位置大于 0时，标签向左移否则标签从头开始Private Sub Timer1_Timer()If Label4.Left + Label4.Width > 0 ThenLabel4.Move Label4.Left - 80ElseLabel4.Left = Forml.ScaleWidthEnd IfIf Label5.Left + Label5.Width > 0 Then

13、Label5.Move Label5.Left - 80ElseLabel5.Left = Forml.ScaleWidthEnd IfEnd Sub .:主界面窗体如下：代码：Private Sub AddNew_Click()Framel.Visible = TrueFrame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click()Frame2.Caption =" 出库信息Dim pm As String精心整理Dim n As Stringpm = InputBox(" 产品名","请输入"

14、;,0)n = "select * from 出库表 where 品名='"& pm & "切Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption ="出库信息"Dim XH As StringDim n As StringXH = InputBox(" 产品型号"," 请输入"

15、;,0)n = "select * from 出库表 where 型号='"& XH & "川Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd SubPrivate Sub CKCZ_Click()'Form2.HideForm6.ShowEnd SubPrivate Sub CKJSHR_Click()Frame2.Caption ="出库信息"Dim JSHR As StringDim n As StringJSHR

16、= InputBox(" 经手人"，"请输入",0)n = "select * from 出库表 where 经手人='"& JSHR & "”'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGridlEnd Sub.:Private Sub CKSHJ_Click()Frame2.Caption ="出库信息"Dim CHKRQ As StringDim n As S

17、tringCHKRQ = InputBox("出库日期，格式为：月/日/年 如：12/1/2011","请输入",0)n = "select * from 出库表 where 出库日期='"& CHKRQ & "川Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKZCX_Click()Frame2.Caption ="出库信息"精

18、心整理精心整理Dim ZB As StringZB = "select * from 出库表"Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Command1_Click()If Text1.Text = ""Then'提示用户输入用户名MsgBox "请输入用户名！"一"登录信息提示："Exit SubElse'Dim usename As St

19、ring'检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = "select * from用户登录信息表 where 用户名="'& usename & ""'Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshMsgBox "您输入的用户已存在 匚，”登录提示信息："Text1.Text =""Text2.Text

20、=""Text3.Text =""Text1.SetFocusExit Sub End IfEnd IfIf Text2.Text = "" Then'提示用户密码不能为空MsgBox " 密码不能为空！"，"登录提示信息："Text2.SetFocusExit Sub_ 7 ：!J:|End IfIf Text3.Text = "" Then,:MsgBox "请再次输入密码!","登录提示信息："Text3.SetFocus

21、 Exit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox "两次输入的密码不一致，请确认!","登录提示信息："Text2.Text =""Text3.Text =""Text2.SetFocusExit SubElse e精心整理X = MsgBox("成功添加新用户，是否要重新登录！”, vbYesNo + vbQuestion + vbDefaultButtonl,“提示信息！。If X = vbYes ThenUnload MeForm

22、3.ShowEnd If'MsgBox ("成功添加新用户！")'Label3.Visible = False'Text3.Visible = False'Command1.Caption ="登录"'Command2.Caption ="退出"End IfFrame1.Visible = FalseFrame2.Visible = TrueText1.Text =""Text2.Text ="小Text3.Text =""'Form3.

23、ShowEnd SubPrivate Sub Command2_Click()Frame1.Visible = FalseFrame2.Visible = TrueEnd SubPrivate Sub CXDL_Click()Form3.Show'Unload MeEnd SubPrivate Sub Exit_Click()EndUnload Form1Unload Form2Unload Form3Unload Form4Unload Form5 .:Unload Form6Unload Form7Unload Form8End SubPrivate Sub Form_Load()

24、Unload Form1Frame1.Visible = FalseCall InitGrid0Me.Height = MDIForm1.Height - 1060Me.Width = MDIForm1.Width - 560Me.Top = MDIForm1.TopMe.Left = MDIForm1.LeftEnd Sub精心整理Private Sub GHCZ_Click()'Form2.HideForm8.ShowEnd SubPrivate Sub GHPMCX_Click()Frame2.Caption ="归还信息"Dim pm As StringDi

25、m n As Stringpm = InputBox(" 产品名","请输入",0)n = "select * from 归还表 where 品名='"& pm & "“'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHRCX_Click()Frame2.Caption ="归还信息"Dim JCR As StringD

26、im n As StringJCR = InputBox("归还人","请输入",0)n = "select * from 归还表 where 归还人='"& JCR & "”'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHSJCX_Click()Frame2.Caption ="归还信息"Dim JCRQ As St

27、ringDim n As StringJCRQ = InputBox(" 归还日期，格式为：月/日/年如：12/1/2011","请输入",0)_ Y 1 .：；*：)” 一:" JIn = "select * from 归还表 where 归还日期='"& JCRQ & "川Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub GHXHCX_Cl

28、ick()Frame2.Caption ="归还信息"Dim XH As StringDim n As StringXH = InputBox(" 产品型号"," 请输入",0)n = "select * from 归还表 where 型号='"& XH & "“'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.Refresh精心整理精心整理Call InitGrid2End SubPrivate Su

29、b GHZCX_Click()Frame2.Caption =" 归还信息"Dim ZB As StringZB = "select * from 归还表"Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCCZ_Click()'Form2.HideForm7.ShowEnd SubPrivate Sub JCHPMCHX_Click()Frame2.Caption =" 借出信息&q

30、uot;Dim pm As StringDim n As Stringpm = InputBox(" 产品名","请输入",0)n = "select * from 借出表 where 品名='"& pm & "切Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCHXHCHX_Click()Frame2.Caption =" 借出信息&qu

31、ot;Dim XH As StringDim n As StringXH = InputBox("产品型号","请输入",0) 八 In = "select * from 借出表 where 型号='"& XH & "川Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCRCX_Click()Frame2.Caption =" 借出信息&qu

32、ot;Dim JCR As StringDim n As StringJCR = InputBox(" 借出人","请输入",0)n = "select * from 借出表 where 借出人='"& JCR & ""'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd SubPrivate Sub JCSHJCX_Click()Frame2.Caption ="借出信息"

33、Dim JCRQ As StringDim n As StringJCRQ = InputBox(" 借出日期，格式为：月/日/年如:12/1/2011","请输入",0)n = "select * from 借出表 where 借出日期='"& JCRQ & ""'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub JCZCX_Clic

34、k()Frame2.Caption ="借出信息"Dim ZB As StringZB = "select * from 借出表"Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.Refresh. 、Call InitGrid2End SubPrivate Sub JSHRCHX_Click()Frame2.Caption ="归还信息"Dim JSHR As StringDim n As StringJSHR = InputBox(" 经手人"

35、;，"请输入",0)n = "select * from 归还表 where 经手人='"& JSHR & "”'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.Refresh_ Y(，.八Call InitGrid2End Sub.:Private Sub JSHRCX_Click()Frame2.Caption ="借出信息"Dim JSHR As StringDim n As StringJSHR = InputBo

36、x(" 经手人"，"请输入",0)n = "select * from 借出表 where 经手人='"& JSHR & "”'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid2End SubPrivate Sub PMCX_Click()Frame2.Caption ="库存信息精心整理精心整理Dim pm As StringDim n As Stringpm = Inp

37、utBox(" 产品名","请输入",0)n = "select * from 库存表 where 品名='"& pm & "切Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid0End SubPrivate Sub RKCZ_Click()'Form2.HideForm5.ShowEnd SubPrivate Sub RKJSHR_Click()Frame2.Caption =&qu

38、ot;入库信息"Dim JSHR As StringDim n As StringJSHR = InputBox(" 经手人"，"请输入",0)n = "select * from 入库表 where 经手人='"& JSHR & ""'Adodc2.CommandType = adCmdText尸、;、Adodc2.RecordSource = nAdodc2.RefreshCall InitGridlEnd SubPrivate Sub RKPMCHX_Click()F

39、rame2.Caption ="入库信息"Dim pm As StringDim n As Stringpm = InputBox(" 产品名","请输入",0)If Len(pm) > 0 Thenn = "select * from 入库表 where 品名='"& pm & "mY. iyJ、八、Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGridlE

40、nd SubPrivate Sub RKSHJ_Click()Frame2.Caption ="入库信息"Dim RKRQ As StringDim n As StringRKRQ = InputBox(" 入库日期，格式为：月/日/年如:12/1/2011","请输入",0)n = "select * from 入库表 where 入库日期='"& RKRQ & "“'Adodc2.CommandType = adCmdTextAdodc2.RecordSource =

41、nAdodc2.Refresh精心整理精心整理Call InitGrid2End SubPrivate Sub RKXHCHX_Click()Frame2.Caption ="入库信息"Dim XH As StringDim n As StringXH = InputBox(" 产品型号"," 请输入",0)If Len(XH) > 0 Thenn = "select * from 入库表 where 型号='"& XH & "”'Adodc2.CommandType

42、 = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()Frame2.Caption ="入库信息"Dim ZB As StringZB = "select * from 入库表"Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGridlEnd SubPrivate Sub Timer1_Timer()If

43、 Label4.Left + Label4.Width > 0 Then'当标签右边位置大于 0时，标签向左移Label4.Move Label4.Left - 80Else'否则标签从头开始Label4.Left = Form2.ScaleWidthEnd IfIf Label5.Left + Label5.Width > 0 ThenLabel5.Move Label5.Left - 80Else.:Label5.Left = Form2.ScaleWidthEnd IfIf Label6.Left + Label6.Width > 0 ThenLabel

44、6.Move Label6.Left - 80ElseLabel6.Left = Form2.ScaleWidthEnd IfIf Label7.Left + Label7.Width > 0 ThenLabel7.Move Label7.Left - 80ElseLabel7.Left = Form2.ScaleWidthEnd IfEnd Sub精心整理精心整理Private Sub XGMM_Click()'Form2.HideForm4.ShowEnd SubPrivate Sub XHCX_Click()Frame2.Caption =" 库存信息"

45、Dim XH As StringDim n As StringXH = InputBox(" 产品型号","请输入",0)If Len(XH) > 0 Then 'And Val(XH) <> 0n = "select * from 库存表 where 型号='"& XH & ""'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid0En

46、d SubPrivate Sub ZB_Click()Frame2.Caption =" 库存信息"Dim ZB As String'Dim N As String'PM = InputBox(" 产品名","请输入",0)ZB = "select * from 库存表"'where 品名='"& PM & ""'Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc

47、2.RefreshCall InitGrid0End SubPrivate Sub InitGrid0()With DataGrid1.Columns(0).Width = 1600、y ：1七d .Columns(1).Width = 2200.Columns(2).Width = 2200.Columns(3).Width = 1000.Columns(4).Width = 1000.Columns(5).Width = 4000End WithEnd SubPrivate Sub InitGrid1()With DataGrid1.Columns(0).Width = 800.Colum

48、ns(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 = 4000End WithEnd SubPrivate Sub InitGrid2()With DataGrid1'.Columns(0).Caption ="学号"'.Columns(1).Caption ="课程名"'

49、;.Columns(2).Caption ="学分"'.Columns(3).Caption ="成绩"'设置DtgCond的歹U宽.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 =

50、 4000End WithEnd Sub用户重新登录界面代码：Private Sub Command1_Click()Dim strSno As StringDim strSelect As String检测用户名是否存在strSno = Trim(Text1.Text)'strSelect = "select密码 from 用户登录信息表 where 用户名='"& strSno & "“'Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1

51、.RefreshMsgBox "用户名不存在，请重新输入！"一"登录提示信息："Text1.Text =""Text2.Text =""Text1.SetFocusExit SubEnd IfUnload MeForm2.Show'MsgBox "登陆成功！","登录提示信息："ElseMsgBox " 密码不正确，请重新输入！“，”登录提示信息：”精心整理精心整理Text2.Text =""Text2.SetFocusEnd IfEnd

52、 SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd Sub修改用户密码界面代码：Private Sub Command1_Click()If Trim(Text1.Text) <> Form2.TextUserName ThenMsgBox"用户名不正确，请确认！"一"信息提示！"Text1.Text =""Text1.SetFocusExit SubElseDim name As StringDim names As Stringname = Trim(Text1

53、.Text)names = "select * from用户登录信息表 where 用户名='"& name & ""'Adodcl.CommandType = adCmdTextAdodcI.RecordSource = namesAdodcI.RefreshIf Text2.Text = "" ThenMsgBox " 请输入旧密码 匚，" 信息提示！"Text2.SetFocusExit SubEnd IfMsgBox "旧密码不正确，请确认 匚，"

54、;信息提示！"Text2.Text =""Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请输入新密码匚，"信息提示！"Text3.SetFocusExit SubEnd IfIf Text4.Text = "" ThenMsgBox "请再次输入新密码！"，”信息提示！"Text4.SetFocusExit Sub精心整理精心整理End IfIf Trim(Text3.Text) <>

55、; Trim(Text4.Text) ThenMsgBox "两次输入的新密码不一致匚，”信息提示!Text3.Text =""Text4.Text =""Text3.SetFocusExit SubElseMsgBox ("密码修改成功！")Unload Me'Form2.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload Me'Form2.ShowEnd Sub入库管理代码：Private Sub Command1_Click()If Tex

56、t1.Text = "" And Text2.Text = "" Then提示信息MsgBox"“品名”和“型号”不能同时为空，必须输入其中一项 !",Exit SubText1.SetFocusElseIf Text3.Text = "" And Text4.Text = "" ThenMsgBox " 请输入产品“数量”或“单位"之一 匚，"提示信息Text3.SetFocusExit SubEnd IfIf Text5.Text = ""

57、ThenMsgBox " 请经手人签名！", vbCritical,"提示信息！"Text5.SetFocusExit SubEnd IfAdodc1.RefreshEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Text1.Text)精心整理n = Val(Text3.Text)pms = "select * from 库存表 where 品名='"& pm & ""'Wi

58、th Form2End WithElseEnd IfEnd IfDim X As IntegerX = MsgBox(" 产品入库登记成功，是否继续添加产品！”, vbYesNo + vbQuestion + vbDefaultButtonl,“ 提示信息！”)If X = vbNo ThenUnload Me'Form2.ShowElseTextl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""

59、Text6.Text =""Text7.Text =""Textl.SetFocusEnd IfDim ZB As StringZB = "select * from 入库表"'where 品名='"& PM & "mEnd SubPrivate Sub Command2_Click()Textl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text

60、5.Text =""_ " y、o, j ,个 iText6.Text =""Text7.Text ="".:Textl.SetFocusEnd SubPrivate Sub Command3_Click()Unload Me'Form2.ShowEnd Sub出库管理代码:Private Sub Command1_Click()If Combol.Text = "" And Combo2.Text = "" Then ' textl.Text = "&quo

61、t; And Text2.Text = "" Then精心整理MsgBox” “品名”和“型号”不能同时为空，必须输入其中一项匚，”提示信息！”Exit SubElseIf Textl.Text = "" And Combo3.Text = "" Then ' Text4.Text = ""ThenMsgBox"请输入产品“数量”或“单位"之一 匚，"提示信息！"Text2.SetFocusExit SubEnd IfIf Text2.Text = "&qu

62、ot;ThenMsgBox "请经手人签名!", vbCritical,"提示信息！"Text2.SetFocusExit SubEnd IfAdodc1.RefreshEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trim(Combo1.Text)n = Val(Text1.Text). J-“pms = "select * from 库存表 where 品名='"& pm & ""

63、9;End IfDim X As IntegerX = MsgBox(" 产品出库登记成功，是否继续添加产品匚vbYesNo + vbQuestion + vbDefaultButtonl," 提示信息！")If X = vbNo ThenUnload Me'Form2.ShowEnd IfCombol.Text =""Combo2.Text =""Combo3.Text =""Textl.Text ="".:Text2.Text =""Text3.Text

64、 =""Text4.Text =""Dim ZB As StringZB = "select * from 出库表"'where 品名='"& PM & "mEnd SubPrivate Sub Command2_Click()Combol.Text =""Combo2.Text =""Combo3.Text =""Textl.Text =""Text2.Text =""Text3.T

65、ext =""精心整理精心整理Text4.Text =""End SubPrivate Sub Command3_Click()Unload Me'Form2.ShowEnd SubPrivate Sub Form_Load()Adodc2.RefreshLoopEnd Sub借由管理代码：Private Sub Command1_Click()If Combo1.Text = "" And Combo2.Text = "" Then ' text1.Text = "" And Text2.Text = "" ThenMsgBox" “品名”和“型号”不能同时为空，必须输入其中一项！"，”提示信息！"Exit SubEls