成绩系统框图、界面

《成绩系统框图、界面》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB课程设计题目：学生成绩管理系统设计一个简单的学生成绩程序管理系统，使用随机文件存储学生信息，该程序具有数据添加、修改、删除及学生信息顺序查询功能。程序的运行界面如下图所示。一、系统结构框图如下：查询（下一个）子模块删除子模块修改子模块查询（上一个）子模块添加子模块密码子模块登陆模块管理模块系统总体结构框图13/13二、密码程序界面及主要控件属性设置1．程序界面：2.主要控件属性设置：对象属性（属性值）属性（属性值）说明窗体1Name(Form1)Caption(“登陆成绩管理系统”)窗体2Name(Form2)Caption(“学生成绩管

2、理系统”)文本框1Name(Text1)Text(“”)PassWordChar(*)指定显示在文本框中的替代符命令按钮1Name(CmdIn)Caption(“进入”)标签1Name(Label1)Caption(“请输入密码：”)AutoSize(True)返回或设置一个值，以决定控件是否自动改变大小显示其全部内容命令按钮2Name(CmdExit)Caption(“退出”)13/13三、成绩管理程序界面及主要控件属性设置1.程序界面：2.主要控件属性设置：对象属性（属性值）属性（属性值）说明窗体Name(form1)Caption(“学

3、生成绩管理”)文本框1Name(TxtID)Text(“”)输入和显示学号文本框2Name(TxtName)Text(“”)输入和显示姓名文本框3Name(TxtClass)Text(“”)输入和显示班级文本框4Name(TxtSubject)Text(“”)输入和显示专业文本框控件数组5Name(TxtMark)Index(1—3)输入和显示三门课程成绩文本框6Name(TxtTotal)Text(“”)显示总成绩命令按钮1Name(CmdAdd)Caption(“添加”)向文件中追加记录命令按钮2Name(CmdChange)Captio

4、n(“修改”)修改当前记录命令按钮3Name(CmdDelete)Caption(“删除”)删除当前记录命令按钮4Name(CmdBefore)Caption(“上一个”)显示上一个记录命令按钮5Name(CmdNext)Caption(“下一个”)显示上一个记录四、系统程序13/13一、密码程序：（form1）PrivateSubForm_Load()者‘装入窗体事件过程Form2.HideEndSubPrivateSubCmdIn_Click()‘进入密码事件过程Staticnn=n+1Ifn=3Then:MsgBox"对来起！密码三次错

5、误退出！":Endpass$=Text1.Text'为Text1开始获得焦点设其tabindex=0Ifpass$="666666"ThenForm1.HideForm2.ShowElseLabel1.Caption="请重新输入密码："Text1.Text=""'使文本框清空Text1.SetFocusEndIfEndSub13/13'（密码输入后）按回车键将触发KeyPress事件（替代鼠标单击‘进入’）PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCmdIn_Cl

6、ickEndIfEndSubPrivateSubCmdExit_Click()‘退出密码事件过程EndEndSub13/13二、成绩管理系统程序：1.标准模块代码：(Module1)Typestudent‘定义学生信息记录类型idAsString*8nameAsString*10classAsString*10subjectAsString*20mark(1To3)AsIntegerEndTypePublicstuAsstudent‘定义student类型变量存放当前记录内容PublicfilenameAsString‘定义变量存放学生信息文

7、件名Publicrec_noAsInteger‘定义变量存放当前记录号Publicrec_totalAsInteger‘定义变量存放总记录数Publicrec_longAsInteger‘定义变量存放记录长度—————————————————————————13/132.成绩管理代码:（form2）PrivateSubcmdadd_Click()’添加记录事件过程DimiAsInteger,nmsgAsIntegerFori=1Torec_totalGet#1,i,stuIfTrim(stu.id)=Trim(txtid.Text)Thenn

8、msg=MsgBox("文件中已有该同学的记录，要显示修改此记录吗？",vbYesNo)Ifnmsg=vbYesThenrec_no=iCalldisplayEnd