VB商场经营管理系统 第3页

VB商场经营管理系统 第3页
能的要求。本例根据分析确定系统要设置如下表：
（1） 顾客表：Table_Customer（CustomerID，CardID，Cname，Sex，Age，IdentityCard，Address，Postcode）
（2） 用户表：用户表（username，password）
（3） 会员卡表：会员卡（CardID，StartDate，EndDate，Score，State）
（4） 商品表：商品表（GoodsID，GoodsClassID，GoodsName，ProductionDate，SaleUnitPrice，TotalStorage）
（5） 销售人员表：销售人员（SalespersonID，Sname，Sex，Age，address，Postcode，Tel）
3.2 物理设计
（1）顾客表   表名Table_Customer
列名 数据类型 长度 是否为空
CustomerID varchar 8 主键
CardID varchar 8 是
CName varchar 10 否
Sex Char 2 是
Age Int 4 是
IdentityCard varchar 20 否
Address varchar 50 是
Postcode varchar 6 是

（2）用户表  表名：用户表
列名 数据类型 长度 是否为空
username char 10 否
password char 10 是

（3）会员卡表 表名：会员卡
列名 数据类型 长度 是否为空
CardID varchar 8 否
StartDate datetime 8 否
EndDate datetime 8 否
Score int 4 否
State char 1 否

（4）商品表 表名：商品表
列名 数据类型 长度 是否为空
GoodsID varchar 8 否
GoodsClassID varchar 8 否
GoodsName varchar 50 否
ProductionDate datetime 8 否
SaleUnitPrice money 8 否
TotalStorage varchar 10 否

（5）销售人员表 表名：销售人员
列名 数据类型 长度 是否为空
SalespersonID varchar 8 否
Sname varchar 10 否
Sex char 2 否
Age Int 4 是
address varchar 50 是
Postcode varchar 6 是
Tel varchar 15 否
第五章 系统详细设计
登陆界面
登陆界面输入正确的用户名和密码就能进入系统，否则提示错误重新输入数据登陆
相关代码如下：
Private Sub cmdOK_Click()
    On Error GoTo ErrMsg
    Set cn = New ADODB.Connection
    cn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=商场经营管理数据库;Data Source=(local)"
    cn.Open
    Set rs = cn.Execute("select username from 用户表 where username='" & Trim(txtUserName.Text) & "'")
    If rs.EOF And rs.BOF Then
        MsgBox "用户权限错误或用户不存在，再试一次！", , "登录"
        txtUserName.Text = ""
        txtPassword.Text = ""
        txtUserName.SetFocus
        rs.Close
    Else
        Set rs = cn.Execute("select username from 用户表 where username='" & Trim(txtUserName.Text) & "' And password='" & Trim(txtPassword.Text) & "'")
        If rs.EOF And rs.BOF Then
            MsgBox "密码错误，再试一次！", , "登录"
            txtPassword.Text = ""
            txtPassword.SetFocus
        Else
            un = txtUserName.Text
            ok = True
            Unload Me
            Form1.Show
        End If
        rs.Close
     End If
     Exit Sub
ErrMsg:
MsgBox "连接数据库时发生错误，请检查是否已打开数据库服务器"End Sub
系统主界面：顾客信息界面

上一页  [1] [2] [3] [4] [5] 下一页

VB商场经营管理系统 第3页下载如图片无法显示或论文不完整，请联系qq752018766