数据库登录界面设计, Qt设计精美的登录注册界面
大家好,今天来为大家解答数据库登录界面设计这个问题的一些问题点,包括 Qt设计精美的登录注册界面也一样很多人还不知道,因此呢,今天就来为大家分析分析,现在让我们一起来看看吧!如果解决了您的问题,还望您关注下本站哦,谢谢~
系统登录表单的设计
系统登录表单pass设计(口令验证窗口设计)
1.系统登录表单设计界面
系统登录表单设计界面如图1所示。
图1“系统登录表单”设计界面
2.功能及设计说明
用户在文本框输入操作员及口令,若正确则调用系统主界面(菜单)。允许输入三次,若三次输入均不正确则自动退出系统。
若用户输入的操作员姓名及口令正确,要完成下列工作:
(1)设置一个全局变量operat,用于记录登录系统的操作员姓名,系统中有三个地方要用到该操作员的姓名或代号:一是进入主界面后在标题栏显示操作员姓名;二是操作员在系统管理模块的口令设置中更改自己的口令时,系统要知道是哪个操作员;三是退出系统时系统日志中要记录该操作员的退出时间。
(2)在系统日志表log.dbf中增加一条记录,并同时记录该操作员登录系统的时间。
(3)从权限表menuright.dbf中读出该操作员对应各菜单项的权限,并赋值给数组。
(4)调用菜单文件,显示系统主界面。
3.属性设置
表11-11“系统登录表单”属性设置
对象名属性属性值说明
Form1 Caption口令输入窗口设置表单标题
AutoCenture.T.表单自动居中
Height 230
Width 350
Label1 Caption人事工资管理系统设置标签显示内容
AutoSize.T.
FontBold.T.
FontName楷体_GB2312
FontSize 24
ForeColor 0,128,255
BackStyle 0-透明
Label2 Caption操作员
AutoSize.T.
BackStyle 0-透明
Label3 Caption口令
AutoSize.T.
BackStyle 0-透明
Text1
Text2 PasswordChar*指定用作占位符的字符
InputMask指定文本框中数据的输入格式
Command1 Caption确定
Command2 Caption退出
4.事件代码
(1)Form1的Init事件代码:
SET EXACT ON&&精确比较
PUBLIC ARRAY rr[18]&&数组用于实现菜单项权限
PUBLIC i&&i用于记录用户名及口令输入次数
PUBLIC operat&&operat用于保存操作员姓名
i=0&&使开始计数登录次数变量的值为0
THISFORM.Text1.Setfocus&&使表单的Text1文本框获得焦点
(2)Form1的Unload事件代码:
RELEASE i
SET EXACT OFF
(3)Form1的QueryUnload事件代码:
RELEASE THISFORM
CLEAR EVENTS
QUIT
(4)“确定”按钮(Command1)Click事件代码:
*判断密码是否正确
i=i+1
use..\dbsystem\operator.dbf
LOCATE FOR操作员姓名=ALLTRIM(THISFORM.Text1.Value)
DO CASE
CASE i<=3 AND FOUND() AND THISFORM.Text2.Value=operator.口令
*输入次数未超过3次且用户名正确、口令正确
operat=THISFORM.Text1.Value
INSERT INTO..\dbsystem\log(操作员代号,操作员姓名,登录时间) VALUES(operator.操作员代号,;
operator.操作员姓名,DATETIME())
_SCREEN.Caption="人事工资管理系统"+SPACE(40)+DTOC(DATE())+SPACE(40);
+"操作员:"+operat
SELECT权限 FROM..\dbsystem\menuright INTO ARRAY rr WHERE操作员代号=operator.操作员代号;
ORDER BY菜单项编号
RELEASE THISFORM
DO main_menu.mpr
CASE i<=3 AND FOUND() AND THISFORM.Text2.Value!=operator.口令
*输入次数未超过3次且用户名正确、口令不正确
MESSAGEBOX("密码错误,请重输!","警告")
THISFORM.Text2.Value=""
THISFORM.Text2.Setfocus
CASE i<=3 AND NOT FOUND()&&输入次数未超过3次且用户名不正确
MESSAGEBOX("操作员姓名错误,请重输!","警告")
THISFORM.Text1.Value=""
THISFORM.Text2.Value=""
THISFORM.Text1.Setfocus
CASE i>3&&输入次数超过3次
MESSAGEBOX("禁止进入系统!","警告")
THISFORM.Release
ENDCASE
(5)“退出”按钮(Command2)Click事件代码:
RELEASE THISFORM
CLEAR EVENTS
5.运行结果
系统登录表单运行结果如图2所示。
图2“系统登录表单”运行结果
6.上传文件
将文件pass.scx和pass.sct两个文件上传到服务器“应用系统”中的“main”文件夹下。
PPT连接access数据库,怎样做密码验证的登录界面
以下实例以连接sql数据库,只要将代码中的连接数据库代码改成连接access数据库即可:
conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" _
+"User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"'连接数据库代码
改为:
conn.ConnectionString="Provider=Microsoft.Ace.OLEDB.12.0;Data Source="& ThisWorkbook.Path&"\BPO.accdb"即可
添加引用
一、界面设计
各控件名称属性分别为:label1、text1、label2、text2、commandok、cmdcancel
登录成功后显示的窗体:
代码设计如下:
'首先添加一个模块,写上以下通用声明和Sub main():
Public conn As ADODB.Connection'通用(声明)
Sub main()
Set conn= New ADODB.Connection'通用(main)
conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" _
+"User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"'连接数据库代码
conn.Open
frmLogin.Show'首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub
'在Frmlogin代码窗口,为cmdok控件写以下代码:
Private Sub cmdok_Click()
If text1.Text="" Then
MsgBox"用户名不能为空!", vbOKOnly+ vbInformation,"友情提示"
text1.SetFocus
Exit Sub'若用户名文本框内为空,则出现提示框
End If
If text2.Text="" Then
MsgBox"密码不能为空!", vbOKOnly+ vbInformation,"友情提示"
text2.SetFocus
Exit Sub'若输入密码文本框为空,也出现提示框
End If
Dim strSQl As String
strSQl="select* from User1 where username='"& Trim$(text1.Text)&"' and pwd='"& Trim$(text2.Text)&"'"
'书写SQL代码,查询User1表中是否存在窗体中用户输入的信息。
Dim str As New ADODB.Recordset
Set str= New ADODB.Recordset
str.CursorLocation= adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If.State= adStateOpen Then.Close
.Open strSQl
If.EOF Then
Try_times= Try_times+ 1
If Try_times>= 3 Then
MsgBox"您已连续三次输入错误,系统将自动关闭", vbOKOnly+ vbCritical,"警告"
Unload Me'若用户连续输入3次错误密码,则系统关闭
Else
MsgBox"对不起,用户名不存在或密码错误!", vbOKOnly+ vbQuestion,"警告"
text1.SetFocus
text1.Text=""
text2.Text=""
End If
Else
Unload Me'若登录成功,则隐藏当前窗体
Form2.Show'然后显示Form窗体
End If
End With
End Sub
Private Sub cmdCancel_Click()
End'若单击Cmdcel按钮,则结束应用程序
End Sub
运行中存在的问题:
代码中有Dim conn As adodb.connection,运行时显示"用户定义类型未定义"
解决方法:点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”
然后就就可以正常运行了。
数据库的建立
(一)数据库的结构和内容
省级分等数据库结构分省、市、县三级。分等数据库具体结构和内容见表 3-18。
表 3-18分等数据库结构和内容表
(二)数据库数据标准
1.表格数据库文件格式
表格数据库除要求提供 Excel格式的表格外,其他表格统一采用 DBF格式。
2.字段内容及格式要求
1)某些关键字段的填写要求
县级农用地分等单元编号:省级行政代码(2位)+地级市行政代码(2位)+县级行政代码(2位)+单元流水编号(6位)。行政代码按《中华人民共和国行政区划代码》(GB 2260-91)执行。单元流水编号不足 6位的前面补 0。
省级农用地分等单元编号:省级行政代码(2位)+地级市行政代码(2位)+县级行政代码(2位)+单元流水编号(3位)。行政代码按《中华人民共和国行政区划代码》(GB 2260-91)执行。单元流水编号不足 3位的前面补 0。
面积:以公顷为单位的,小数点后保留 2位;以亩为单位的,小数点后保留 1位。
2)字段格式要求
字段格式要求详见表 3-19~表 3-31。下列数据表格说明中,“C”表示字符型字段,“N”表示数值型;冒号后面的数字表示字段长度和小数点后的保留位数。如 C∶6表示长度为 6的字符型字段;N∶10/2表示长度为 10的数值型字段,其中小数点后保留 2位。
表 3-19××县农用地分等单元原始属性数据表
表 3-20××县农用地分等基本参数表(只提供 Excel格式)
表 3-21××县农用地分等指定作物基本参数表
表 3-22××县样点产量-投入调查数据表
表 3-23××县土地利用系数、土地经济系数汇总表
表 3-24××县××指标区“指定作物-分等因素-自然质量分”记分规则表
表 3-25××县××样地适用区“指定作物-分等属性-自然质量分”加(减)分规则表
表 3-26××县农用地分等××作物计算结果表
表 3-27××县农用地分等多作物综合计算结果表
表 3-28××县农用地分等结果乡镇-面积汇总表
表 3-29××县农用地分等结果地类-面积汇总表
表3-30××县(省)农用地标准样地属性数据表
表3-31××县农用地分等单元综合数据表(只提供Excel格式)
(三)数据库建设流程
省级分等数据库建设分三步,首先形成县级分等数据库;然后在县级分等数据库基础上,按照《农用地分等定级规程》(国土资源大调查专用)和《福建省农用地(耕地)分等汇总工作技术方案》的技术要求,建立市级分等数据库;最后在市级分等数据库基础上,再形成省级分等数据库(图 3-8)。
图3-8省级分等数据库建设流程图
图3-9农用地(耕地)分等市级数据库建设流程图
图3-10农用地(耕地)分等省级数据库建设流程图
1.县级分等数据库建设
根据《福建省农用地(耕地)分等工作方案》,在完成县级农用地(耕地)分等工作后,按照上述(一)、(二)点要求,建立县级分等数据库。
2.市级分等数据库建设
市级分等数据库建设流程见图3-9。
3.省级分等数据库建设
省级分等数据库建设流程见图3-10。
OK,本文到此结束,希望对大家有所帮助。