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

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

2、一一“退出”如下，然后编写代码。 代码如下：PrivateSubExit_Click（）EndEndSub数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一 些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”“新建”“ MicrosoftAccess”“Version2.0MDB输入数据库名，“保存”出现如下图在数据窗口中右击一一“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。登录界面窗口的建立最终界面如下：1、Adodc1的添加过程为：单击“工程”一一“部件”出现下图所示，选择“

3、控件”下的“MicrosoftADODataControl6.0（ OLEDB ”单击“确定”在工具栏中会出现/ ”图标，单击它并拖动到相应位置即可。其它元件不在说明。2、 本窗体代码如下：PrivateSubCommand1_Click()“登录”、“确定”按钮lfCommand1.Caption=确定AndCommand2.Caption=取消Then如果为“确定”则添加新用户lfText1.Text=Then提示用户输入用户名MsgBox请输入用户名！,登录信息提示：ExitSubElseDimusenameAsString检测用户名是否已经存在DimstrSAsStringusenam

4、e=Trim(Text1.Text)strS=select*from用户登录信息表 where 用户名=&usename&山Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox您输入的用户已存在!,登录提示信息：Text1.Text=Text2.Text=Text3.Text=Text1.SetFocusExitSubEndIfEndIfIext2.Text=Then提示用户密码不能为空MsgBox密码不能为空!,登录提示信息：Text2.SetFocusExitSubEndIflfText3.Text

5、=ThenMsgBox请再次输入密码!,登录提示信息：Text3.SetFocusExitSubEndIflfText2.TextText3.TextThenMsgBox两次输入的密码不一致，请确认!,登录提示信息：Text2.Text=Text3.Text=Text2.SetFocusExitSubElseMsgBox(添加新用户成功，现在您可以登陆系统了！)Label3.Visible=FalseText3.Visible=FalseCommand1.Caption=登录Command2.Caption=退出EndIfElse “登录”按钮，用户登录DimstrSnoAsStringDim

6、strSelectAsString strSno=Trim(Text1.Text) 检测用户名是否存在 strSelect=select 密码 from 用户登录信息表 where 用户名 =&strSno& Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox用户名不存在，请重新输入！,登录提示信息：Text1.Text=Text2.Text=Text1.SetFocusExitSubEndIfForm1.Hide UnloadMeForm2.ShowMsgBox登陆成功！,登录提示信息：E

7、lseMsgBox密码不正确，请重新输入！,登录提示信息：Text2.Text=Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click() “退出”或“取消”按钮IfCommand2.Caption= 取消 ThenLabel3.Visible=FalseText3.Visible=FalseCommand1.Caption=登录“Command2.Caption=退出“Text1.Text=Text2.Text=Text1.SetFocusElseEndUnloadMeEndIfEndSubPrivateSubCommand3_Click

8、() “新用户”按钮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,ShiftAsInteg

9、er,XAsSingle,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer() 时间 time1 控件的 time 事件代码，用来 显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width0Then 当标签右边位置大于 0 时，标签向左移Label4.MoveLabel4.Left-80Else 否则标签从头开始Label4.Left=Form1.ScaleWidthEndIfI

10、fLabel5.Left+Label5.Width0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form1.ScaleWidthEndIfEndSub如下：代码：PrivateSubAddNew_Click()Frame1.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Caption= 出库信息 DimpmAsStringDimnAsStringpm=InputBox( 产品名 , 请输入 ,0) n=select*from 出库表 where 品名 =

11、&pm& Adodc2.CommandType=adCmdText Adodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_Click()Frame2.Caption= 出库信息 DimXHAsStringDimnAsStringXH=InputBox( 产品型号 , 请输入 ,0)n=select*from 出库表 where 型号 =&XH& Adodc2.CommandType=adCmdText Adodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSub

12、CKCZ_Click()Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption= 出库信息 DimJSHRAsStringDimnAsStringJSHR=InputBox( 经手人 , 请输入 ,0) n=select*from 出库表 where 经手人 =&JSHR& Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption= 出库信息

