毕业论文

打赏
当前位置: 毕业论文 > 计算机论文 >

VB空调设备客户信息管理系统的开发(8)

时间:2017-03-29 21:41来源:毕业论文
在数据库实施阶段,设计人员运用DBMS提供的数据库语言(如SQL)及其宿主语言,根据逻辑设计和物理设计的结果建立数据库,编制和调试应用程序,组织


在数据库实施阶段,设计人员运用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() VB空调设备客户信息管理系统的开发(8):http://www.751com.cn/jisuanji/lunwen_4535.html
------分隔线----------------------------
推荐内容