精心整理仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。

由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。

此文可作供初学者们学习交流。

作者联系方式：E-mail最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（1 1）单击“登录”或单击“新用户”添加新用户进入如下主界面：建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体——打开4、编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为汉字）点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下，然后编写代码。

代码如下：PrivateSubExit_Click()EndEndSub数据库的建立VB6.0中可以创建Access数据库。

如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。

如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“MicrosoftAccess”——“Version2.0MDB”输入数据库名，“保存”出现如下图在数据窗口中右击——“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。

精心整理精心整理登录界面窗口的建立最终界面如下：1、Adodc1的添加过程为：单击“工程”——“部件”出现下图所示，选择“控件”下的“MicrosoftADODataControl6.0（OLEDB）”单击“确定”在工具栏中会出现“”图标，单击它并拖动到相应位置即可。

其它元件不在一一说明。

2、本窗体代码如下：PrivateSubCommand1_Click() ' “登录”、“确定”按钮IfCommand1.Caption=" 确定"AndCommand2.Caption=" 取消"Then ' 如果为“确定”则添加新用户IfText1.Text=""Then ' 提示用户输入用户名MsgBox" 请输入用户名！",," 登录信息提示："ExitSubElse 'DimusenameAsString ' 检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from 用户登录信息表where 用户名='"&usename&"'"mandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox" 您输入的用户已存在 !",," 登录提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then ' 提示用户密码不能为空MsgBox" 密码不能为空!",," 登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox" 请再次输入密码!",," 登录提示信息："Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox" 两次输入的密码不一致,请确认!",," 登录提示信息："Text2.Text=""Text3.Text=""Text2.SetFocus精心整理精心整理ExitSubElseMsgBox(" 添加新用户成功，现在您可以登陆系统了！")Label3.Visible=FalseText3.Visible=FalseCommand1.Caption=" 登录"Command2.Caption=" 退出"EndIfElse ' “登录”按钮，用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text) ' 检测用户名是否存在strSelect="select 密码from 用户登录信息表where 用户名='"&strSno&"'"mandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox" 用户名不存在，请重新输入！",," 登录提示信息："Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfForm1.Hide'UnloadMeForm2.Show'MsgBox" 登陆成功！",," 登录提示信息："ElseMsgBox" 密码不正确，请重新输入！",," 登录提示信息："Text2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click() ' “退出”或“取消”按钮IfCommand2.Caption=" 取消"ThenLabel3.Visible=FalseText3.Visible=FalseCommand1.Caption=" 登录"Command2.Caption=" 退出"Text1.Text=""Text2.Text=""Text1.SetFocusElseEnd'UnloadMeEndIfEndSub精心整理精心整理PrivateSubCommand3_Click() ' “新用户”按钮Label3.Visible=TrueText3.Visible=TrueText1.Text=""Text2.Text=""Text3.Text=""Command1.Caption=" 确定"Command2.Caption=" 取消"Text1.SetFocusEndSubPrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer() ' 时间time1控件的time事件代码，用来' 显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width>0Then ' 当标签右边位置大于0时，标签向左移Label4.MoveLabel4.Left-80Else ' 否则标签从头开始Label4.Left=Form1.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form1.ScaleWidthEndIfEndSub主界面窗体如下：代码：PrivateSubAddNew_Click() Frame1.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Caption=" 出库信息"DimpmAsString精心整理精心整理DimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 出库表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_Click()Frame2.Caption=" 出库信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0)n="select*from 出库表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()'Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption=" 出库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 出库表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption=" 出库信息"DimCHKRQAsStringDimnAsStringCHKRQ=InputBox(" 出库日期，格式为：月/日/年如：12/1/2011"," 请输入",0) n="select*from 出库表where 出库日期='"&CHKRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption=" 出库信息" 精心整理精心整理DimZBAsStringZB="select*from 出库表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()IfText1.Text=""Then ' 提示用户输入用户名MsgBox" 请输入用户名！",," 登录信息提示："ExitSubElse 'DimusenameAsString ' 检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from 用户登录信息表where 用户名='"&usename&"'"mandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox" 您输入的用户已存在!",," 登录提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then ' 提示用户密码不能为空MsgBox" 密码不能为空!",," 登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox" 请再次输入密码!",," 登录提示信息："Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox" 两次输入的密码不一致,请确认!",," 登录提示信息："Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseeDimXAsInteger 精心整理精心整理X=MsgBox(" 成功添加新用户，是否要重新登录!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbYesThenUnloadMeForm3.ShowEndIf'MsgBox(" 成功添加新用户！")'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=FalseFrame2.Visible=TrueEndSubPrivateSubCXDL_Click()Form3.Show'UnloadMeEndSubPrivateSubExit_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_Load()UnloadForm1Frame1.Visible=FalseCallInitGrid0Me.Height=MDIForm1.Height-1060 Me.Width=MDIForm1.Width-560Me.Top=MDIForm1.TopMe.Left=MDIForm1.LeftEndSub精心整理精心整理PrivateSubGHCZ_Click()'Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption=" 归还信息"DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 归还表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_Click()Frame2.Caption=" 归还信息"DimJCRAsStringDimnAsStringJCR=InputBox(" 归还人"," 请输入",0)n="select*from 归还表where 归还人='"&JCR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHSJCX_Click()Frame2.Caption=" 归还信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox(" 归还日期，格式为：月/日/年如：12/1/2011"," 请输入",0) n="select*from 归还表where 归还日期='"&JCRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click()Frame2.Caption=" 归还信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0) n="select*from 归还表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理精心整理CallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption=" 归还信息"DimZBAsStringZB="select*from 归还表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.HideForm7.ShowEndSubPrivateSubJCHPMCHX_Click()Frame2.Caption=" 借出信息"DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 借出表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_Click()Frame2.Caption=" 借出信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0) n="select*from 借出表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()Frame2.Caption=" 借出信息"DimJCRAsStringDimnAsStringJCR=InputBox(" 借出人"," 请输入",0) n="select*from 借出表where 借出人='"&JCR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理精心整理CallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption=" 借出信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox(" 借出日期，格式为：月/日/年如：12/1/2011"," 请输入",0) n="select*from 借出表where 借出日期='"&JCRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption=" 借出信息"DimZBAsStringZB="select*from 借出表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_Click()Frame2.Caption=" 归还信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 归还表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption=" 借出信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 借出表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption=" 库存信息" 精心整理精心整理DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)n="select*from 库存表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()'Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Caption=" 入库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox(" 经手人"," 请输入",0)n="select*from 入库表where 经手人='"&JSHR&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption=" 入库信息"DimpmAsStringDimnAsStringpm=InputBox(" 产品名"," 请输入",0)IfLen(pm)>0Thenn="select*from 入库表where 品名='"&pm&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_Click()Frame2.Caption=" 入库信息"DimRKRQAsStringDimnAsStringRKRQ=InputBox(" 入库日期，格式为：月/日/年如：12/1/2011"," 请输入",0) n="select*from 入库表where 入库日期='"&RKRQ&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理精心整理CallInitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption=" 入库信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0)IfLen(XH)>0Thenn="select*from 入库表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption=" 入库信息"DimZBAsStringZB="select*from 入库表"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubTimer1_Timer()IfLabel4.Left+Label4.Width>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.ScaleWidthEndIfIfLabel7.Left+Label7.Width>0Then Label7.MoveLabel7.Left-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSub精心整理精心整理PrivateSubXGMM_Click()'Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption=" 库存信息"DimXHAsStringDimnAsStringXH=InputBox(" 产品型号"," 请输入",0) IfLen(XH)>0Then'AndVal(XH)<>0n="select*from 库存表where 型号='"&XH&"'"mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption=" 库存信息"DimZBAsString'DimNAsString'PM=InputBox(" 产品名"," 请输入",0) ZB="select*from 库存表"'where 品名='"&PM&"'"mandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid0EndSubPrivateSubInitGrid0()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(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=" 成绩"' 设置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()DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text) ' 检测用户名是否存在strSelect="select 密码from 用户登录信息表where 用户名='"&strSno&"'"mandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox" 用户名不存在，请重新输入！",," 登录提示信息："Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfUnloadMeForm2.Show'MsgBox" 登陆成功！",," 登录提示信息："ElseMsgBox" 密码不正确，请重新输入！",," 登录提示信息：" 精心整理精心整理Text2.Text=""Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用户密码界面代码：PrivateSubCommand1_Click()IfTrim(Text1.Text)<>Form2.TextUserNameThenMsgBox" 用户名不正确，请确认！",," 信息提示！"Text1.Text=""Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsStringname=Trim(Text1.Text)names="select*from 用户登录信息表where 用户名='"&name&"'" mandType=adCmdTextAdodc1.RecordSource=namesAdodc1.RefreshIfText2.Text=""ThenMsgBox" 请输入旧密码!",," 信息提示！"Text2.SetFocusExitSubEndIfMsgBox" 旧密码不正确，请确认!",," 信息提示！"Text2.Text=""Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox" 请输入新密码!",," 信息提示！"Text3.SetFocusExitSubEndIfIfText4.Text=""ThenMsgBox" 请再次输入新密码!",," 信息提示！"Text4.SetFocusExitSub精心整理精心整理EndIfIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox" 两次输入的新密码不一致!",," 信息提示！"Text3.Text=""Text4.Text=""Text3.SetFocusExitSubElseMsgBox(" 密码修改成功！")UnloadMe'Form2.ShowEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMe'Form2.ShowEndSub入库管理代码：PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox" “品名”和“型号”不能同时为空，必须输入其中一项 !",," 提示信息!" ExitSubText1.SetFocusElseIfText3.Text=""AndText4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text3.SetFocusExitSubEndIfIfText5.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text5.SetFocusExitSubEndIfAdodc1.Refresh EndIf DimpmAsString DimpmsAsString DimnAsString DimmAsStringpm=Trim(Text1.Text) 精心整理精心整理n=Val(Text3.Text)pms="select*from 库存表where 品名='"&pm&"'"WithForm2EndWithElseEndIfEndIfDimXAsIntegerX=MsgBox(" 产品入库登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMe'Form2.ShowElseText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndIfDimZBAsStringZB="select*from 入库表"'where 品名='"&PM&"'"EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()UnloadMe'Form2.ShowEndSub出库管理代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""Then 精心整理精心整理MsgBox" “品名”和“型号”不能同时为空，必须输入其中一项 !",," 提示信息!" ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text2.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text2.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表where 品名='"&pm&"'"EndIfDimXAsIntegerX=MsgBox(" 产品出库登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMe'Form2.ShowEndIfCombo1.Text=""Combo2.Text=""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()UnloadMe'Form2.ShowEndSubPrivateSubForm_Load()Adodc2.RefreshLoopEndSub借出管理代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""Then MsgBox" “品名”和“型号”不能同时为空，必须输入其中一项 !",," 提示信息!" ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text2.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表where 品名='"&pm&"'"EndIfDimXAsIntegerX=MsgBox(" 产品借出登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMeForm2.ShowEndIf精心整理精心整理Combo1.Text=""Combo2.Text=""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()UnloadMeForm2.ShowEndSubPrivateSubForm_Load()Adodc2.RefreshLoopEndSub归还管理代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then'text1.Text=""AndText2.Text=""Then MsgBox" “品名”和“型号”不能同时为空，必须输入其中一项 !",," 提示信息!" ExitSubElseIfText1.Text=""AndCombo3.Text=""Then'Text4.Text=""ThenMsgBox" 请输入产品“数量”或“单位”之一 !",," 提示信息!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox" 请经手人签名!",vbCritical," 提示信息!"Text2.SetFocusExitSub精心整理精心整理EndIfIfText3.Text=""ThenMsgBox" 请输入归还人姓名!",vbCritical," 提示信息!"Text3.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from 库存表where 品名='"&pm&"'"EndIfDimXAsIntegerX=MsgBox(" 产品归还登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息!") IfX=vbNoThenUnloadMeForm2.ShowEndIfCombo1.Text=""Combo2.Text=""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=""EndSub PrivateSubCommand3_Click() UnloadMeForm2.ShowEndSubPrivateSubForm_Load()精心整理精心整理'DimiAsString'i=0'Adodc2.Refresh'i=i+1'LoopCallpmEndSubPrivateSubpm() DimiAsVariant DimjAsVariant DimkAsVariant DimaAsVariant DimbAsVariant DimcAsVariant DimsAsVariant DimDAsVarianti=0j=0Adodc2.Refreshi=i+1LoopD=Split(a,",")Ifj<iThens=D(2)Combo1.AddItems'k=0'Ifk<jAndD(k)<>D(j)Then'IfD(k)<>D(j)Then'C ombo1.AddItemD(j)'k=k+1'Else'k=k+1'EndIf'EndIfj=j+1EndIfText5.Text=s'a+","+D(2)+D(1)'+""+Val(i)+""+Val(j)+""+Val(k) Text6.Text=j'Combo1.AddItemD(1)EndSub精心整理。