13、 DimCHKRQAsStringDimnAsStringCHKRQ=lnputBox(出库日期，格式为：月/日/年如：12/1/2011, 请输入,0) n=select*from 出库表where出库日期三&CHKRQ&呐Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCalllnitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption= 出库信息 DimZBAsStringZB=select*from 出库表 Adodc2.CommandType=adCmdTextA

14、dodc2.RecordSource=ZBAdodc2.RefreshCalllnitGrid1EndSubPrivateSubCommand1_Click() lfText1.Text=Then 提示用户输入用户名MsgBox请输入用户名！,登录信息提示：ExitSubElseDimusenameAsString 检测用户名是否已经存在DimstrSAsString usename=Trim(Text1.Text)strS=select*from 用户登录信息表 where 用户名 =&usename&Adodc1.CommandType=adCmdTextAdodc1.RecordSour

15、ce=strSAdodc1.RefreshMsgBox您输入的用户已存在!,登录提示信息：Text1.Text=Text2.Text=Text3.Text=Text1.SetFocusExitSubEndIfEndIfIfText2.Text=Then 提示用户密码不能为空MsgBox密码不能为空!,登录提示信息：Text2.SetFocusExitSubEndIfIfText3.Text=ThenMsgBox请再次输入密码!,登录提示信息：Text3.SetFocusExitSubEndIfIfText2.TextText3.TextThenMsgBox两次输入的密码不一致，请确认!,登录提

16、示信息：Text2.Text=Text3.Text=Text2.SetFocusExitSubElsee提示信息 ！)DimXAsIntegerX=MsgBox（成功添加新用户，是否要重新登录！“,vbYesNo+vbQuestion+vbDefaultButton1,“IfX=vbYesThenUnloadMeForm3.ShowEndIfMsgBox（ 成功添加新用户！ ）Label3.Visible=FalseText3.Visible=FalseCommand1.Caption= 登录Command2.Caption= 退出EndIfFrame1.Visible=FalseFrame2

17、.Visible=TrueText1.Text=Text2.Text=Text3.Text=Form3.ShowEndSubPrivateSubCommand2_Click()Frame1.Visible=FalseFrame2.Visible=TrueEndSubPrivateSubCXDL_Click()Form3.ShowUnloadMeEndSubPrivateSubExit_Click()EndUnloadForm1UnloadForm2UnloadForm3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSubPr

18、ivateSubForm_Load()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( 产品名

19、 , 请输入 ,0) n=select*from 归还表 where 品名 =&pm& Adodc2.CommandType=adCmdText Adodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHRCX_Click()Frame2.Caption= 归还信息 DimJCRAsStringDimnAsStringJCR=InputBox( 归还人 , 请输入 ,0) n=select*from 归还表 where 归还人 =&JCR&Adodc2.CommandType=adCmdTextAdodc2.Record

20、Source=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHSJCX_Click()Frame2.Caption= 归还信息 DimJCRQAsStringDimnAsStringJCRQ=InputBox(归还日期，格式为：月/ 日/年如：12/1/2011,请输入,0) n=select*from 归还表 where 归还日期=&JCRQ&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGHXHCX_Click

21、()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.Re

22、cordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()Form2.HideForm7.ShowEndSubPrivateSubJCHPMCHX_Click()Frame2.Caption= 借出信息 DimpmAsStringDimnAsStringpm=InputBox( 产品名 , 请输入,0)n=select*from 借出表 where 品名=&pm&山Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2E

23、ndSubPrivateSubJCHXHCHX_Click()Frame2.Caption= 借出信息 DimXHAsStringDimnAsStringXH=InputBox( 产品型号 , 请输入 ,0) n=select*from 借出表 where 型号 =&XH& Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()Frame2.Caption= 借出信息 DimJCRAsStringDimnAsStringJCR=InputB

