仓库管理系统vb+access+源代码 33页

仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mailluo.shiye@yahoo.com.cnQQ：1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（11）单击“登录”或单击“新用户”添加新用户进入如下主界面： 建立工程1、创建标准EXE2、按“打开” 1、添加MDI窗体——打开2、编辑菜单在空白处右击——点击“菜单编辑器” 在“标题”里输入“系统”，在“名称”里输入“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&"""Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"您输入的用户已存在!",,"登录提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocus ExitSubEndIfEndIfIfText2.Text=""Then"提示用户密码不能为空MsgBox"密码不能为空!",,"登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请再次输入密码!",,"登录提示信息："Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不一致,请确认!",,"登录提示信息："Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseAdodc1.Recordset.AddNew"添加新用户Adodc1.Recordset.Fields("用户名")=Trim(Text1.Text)Adodc1.Recordset.Fields("密码")=Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox("添加新用户成功，现在您可以登陆系统了！")Label3.Visible=FalseText3.Visible=FalseCommand1.Caption="登录"Command2.Caption="退出"EndIfElse"“登录”按钮，用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)"检测用户名是否存在strSelect="select密码from用户登录信息表where用户名=""&strSno&"""Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"用户名不存在，请重新输入！",,"登录提示信息："Text1.Text=""Text2.Text=""Text1.SetFocusExitSub EndIfIfAdodc1.Recordset.Fields("密码")=Trim(Text2.Text)Then"检测密码是否正确Form1.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"UnloadMeEndIfEndSubPrivateSubCommand3_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=False Text3.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=FalseEndSub PrivateSubCHKPMCHX_Click()Frame2.Caption="出库信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0)n="select*from出库表where品名=""&pm&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_Click()Frame2.Caption="出库信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)n="select*from出库表where型号=""&XH&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()"Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption="出库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from出库表where经手人=""&JSHR&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption="出库信息"DimCHKRQAsStringDimnAsStringCHKRQ=InputBox("出库日期，格式为：月/日/年如：12/1/2011","请输入",0)n="select*from出库表where出库日期=""&CHKRQ&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=n Adodc2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption="出库信息"DimZBAsStringZB="select*from出库表"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()IfText1.Text=""Then"提示用户输入用户名MsgBox"请输入用户名！",,"登录信息提示："ExitSubElse"DimusenameAsString"检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from用户登录信息表where用户名=""&usename&"""Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"您输入的用户已存在!",,"登录提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then"提示用户密码不能为空MsgBox"密码不能为空!",,"登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请再次输入密码!",,"登录提示信息："Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThen MsgBox"两次输入的密码不一致,请确认!",,"登录提示信息："Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseAdodc1.Recordset.AddNew"添加新用户Adodc1.Recordset.Fields("用户名")=Trim(Text1.Text)Adodc1.Recordset.Fields("密码")=Trim(Text2.Text)Adodc1.Recordset.UpdateDimXAsIntegerX=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()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4 UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_Load()TextUserName=Trim(Form1.Text1.Text)UnloadForm1Frame1.Visible=FalseCallInitGrid0Me.Height=MDIForm1.Height-1060Me.Width=MDIForm1.Width-560Me.Top=MDIForm1.TopMe.Left=MDIForm1.LeftEndSubPrivateSubGHCZ_Click()"Form2.HideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption="归还信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0)n="select*from归还表where品名=""&pm&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_Click()Frame2.Caption="归还信息"DimJCRAsStringDimnAsStringJCR=InputBox("归还人","请输入",0)n="select*from归还表where归还人=""&JCR&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSub PrivateSubGHSJCX_Click()Frame2.Caption="归还信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox("归还日期，格式为：月/日/年如：12/1/2011","请输入",0)n="select*from归还表where归还日期=""&JCRQ&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click()Frame2.Caption="归还信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)n="select*from归还表where型号=""&XH&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption="归还信息"DimZBAsStringZB="select*from归还表"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()"Form2.HideForm7.ShowEndSubPrivateSubJCHPMCHX_Click()Frame2.Caption="借出信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0) n="select*from借出表where品名=""&pm&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_Click()Frame2.Caption="借出信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)n="select*from借出表where型号=""&XH&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()Frame2.Caption="借出信息"DimJCRAsStringDimnAsStringJCR=InputBox("借出人","请输入",0)n="select*from借出表where借出人=""&JCR&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption="借出信息"DimJCRQAsStringDimnAsStringJCRQ=InputBox("借出日期，格式为：月/日/年如：12/1/2011","请输入",0)n="select*from借出表where借出日期=""&JCRQ&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption="借出信息"DimZBAsStringZB="select*from借出表"Adodc2.CommandType=adCmdText Adodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_Click()Frame2.Caption="归还信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from归还表where经手人=""&JSHR&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption="借出信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from借出表where经手人=""&JSHR&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption="库存信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0)n="select*from库存表where品名=""&pm&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()"Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click() Frame2.Caption="入库信息"DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人","请输入",0)n="select*from入库表where经手人=""&JSHR&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption="入库信息"DimpmAsStringDimnAsStringpm=InputBox("产品名","请输入",0)IfLen(pm)>0Thenn="select*from入库表where品名=""&pm&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_Click()Frame2.Caption="入库信息"DimRKRQAsStringDimnAsStringRKRQ=InputBox("入库日期，格式为：月/日/年如：12/1/2011","请输入",0)n="select*from入库表where入库日期=""&RKRQ&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption="入库信息"DimXHAsStringDimnAsStringXH=InputBox("产品型号","请输入",0)IfLen(XH)>0Thenn="select*from入库表where型号=""&XH&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh EndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption="入库信息"DimZBAsStringZB="select*from入库表"Adodc2.CommandType=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>0ThenLabel7.MoveLabel7.Left-80ElseLabel7.Left=Form2.ScaleWidthEndIfEndSubPrivateSubXGMM_Click()"Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption="库存信息"DimXHAsString DimnAsStringXH=InputBox("产品型号","请输入",0)IfLen(XH)>0Then"AndVal(XH)<>0n="select*from库存表where型号=""&XH&"""Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption="库存信息"DimZBAsString"DimNAsString"PM=InputBox("产品名","请输入",0)ZB="select*from库存表""where品名=""&PM&"""Adodc2.CommandType=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&"""Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"用户名不存在，请重新输入！",,"登录提示信息：" Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields("密码")=Trim(Text2.Text)Then"检测密码是否正确UnloadMeForm2.Show"MsgBox"登陆成功！",,"登录提示信息："ElseMsgBox"密码不正确，请重新输入！",,"登录提示信息："Text2.Text=""Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用户密码界面代码：PrivateSubCommand1_Click()IfTrim(Text1.Text)<>Form2.TextUserNameThenMsgBox"用户名不正确，请确认！",,"信息提示！"Text1.Text=""Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsString name=Trim(Text1.Text)names="select*from用户登录信息表where用户名=""&name&"""Adodc1.CommandType=adCmdTextAdodc1.RecordSource=namesAdodc1.RefreshIfText2.Text=""ThenMsgBox"请输入旧密码!",,"信息提示！"Text2.SetFocusExitSubEndIfIfAdodc1.Recordset.Fields("密码")<>Trim(Text2.Text)ThenMsgBox"旧密码不正确，请确认!",,"信息提示！"Text2.Text=""Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请输入新密码!",,"信息提示！"Text3.SetFocusExitSubEndIfIfText4.Text=""ThenMsgBox"请再次输入新密码!",,"信息提示！"Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox"两次输入的新密码不一致!",,"信息提示！"Text3.Text=""Text4.Text=""Text3.SetFocusExitSubElseAdodc1.Recordset.Fields("密码")=Trim(Text3.Text)Adodc1.Recordset.UpdateMsgBox("密码修改成功！")UnloadMe"Form2.ShowEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMe"Form2.Show EndSub入库管理代码：PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox"“品名”和“型号”不能同时为空，必须输入其中一项!",,"提示信息!"ExitSubText1.SetFocusElseIfText3.Text=""AndText4.Text=""ThenMsgBox"请输入产品“数量”或“单位”之一!",,"提示信息!"Text3.SetFocusExitSubEndIfIfText5.Text=""ThenMsgBox"请经手人签名!",vbCritical,"提示信息!"Text5.SetFocusExitSubEndIfAdodc1.RefreshAdodc1.Recordset.AddNew"添加Adodc1.Recordset.Fields("品名")=Trim(Text1.Text)Adodc1.Recordset.Fields("型号")=Trim(Text2.Text)Adodc1.Recordset.Fields("数量")=Trim(Text3.Text)Adodc1.Recordset.Fields("单位")=Trim(Text4.Text)Adodc1.Recordset.Fields("经手人")=Trim(Text5.Text)Adodc1.Recordset.Fields("入库日期")=DateAdodc1.Recordset.Fields("说明")=Trim(Text7.Text)Adodc1.Recordset.Update EndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Text1.Text)n=Val(Text3.Text)pms="select*from库存表where品名=""&pm&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=pmsForm2.Adodc2.RefreshIfForm2.Adodc2.Recordset.EOFThenWithForm2.Adodc2.Recordset.AddNew.Adodc2.Recordset.Fields("品名")=Trim(Text1.Text).Adodc2.Recordset.Fields("型号")=Trim(Text2.Text).Adodc2.Recordset.Fields("数量")=Trim(Text3.Text).Adodc2.Recordset.Fields("单位")=Trim(Text4.Text).Adodc2.Recordset.Fields("说明")=Trim(Text7.Text).Adodc2.Recordset.UpdateEndWithElsem=Form2.Adodc2.Recordset.Fields("数量").ValueIfForm2.Adodc2.Recordset.Fields("型号")=Trim(Text2.Text)ThenForm2.Adodc2.Recordset.Fields("数量")=Val(m)+Val(n)Form2.Adodc2.Recordset.UpdateEndIfEndIfDimXAsIntegerX=MsgBox("产品入库登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1,"提示信息!")IfX=vbNoThenUnloadMe"Form2.ShowElseText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndIfForm2.Frame2.Caption="入库信息" DimZBAsStringZB="select*from入库表""where品名=""&PM&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=ZBForm2.Adodc2.RefreshEndSubPrivateSubCommand2_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=""ThenMsgBox"“品名”和“型号”不能同时为空，必须输入其中一项!",,"提示信息!"ExitSubElseIfText1.Text=""AndCombo3.Text=""Then"Text4.Text=""ThenMsgBox"请输入产品“数量”或“单位”之一!",,"提示信息!"Text2.SetFocusExitSubEndIf IfText2.Text=""ThenMsgBox"请经手人签名!",vbCritical,"提示信息!"Text2.SetFocusExitSubEndIfAdodc1.RefreshAdodc1.Recordset.AddNew"添加Adodc1.Recordset.Fields("品名")=Trim(Combo1.Text)"Trim(Text1.Text)Adodc1.Recordset.Fields("型号")=Trim(Combo2.Text)"Trim(Text2.Text)Adodc1.Recordset.Fields("数量")=Trim(Text1.Text)Adodc1.Recordset.Fields("单位")=Trim(Combo3.Text)"Trim(Text4.Text)Adodc1.Recordset.Fields("经手人")=Trim(Text2.Text)Adodc1.Recordset.Fields("出库日期")=DateAdodc1.Recordset.Fields("说明")=Trim(Text4.Text)Adodc1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from库存表where品名=""&pm&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=pmsForm2.Adodc2.Refreshm=Form2.Adodc2.Recordset.Fields("数量").ValueIfForm2.Adodc2.Recordset.Fields("型号")=Trim(Combo2.Text)ThenForm2.Adodc2.Recordset.Fields("数量")=Val(m)-Val(n)Form2.Adodc2.Recordset.UpdateEndIfDimXAsIntegerX=MsgBox("产品出库登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1,"提示信息!")IfX=vbNoThenUnloadMe"Form2.ShowEndIfCombo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text="" Form2.Frame2.Caption="出库信息"DimZBAsStringZB="select*from出库表""where品名=""&PM&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=ZBForm2.Adodc2.RefreshEndSubPrivateSubCommand2_Click()Combo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand3_Click()UnloadMe"Form2.ShowEndSubPrivateSubForm_Load()Adodc2.RefreshAdodc2.Recordset.MoveFirstDoUntilAdodc2.Recordset.EOFCombo2.AddItemAdodc2.Recordset.Fields("型号")Combo1.AddItemAdodc2.Recordset.Fields("品名")Combo3.AddItemAdodc2.Recordset.Fields("单位")Adodc2.Recordset.MoveNextLoopEndSub借出管理 代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then"text1.Text=""AndText2.Text=""ThenMsgBox"“品名”和“型号”不能同时为空，必须输入其中一项!",,"提示信息!"ExitSubElseIfText1.Text=""AndCombo3.Text=""Then"Text4.Text=""ThenMsgBox"请输入产品“数量”或“单位”之一!",,"提示信息!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"请经手人签名!",vbCritical,"提示信息!"Text2.SetFocusExitSubEndIfAdodc1.RefreshAdodc1.Recordset.AddNew"添加Adodc1.Recordset.Fields("品名")=Trim(Combo1.Text)"Trim(Text1.Text)Adodc1.Recordset.Fields("型号")=Trim(Combo2.Text)"Trim(Text2.Text)Adodc1.Recordset.Fields("数量")=Trim(Text1.Text)Adodc1.Recordset.Fields("单位")=Trim(Combo3.Text)"Trim(Text4.Text)Adodc1.Recordset.Fields("经手人")=Trim(Text2.Text)Adodc1.Recordset.Fields("借出人")=Trim(Text3.Text)Adodc1.Recordset.Fields("借出日期")=DateAdodc1.Recordset.Fields("说明")=Trim(Text4.Text)Adodc1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from库存表where品名=""&pm&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=pmsForm2.Adodc2.Refreshm=Form2.Adodc2.Recordset.Fields("数量").ValueIfForm2.Adodc2.Recordset.Fields("型号")=Trim(Combo2.Text)ThenForm2.Adodc2.Recordset.Fields("数量")=Val(m)-Val(n)Form2.Adodc2.Recordset.UpdateEndIfDimXAsInteger X=MsgBox("产品借出登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1,"提示信息!")IfX=vbNoThenUnloadMeForm2.ShowEndIfCombo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Form2.Frame2.Caption="借出信息"DimZBAsStringZB="select*from借出表""where品名=""&PM&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=ZBForm2.Adodc2.RefreshEndSubPrivateSubCommand2_Click()Combo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm2.ShowEndSubPrivateSubForm_Load()Adodc2.RefreshAdodc2.Recordset.MoveFirstDoUntilAdodc2.Recordset.EOFCombo1.AddItemAdodc2.Recordset.Fields("品名")Combo2.AddItemAdodc2.Recordset.Fields("型号")Combo3.AddItemAdodc2.Recordset.Fields("单位")Adodc2.Recordset.MoveNextLoopEndSub 归还管理代码：PrivateSubCommand1_Click()IfCombo1.Text=""AndCombo2.Text=""Then"text1.Text=""AndText2.Text=""ThenMsgBox"“品名”和“型号”不能同时为空，必须输入其中一项!",,"提示信息!"ExitSubElseIfText1.Text=""AndCombo3.Text=""Then"Text4.Text=""ThenMsgBox"请输入产品“数量”或“单位”之一!",,"提示信息!"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"请经手人签名!",vbCritical,"提示信息!"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请输入归还人姓名!",vbCritical,"提示信息!"Text3.SetFocusExitSubEndIfAdodc1.RefreshAdodc1.Recordset.AddNew"添加Adodc1.Recordset.Fields("品名")=Trim(Combo1.Text)"Trim(Text1.Text)Adodc1.Recordset.Fields("型号")=Trim(Combo2.Text)"Trim(Text2.Text)Adodc1.Recordset.Fields("数量")=Trim(Text1.Text)Adodc1.Recordset.Fields("单位")=Trim(Combo3.Text)"Trim(Text4.Text)Adodc1.Recordset.Fields("经手人")=Trim(Text2.Text)Adodc1.Recordset.Fields("归还人")=Trim(Text3.Text)Adodc1.Recordset.Fields("归还日期")=DateAdodc1.Recordset.Fields("说明")=Trim(Text4.Text)Adodc1.Recordset.UpdateEndIf DimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms="select*from库存表where品名=""&pm&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=pmsForm2.Adodc2.Refreshm=Form2.Adodc2.Recordset.Fields("数量").ValueIfForm2.Adodc2.Recordset.Fields("型号")=Trim(Combo2.Text)ThenForm2.Adodc2.Recordset.Fields("数量")=Val(m)+Val(n)Form2.Adodc2.Recordset.UpdateEndIfDimXAsIntegerX=MsgBox("产品归还登记成功，是否继续添加产品!",vbYesNo+vbQuestion+vbDefaultButton1,"提示信息!")IfX=vbNoThenUnloadMeForm2.ShowEndIfCombo1.Text=""Combo2.Text=""Combo3.Text=""Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Form2.Frame2.Caption="归还信息"DimZBAsStringZB="select*from归还表""where品名=""&PM&"""Form2.Adodc2.CommandType=adCmdTextForm2.Adodc2.RecordSource=ZBForm2.Adodc2.RefreshEndSubPrivateSubCommand2_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"Adodc2.Recordset.MoveFirst"DoUntilAdodc2.Recordset.EOF"Combo1.AddItemAdodc2.Recordset.Fields("品名")"Combo2.AddItemAdodc2.Recordset.Fields("型号")"Combo3.AddItemAdodc2.Recordset.Fields("单位")"Adodc2.Recordset.MoveNext"i=i+1"LoopCallpmEndSubPrivateSubpm()DimiAsVariantDimjAsVariantDimkAsVariantDimaAsVariantDimbAsVariantDimcAsVariantDimsAsVariantDimDAsVarianti=0j=0Adodc2.RefreshAdodc2.Recordset.MoveFirstDoUntilAdodc2.Recordset.EOFa=a+","+Adodc2.Recordset.Fields("品名")b=b+","+Adodc2.Recordset.Fields("型号")b=b+","+Adodc2.Recordset.Fields("单位")i=i+1Adodc2.Recordset.MoveNextLoopD=Split(a,",")IfjD(j)Then "IfD(k)<>D(j)Then"Combo1.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