九阳售后管理系统实验报告

九阳售后管理系统实验报告内容摘要：

、更新和管理关系数据库系统。 后台数据库采用的是 Access2020 它 是 Microsoft Office2020办公系列软件的组件，基于关系数据模型的 DBMS，应用广泛操作简单。 这两种开发工具功能强大，有较好的接口，作为本系统开发工具是可行的。 3． 2 登录模块设计与实现 登录界面是进入本系统遇到的第一个界面，是用户的身份验证部分，主要用于用户进入系统的身份验证。 为了提高数据的安全性，系统设置了防止非法人员进入系统的功能。 系统在开始运行的时候，首先进入用户登录界面，在由操作人员输入用户名和密码后，系统进行判定其进入系统的合法身份，此后，方可正式进入该系统。 如果用户名输入有错，系统将显示“用户名不存在”提示，如果密码输入有错，系统将显示“密码错误”提示 ，等待操作人员重新输入用户名或密码。 图 31 登录界面 代码如下： Dim As Dim rs As New Dim strsql As String 39。 定义一个字符串变量 Private Sub Command1_Click() If = Then MsgBox 请选择用户类别。 , , 请重选择 Exit Sub End If If Len(Trim()) = 0 Then 39。 没有输入用户名 MsgBox 请输入用户名。 , , 登陆信息 Exit Sub End If If Len(Trim()) 16 Then 39。 用户名过长 MsgBox 您输入用户 名过长。 , , 登陆信息 Exit Sub End If User = Replace(Trim(), 39。 , 39。 39。 ) If Len(Trim()) = 0 Then 39。 没有输入密码 MsgBox 请输入密码。 , , 登陆信息 Exit Sub End If If Len(Trim()) 16 Then 39。 密码过长 MsgBox 您输入密码过长。 , , 登陆信息 Exit Sub End If Set = New 39。 连接数据库 Provider=。 Data Source= amp。 amp。 / 九阳售后 .mdb。 Persist Security Info=False strsql = select * from 用户信息表 where username = 39。 amp。 amp。 39。 39。 and userpwd = 39。 amp。 amp。 39。 and usertyp = 39。 amp。 amp。 39。 39。 数据表连接字符串 strsql, , 2, 2 39。 39。 打开数据表 If = True Then 39。 用户名错误 MsgBox 没有这个用户。 请重新输入。 , 16, 错误。 = = Set rs = Nothing Set db = Nothing Exit Sub Else If rs!UserName = And rs!usertyp Or rs!UserName And rs!usertyp = Then 39。 用户名与用户类型不匹配 MsgBox 用户类型与用户名不匹配 , 16, 错误。 = = Set rs = Nothing Set db = Nothing Exit Sub Else If Not rs!UserPwd = Then 39。 用户密码错误 MsgBox 用户密码错误。 请检查后重新输入。 , 16, 错误。 = Set rs = Nothing Set db = Nothing Exit Sub Else 39。 用户名，密码都正确，进入主窗口 If = 系统管理员 Then 主界面 .Show Unload Me ElseIf = 技术人员 Then 主界面 Unload Me ElseIf = 普通用户 Then Unload Me 主界面 End If End If End If End If Set rs = Nothing Set db = Nothing End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = End Sub Private Sub bo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。 如果按下的是回车键，则光标落到文本框当中 Else End If End Sub Private Sub Textuser_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。 如果按下的是回车键，则光标落到文本框当中 Else End If End Sub Private Sub Textpwd_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。 如果按下的是回车键，则光标落到文本框当中 Else End If End Sub 主界面模块设计与实现 图 42 主界面 代码如下： Private Sub gyzz_Click() 关于作者 .Show End Sub Private Sub rjjs_Click() 帮助 .Show End Sub Private Sub sjgl_Click() 数据管理 .Show End Sub Private Sub tcxt_Click() Unload Me End Sub Private Sub wxjlbj_Click() 维修信息 .Show End Sub Private Sub xs5_Click() 用户管理 .Show End Sub P。