|
4.2、系统模块的具体实现 4.2.1、Frmdl窗体: paper51.com Frmdl窗体用于接受用户的用户名/密码输入，判断是否合法。如果是合法用户，释放该窗体并调出Frmver窗体；否则信息提示无此用户。Frmdl窗体的设计界面如图所示，窗体中的主要对象及其属性如表所示： 内容来自www.paper51.com paper51.com 对 象 http://www.paper51.com
属 性 内容来自www.paper51.com 属性取值 http://www.paper51.com Text1 内容来自论文无忧网 www.paper51.com
Caption 内容来自论文无忧网 www.paper51.com
“用户名“ 内容来自论文无忧网 www.paper51.com Text2 内容来自论文无忧网 www.paper51.com passwordchar 内容来自论文无忧网 www.paper51.com
“*“ 内容来自www.paper51.com Command1 copyright paper51.com Caption http://www.paper51.com “确定” paper51.com Command2 内容来自www.paper51.com
Caption copyright paper51.com “取消” 内容来自论文无忧网 www.paper51.com
在该窗体上设计如下事件过程： http://www.paper51.com Option Explicit 内容来自论文无忧网 www.paper51.com Private SubCommcancel_Click() copyright paper51.com End paper51.com End Sub copyright paper51.com Private SubCommok_Click() 内容来自www.paper51.com '声明变量 内容来自论文无忧网 www.paper51.com Dim username AsString paper51.com Dim password As String 内容来自www.paper51.com Dim local_db As String http://www.paper51.com Dim cnn As New ADODB.Connection 内容来自www.paper51.com Dim rst As New ADODB.Recordset http://www.paper51.com
If Text1.Text = "" Then copyright paper51.com MsgBox "请输入用户名",, "警告" copyright paper51.com Text1.SetFocus 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com If Text2.Text = "" Then paper51.com MsgBox "请输入密码",, "警告" 内容来自论文无忧网 www.paper51.com Text2.SetFocus http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com
End If http://www.paper51.com If Text1.Text <> "" And Text2.Text<> "" Then copyright paper51.com Set cnn = New ADODB.Connection http://www.paper51.com Set rst = New ADODB.Recordset 内容来自论文无忧网 www.paper51.com cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" + App.Path & "\data\db.mdb" + ";PersistSecurity Info=False;" '连接数据库 paper51.com username = Trim(Text1.Text) 内容来自www.paper51.com password = Text2.Text http://www.paper51.com '检查用户名是否正确 paper51.com local_db = "select 用户名 from 用户表" + _ copyright paper51.com " where 用户表.用户名=" + "'" + _ http://www.paper51.com username + "'" http://www.paper51.com
rst.Open local_db, cnn 内容来自www.paper51.com If Not (rst.BOF And rst.EOF) Then copyright paper51.com
rst.Close 内容来自www.paper51.com
'检查密码是否正确 内容来自论文无忧网 www.paper51.com
local_db = "select 密码 from 用户表" + _ copyright paper51.com " where 用户表.用户名=" + "'" + _ http://www.paper51.com
username +"'and" + _ 内容来自www.paper51.com " 用户表.密码=" + "'" + password + "'" 内容来自www.paper51.com
rst.Open local_db, cnn paper51.com If Not (rst.BOF And rst.EOF) Then 内容来自论文无忧网 www.paper51.com
userid = Text1.Text paper51.com Unload frmdl 内容来自www.paper51.com '判断登陆用户是否为admin 内容来自论文无忧网 www.paper51.com If username = "admin" Then 内容来自论文无忧网 www.paper51.com mainfrm.xitong.Enabled = True '激活主窗口系统菜单 内容来自www.paper51.com
Else 内容来自www.paper51.com mainfrm.xitong.Enabled = False http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com frmver.Show '显示版本窗口 内容来自论文无忧网 www.paper51.com
Else http://www.paper51.com MsgBox "您输入的密码不正确，请重新输入！", , "警告" paper51.com Text2.Text = "" 内容来自www.paper51.com Text2.SetFocus 内容来自www.paper51.com
End If 内容来自论文无忧网 www.paper51.com
Else paper51.com
MsgBox "系统中无此用户",, "警告" 内容来自www.paper51.com
Text1.Text = "" 内容来自论文无忧网 www.paper51.com
Text1.SetFocus paper51.com End If paper51.com End If copyright paper51.com
End Sub copyright paper51.com
Private Sub Timer1_Timer() http://www.paper51.com
End Sub paper51.com
Private Sub Form_Load() paper51.com End Sub 内容来自论文无忧网 www.paper51.com |