您现在的位置：毕业论文 >> 论文 >> 正文

VB电表管理信息系统第14页

更新时间：2010-4-5: 来源：毕业论文

VB电表管理信息系统第14页
rec("权限") = Combo1.Text
Else
rec("权限") = ""
End If
If Text2.Text <> "" Then
rec("密码") = Text2.Text
Else
rec("密码") = ""
End If
rec.Update
rec.Close
Else
Set rec = New ADODB.Recordset
rec.Open "select * from 记住密码", gCnn, 3, 3
rec("标记") = "0"
rec.Update
rec.Close
End If
Dim rec1 As ADODB.Recordset
Set rec1 = New ADODB.Recordset
rec1.Open "select * from 登录人员", gCnn, 3, 3
Set rec = New ADODB.Recordset
rec.Open "select * from 密码表 where 姓名='" & Combo2.Text & "'and 操作权限='" & Combo1.Text & "'and 密码='" & Text2.Text & "'", gCnn, 3, 3
If rec.EOF = False Then
    If rec("操作权限") <> "管理员" Then
'        FRMMAIN.XZCK.Enabled = False
       MDIme.mczy.Enabled = False
       MDIme.xtwh.Enabled = False
       MDIme.del.Enabled = False
'        FRMMAIN.DJGL.Enabled = False
'        FRMMAIN.delte.Enabled = False
    Else
       ' Me.XZCK.Enabled = True
           MDIme.mczy.Enabled = True
           MDIme.xtwh.Enabled = True
           CreateNewKey HKEY_CURRENT_USER, "ZhiYuanTechnologe"
           SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe", "UserName", dlj, REG_SZ
           SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe", "PassWord", dlj, REG_SZ
'            FRMMAIN.DJGL.Enabled = True
'            FRMMAIN.delte.Enabled = True
    End If
    rec1("姓名") = Combo2.Text
    rec1.Update
    rec1.Close
    Me.Hide
    Guser = Combo2.Text
    MDIme.Show
Else
    MsgBox "权限或密码不正确，请重试!", vbInformation
End If
rec.Close
End Sub
Private Sub Command11_Click()
End Sub
Private Sub Command2_Click()
Combo2.Text = ""
Text2.Text = ""
Combo1.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Me.Hide
FRMMMXG.Show 1
End Sub
Private Sub Form_Activate()
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Set rec = New ADODB.Recordset

<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] 下一页