|
第四章 系统设置模块详细设计 内容来自论文无忧网 www.paper51.com
商品存销系统中的系统设置模块包括系统登录功能、用户申请功能、修改密码功能和退出系统功能，主要由” 系统登录(frmlogin)”表单、“用户申请(userappend)” 表单“修改密码(modifycode)”表单。 http://www.paper51.com 4.1系统登陆表单 copyright paper51.com 并不是每个人都可以访问该系统，必须是合法的用户才可以使用该系统的各项功能，在用户登陆前 内容来自论文无忧网 www.paper51.com
各项菜单是不可用的，登陆后各菜单就变成可用。 paper51.com “系统登录”表单可以检测用户是否有正确的用户与密码，用来防止非法用户进入系统，为系统安全提供一层防护作用。 内容来自www.paper51.com
其中用户名：zhang,admin,11;对应密码：zhang，123，11。 内容来自论文无忧网 www.paper51.com 登陆表单界面如下： paper51.com
copyright paper51.com 登陆按钮的click的代码如下： http://www.paper51.com IfTrim(txtusername.Text = "") Then copyright paper51.com MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation,"警告" paper51.com txtusername.SetFocus paper51.com Else copyright paper51.com txtSQL = "select * from user1 where username = '" & txtusername.Text& "'" 内容来自www.paper51.com http://www.paper51.com adors.OpentxtSQL, conn, adOpenKeyset, adLockPessimistic 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com Ifadors.EOF = True Then http://www.paper51.com MsgBox"没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation,"警告" copyright paper51.com txtusername.SetFocus 内容来自论文无忧网 www.paper51.com
Else http://www.paper51.com IfTrim(adors("Password")) = Trim(txtpassword.Text) Then http://www.paper51.com '判断密码输入正确性 http://www.paper51.com MsgBox "正确登录", vbOKOnly + vbExclamation,"" paper51.com main.jiben.Enabled= True http://www.paper51.com main.jinhuo.Enabled = True http://www.paper51.com
main.xiaoshou.Enabled = True copyright paper51.com main.kucun.Enabled= True 内容来自www.paper51.com adors.Close http://www.paper51.com Me.Hide copyright paper51.com Load main 内容来自论文无忧网 www.paper51.com main.Show copyright paper51.com
内容来自论文无忧网 www.paper51.com Else 内容来自www.paper51.com MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation,"警告" 内容来自论文无忧网 www.paper51.com txtpassword.SetFocus copyright paper51.com
txtpassword.Text = "" 内容来自www.paper51.com
End If 内容来自论文无忧网 www.paper51.com
EndIf paper51.com
End If 内容来自www.paper51.com miCount = miCount + 1 http://www.paper51.com If miCount = 3 Then 内容来自www.paper51.com '记录密码输入的次数，累计到3此则自动结束程序 内容来自论文无忧网 www.paper51.com
Me.Hide 内容来自论文无忧网 www.paper51.com
End If copyright paper51.com
4.2系统管理表单 paper51.com “系统管理表单”可以增加用户，使更多的人可以访问该系统。但是并不是每个用户都可以申请的。 http://www.paper51.com 用户可以管理数据库表中不存在的任何的用户名和密码。如果你的用户名未被使用，则添加成功，否则，失败！ paper51.com
系统管理表单界面如下： paper51.com paper51.com 其中管理的代码实现： http://www.paper51.com Private SubcmdExit_Click() copyright paper51.com Unload Me http://www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com
Private SubCommand2_Click() ''添加用户 copyright paper51.com
On Error GoTo Err 内容来自论文无忧网 www.paper51.com IfTrim(Text8.Text) <> "" And Trim(Text9.Text) <>"" And Trim(Combo1.Text) <> "" Then paper51.com Dim rs1 As New ADODB.Recordset paper51.com If rs1.State Then rs1.Close copyright paper51.com rs1.Open "selectcount(*) from 系统用户 where 用户名='"& Trim(Text8.Text) & "'", CN, adOpenStatic, adLockOptimistic http://www.paper51.com
If rs1.Fields(0) > 0 Then copyright paper51.com MsgBox "用户已经存在! 请改用户名称!", , "系统提示" copyright paper51.com Text8.Text = "" 内容来自论文无忧网 www.paper51.com Exit Sub http://www.paper51.com End If paper51.com
copyright paper51.com If rs1.State Then rs1.Close copyright paper51.com rs1.Open "select * from系统用户", CN, adOpenStatic, adLockOptimistic 内容来自论文无忧网 www.paper51.com
rs1.AddNew copyright paper51.com rs1.Fields(0).Value =Trim(Text8.Text) http://www.paper51.com rs1.Fields(1).Value =Trim(Text9.Text) 内容来自www.paper51.com rs1.Fields(2).Value =Trim(Combo1.Text) 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com rs1.Update http://www.paper51.com Combo5.AddItemTrim(Text8.Text) 内容来自论文无忧网 www.paper51.com MsgBox "用户添加成功!,初始密码为" & Text9.Text, , "系统提示" copyright paper51.com
Text8.Text = "" http://www.paper51.com End If http://www.paper51.com Exit Sub 内容来自论文无忧网 www.paper51.com Err: 内容来自www.paper51.com MsgBoxErr.Description 内容来自论文无忧网 www.paper51.com
End Sub copyright paper51.com |