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 & "'" VB公司合同管理系统开发与设计(11):http://www.751com.cn/jisuanji/lunwen_4550.html