数据库SQL Server 2000 的安全性功能是强大的，相对来说也是复杂的，在本设计中从实际情况出发，对系统安全行进性有针对性的设计。
（1） 采用模拟加密方式对密码进行加密，即采用将密码转化为ASCII码的形式对其进行加密，从而以不可字辨的形式存入后台数据库。
（2） 通过前台的数据库开发工具VisualBasic 6.0对用户登录权限进行严格的控制管理。在系统用户表中见登录用户划分为三类：总管理员、系统管理组和操作组。
① 总管理组员是系统的最高管理者，对其他人员具有添加权和删除权，对系统内的所有菜单具有操作权限。
② 系统管理组内的人员是系统的较高管理者，对其他人员具有添加权限，对系统内的除删除用户外的所有菜单具有操作权限。
③ 操作组内设定的人员，具有操作数据的权限。
（3） 第一次进入系统时，默认总管理员名称为AAA，密码为aaa。由总管理员AAA负责添加操作组人员和系统管理组其他人员。
4.1.2 后台数据库的选择
Microsoft SQL Server 是Microsoft 公司开发的一个基于结构化查询语言（SQL）和客户机/服务器模型的高性能的关系数据库管理系统，SQL Server 2000是MS SQL Server 的最新版本。SQL Server 2000的应用可以稳定运行在小到台式机、笔记本，具有8—16个处理器、若干G字节的内存、若干T字节的外部存储器的对称的多处理服务器。
应该指出的是，SQL Server 2000是一种企业级的数据库管理系统、主要是被设计来支持大容量的事物处理，例如超级市场的销售系统、银行管理系统、网络中的数据库支持应用软件以及其他方面的企业级的应用。尽管SQL Server 2000 可以稳定高效地运行于单机或文件共享系统中，但是需要指出的是，这不是SQL Server 2000在这方面的主要应用领域。目前，随着Internet和Intranet应用的发展，SQL Server 2000在这方面的应用受到越来越多的重视。开发企业级的数据管理已经和Internet 和 Intranet 密不可分了。
在本次设计中，为达到学习并锻炼自己的目的，我选择了SQL Server 2000 作为自己的后台数据库。
4.2 后台数据库的选择
（1） 公用数据库连接
Public Sub cnOpen(ByRef cn As ADODB.Connection)
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=帐务清算;Data Source=LIYAN"
End Sub
业务说明：打开到数据源的连接。
（2） 公用密码加密
Public Sub changecode(ByVal str1 As String, ByRef str2 As String)
Dim i As Integer
Dim a(10) As String
i = Len(str1)
For j% = 0 To i - 1
a(j%) = Asc(Mid(str1, j% + 1, 1))
str2 = str2 + a(j%)
Next j%
End Sub
业务说明：模拟数据加密功能。具体方法是将密码的每一位分别转化ASCII码写入后台数据库。
（3） 个人卡租卡
Private Sub Form_Load()
lbldate.Caption = Date ‘显示日期
cmdrec.Enabled = False
cmddel.Enabled = False
Call cnOpen(cnk) ‘连接数据库
Set rs6 = New ADODB.Recordset
s6 = "select * from KXX"
rs6.Open s6, cnk, adOpenKeyset, adLockOptimistic
Dim qq As Integer
If rs6.EOF Then
qq = 1
Else
rs6.MoveLast
qq = (Val(rs6!kh) + 1)
End if
Dim X As Integer
X = Len(str(Val(qq)))
txtxh.Text = String((9 - X), "0") & (qq) ‘显示本次租卡卡号
rs6.Close
End Sub
Private Sub Timer1_Timer() ‘显示时间
lbltime.Caption = Time$
End Sub
