在数据库实施阶段,设计人员运用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()
- 上一篇:C#《计算基础》在线测试网站的建设
- 下一篇:C#触屏式终端的校园电子点菜系统设计
-
-
-
-
-
-
-
乳业同业并购式全产业链...
大众媒体对公共政策制定的影响
电站锅炉暖风器设计任务书
中考体育项目与体育教学合理结合的研究
java+mysql车辆管理系统的设计+源代码
酸性水汽提装置总汽提塔设计+CAD图纸
杂拟谷盗体内共生菌沃尔...
河岸冲刷和泥沙淤积的监测国内外研究现状
当代大学生慈善意识研究+文献综述
十二层带中心支撑钢结构...