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

1、最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（ 1 1 ）单击“登录”或单击“新用户”添加新用户进入如下 主界面：建立工程1、创建标准 EXE3、添加MDI窗体打开4、 编辑菜单在空白处右击pi 工程 1 - IDIForMl (IDIForM)DIForlfi锁定控件(1) 直粘贴心I菜单编辑器标题疋)：确定名称(M): |取消|素引0) ： |快捷键)：| (Hone)三帮助上下文ID QD :(0协调位置(Q) : |0 - HoneV厂复选 疋有效0) 臣可见)厂显示窗口列表他) | | | |下一个)| 插入Q) | 删除|在“标题”里输入“系统”，在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“斗”“确定”退到MDI界面点击“系统”一一“退出”如下，然后编写代码。代码如下：Private Sub Exit_Click()EndEnd Sub数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信 息及一些出入库管理信息。如下图单击“外接程序”外接程序 窗口迪 帮助可观优数据管理器.外接程序管理器

2、（AJ. 組件服勢关闭新建).压缩 MIIB . 修复 HUB 1：).导入/导出（!） 工作空间d）. d）.丈件通再单击“可视化数据管理器”出现如图FoxPro () Paradox 电 ODBC (JO).点击“文件”“新建” “Microsoft Access” “Version 2.0 MDB”输入数据 库名，“保存”出现如下图文件0）实用程序01）窗口 帮助Mbb包赫第豔数据库窗口匚|叵I冈 垂QL语句口回目+ g1 Properties| 执行 |渚除 |保存g)在数据窗口中右击新建表”，最终如下ton惜出表im库存表i=i归还表n出库表 n，入库表n用户登录信息表Fr op 旺 t iIB & | W ffl 也 SS讚数据库窗口回冈文件g）实用程序CH）窗口址）帮助刷新列表新建表（1） 新建查询S）E.S:由：s:s:由田往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。登录界面窗口的建立最终界面如下：1、Adodc1 的添加过程为：单击“工程”“部件”出现下图所示，选择“控件”下的Microsoft ADO Data Control 6.0 (OLEDB)”单击“

3、确定”在工具栏中会出现“”图标，单击它并拖动到相应位置即可。其它元件不在一一说明。2、 本窗体代码如下：Private Sub Command1_Click() “登录”、“确定”按钮If Command1.Caption = 确 定 And Command2.Caption = 取 消 Then 如果为“确定”则添加新用户If Text1.Text = Then 提示用户输入用户名MsgBox 请输入用户名！, , 登录信息提示：Exit SubElseDim usename As String 检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = select * from 用户登录信息表 where 用户名 = & usename & Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 您输入的用户已存在!, , 登录提示信息：Text1.

4、Text = Text2.Text = Text3.Text = Text1.SetFocusExit SubEnd IfEnd IfThenIf Text2.Text = 提示用户密码不能为空MsgBox 密码不能为空!, , 登录提示信息：Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请再次输入密码!, , 登录提示信息：Text3.SetFocusExit SubEnd IfIf Text2.Text Text3.Text ThenMsgBox 两次输入的密码不一致, 请确认 !, , 登录提示信息：Text2.Text = Text3.Text = Text2.SetFocusExit SubElseAdodc1.Recordset.AddNew添加新用户Adodcl.Recordse t.Fields（用户名）=Trim（Tex tl .Tex t）Adodcl.Recordse t.Fields（密码）=Trim（Tex t2.Tex t） Adodcl.Recordset.UpdateMsgBox （添加新用

5、户成功，现在您可以登陆系统了！）Label3.Visible = FalseText3.Visible = FalseCommandl.Caption = 登录Command2.Caption = 退出End IfElse“登录”按钮，用户登录Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text) 检测用户名是否存在strSelect = select 密码 from 用户登录信息表 where 用户名 = & strSno & Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox 用户名不存在，请重新输入！, , 登录提示信息：Text1.Text = Text2.Text = Text1.SetFocusExit SubEnd IfIf Adodc1.Recordset.Fields( 密 码 ) = Trim(Text2.

6、Text) Then 检测密码是否正确Form1.HideUnload MeForm2.ShowMsgBox 登陆成功！, , 登录提示信息：ElseMsgBox 密码不正确，请重新输入！, , 登录提示信息：Text2.Text = Text2.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click() “退出”或“取消”按钮If Command2.Caption = 取消 ThenLabel3.Visible = FalseText3.Visible = FalseCommand1.Caption = 登录 Command2.Caption = 退出 Text1.Text = Text2.Text = Text1.SetFocusElseEnd Unload MeEnd IfEnd SubPrivate Sub Command3_Click() “新用户”按钮Label3.Visible = TrueText3.Visible = TrueText1.Text = Text2.Text = Text3.Text = Command

7、1.Caption = 确定Command2.Caption = 取消Text1.SetFocusEnd SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, XAs Single, Y As Single)Label6.Visible = FalseEnd SubPrivate Sub Form_Load()Label3.Visible = FalseText3.Visible = FalseEnd SubPrivate Sub Timer1_Timer()时间 time1 控件的 time 事件代码，用来显示向左移动的欢迎字幕If Label4.Left + Label4.Width 0 Then 当标签右边位置大于0 时，标签向左移Label4.Move La

8、bel4.Left - 80Else否则标签从头开始Label4.Left = Form1.ScaleWidthEnd IfIf Label5.Left + Label5.Width 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form1.ScaleWidthEnd IfEnd Sub主界面窗体 如下：代码：Private Sub AddNew_Click()Frame1.Visible = TrueFrame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click()Frame2.Caption = 出库信息Dim pm As StringDim n As Stringpm = Inpu tBox(产品名，请输入，0)n = select * from 出库表 where 品名 = & pm &Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption = 出库信息Dim XH As StringDim n

《仓库管理系统设计(VB+Access)代码》由会员大米分享，可在线阅读，更多相关《仓库管理系统设计(VB+Access)代码》请在金锄头文库上搜索。