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

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

2、到MDI 界面点击“系统”“退出”如下，然后编写代码。代码如下：PrivateSubExit_Click()EndEndSub数据库的建立VB6.0 中可以创建 Access 数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”“新建”“MicrosoftAccess”“ Version2.0MDB ”输入数据库名，“保存”出现如下图在数据窗口中右击“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。精心整理专业资料整理WORD格式精心整理登录界面窗口的建立最终界面如下：1、Ado

3、dc1 的添加过程为：单击“工程”“部件”出现下图所示，选择“控件”下的“ MicrosoftADODataControl6.0 （ OLEDB）”单击“确定”在工具栏中会出现“”图标，单击它并拖动到相应位置即可。其它元件不在一一说明。2、本窗体代码如下：PrivateSubCommand1_Click()'“登录”、“确定”按钮IfCommand1.Caption="确定 "AndCommand2.Caption="取消 "Then'如果为“确定”则添加新用户IfText1.Text=""Then'提示用户输

4、入用户名MsgBox"请输入用户名！","登录信息提示："ExitSubElse'DimusenameAsString'检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from用户登录信息表where用户名 ='"&usename&"'"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox"

5、您输入的用户已存在!","登录提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then'提示用户密码不能为空MsgBox"密码不能为空 !","登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请再次输入密码

6、!","登录提示信息："Text3.SetFocusExitSubEndIf专业资料整理WORD格式IfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不一致, 请确认 !","登录提示信息："Text2.Text=""Text3.Text=""Text2.SetFocus精心整理专业资料整理WORD格式精心整理ExitSubElseMsgBox("添加新用户成功，现在您可以登陆系统了！")Label3.Visible=F

7、alseText3.Visible=FalseCommand1.Caption=" 登录 "Command2.Caption=" 退出 "EndIfElse'“登录”按钮，用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Text1.Text)'检测用户名是否存在strSelect="select密码 from用户登录信息表where用户名 ='"&strSno&"'"Adodc1.CommandType=adC

8、mdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox"用户名不存在，请重新输入！","登录提示信息："Text1.Text=""Text2.Text=""Text1.SetFocusExitSubEndIfForm1.Hide'UnloadMeForm2.Show'MsgBox"登陆成功！ ","登录提示信息："ElseMsgBox"密码不正确，请重新输入！" ,"登录提示

9、信息："Text2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()'“退出”或“取消”按钮IfCommand2.Caption="取消 "ThenLabel3.Visible=FalseText3.Visible=FalseCommand1.Caption="登录 "Command2.Caption="退出 "专业资料整理WORD格式Text1.Text=""Text2.Text="&qu

10、ot;Text1.SetFocusElseEnd'UnloadMeEndIfEndSub精心整理专业资料整理WORD格式精心整理PrivateSubCommand3_Click()'“新用户”按钮Label3.Visible=TrueText3.Visible=TrueText1.Text=""Text2.Text=""Text3.Text=""Command1.Caption=" 确定 "Command2.Caption=" 取消 "Text1.SetFocusEndSubPr

11、ivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer()

12、9;时间 time1 控件的 time 事件代码，用来'显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width>0Then'当标签右边位置大于0 时，标签向左移Else'否则标签从头开始Label4.Left=Form1.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenElseLabel5.Left=Form1.ScaleWidthEndIfEndSub主界面窗体如下：代码：专业资料整理WORD格式PrivateSubAddNew_Click()Frame1.Visible=TrueFrame

13、2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Caption="出库信息 "DimpmAsString精心整理专业资料整理WORD格式精心整理DimnAsStringpm=InputBox("产品名 ","请输入 ",0)n="select*from出库表 where品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.

14、RefreshCallInitGrid1EndSubPrivateSubCHKXHCHX_Click()Frame2.Caption="出库信息 "DimXHAsStringDimnAsStringXH=InputBox("产品型号 ","请输入 ",0)n="select*from出库表 where型号 ='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubP

15、rivateSubCKCZ_Click()'Form2.HideForm6.ShowEndSubPrivateSubCKJSHR_Click()Frame2.Caption="出库信息 "DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人 ","请输入 ",0)n="select*from出库表 where经手人 ='"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.Recor

16、dSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Caption="出库信息 "DimCHKRQAsStringDimnAsStringCHKRQ=InputBox("出库日期，格式为：月/ 日 / 年如： 12/1/2011","请输入 ",0)n="select*from出库表 where出库日期 ='"&CHKRQ&"'"专业资料整理WORD格式Adodc2.Com

17、mandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Caption="出库信息 "精心整理专业资料整理WORD格式精心整理DimZBAsStringZB="select*from出库表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubCommand1_Click()I

18、fText1.Text=""Then'提示用户输入用户名MsgBox"请输入用户名！","登录信息提示："ExitSubElse'DimusenameAsString'检测用户名是否已经存在DimstrSAsStringusename=Trim(Text1.Text)strS="select*from用户登录信息表where用户名 ='"&usename&"'"Adodc1.CommandType=adCmdTextAdodc1.Recor

19、dSource=strSAdodc1.RefreshMsgBox"您输入的用户已存在!","登录提示信息："Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfEndIfIfText2.Text=""Then'提示用户密码不能为空MsgBox"密码不能为空 !","登录提示信息："Text2.SetFocusExitSubEndIfIfText3.Te

20、xt=""ThenMsgBox"请再次输入密码!","登录提示信息："Text3.SetFocusExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不一致, 请确认 !","登录提示信息："专业资料整理WORD格式Text2.Text=""Text3.Text=""Text2.SetFocusExitSubElseeDimXAsInteger精心整理专业资料整理WORD格式精心整理X=M

21、sgBox(" 成功添加新用户，是否要重新登录 !",vbYesNo+vbQuestion+vbDefaultButton1," 提示信息 !") IfX=vbYesThenUnloadMeForm3.ShowEndIf'MsgBox("成功添加新用户！")'Label3.Visible=False'Text3.Visible=False'Command1.Caption="登录 "'Command2.Caption="退出 "EndIfFrame1.Vi

22、sible=FalseFrame2.Visible=TrueText1.Text=""Text2.Text="'"Text3.Text=""'Form3.ShowEndSubPrivateSubCommand2_Click()Frame1.Visible=FalseFrame2.Visible=TrueEndSubPrivateSubCXDL_Click()Form3.Show'UnloadMeEndSubPrivateSubExit_Click()EndUnloadForm1UnloadForm2Unload

23、Form3UnloadForm4UnloadForm5UnloadForm6UnloadForm7UnloadForm8EndSub专业资料整理WORD格式PrivateSubForm_Load()UnloadForm1Frame1.Visible=FalseCallInitGrid0Me.Height=MDIForm1.Height-1060Me.Width=MDIForm1.Width-560Me.Top=MDIForm1.TopMe.Left=MDIForm1.LeftEndSub精心整理专业资料整理WORD格式精心整理PrivateSubGHCZ_Click()'Form2.H

24、ideForm8.ShowEndSubPrivateSubGHPMCX_Click()Frame2.Caption="归还信息 "DimpmAsStringDimnAsStringpm=InputBox("产品名 ","请输入 ",0)n="select*from归还表 where品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndS

25、ubPrivateSubGHRCX_Click()Frame2.Caption="归还信息 "DimJCRAsStringDimnAsStringJCR=InputBox("归还人 ","请输入 ",0)n="select*from归还表 where归还人 ='"&JCR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubGH

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

27、dSubPrivateSubGHXHCX_Click()Frame2.Caption="归还信息 "专业资料整理WORD格式DimXHAsStringDimnAsStringXH=InputBox("产品型号 ","请输入 ",0)n="select*from归还表 where型号 ='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理专业资料整理WORD格式精心整