24、ox( 借出人 , 请输入 ,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.Co

25、mmandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption= 借出信息 DimZBAsStringZB=select*from 借出表 Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_Click()Frame2.Caption= 归还信息 DimJSHRAsStringDimnAsS

26、tringJSHR=InputBox( 经手人 , 请输入 ,0) n=select*from 归还表 where 经手人 =&JSHR& Adodc2.CommandType=adCmdText Adodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption= 借出信息 DimJSHRAsStringDimnAsStringJSHR=InputBox( 经手人 , 请输入 ,0) n=select*from 借出表 where 经手人 =&JSHR& Adodc2.Com

27、mandType=adCmdText Adodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption= 库存信息 DimpmAsStringDimnAsStringpm=InputBox( 产品名 , 请输入 ,0) n=select*from 库存表 where 品名 =&pm& Adodc2.CommandType=adCmdText Adodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_C

28、lick()Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Caption= 入库信息 DimJSHRAsStringDimnAsStringJSHR=InputBox( 经手人 , 请输入 ,0) n=select*from 入库表 where 经手人 =&JSHR& Adodc2.CommandType=adCmdText Adodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption= 入库信息 Di

29、mpmAsStringDimnAsString pm=InputBox( 产品名 , 请输入 ,0)IfLen(pm)0Then n=select*from 入库表 where 品名 =&pm& Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_Click()Frame2.Caption= 入库信息 DimRKRQAsStringDimnAsStringRKRQ=lnputBox(入库日期，格式为：月/ 日/年如：12/1/2011,请输入

30、,0) n=select*from 入库表 where 入库日期 =&RKRQ&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCalllnitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption= 入库信息 DimXHAsStringDimnAsStringXH=lnputBox( 产品型号 , 请输入,0)lfLen(XH)0Thenn=select*from 入库表 where 型号=&XH&Adodc2.CommandType=adCmdTextAdodc2.R

31、ecordSource=nAdodc2.RefreshEndlfCalllnitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption= 入库信息 DimZBAsStringZB=select*from 入库表 Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCalllnitGrid1EndSubPrivateSubTimer1_Timer()lfLabel4.Left+Label4.Width0Then 当标签右边位置大于 0 时，标签向左移 Label4.MoveLab

32、el4.Left-80Else 否则标签从头开始Label4.Left=Form2.ScaleWidthEndIfIfLabel5.Left+Label5.Width0ThenLabel5.MoveLabel5.Left-80ElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width0ThenLabel6.MoveLabel6.Left-80ElseLabel6.Left=Form2.ScaleWidthEndIfIfLabel7.Left+Label7.Width0ThenLabel7.MoveLabel7.Left-80E

33、lseLabel7.Left=Form2.ScaleWidthEndIfEndSubPrivateSubXGMM_Click()Form2.HideForm4.ShowEndSubPrivateSubXHCX_Click()Frame2.Caption= 库存信息 DimXHAsStringDimnAsStringXH=InputBox( 产品型号 , 请输入 ,0)IfLen(XH)0ThenAndVal(XH)0 n=select*from 库存表 where 型号 =&XH& Adodc2.CommandType=adCmdText Adodc2.RecordSource=nAdodc2

34、.RefreshEndIfCallInitGrid0EndSubPrivateSubZB_Click()Frame2.Caption= 库存信息 DimZBAsStringDimNAsStringPM=InputBox( 产品名 , 请输入 ,0) ZB=select*from 库存表 where 品名 =&PM& Adodc2.CommandType=adCmdText Adodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid0EndSubPrivateSubInitGrid0()WithDataGrid1.Columns(0).Width=1600.

35、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).Wid

36、th=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.Column

37、s(5).Width=800.Columns(6).Width=1000.Columns(7).Width=800.Columns(8).Width=4000EndWithEndSub用户重新登录界面代码：PrivateSubCommand1_Click()DimstrSnoAsStringDimstrSelectAsString strSno=Trim(Text1.Text) 检测用户名是否存在 strSelect=select 密码 from 用户登录信息表 where 用户名 =&strSno& Adodc1.CommandType=adCmdTextAdodc1.RecordSourc

