VB空调设备客户信息管理系统的开发(8)
时间:2017-03-29 21:41 来源:毕业论文 作者:毕业论文 点击:次
在数据库实施阶段，设计人员运用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() (责任编辑：qin) |