: 登录模块是为了验证操作人员的合法性而设计的,它要求用户输入的用户名和密码正确。
(在这里,为了编程实现的简单起见,制作时采用了一个确定的登录密码( )) “2005”。
“该用户不存在或者您输入的密码不 当输入不正确时,出现“错误”提示, ”正确!请重试!;输入正确时则进入系统。
其实现代码为: Private Sub Command1_Click If cmbUserid.Text quot杨铁军quot Or cmbUserid.Text quotAdminquot Andpassword.Text quot2005quot Then MIAN 主窗口.Show frm 登录.Hide Unload Me Else MsgBox quot该用户不存在或者您输入的密码不正确!请重试!quot vbOKOnly quot错误quot password.Text quotquot password.SetFocus End If End Sub系统在窗体载入时同时连接数据库: Private Sub Form_Load 窗体载入的时候就连接数据库conn.ConnectionString quotProviderMicrosoft.Jet.OLEDB.4.0DataSourcestudent.mdbPersist Security InfoFalsequotconn.OpenMe.cmbUserid.AddItem quot杨铁军quotMe.cmbUserid.AddItem quotAdminquotEnd Sub4.2 系统封面模块设计: 当用户通过身份验证时就进入此界面,可以进行所有操作。
为了使系统界面显得美观大方,在设计封面时,采用了一幅画作为背景。
在此封面的菜单设计如下: 成绩管理(M) ……成绩查询 …… - ……成绩录入 …… - ……成绩修改 …… - ……成绩删除 成绩统计(T) ……总成绩统计 …… - ……单科统计 成绩分析(F) ……优秀率 ……及格率 ……名次排行 关于(G) ……版本 权限 退出(E) 4.3 成绩管理模块设计 4.3.1 成绩查询模块 成绩查询提供了两种查询方式:按学号查询和按姓名查询,并且系统支持模糊查询。
其结构为: 其主要实现代码为: Private Sub cbo 查询_Click If opt 按姓名查询.Value True Then Set rs Nothing sql quotselect from student where 姓名 like quot amp txt 按姓名查询.Text amp quotquot rs.Open sql conn adOpenDynamic adLockOptimistic Set MSHFlexGrid1.DataSource rs End If If opt 按学号查询.Value True Then Set rs Nothing sql quotselect from student where 学号 quot amp cbo 按学号查询.Textamp quotquot rs.Open sql conn adOpenDynamic adLockOptimistic Set MSHFlexGrid1.DataSource rs End If End Sub Private Sub opt 按姓名查询_Click If opt 按姓名查询.Value True Then cbo 按学号查询.Enabled False opt 按学号查询.Value False txt 按姓名查询.Enabled True End If cbo 按学号查询.Clear End Sub Private Sub opt 按学号查询_Click If opt 按学号查询.Value True Then cbo 按学号查询.Enabled True opt 按姓名查询.Value False txt 按姓名查询.Enabled False Set rs Nothing sql quotselect from studentquot rs.Open sql conn adOpenDynamic adLockOptimistic Do While Not rs.EOF cbo 按学号查询.AddItem rs学号 rs.MoveNext Loop End If txt 按姓名查询.Text quotquot End Sub 4.3.2 成绩录入模块 在本模块中,本人尝试使用了两个时钟控件来控制窗体。
当单击“查看成绩”按纽时,触发时钟控件一,使窗口高度增大, MSHFlexGrid 装载数据,显示。
并设置条件,当高度达到一定的值时时钟控件一的 Enable 属性变为 False,失去与数据源的连接。
当单击“确定”按纽时,清除 MSHFlexGrid,并使高度减少,达到一定值时失去效应。
源程序窗口为: 其代码实现为: Private Sub cbo 查看成绩_Click Timer1.Enabled True End Sub Private Sub cbo 关闭_Click Unload frm 成绩录入 End Sub Private Sub cbo 确定_Click Timer2.Enabled True MSHFlexGrid1.Clear End Sub Private Sub cbo 添加记录_Click If txt 学号.Text ltgt quotquot And txt 姓名.Text ltgt quotquot And cbo 性别.Text ltgtquotquot And txt 年龄.Text ltgt quotquot And txt 数学.Text ltgt quotquot And txt 英语.Text ltgtquotquot And txtvb.Text ltgt quotquot Then Set.
上一篇:
客户资源管理系统
下一篇:
爱情只不过就是,爱与不爱