《仓库管理系统VB+Access+源代码》由会员分享，可在线阅读，更多相关《仓库管理系统VB+Access+源代码（25页珍藏版）》请在金锄头文库上搜索。
1、仓库管理系统项目的建立 这是本人利用闲暇之余在 VB6.0 上制作的一个简陋的类库管系统，现图文结合 的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处 望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail 最终运行效果 打开软件出现如下登录界面 输入系统预设用户名及密码(11)单击“登录”或单击“新用户”添加新用户进 入如下主界面： 建立工程1、创建标准 EXE2、按“打开”3、添加 MDI 窗体打开4、编辑菜单在空白处右击点击“菜单编辑器”在“标题”里输入“系统”，在“名称”里输入“Sys”(注意此处不能为汉字) 点击“下一个”再点击“”“确定”退到
2、MDI界面点击“系统”一一“退出”如下，然后编写代码。 代码如下：PrivateSubExit_Click()End EndSub 数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库，用来 存放用户信息及一些出入库管理信息。如下图单击“外接程序” 再单击“可视化数据管理器”出现如图点击“文件”“新建”“MicrosoftAccess”“Versio n2.0MDB ”输入数据库名，“保存”出现如下图 在数据窗口中右击“新建表”，最终如下 往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。 登录界面窗口的建立 最终界面如下：1、Adodc1 的添加过程为：单击“
3、工程”“部件”出现下图所示，选择 “控件”下的“MicrosoftADODataControl6.0 (OLEDB)”单击“确定”在工具栏中会出现“谿”图标，单击它并拖动到相应位置即 可。其它元件不在一一说明。2、本窗体代码如下：PrivateSubCommandl_Click() “登录”、“确定”按钮IfCommandl.Caption二确定AndCommand2.Caption二取消Then如果为“确定”则添加新用户IfTextl.Text二Then提示用户输入用户名MsgBox请输入用户名！,登录信息提示：ExitSubElseDimusenameAsString检测用户名是否已经存在
4、DimstrSAsStringusename=Trim(Text1.Text)strS二select*from用户登录信息表where 用户名二&usename&Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox您输入的用户已存在!，登录提示信息：Text1.Text=Text2.Text=Text3.Text=Text1.SetFocusExitSubEndIfEndIfIfText2.Text二Then提示用户密码不能为空MsgBox密码不能为空!，登录提示信息：Text2.SetFocusExi
5、tSubEndIfIfText3.Text=ThenMsgBox请再次输入密码!,，登录提示信息：Text3.SetFocusExitSubEndIfIfText2.TextText3.TextThenMsgBox两次输入的密码不一致,请确认!,，登录提示信息：Text2.Text=Text3.Text=Text2.SetFocusExitSubElseMsgBox(添加新用户成功，现在您可以登陆系统了！)Label3.Visible=FalseText3.Visible=FalseCommandl.Cap ti on二登录Command2.Cap ti on二退出EndIfElse “登录”
6、按钮，用户登录DimstrSnoAsStringDimstrSelectAsStringstrSno=Trim(Textl.Text)检测用户名是否存在strSelect二select 密码 from 用户登录信息表 where 用户名二&strSno&Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSelectAdodc1.RefreshMsgBox用户名不存在，请重新输入！,登录提示信息：Text1.Text=Text2.Text=Text1.SetFocusExitSubEndIfForm1.HideUnloadMeForm2.Sho
7、wMsgBox登陆成功！,登录提示信息：ElseMsgBox密码不正确，请重新输入！,登录提示信息：Text2.Text=Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click() “退出”或“取消”按钮IfCommand2.Cap ti on二取消ThenLabel3.Visible=FalseText3.Visible=FalseCommandl.Cap ti on二登录Command2.Cap ti on二退出Text1.Text=Text2.Text=Text1.SetFocusElseEndUnloadMeEndIfEndSubP
8、rivateSubCommand3_Click() “新用户”按钮Label3.Visible=TrueText3.Visible=TrueText1.Text=Text2.Text=Text3.Text=Commandl.Cap ti on二确定Command2.Cap ti on二取消Textl.SetFocusEndSubPrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=TrueEndSubPrivateSubCommand3_MouseUp(But
9、tonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.Visible=FalseEndSubPrivateSubForm_Load()Label3.Visible=FalseText3.Visible=FalseEndSubPrivateSubTimerl_Timer()时间 timel 控件的 time 事件代码，用来显示向左移动的欢迎字幕IfLabel4.Left+Label4.Width0Then当标签右边位置大于0时，标签向左移Else 否则标签从头开始Label4.Left=Forml.ScaleWidthEndIfIfLabe
10、l5.Left+Label5.Width0ThenElseLabel5.Left=Forml.ScaleWidthEndIfEndSub主界面窗体如下：代码：PrivateSubAddNew_Click()Framel.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubCHKPMCHX_Click()Frame2.Cap tion二出库信息DimpmAsStringDimnAsStringpm=Inpu tBox(产品名，”请输入，0)n二select*from 出库表 where 品名二&pm&Adodc2.CommandType=adCmdTe
11、xtAdodc2.RecordSource=nAdodc2.RefreshCallInitGridlEndSubPrivateSubCHKXHCHX_Click()Frame2.Cap tion二出库信息DimXHAsStringDimnAsStringXH=Inpu tBox(产品型号”,请输入，0)n二select*from 出库表 where 型号二&XH&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshEndSubPrivateSubCKCZ_Click()Form2.HideForm6.ShowEndSub
12、PrivateSubCKJSHR_Click()Frame2.Cap tion二出库信息DimJSHRAsStringDimnAsStringJSHR=Inpu tBox(经手人，”请输入，0)n二select*from 出库表 where 经手人二&JSHR&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKSHJ_Click()Frame2.Cap tion二出库信息DimCHKRQAsStringDimnAsStringCHKRQ=Inpu tBox(
13、出库日期，格式为：月/日/年如：12/1/2011,请输入,0) n二select*from 出库表 where 出库日期二&CHKRQ&Adodc2.CommandType=adCmdTextAdodc2.RecordSource=nAdodc2.RefreshCallInitGrid1EndSubPrivateSubCKZCX_Click()Frame2.Cap tion二出库信息DimZBAsStringZB=select*from 出库表Adodc2.CommandType=adCmdTextAdodc2.RecordSource=ZBAdodc2.RefreshCallInitGri
14、d1EndSubPrivateSubCommand1_Click()IfTextl.Text二Then提示用户输入用户名MsgBox请输入用户名！,登录信息提示：ExitSubElseDimusenameAsString检测用户名是否已经存在DimstrSAsStringusename=Trim（Text1.Text）strS=select*from用户登录信息表where 用户名二&usename&Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strSAdodc1.RefreshMsgBox您输入的用户已存在!，登录提示信息：Text1.Text=Text2.Text=Text3.Text=Text1.SetFocusExitSubEndIfEndIfIfText2.Text二Then提示用户密码不能为空MsgBox密码不能为空!,，登录提示信息：Text2.SetFocusExitSubEndIfIfText3.Text=
