dd积分管理系统设计doc文档(编辑修改稿)

dd积分管理系统设计doc文档(编辑修改稿)内容摘要：

．系统登录界面设计： 界面元素： 名称： 用途： Label 用户登录 Label 用户 Label 密码 Command 确定 Command 退出 Textbox Textbox 代码设计： Private Sub Command1_Click() 39。 =================================================== 39。 判断用户输入的名称和口令是否合法 39。 首先判断输入的用户名是否存在，如果不存在 ，给出提示 39。 如果用户名存在，判断输入口令是否正确，如果错误，给出提示 39。 如果用户名和口令输入正确，卸载本窗体， 39。 否则，判断是否用完三次机会，并给出相应提示。 39。 =================================================== Dim IsUser As Boolean 39。 用户是否存在 Dim Pwd As String Dim Uname As String Static count As Integer 39。 记录输入口令次数 Pwd = Trim() Uname = Trim() IsUser = False 39。 比对用户名称和口令的正确与否 Do While Not If Uname = (0) Then 39。 当用户名和当前记录名称相同时的处理： If Pwd = (password) Then 39。 如果口令输入正确，卸载本窗体 Unload Me 39。 (2).Enabled = True 39。 (1).Enabled = False 学生在校积分管理系统 .Show Exit Sub Else 39。 如果口令输入错误，给出提示信息 If count 2 Then MsgBox 口令错误，请重新输入 = End If IsUser = True 39。 标志为合法用户 Exit Do End If End If 39。 移动到下一条记录 Loop count = count + 1 39。 输入口令次数加 1 39。 输入三次口令，且口令错误，退出程序 If count = 3 Then MsgBox 非法用户，不能使用本系统 End End If 39。 如果没有此用户，显示提示信息 If Not IsUser Then MsgBox 无此用户，请重新登录 = End If End Sub Private Sub Command2_Click() End End Sub 5．系统主操作界面设计：（运行时） 菜单设计： 共有三个主菜单，各个主菜单下又有几个小菜单，分别对应不同的操作。 主菜单： 二级菜单： 功能： 系统操作 新建用户 新 建用户 注销用户 注销用户 退出系统 退出系统 文件选项 打印报表 打印报表 学生查询 学生查询 帮助说明 版本信息 版本信息 使用说明 使用说明 工具栏设计： 在界面上加入一个 IMAGELIST。 的控件；放入自己喜欢的图片作链接； 在界面上加入一个 maintab 的控件 ,设置好所需要的页面数，如： 8 个，分别为： 个人信息、学习积分、纪律积分、卫生积分、宣传积分等； 个人信息界面如下 : 个人信息 记录个人的基本信息，以及所得的积分 学习积分 记录个人的学习积分； 纪律积 分 记录个人的纪律积分； 卫生积分 记录个人的卫生积分； 宣传积分 记录个人的宣传积分； 劳动积分 记录个人的劳动积分； 民意测试 记录个人的民意积分； 学习积分界面如下 : 纪律积分界面如下 : 卩生积分界面如下 : 宣传积分界面如下 : 劳动积分界面如下 : 6．版本信息界面设计： 名称： 用途： Picture1 显示图片 Label 欢迎使用 Label 制作小组 Label 警告说明 7．学生信息查询总表设计： 在界面上加入一个 DATA控件，用来连 接数据库，显示学生的基本信息： 8．查询界面设计： 名称： 用途： Label 查询条件 Label 学号 Label 姓名 Label 性别 Label 年龄 label 积分 Data1 连接数据库 Combo 条件选择 Combo 大于或等于或小于选择 Text Text Text Text Text Text Text Command 查询 Command 继续查询 mand 退出 ******************************************************************************* Private Sub Command2_Click() On Error Resume Next If = 学号 Or = 性别 Or = 姓名 Then sqls = amp。 amp。 amp。 39。 amp。 Trim() amp。 39。 Else sqls = amp。 amp。 amp。 Trim() End If sqls If Then MsgBox 没有找到符合条件的数据 , , 查找 = False Exit Sub Else = True End If End Sub ******************************************************************************* Private Sub Command3_Click() sqls If Then MsgBox 查找结束 , , 查找 = False Exit Sub End If End Sub ****************************************************************************** Private Sub Form_Load() Dim db As Database Dim rst As Recordset Dim i As Integer Dim PathStr As String PathStr = If Right(PathStr, 1) \ Then PathStr = PathStr + \ PathStr = PathStr amp。 39。 Set db = OpenDatabase(PathStr) Set db = OpenDatabase(D:\Program Files\学生积分管理系统 \shuju\) Set rst = (student) For i = 0。