28、理CallInitGrid2EndSubPrivateSubGHZCX_Click()Frame2.Caption="归还信息 "DimZBAsStringZB="select*from归还表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCCZ_Click()'Form2.HideForm7.ShowEndSubPrivateSubJCHPMCHX_Click()Frame2.Caption="

29、;借出信息 "DimpmAsStringDimnAsStringpm=InputBox("产品名 ","请输入 ",0)n="select*from借出表 where品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCHXHCHX_Click()Frame2.Caption="借出信息 "Dim

30、XHAsStringDimnAsStringXH=InputBox("产品型号 ","请输入 ",0)n="select*from借出表 where型号 ='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCRCX_Click()专业资料整理WORD格式Frame2.Caption="借出信息 "DimJCRAs

31、StringDimnAsStringJCR=InputBox("借出人 ","请输入 ",0)n="select*from借出表 where借出人 ='"&JCR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理专业资料整理WORD格式精心整理CallInitGrid2EndSubPrivateSubJCSHJCX_Click()Frame2.Caption="借出信息 "

32、DimJCRQAsStringDimnAsStringJCRQ=InputBox("借出日期，格式为：月/ 日 / 年如： 12/1/2011","请输入 ",0)n="select*from借出表 where借出日期 ='"&JCRQ&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJCZCX_Click()Frame2.Caption=&q

33、uot;借出信息 "DimZBAsStringZB="select*from借出表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCHX_Click()Frame2.Caption="归还信息 "DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人 ","请输入 ",0)n="select*from归还表 wh

34、ere经手人 ='"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubJSHRCX_Click()Frame2.Caption="借出信息 "DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人 ","请输入 ",0)n="select*from借出表 where经手人 =&#

35、39;"&JSHR&"'"专业资料整理WORD格式Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid2EndSubPrivateSubPMCX_Click()Frame2.Caption="库存信息 "精心整理专业资料整理WORD格式精心整理DimpmAsStringDimnAsStringpm=InputBox("产品名 ","请输入 ",0)n="select*from

36、库存表 where品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid0EndSubPrivateSubRKCZ_Click()'Form2.HideForm5.ShowEndSubPrivateSubRKJSHR_Click()Frame2.Caption="入库信息 "DimJSHRAsStringDimnAsStringJSHR=InputBox("经手人 "

37、;,"请输入 ",0)n="select*from入库表 where经手人 ='"&JSHR&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubRKPMCHX_Click()Frame2.Caption="入库信息 "DimpmAsStringDimnAsStringpm=InputBox("产品名 ","请输入 &

38、quot;,0)IfLen(pm)>0Thenn="select*from入库表 where 品名 ='"&pm&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKSHJ_Click()专业资料整理WORD格式Frame2.Caption="入库信息 "DimRKRQAsStringDimnAsStringRKRQ=InputBox("

39、入库日期，格式为：月/ 日 / 年如： 12/1/2011","请输入 ",0)n="select*from入库表 where入库日期 ='"&RKRQ&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.Refresh精心整理专业资料整理WORD格式精心整理CallInitGrid1EndSubPrivateSubRKXHCHX_Click()Frame2.Caption="入库信息 "DimXHAsStr

40、ingDimnAsStringXH=InputBox("产品型号 ","请输入 ",0)IfLen(XH)>0Thenn="select*from入库表 where 型号 ='"&XH&"'"Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndIfCallInitGrid1EndSubPrivateSubRKZCX_Click()Frame2.Caption="入库信息 "Dim

41、ZBAsStringZB="select*from入库表 "Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGrid1EndSubPrivateSubTimer1_Timer()IfLabel4.Left+Label4.Width>0Then'当标签右边位置大于0 时，标签向左移Else'否则标签从头开始Label4.Left=Form2.ScaleWidthEndIfIfLabel5.Left+Label5.Width>0ThenElseLabel5.Left=Form2.ScaleWidthEndIfIfLabel6.Left+Label6.Width>0ThenElse专业资料整理WORD格式Label6.Left=Form2.ScaleWidthEndIfIfLabel7.Left+Label7.Width>0ThenElseLabel7.Left=Fo