|
3．3 界面设计与代码设计 http://www.paper51.com
1.用户登陆界面设计: 内容来自论文无忧网 www.paper51.com 3．4 界面设计与代码设计 内容来自论文无忧网 www.paper51.com
copyright paper51.com
用户登陆界面代码分析: 内容来自论文无忧网 www.paper51.com
Private SubCommand1_Click() copyright paper51.com
Dim rstpchard AsNew ADODB.Recordset 内容来自论文无忧网 www.paper51.com Dim reHard AsString paper51.com Dim getid AsString http://www.paper51.com
reHard = GetpcHard(getid) 内容来自论文无忧网 www.paper51.com rstpchard.Open"select * from getpchard ", gCnn, adOpenKeyset, adLockBatchOptimistic http://www.paper51.com Ifrstpchard.RecordCount = 0 Then copyright paper51.com rstpchard.AddNew paper51.com rstpchard.Fields(0)= reHard 内容来自www.paper51.com rstpchard.UpdateBatchadAffectCurrent copyright paper51.com
Else 内容来自www.paper51.com If Trim(reHard)<> Trim(rstpchard.Fields(0)) Then copyright paper51.com
MsgBox " 对不起，使用不合法请与开发者联系！ ", vbInformation copyright paper51.com
End copyright paper51.com
End If copyright paper51.com End If 内容来自论文无忧网 www.paper51.com
If Check1.Value =1 Then paper51.com Set rec = NewADODB.Recordset paper51.com rec.Open"select * from 记住密码", gCnn, 3, 3 paper51.com rec("标记") = "1" 内容来自论文无忧网 www.paper51.com If Combo2.Text<> "" Then 内容来自论文无忧网 www.paper51.com rec("姓名") = Combo2.Text paper51.com Else http://www.paper51.com
rec("姓名") = "" copyright paper51.com End If copyright paper51.com If Combo1.Text<> "" Then 内容来自www.paper51.com rec("权限") = Combo1.Text 内容来自www.paper51.com Else copyright paper51.com rec("权限") = "" paper51.com End If 内容来自www.paper51.com If Text2.Text<> "" Then 内容来自www.paper51.com rec("密码") = Text2.Text http://www.paper51.com Else 内容来自论文无忧网 www.paper51.com rec("密码") = "" 内容来自论文无忧网 www.paper51.com End If paper51.com
rec.Update 内容来自www.paper51.com
rec.Close 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com Set rec = NewADODB.Recordset paper51.com rec.Open"select * from 记住密码", gCnn, 3, 3 http://www.paper51.com rec("标记") = "0" http://www.paper51.com rec.Update paper51.com rec.Close 内容来自论文无忧网 www.paper51.com End If paper51.com
Dim rec1 AsADODB.Recordset 内容来自www.paper51.com Set rec1 = NewADODB.Recordset 内容来自www.paper51.com rec1.Open"select * from 登录人员", gCnn, 3, 3 paper51.com Set rec = NewADODB.Recordset 内容来自论文无忧网 www.paper51.com
rec.Open"select * from 密码表 where 姓名='"& Combo2.Text & "'and 操作权限='"& Combo1.Text & "'and 密码='"& Text2.Text & "'", gCnn, 3, 3 内容来自www.paper51.com If rec.EOF = FalseThen paper51.com
If rec("操作权限") <> "管理员"Then http://www.paper51.com ' FRMMAIN.XZCK.Enabled = False http://www.paper51.com
MDIme.mczy.Enabled = False paper51.com MDIme.xtwh.Enabled = False 内容来自www.paper51.com MDIme.del.Enabled = False 内容来自论文无忧网 www.paper51.com
' FRMMAIN.DJGL.Enabled = False 内容来自论文无忧网 www.paper51.com ' FRMMAIN.delte.Enabled = False 内容来自论文无忧网 www.paper51.com Else copyright paper51.com ' Me.XZCK.Enabled = True 内容来自论文无忧网 www.paper51.com MDIme.mczy.Enabled = True http://www.paper51.com MDIme.xtwh.Enabled = True copyright paper51.com
CreateNewKey HKEY_CURRENT_USER, "ZhiYuanTechnologe" http://www.paper51.com
SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe","UserName", dlj, REG_SZ copyright paper51.com
SetKeyValue HKEY_CURRENT_USER, "ZhiYuanTechnologe","PassWord", dlj, REG_SZ 内容来自www.paper51.com ' FRMMAIN.DJGL.Enabled = True 内容来自论文无忧网 www.paper51.com
' FRMMAIN.delte.Enabled = True paper51.com |