38、e=strSelectAdodc1.RefreshMsgBox用户名不存在，请重新输入！,登录提示信息：Text1.Text=Text2.Text=Text1.SetFocusExitSubEndIfUnloadMeForm2.ShowMsgBox登陆成功！,登录提示信息：ElseMsgBox密码不正确，请重新输入！,登录提示信息：Text2.Text=Text2.SetFocusEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub修改用户密码界面代码：PrivateSubCommand1_Click() IfTrim(Te

39、xt1.Text)Form2.TextUserNameThenMsgBox用户名不正确，请确认！,信息提示！Text1.Text=Text1.SetFocusExitSubElseDimnameAsStringDimnamesAsStringname=Trim(Text1.Text)names=select*from 用户登录信息表 where 用户名 =&name& Adodc1.CommandType=adCmdTextAdodc1.RecordSource=namesAdodc1.RefreshIfText2.Text=ThenMsgBox请输入旧密码!,信息提示！Text2.SetFo

40、cusExitSubEndIfMsgBox旧密码不正确，请确认!,信息提示！Text2.Text=Text2.SetFocusExitSubEndIfIfText3.Text=ThenMsgBox请输入新密码!,信息提示！Text3.SetFocusExitSubEndIfIfText4.Text=ThenMsgBox请再次输入新密码!,信息提示！Text4.SetFocusExitSubEndIfIfTrim(Text3.Text)Trim(Text4.Text)ThenMsgBox两次输入的新密码不一致!,信息提示!Text3.Text=Text4.Text=Text3.SetFocusE

41、xitSubElseMsgBox(密码修改成功！)UnloadMeForm2.ShowEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSub代码：PrivateSubCommand1_Click()IfText1.Text=AndText2.Text=ThenMsgBox “品名”和“型号”不能同时为空，必须输入其中一项!,提示信息!ExitSubText1.SetFocusElseIfText3.Text=AndText4.Text=ThenMsgBox请输入产品“数量”或“单位”之一!,提示信息!Text3.Se

42、tFocusExitSubEndIfIfText5.Text=ThenMsgBox请经手人签名！,vbCritical,提示信息!Text5.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsString pm=Trim(Text1.Text) n=Val(Text3.Text) pms=select*from 库存表 where 品名 =&pm&WithForm2EndWithElseEndIfEndIf提示信息 ！)DimXAsIntegerX=MsgBox(产品入库登记成

43、功，是否继续添加产品！,vbYesNo+vbQuestion+vbDefaultButton1,IfX=vbNoThenUnloadMeForm2.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=T

44、ext5.Text=Text6.Text=Text7.Text=Text1.SetFocusEndSubPrivateSubCommand3_Click()UnloadMeForm2.ShowEndSub出库管理代码：PrivateSubCommand1_Click()IfCombo1.Text=AndCombo2.Text=Thentext1.Text=AndText2.Text=ThenMsgBox “品名”和“型号”不能同时为空，必须输入其中一项!,提示信息!ExitSubElseIfText1.Text=AndCombo3.Text=ThenText4.Text=ThenMsgBox请

45、输入产品“数量”或“单位”之一!,提示信息!Text2.SetFocusExitSubEndIfIfText2.Text=ThenMsgBox请经手人签名！,vbCritical,提示信息!Text2.SetFocusExitSubEndIfAdodc1.RefreshEndIfDimpmAsStringDimpmsAsStringDimnAsStringDimmAsStringpm=Trim(Combo1.Text)n=Val(Text1.Text)pms=select*from 库存表 where 品名=&pm&山EndIf提示信息 ！)DimXAsIntegerX=MsgBox(产品出库

46、登记成功，是否继续添加产品！,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

47、=Text3.Text=Text4.Text=EndSubPrivateSubCommand3_Click()UnloadMeForm2.ShowEndSubPrivateSubForm_Load()Adodc2.RefreshLoopEndSub代码：PrivateSubCommand1_Click()IfCombo1.Text=AndCombo2.Text=Thentext1.Text=AndText2.Text=ThenMsgBox “品名”和“型号”不能同时为空，必须输入其中一项!,提示信息!ExitSubElseIfText1.Text=AndCombo3.Text=ThenText

48、4.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.ShowEndIfCombo1.Text=Combo2.Text=Combo3.Text=Text1.Text=Text2.Text=Text3.Text=Text4.Text=DimZBAsStringZB