|
第三章 系统的设计 http://www.paper51.com 3．1 系统的功能结构设计 paper51.com 本固定资产管理系统主要有一下几大功能构成: copyright paper51.com 一.设备查询:主要提供”部门,设备名,型号,价格,分类,购置日期,注销日期”等信息的查询. 内容来自论文无忧网 www.paper51.com 二.报表管理:主要提供”设备登记卡,部门统计表,注销统计表,折旧统计表”等信息管理. http://www.paper51.com
三.系统管理;主要提供修改密码,退出系统等. paper51.com 四.用户管理:新增用户,与删除用户等功能. copyright paper51.com
3．2 界面设计 copyright paper51.com 1登陆界面设计: 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 登陆界面代码设计: paper51.com Private Sub cmdOK_Click() 内容来自www.paper51.com
paper51.com Dim strPwd As String copyright paper51.com
Dim rsPwd As ADODB.Recordset 内容来自论文无忧网 www.paper51.com Dim strLogin As String http://www.paper51.com 内容来自论文无忧网 www.paper51.com strLogin= Trim(txtUserName.Text) 内容来自www.paper51.com
strPwd= Trim(txtPassword.Text) 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com If Len(strLogin)= 0 Then paper51.com MsgBox "用户名不能为空,请输入用户名" http://www.paper51.com txtUserName.SetFocus 内容来自www.paper51.com ExitSub copyright paper51.com
End If paper51.com
http://www.paper51.com
If Len(strPwd)= 0 Then copyright paper51.com MsgBox "密码不能为空,请输入正确的密码" copyright paper51.com txtPassword.SetFocus paper51.com ExitSub 内容来自www.paper51.com End If http://www.paper51.com
copyright paper51.com
Set rsPwd = gConn.Execute("SELECT pwd FROM tblUser WHERElogin='" & Replace(strLogin, "'", "''") &"'") paper51.com paper51.com If rsPwd.EOF Then 内容来自www.paper51.com
MsgBox "用户名不正确,请重新输入!" 内容来自论文无忧网 www.paper51.com ElseIf strPwd = rsPwd("pwd").value Then copyright paper51.com
'将代码放在这里传递 内容来自www.paper51.com '成功到 calling 函数 paper51.com
'设置全局变量时最容易的 内容来自www.paper51.com LoginSucceeded = True paper51.com Me.Hide 内容来自论文无忧网 www.paper51.com
Else 内容来自论文无忧网 www.paper51.com MsgBox "无效的密码，请重试!", , "登录" paper51.com txtPassword.SetFocus copyright paper51.com SendKeys "{Home}+{End}" http://www.paper51.com End If 内容来自www.paper51.com
copyright paper51.com rsPwd.Close 内容来自www.paper51.com Set rsPwd = Nothing copyright paper51.com
内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com 2.主界面设计: copyright paper51.com
内容来自论文无忧网 www.paper51.com
主界面代码设计: 内容来自www.paper51.com
'执行设备显示列表操作 http://www.paper51.com Private Sub doDevice(iid As String) 内容来自论文无忧网 www.paper51.com
Dim frm As New frmDevice paper51.com paper51.com If Len(iid)> 0 Then copyright paper51.com frm.loadDevice iid 内容来自www.paper51.com End If copyright paper51.com
http://www.paper51.com
frm.setStatus 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
frm.ShowvbModal paper51.com 内容来自www.paper51.com If frm.isUpdate = True Then copyright paper51.com grdDevice.Tag = "" paper51.com Call fillDeviceGrid(grdDevice) http://www.paper51.com End If http://www.paper51.com paper51.com Unload frm 内容来自论文无忧网 www.paper51.com
Set frm = Nothing copyright paper51.com End Sub copyright paper51.com '执行用户显示列表操作 内容来自论文无忧网 www.paper51.com Private Sub doUser(uid As String) paper51.com
Dim frm As New frmUser paper51.com
http://www.paper51.com
If Len(uid)> 0 Then paper51.com frm.loadUser uid paper51.com End If http://www.paper51.com
paper51.com
frm.setStatus paper51.com 内容来自论文无忧网 www.paper51.com frm.ShowvbModal http://www.paper51.com
paper51.com
|