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

仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：[e-mail]：1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（11）单击“登录”或单击“新用户”添加新用户进入如下主界面：建立工程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&'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.TextText3.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.SetFocusExitSubEndIfIfAdodc1.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=FalseText3.Visible=FalseEndSubPrivateSubTimer1_Timer()'时间time1控件的time事件代码，用来'显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width0Then'当标签右边位置大于0时，标签向左移Label4.MoveLabel4.Left-80Else'否则标签从头开始Label4.Left=Form1.ScaleWidthEndIfIfLabel5.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品名='&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=nAdodc2.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.TextText3.TextThenMsgBox两次输入的密码不一致,请确认!,,登录提示信息：Text2.Text=Text3.Text=Text2.SetFocusExitSubElseAdodc1.Recordset.AddNew'添加新用户Adodc1.Recordset.Fields(用户名)=Trim(Text1.Text)Adodc1.Recordset.Fields(密码)=Trim(Text2.Text)Adodc1.Recordset.UpdateD