仓库管理系统
项目的建立
  这是本人利用闲暇之余在上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程;由于本人是个初学者,里面存在很多不足之处望得到高手们的指导;此文可作供初学者们学习交流;作者：E-mail   
最终运行效果
打开软件出现如下登录界面
输入系统预设用户名及密码 1  1 单击“登录”或单击“新用户”添加新用户进入如下主界面：
建立工程
1、创建标准EXE
2、按“打开”
 
vb所有代码3、添加MDI窗体——打开
                 
4、编辑菜单
在空白处右击——点击“菜单编辑器”
                           
                           
在“标题”里输入“系统”,在“名称”里输入“Sys”注意此处不能为汉字
点击“下一个”再点击“  ”
“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码;
代码如下：
  Private Sub Exit_Click
End
End Sub
数据库的建立
中可以创建Access数据库;如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息;如下图单击“外接程序”
再单击“可视化数据管理器”出现如图
点击“文件”——“新建”——“Microsoft Access”——“Version  MDB”输入数据库名,“保存”出现如下图
在数据窗口中右击——“新建表”,最终如下
往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍;
登录界面窗口的建立
最终界面如下：
1、Adodc1的添加过程为：单击“工程”——“部件”出现下图所示,选择“控件”下的“Microsoft ADO Data Control  OLEDB”
单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可;其它元件不在一一说明;
2、本窗体代码如下：
Private Sub Command1_Click                                                  '“登录”、“确定”按钮
  If  = "确定" And  = "取消" Then              '如果为“确定”则添加新用户
    If  = "" Then                                                  '提示用户输入用户名
        MsgBox "请输入用户名", , "登录信息提示："
        Exit Sub
    Else                                                                      '
        Dim usename As String                                                  '检测用户名是否已经存在
        Dim strS As String
        usename = Trim
        strS = "select  from 用户登录信息表 where 用户名='" & usename & "'"
        = adCmdText
        = strS
       
        If  = False Then
          MsgBox "您输入的用户已存在", , "登录提示信息："
            = ""
            = ""
            = ""
         
          Exit Sub
        End If
    End If
    If  = "" Then                                                  '提示用户密码不能为空
        MsgBox "密码不能为空", , "登录提示信息："
       
        Exit Sub
    End If
    If  = "" Then
        MsgBox "请再次输入密码", , "登录提示信息："
       
        Exit Sub
    End If
    If  <>  Then
        MsgBox "两次输入的密码不一致,请确认", , "登录提示信息："
        = ""
        = ""
       
        Exit Sub
    Else
                                                        '添加新用户
        "用户名" = Trim
        "密码" = Trim
                MsgBox "添加新用户成功,现在您可以登陆系统了"
        = False
        = False
        = "登录"
        = "退出"
      End If
    Else                                                                        '“登录”按钮,用户登录
      Dim strSno As String
      Dim strSelect As String
      strSno = Trim                                                '检测用户名是否存在
      strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"
        = adCmdText
        = strSelect
     

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。