VB空调设备客户信息管理系统的开发(8)
在数据库实施阶段，设计人员运用DBMS提供的数据库语言（如SQL）及其宿主语言，根据逻辑设计和物理设计的结果建立数据库，编制和调试应用程序，组织数据入库，并进行试运行。包括两项重要的工作，一项是数据的载入，另一项应用程序的编码和调试。
3.3.4 数据库的运行和文护
数据库试运行合格后，数据库开发工作就基本结束，即可投入正式运行。但是，由于应用环境在不断变化，数据库运行过程中物理存储也会不断变化，对数据库设计进行评价、调整、修改等文护工作是一个长期的任务，也是设计工作的继续和提高。
3.4 界面及代码设计
3.4.1 登录界面设计
首先用户进入的是登录界面，用户要输入正确的用户帐号和用户密码，才能进入系统主界面，进行后续操作。用户的权限有高级和普通权限两种，系统可以在登录界面判定的权限等级，然后进入主界面。高级权限的用户就拥有更高的操作等级。
图3.11用户登录流程图
图3.12用户登录界面
后台主要代码：
If TextBox1.Text = "" Then
MsgBox("用户名不能为空！", vbOKOnly + vbInformation, "友情提示")
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox("密码不能为空！", vbOKOnly + vbInformation, "友情提示")
Exit Sub
End If
Dim myconnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=客户信息管理系统数据库.mdb")
Dim mycommand1 As New OleDb.OleDbCommand("select * from 用户信息 where 用户名称='" & Trim(TextBox1.Text) & "' and 用户密码='" & Trim(TextBox2.Text) & "'", myconnection)
Dim mycommand2 As New OleDb.OleDbCommand("select * from 用户信息 where 用户名称='" & Trim(TextBox1.Text) & "' and 用户密码='" & Trim(TextBox2.Text) & "' and 权限等级='高级权限'", myconnection)
Dim mydatareader1 As OleDb.OleDbDataReader
Dim mydatareader2 As OleDb.OleDbDataReader
myconnection.Open()
mydatareader1 = mycommand1.ExecuteReader
mydatareader2 = mycommand2.ExecuteReader
If mydatareader1.Read = False Then
MsgBox("用户名不存在或者密码错误" + vbCrLf + " 请重新输入", 0 + 48, "友情提示")
TextBox2.Text = ""
TextBox2.Focus()
ElseIf mydatareader2.Read = True Then
Me.Close()
主界面.Show()