VB公司合同管理系统开发与设计(11)
3.3.1 建立数据库
利用Microsoft Access建立数据库，名称为“companyht.mdb”。
3.3.2 建立数据表
根据系统功能模块的需要，再companyht.mdb数据库中建立4个表。
（1） 用户表
该表存放用户登录信息，名称为“用户”，结构如表3.2所示。
表 3.2 用户表
字段名 类型 大小 说明
用户名 文本 255 主键
密码 文本 255
权限 文本 255
（2）客户信息表
该表存放每个客户的信息，名称为“客户信息”。结构如表3.3所示。
表 3.3 客户信息表
字段名 类型 大小 说明
客户编号 文本 2 主键
客户姓名 文本 255
公司名 文本 255
（3）合同信息表
该表存放各个客户的合同标号和合同名称。标的名称为“合同信息”，表结构如表3.4所示。合同编号由4位数字组成，前两位和客户编号相同，后两位为此客户的合同序号。
表 3.4 合同信息表
字段名 类型 大小 说明
合同编号 文本 4 主键
合同名称 文本 255
客户编号 文本 2
（4）项目信息表
该表存放每个合同中的项目编号和项目名称。表的名称为“项目信息”，表结构如表3.5所示。项目编号由6位数字组成，前2位为客户编号，中间2位为合同编号，最后2位为本合同中的项目编号。
表 3.5 项目信息表
字段名 类型 大小 说明
项目编号 文本 6 主键
项目名称 文本 255
合同编号 文本 4
3.3.3 建立数据表表间关系
上述4个表之间有一定的关联，为了保证数据参照完整性，应当建立表间关系。个表之间的关系如图3.14所示。
图 3.14 数据表表间关系
4 系统实现
4.1 登陆界面实现
图 4.1 登陆界面实现
当用户单击确定按钮后，用SQL语句查询“用户”表中是否有相符的用户名和密码，若不符合，则提示重新输入，焦点返回文本框。如果3次输入错误，则退出系统。若输入正确，将用户名和用户权限保存在全局变量中，显示系统主窗体，卸载本窗体。单击取消按钮时结束程序运行。
系统登录的代码实现：
Private Sub Form_Initialize()
ChDrive App.Path
ChDir App.Path
End Sub
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmdOk_Click()
Static interr As Integer
Dim strUser As String, strPass As String, strSQL As String
strUser = Trim$(txtUserID.Text)
strPass = Trim$(txtPassword.Text)
strSQL = "SELECT * FROM 用户 WHERE 用户名='" & strUser & "' AND 密码='" & strPass & "'"