计算机毕业设计登陆界面介绍：
4.1 frmlogin(登陆界面)
进入本系统后会弹出一个登录窗口，输入用户帐号和密码，验证用户信息，点击【确定】按钮，进入系统主界面
|
以下是引用片段：
Private Sub btn添加_Click()
'1.判断登陆帐号 和 使用权限
'1
Dim rs As New ADODB.Recordset
Set rs = ExecSql("select * from 用户 where 用户帐号='" & Trim(Me.Text3(0).Text) & "' and 用户密码='" & Trim(Me.Text3(1).Text) & "'")
With rs
If .RecordCount > 0 Then
frmMain.BaseInfo.Enabled = .Fields("信息字典管理").Value
frmMain.Toolbar1.Buttons(1).Enabled = frmMain.BaseInfo.Enabled
frmMain.Toolbar1.Buttons(2).Enabled = frmMain.BaseInfo.Enabled
frmMain.RkxxInfo.Enabled = .Fields("人口信息管理").Value
frmMain.Toolbar1.Buttons(4).Enabled = frmMain.BaseInfo.Enabled
frmMain.YhInfo.Enabled = .Fields("用户信息管理").Value
frmMain.Toolbar1.Buttons(5).Enabled = frmMain.BaseInfo.Enabled
frmMain.RkxxQInfo.Enabled = .Fields("人口信息查询").Value
frmMain.Toolbar1.Buttons(7).Enabled = frmMain.BaseInfo.Enabled
frmMain.GxInfo.Enabled = .Fields("系统更新维护").Value
strRyName = Trim(Me.Text3(0).Text)
frmMain.Show
Unload Me
Else
MsgBox "帐号或密码错误!"
Exit Sub
End If
End With
End Sub
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第8页为计算机毕业论文数据字典维护......