还剩31页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
仓库管理系统项目的建立这是本人利用闲暇之余在VB
6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程由于本人是个初学者,里面存在很多不足之处望得到高手们的指导此文可作供初学者们学习交流作者联系方式E-mailluo.shiye@yahoo.com.cnmailto:luo.shiye@yahoo.com.cnQQ1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码
(11)单击“登录”或单击“新用户”添加新用户进入如下主界面建立工程
1、创建标准EXE
2、按“打开”
3、添加MDI窗体——打开
4、编辑菜单在空白处右击——点击“菜单编辑器”在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“”“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码代码如下PrivateSubExit_ClickEndEndSub数据库的建立VB
6.0中可以创建Access数据库如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”——“新建”——“MicrosoftAccess”——“Version
2.0MDB”输入数据库名,“保存”出现如下图在数据窗口中右击——“新建表”,最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍登录界面窗口的建立最终界面如下
1、Adodc1的添加过程为单击“工程”——“部件”出现下图所示,选择“控件”下的“MicrosoftADODataControl
6.0(OLEDB)”单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可其它元件不在一一说明
2、本窗体代码如下PrivateSubCommand1_Click“登录”、“确定”按钮IfCommand
1.Caption=确定AndCommand
2.Caption=取消Then如果为“确定”则添加新用户IfText
1.Text=Then提示用户输入用户名MsgBox请输入用户名!登录信息提示ExitSubElseDimusenameAsString检测用户名是否已经存在DimstrSAsStringusename=TrimText
1.TextstrS=select*from用户登录信息表where用户名=usenameAdodc
1.CommandType=adCmdTextAdodc
1.RecordSource=strSAdodc
1.RefreshIfAdodc
1.Recordset.EOF=FalseThenMsgBox您输入的用户已存在!登录提示信息Text
1.Text=Text
2.Text=Text
3.Text=Text
1.SetFocusExitSubEndIfEndIfIfText
2.Text=Then提示用户密码不能为空MsgBox密码不能为空!登录提示信息Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请再次输入密码!登录提示信息Text
3.SetFocusExitSubEndIfIfText
2.TextText
3.TextThenMsgBox两次输入的密码不一致请确认!登录提示信息Text
2.Text=Text
3.Text=Text
2.SetFocusExitSubElseAdodc
1.Recordset.AddNew添加新用户Adodc
1.Recordset.Fields用户名=TrimText
1.TextAdodc
1.Recordset.Fields密码=TrimText
2.TextAdodc
1.Recordset.UpdateMsgBox添加新用户成功,现在您可以登陆系统了!Label
3.Visible=FalseText
3.Visible=FalseCommand
1.Caption=登录Command
2.Caption=退出EndIfElse“登录”按钮,用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=TrimText
1.Text检测用户名是否存在strSelect=select密码from用户登录信息表where用户名=strSnoAdodc
1.CommandType=adCmdTextAdodc
1.RecordSource=strSelectAdodc
1.RefreshIfAdodc
1.Recordset.EOF=TrueThenMsgBox用户名不存在,请重新输入!登录提示信息Text
1.Text=Text
2.Text=Text
1.SetFocusExitSubEndIfIfAdodc
1.Recordset.Fields密码=TrimText
2.TextThen检测密码是否正确Form
1.HideUnloadMeForm
2.ShowMsgBox登陆成功!登录提示信息ElseMsgBox密码不正确,请重新输入!登录提示信息Text
2.Text=Text
2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click“退出”或“取消”按钮IfCommand
2.Caption=取消ThenLabel
3.Visible=FalseText
3.Visible=FalseCommand
1.Caption=登录Command
2.Caption=退出Text
1.Text=Text
2.Text=Text
1.SetFocusElseEndUnloadMeEndIfEndSubPrivateSubCommand3_Click“新用户”按钮Label
3.Visible=TrueText
3.Visible=TrueText
1.Text=Text
2.Text=Text
3.Text=Command
1.Caption=确定Command
2.Caption=取消Text
1.SetFocusEndSubPrivateSubCommand3_MouseDownButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleLabel
6.Visible=TrueEndSubPrivateSubCommand3_MouseUpButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleLabel
6.Visible=FalseEndSubPrivateSubForm_LoadLabel
3.Visible=FalseText
3.Visible=FalseEndSubPrivateSubTimer1_Timer时间time1控件的time事件代码,用来显示向左移动的欢迎字幕IfLabel
4.Left+Label
4.Width0Then当标签右边位置大于0时,标签向左移Label
4.MoveLabel
4.Left-80Else否则标签从头开始Label
4.Left=Form
1.ScaleWidthEndIfIfLabel
5.Left+Label
5.Width0ThenLabel
5.MoveLabel
5.Left-80ElseLabel
5.Left=Form
1.ScaleWidthEndIfEndSub主界面窗体如下代码PrivateSubAddNew_ClickFrame
1.Visible=TrueFrame
2.Visible=FalseEndSubPrivateSubCHKPMCHX_ClickFrame
2.Caption=出库信息DimpmAsStringDimnAsStringpm=InputBox产品名请输入0n=select*from出库表where品名=pmAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_ClickFrame
2.Caption=出库信息DimXHAsStringDimnAsStringXH=InputBox产品型号请输入0n=select*from出库表where型号=XHAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshEndSubPrivateSubCKCZ_ClickForm
2.HideForm
6.ShowEndSubPrivateSubCKJSHR_ClickFrame
2.Caption=出库信息DimJSHRAsStringDimnAsStringJSHR=InputBox经手人请输入0n=select*from出库表where经手人=JSHRAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_ClickFrame
2.Caption=出库信息DimCHKRQAsStringDimnAsStringCHKRQ=InputBox出库日期,格式为月/日/年如12/1/2011请输入0n=select*from出库表where出库日期=CHKRQAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_ClickFrame
2.Caption=出库信息DimZBAsStringZB=select*from出库表Adodc
2.CommandType=adCmdTextAdodc
2.RecordSource=ZBAdodc
2.RefreshCallInitGrid1EndSubPrivateSubCommand1_ClickIfText
1.Text=Then提示用户输入用户名MsgBox请输入用户名!登录信息提示ExitSubElseDimusenameAsString检测用户名是否已经存在DimstrSAsStringusename=TrimText
1.TextstrS=select*from用户登录信息表where用户名=usenameAdodc
1.CommandType=adCmdTextAdodc
1.RecordSource=strSAdodc
1.RefreshIfAdodc
1.Recordset.EOF=FalseThenMsgBox您输入的用户已存在!登录提示信息Text
1.Text=Text
2.Text=Text
3.Text=Text
1.SetFocusExitSubEndIfEndIfIfText
2.Text=Then提示用户密码不能为空MsgBox密码不能为空!登录提示信息Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请再次输入密码!登录提示信息Text
3.SetFocusExitSubEndIfIfText
2.TextText
3.TextThenMsgBox两次输入的密码不一致请确认!登录提示信息Text
2.Text=Text
3.Text=Text
2.SetFocusExitSubElseAdodc
1.Recordset.AddNew添加新用户Adodc
1.Recordset.Fields用户名=TrimText
1.TextAdodc
1.Recordset.Fields密码=TrimText
2.TextAdodc
1.Recordset.UpdateDimXAsIntegerX=MsgBox成功添加新用户,是否要重新登录!vbYesNo+vbQuestion+vbDefaultButton1提示信息!IfX=vbYesThenUnloadMeForm
3.ShowEndIfMsgBox成功添加新用户!Label
3.Visible=FalseText
3.Visible=FalseCommand
1.Caption=登录Command
2.Caption=退出EndIfFrame
1.Visible=FalseFrame
2.Visible=TrueText
1.Text=Text
2.Text=Text
3.Text=Form
3.ShowEndSubPrivateSubCommand2_ClickFrame
1.Visible=FalseFrame
2.Visible=TrueEndSubPrivateSubCXDL_ClickForm
3.ShowUnloadMeEndSubPrivateSubExit_ClickEndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPrivateSubForm_LoadTextUserName=TrimForm
1.Text
1.TextUnloadForm1Frame
1.Visible=FalseCallInitGrid0Me.Height=MDIForm
1.Height-1060Me.Width=MDIForm
1.Width-560Me.Top=MDIForm
1.TopMe.Left=MDIForm
1.LeftEndSubPrivateSubGHCZ_ClickForm
2.HideForm
8.ShowEndSubPrivateSubGHPMCX_ClickFrame
2.Caption=归还信息DimpmAsStringDimnAsStringpm=InputBox产品名请输入0n=select*from归还表where品名=pmAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_ClickFrame
2.Caption=归还信息DimJCRAsStringDimnAsStringJCR=InputBox归还人请输入0n=select*from归还表where归还人=JCRAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubGHSJCX_ClickFrame
2.Caption=归还信息DimJCRQAsStringDimnAsStringJCRQ=InputBox归还日期,格式为月/日/年如12/1/2011请输入0n=select*from归还表where归还日期=JCRQAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_ClickFrame
2.Caption=归还信息DimXHAsStringDimnAsStringXH=InputBox产品型号请输入0n=select*from归还表where型号=XHAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubGHZCX_ClickFrame
2.Caption=归还信息DimZBAsStringZB=select*from归还表Adodc
2.CommandType=adCmdTextAdodc
2.RecordSource=ZBAdodc
2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_ClickForm
2.HideForm
7.ShowEndSubPrivateSubJCHPMCHX_ClickFrame
2.Caption=借出信息DimpmAsStringDimnAsStringpm=InputBox产品名请输入0n=select*from借出表where品名=pmAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_ClickFrame
2.Caption=借出信息DimXHAsStringDimnAsStringXH=InputBox产品型号请输入0n=select*from借出表where型号=XHAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_ClickFrame
2.Caption=借出信息DimJCRAsStringDimnAsStringJCR=InputBox借出人请输入0n=select*from借出表where借出人=JCRAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubJCSHJCX_ClickFrame
2.Caption=借出信息DimJCRQAsStringDimnAsStringJCRQ=InputBox借出日期,格式为月/日/年如12/1/2011请输入0n=select*from借出表where借出日期=JCRQAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_ClickFrame
2.Caption=借出信息DimZBAsStringZB=select*from借出表Adodc
2.CommandType=adCmdTextAdodc
2.RecordSource=ZBAdodc
2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_ClickFrame
2.Caption=归还信息DimJSHRAsStringDimnAsStringJSHR=InputBox经手人请输入0n=select*from归还表where经手人=JSHRAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_ClickFrame
2.Caption=借出信息DimJSHRAsStringDimnAsStringJSHR=InputBox经手人请输入0n=select*from借出表where经手人=JSHRAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid2EndSubPrivateSubPMCX_ClickFrame
2.Caption=库存信息DimpmAsStringDimnAsStringpm=InputBox产品名请输入0n=select*from库存表where品名=pmAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_ClickForm
2.HideForm
5.ShowEndSubPrivateSubRKJSHR_ClickFrame
2.Caption=入库信息DimJSHRAsStringDimnAsStringJSHR=InputBox经手人请输入0n=select*from入库表where经手人=JSHRAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_ClickFrame
2.Caption=入库信息DimpmAsStringDimnAsStringpm=InputBox产品名请输入0IfLenpm0Thenn=select*from入库表where品名=pmAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_ClickFrame
2.Caption=入库信息DimRKRQAsStringDimnAsStringRKRQ=InputBox入库日期,格式为月/日/年如12/1/2011请输入0n=select*from入库表where入库日期=RKRQAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshCallInitGrid1EndSubPrivateSubRKXHCHX_ClickFrame
2.Caption=入库信息DimXHAsStringDimnAsStringXH=InputBox产品型号请输入0IfLenXH0Thenn=select*from入库表where型号=XHAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_ClickFrame
2.Caption=入库信息DimZBAsStringZB=select*from入库表Adodc
2.CommandType=adCmdTextAdodc
2.RecordSource=ZBAdodc
2.RefreshCallInitGrid1EndSubPrivateSubTimer1_TimerIfLabel
4.Left+Label
4.Width0Then当标签右边位置大于0时,标签向左移Label
4.MoveLabel
4.Left-80Else否则标签从头开始Label
4.Left=Form
2.ScaleWidthEndIfIfLabel
5.Left+Label
5.Width0ThenLabel
5.MoveLabel
5.Left-80ElseLabel
5.Left=Form
2.ScaleWidthEndIfIfLabel
6.Left+Label
6.Width0ThenLabel
6.MoveLabel
6.Left-80ElseLabel
6.Left=Form
2.ScaleWidthEndIfIfLabel
7.Left+Label
7.Width0ThenLabel
7.MoveLabel
7.Left-80ElseLabel
7.Left=Form
2.ScaleWidthEndIfEndSubPrivateSubXGMM_ClickForm
2.HideForm
4.ShowEndSubPrivateSubXHCX_ClickFrame
2.Caption=库存信息DimXHAsStringDimnAsStringXH=InputBox产品型号请输入0IfLenXH0ThenAndValXH0n=select*from库存表where型号=XHAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=nAdodc
2.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_ClickFrame
2.Caption=库存信息DimZBAsStringDimNAsStringPM=InputBox产品名请输入0ZB=select*from库存表where品名=PMAdodc
2.CommandType=adCmdTextAdodc
2.RecordSource=ZBAdodc
2.RefreshCallInitGrid0EndSubPrivateSubInitGrid0WithDataGrid
1.Columns
0.Width=
1600.Columns
1.Width=
2200.Columns
2.Width=
2200.Columns
3.Width=
1000.Columns
4.Width=
1000.Columns
5.Width=4000EndWithEndSubPrivateSubInitGrid1WithDataGrid
1.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=4000EndWithEndSubPrivateSubInitGrid2WithDataGrid
1.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_ClickDimstrSnoAsStringDimstrSelectAsStringstrSno=TrimText
1.Text检测用户名是否存在strSelect=select密码from用户登录信息表where用户名=strSnoAdodc
1.CommandType=adCmdTextAdodc
1.RecordSource=strSelectAdodc
1.RefreshIfAdodc
1.Recordset.EOF=TrueThenMsgBox用户名不存在,请重新输入!登录提示信息Text
1.Text=Text
2.Text=Text
1.SetFocusExitSubEndIfIfAdodc
1.Recordset.Fields密码=TrimText
2.TextThen检测密码是否正确UnloadMeForm
2.ShowMsgBox登陆成功!登录提示信息ElseMsgBox密码不正确,请重新输入!登录提示信息Text
2.Text=Text
2.SetFocusEndIfEndSubPrivateSubCommand2_ClickUnloadMeForm
2.ShowEndSub修改用户密码界面代码PrivateSubCommand1_ClickIfTrimText
1.TextForm
2.TextUserNameThenMsgBox用户名不正确,请确认!信息提示!Text
1.Text=Text
1.SetFocusExitSubElseDimnameAsStringDimnamesAsStringname=TrimText
1.Textnames=select*from用户登录信息表where用户名=nameAdodc
1.CommandType=adCmdTextAdodc
1.RecordSource=namesAdodc
1.RefreshIfText
2.Text=ThenMsgBox请输入旧密码!信息提示!Text
2.SetFocusExitSubEndIfIfAdodc
1.Recordset.Fields密码TrimText
2.TextThenMsgBox旧密码不正确,请确认!信息提示!Text
2.Text=Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请输入新密码!信息提示!Text
3.SetFocusExitSubEndIfIfText
4.Text=ThenMsgBox请再次输入新密码!信息提示!Text
4.SetFocusExitSubEndIfIfTrimText
3.TextTrimText
4.TextThenMsgBox两次输入的新密码不一致!信息提示!Text
3.Text=Text
4.Text=Text
3.SetFocusExitSubElseAdodc
1.Recordset.Fields密码=TrimText
3.TextAdodc
1.Recordset.UpdateMsgBox密码修改成功!UnloadMeForm
2.ShowEndIfEndIfEndSubPrivateSubCommand2_ClickUnloadMeForm
2.ShowEndSub入库管理代码PrivateSubCommand1_ClickIfText
1.Text=AndText
2.Text=ThenMsgBox“品名”和“型号”不能同时为空,必须输入其中一项!提示信息!ExitSubText
1.SetFocusElseIfText
3.Text=AndText
4.Text=ThenMsgBox请输入产品“数量”或“单位”之一!提示信息!Text
3.SetFocusExitSubEndIfIfText
5.Text=ThenMsgBox请经手人签名!vbCritical提示信息!Text
5.SetFocusExitSubEndIfAdodc
1.RefreshAdodc
1.Recordset.AddNew添加Adodc
1.Recordset.Fields品名=TrimText
1.TextAdodc
1.Recordset.Fields型号=TrimText
2.TextAdodc
1.Recordset.Fields数量=TrimText
3.TextAdodc
1.Recordset.Fields单位=TrimText
4.TextAdodc
1.Recordset.Fields经手人=TrimText
5.TextAdodc
1.Recordset.Fields入库日期=DateAdodc
1.Recordset.Fields说明=TrimText
7.TextAdodc
1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=TrimText
1.Textn=ValText
3.Textpms=select*from库存表where品名=pmForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=pmsForm
2.Adodc
2.RefreshIfForm
2.Adodc
2.Recordset.EOFThenWithForm
2.Adodc
2.Recordset.AddNew.Adodc
2.Recordset.Fields品名=TrimText
1.Text.Adodc
2.Recordset.Fields型号=TrimText
2.Text.Adodc
2.Recordset.Fields数量=TrimText
3.Text.Adodc
2.Recordset.Fields单位=TrimText
4.Text.Adodc
2.Recordset.Fields说明=TrimText
7.Text.Adodc
2.Recordset.UpdateEndWithElsem=Form
2.Adodc
2.Recordset.Fields数量.ValueIfForm
2.Adodc
2.Recordset.Fields型号=TrimText
2.TextThenForm
2.Adodc
2.Recordset.Fields数量=Valm+ValnForm
2.Adodc
2.Recordset.UpdateEndIfEndIfDimXAsIntegerX=MsgBox产品入库登记成功,是否继续添加产品!vbYesNo+vbQuestion+vbDefaultButton1提示信息!IfX=vbNoThenUnloadMeForm
2.ShowElseText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=Text
6.Text=Text
7.Text=Text
1.SetFocusEndIfForm
2.Frame
2.Caption=入库信息DimZBAsStringZB=select*from入库表where品名=PMForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=ZBForm
2.Adodc
2.RefreshEndSubPrivateSubCommand2_ClickText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=Text
6.Text=Text
7.Text=Text
1.SetFocusEndSubPrivateSubCommand3_ClickUnloadMeForm
2.ShowEndSub出库管理代码PrivateSubCommand1_ClickIfCombo
1.Text=AndCombo
2.Text=Thentext
1.Text=AndText
2.Text=ThenMsgBox“品名”和“型号”不能同时为空,必须输入其中一项!提示信息!ExitSubElseIfText
1.Text=AndCombo
3.Text=ThenText
4.Text=ThenMsgBox请输入产品“数量”或“单位”之一!提示信息!Text
2.SetFocusExitSubEndIfIfText
2.Text=ThenMsgBox请经手人签名!vbCritical提示信息!Text
2.SetFocusExitSubEndIfAdodc
1.RefreshAdodc
1.Recordset.AddNew添加Adodc
1.Recordset.Fields品名=TrimCombo
1.TextTrimText
1.TextAdodc
1.Recordset.Fields型号=TrimCombo
2.TextTrimText
2.TextAdodc
1.Recordset.Fields数量=TrimText
1.TextAdodc
1.Recordset.Fields单位=TrimCombo
3.TextTrimText
4.TextAdodc
1.Recordset.Fields经手人=TrimText
2.TextAdodc
1.Recordset.Fields出库日期=DateAdodc
1.Recordset.Fields说明=TrimText
4.TextAdodc
1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=TrimCombo
1.Textn=ValText
1.Textpms=select*from库存表where品名=pmForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=pmsForm
2.Adodc
2.Refreshm=Form
2.Adodc
2.Recordset.Fields数量.ValueIfForm
2.Adodc
2.Recordset.Fields型号=TrimCombo
2.TextThenForm
2.Adodc
2.Recordset.Fields数量=Valm-ValnForm
2.Adodc
2.Recordset.UpdateEndIfDimXAsIntegerX=MsgBox产品出库登记成功,是否继续添加产品!vbYesNo+vbQuestion+vbDefaultButton1提示信息!IfX=vbNoThenUnloadMeForm
2.ShowEndIfCombo
1.Text=Combo
2.Text=Combo
3.Text=Text
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Form
2.Frame
2.Caption=出库信息DimZBAsStringZB=select*from出库表where品名=PMForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=ZBForm
2.Adodc
2.RefreshEndSubPrivateSubCommand2_ClickCombo
1.Text=Combo
2.Text=Combo
3.Text=Text
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=EndSubPrivateSubCommand3_ClickUnloadMeForm
2.ShowEndSubPrivateSubForm_LoadAdodc
2.RefreshAdodc
2.Recordset.MoveFirstDoUntilAdodc
2.Recordset.EOFCombo
2.AddItemAdodc
2.Recordset.Fields型号Combo
1.AddItemAdodc
2.Recordset.Fields品名Combo
3.AddItemAdodc
2.Recordset.Fields单位Adodc
2.Recordset.MoveNextLoopEndSub借出管理代码PrivateSubCommand1_ClickIfCombo
1.Text=AndCombo
2.Text=Thentext
1.Text=AndText
2.Text=ThenMsgBox“品名”和“型号”不能同时为空,必须输入其中一项!提示信息!ExitSubElseIfText
1.Text=AndCombo
3.Text=ThenText
4.Text=ThenMsgBox请输入产品“数量”或“单位”之一!提示信息!Text
1.SetFocusExitSubEndIfIfText
2.Text=ThenMsgBox请经手人签名!vbCritical提示信息!Text
2.SetFocusExitSubEndIfAdodc
1.RefreshAdodc
1.Recordset.AddNew添加Adodc
1.Recordset.Fields品名=TrimCombo
1.TextTrimText
1.TextAdodc
1.Recordset.Fields型号=TrimCombo
2.TextTrimText
2.TextAdodc
1.Recordset.Fields数量=TrimText
1.TextAdodc
1.Recordset.Fields单位=TrimCombo
3.TextTrimText
4.TextAdodc
1.Recordset.Fields经手人=TrimText
2.TextAdodc
1.Recordset.Fields借出人=TrimText
3.TextAdodc
1.Recordset.Fields借出日期=DateAdodc
1.Recordset.Fields说明=TrimText
4.TextAdodc
1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=TrimCombo
1.Textn=ValText
1.Textpms=select*from库存表where品名=pmForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=pmsForm
2.Adodc
2.Refreshm=Form
2.Adodc
2.Recordset.Fields数量.ValueIfForm
2.Adodc
2.Recordset.Fields型号=TrimCombo
2.TextThenForm
2.Adodc
2.Recordset.Fields数量=Valm-ValnForm
2.Adodc
2.Recordset.UpdateEndIfDimXAsIntegerX=MsgBox产品借出登记成功,是否继续添加产品!vbYesNo+vbQuestion+vbDefaultButton1提示信息!IfX=vbNoThenUnloadMeForm
2.ShowEndIfCombo
1.Text=Combo
2.Text=Combo
3.Text=Text
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Form
2.Frame
2.Caption=借出信息DimZBAsStringZB=select*from借出表where品名=PMForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=ZBForm
2.Adodc
2.RefreshEndSubPrivateSubCommand2_ClickCombo
1.Text=Combo
2.Text=Combo
3.Text=Text
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=EndSubPrivateSubCommand3_ClickUnloadMeForm
2.ShowEndSubPrivateSubForm_LoadAdodc
2.RefreshAdodc
2.Recordset.MoveFirstDoUntilAdodc
2.Recordset.EOFCombo
1.AddItemAdodc
2.Recordset.Fields品名Combo
2.AddItemAdodc
2.Recordset.Fields型号Combo
3.AddItemAdodc
2.Recordset.Fields单位Adodc
2.Recordset.MoveNextLoopEndSub归还管理代码PrivateSubCommand1_ClickIfCombo
1.Text=AndCombo
2.Text=Thentext
1.Text=AndText
2.Text=ThenMsgBox“品名”和“型号”不能同时为空,必须输入其中一项!提示信息!ExitSubElseIfText
1.Text=AndCombo
3.Text=ThenText
4.Text=ThenMsgBox请输入产品“数量”或“单位”之一!提示信息!Text
1.SetFocusExitSubEndIfIfText
2.Text=ThenMsgBox请经手人签名!vbCritical提示信息!Text
2.SetFocusExitSubEndIfIfText
3.Text=ThenMsgBox请输入归还人姓名!vbCritical提示信息!Text
3.SetFocusExitSubEndIfAdodc
1.RefreshAdodc
1.Recordset.AddNew添加Adodc
1.Recordset.Fields品名=TrimCombo
1.TextTrimText
1.TextAdodc
1.Recordset.Fields型号=TrimCombo
2.TextTrimText
2.TextAdodc
1.Recordset.Fields数量=TrimText
1.TextAdodc
1.Recordset.Fields单位=TrimCombo
3.TextTrimText
4.TextAdodc
1.Recordset.Fields经手人=TrimText
2.TextAdodc
1.Recordset.Fields归还人=TrimText
3.TextAdodc
1.Recordset.Fields归还日期=DateAdodc
1.Recordset.Fields说明=TrimText
4.TextAdodc
1.Recordset.UpdateEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=TrimCombo
1.Textn=ValText
1.Textpms=select*from库存表where品名=pmForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=pmsForm
2.Adodc
2.Refreshm=Form
2.Adodc
2.Recordset.Fields数量.ValueIfForm
2.Adodc
2.Recordset.Fields型号=TrimCombo
2.TextThenForm
2.Adodc
2.Recordset.Fields数量=Valm+ValnForm
2.Adodc
2.Recordset.UpdateEndIfDimXAsIntegerX=MsgBox产品归还登记成功,是否继续添加产品!vbYesNo+vbQuestion+vbDefaultButton1提示信息!IfX=vbNoThenUnloadMeForm
2.ShowEndIfCombo
1.Text=Combo
2.Text=Combo
3.Text=Text
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Form
2.Frame
2.Caption=归还信息DimZBAsStringZB=select*from归还表where品名=PMForm
2.Adodc
2.CommandType=adCmdTextForm
2.Adodc
2.RecordSource=ZBForm
2.Adodc
2.RefreshEndSubPrivateSubCommand2_ClickCombo
1.Text=Combo
2.Text=Combo
3.Text=Text
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=EndSubPrivateSubCommand3_ClickUnloadMeForm
2.ShowEndSubPrivateSubForm_LoadDimiAsStringi=0Adodc
2.RefreshAdodc
2.Recordset.MoveFirstDoUntilAdodc
2.Recordset.EOFCombo
1.AddItemAdodc
2.Recordset.Fields品名Combo
2.AddItemAdodc
2.Recordset.Fields型号Combo
3.AddItemAdodc
2.Recordset.Fields单位Adodc
2.Recordset.MoveNexti=i+1LoopCallpmEndSubPrivateSubpmDimiAsVariantDimjAsVariantDimkAsVariantDimaAsVariantDimbAsVariantDimcAsVariantDimsAsVariantDimDAsVarianti=0j=0Adodc
2.RefreshAdodc
2.Recordset.MoveFirstDoUntilAdodc
2.Recordset.EOFa=a++Adodc
2.Recordset.Fields品名b=b++Adodc
2.Recordset.Fields型号b=b++Adodc
2.Recordset.Fields单位i=i+1Adodc
2.Recordset.MoveNextLoopD=SplitaIfjiThens=D2Combo
1.AddItemsk=0IfkjAndDkDjThenIfDkDjThenCombo
1.AddItemDjk=k+1Elsek=k+1EndIfEndIfj=j+1EndIfText
5.Text=sa++D2+D1++Vali++Valj++ValkText
6.Text=jCombo
1.AddItemD1EndSub。