站内搜索：

VB居民人口信息管理系统(程序下载)(7)

来源：xiaoniu168.com 作者：本站原创添加时间：2014-11-04 点击数：36906

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