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
系统主界面：顾客信息界面