成绩系统框图、界面.docVIP

VB课程设计题目：学 生 成 绩 管 理 系 统 设计一个简单的学生成绩程序管理系统，使用随机文件存储学生信息，该程序具有数据添加、修改、删除及学生信息顺序查询功能。程序的运行界面如下图所示。 一、系统结构框图如下： 二、密码程序界面及主要控件属性设置 1．程序界面： 2. 主要控件属性设置： 对象 属性（属性值） 属性（属性值） 说明 窗体1 Name (Form1) Caption(“登陆成绩管理系统”) 窗体2 Name (Form2) Caption(“学生成绩管理系统”) 文本框1 Name ( Text1) Text (“”) PassWordChar(*) 指定显示在文本框中的替代符 命令按钮1 Name(CmdIn) Caption(“进入”) 标签1 Name(Label1) Caption(“请输入密码：”) AutoSize(True) 返回或设置一个值，以决定控件是否自动改变大小显示其全部内容 命令按钮2 Name(CmdExit) Caption(“退出”) 三 、成绩管理程序界面及主要控件属性设置 1. 程序界面： 2. 主要控件属性设置： 对象 属性（属性值） 属性（属性值） 说明 窗体 Name (form1) Caption(“学生成绩管理”) 文本框1 Name (TxtID) Text(“”) 输入和显示学号 文本框2 Name (TxtName) Text(“”) 输入和显示姓名 文本框3 Name(TxtClass) Text(“”) 输入和显示班级 文本框4 Name(TxtSubject) Text(“”) 输入和显示专业 文本框控件数组5 Name(TxtMark) Index(1—3) 输入和显示三门课程成绩 文本框6 Name(TxtTotal) Text(“”) 显示总成绩 命令按钮1 Name (CmdAdd) Caption(“添加”) 向文件中追加记录 命令按钮2 Name(CmdChange) Caption(“修改”) 修改当前记录 命令按钮3 Name(CmdDelete) Caption(“删除”) 删除当前记录 命令按钮4 Name(CmdBefore) Caption(“上一个”) 显示上一个记录 命令按钮5 Name(CmdNext) Caption(“下一个”) 显示上一个记录 系统程序 一、密码程序：（form1） Private Sub Form_Load()者 ‘装入窗体事件过程 Form2.Hide End Sub Private Sub CmdIn_Click() ‘进入密码事件过程 Static n n = n + 1 If n = 3 Then: MsgBox 对来起！密码三次错误退出！: End pass$ = Text1.Text 为Text1开始获得焦点设其tabindex=0 If pass$ = 666666 Then Form1.Hide Form2.Show Else Label1.Caption = 请重新输入密码： Text1.Text = 使文本框清空 Text1.SetFocus End If End Sub （密码输入后）按回车键将触发KeyPress事件（替代鼠标单击‘进入’） Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdIn_Click End If End Sub Private Sub CmdExit_Click() ‘退出密码事件过程 End End Sub 二、成绩管理系统程序： 1. 标准模块代码：(Module1) Type student ‘定义学生信息记录类型 id As String * 8 name As String * 10 class As String * 10 subject As String * 20 mark(1 To 3) As Integer End Type Public stu As student ‘定义student类型变量存放当前记录内容 Public filename As String ‘定义变量存放学生信息文件名 Public rec_no As Integer ‘定义变量存放当前记录号 Public rec_total As Integer ‘定义变量存放总记录数 Public rec_long As Integer ‘定义变量存放记录长度 ———