【精品】成绩管理系统代码

《【精品】成绩管理系统代码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、密码程序:(forml)PrivateSubForm_Load()#畏入窗体事件过程Form2.Hidec进入密码事件过程EndSubPrivateSubCmdIn_Click()StaticnIfn=3Then:MsgBoxH对来起！密码三次错误退出！匕Endpass$="Extl.Text'为Textl开始获得焦点设其tabindex=OIfpass$=”666666”ThenForml.HideForm2.ShowElseIfLabell.Caption="请重新输入密码:Text1.Text=nn，使文本框清空Textl.SetFocusEndIfEndSub1（密码输入后）按回车

2、键将触发KeyPress事件（替代鼠标单击'进入'）PrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCmdIn_ClickEndIfc退出密码事件过程EndSubPrivateSubCmdExit_Click()EndEndSub二、成绩管理系统程序:1.标准模块代码:(Modulel)Typestudent"定义学生信息记录类型idAsString*8nameAsString*10classAsString*10subjectAsString*20mark(lTo3)AsIntegerEndTypePublicstuAs

3、student厶定义student类型变量存放当前记录内容PublicfilenameAsString淀义变量存放学生信息文件名Publicrec_noAsInteger厶定义变量存放当前记录号Publicrec_totalAsInteger厶定义变量存放总记录数PublicrecjongAsInteger“定义变量存放记录长度2.成绩管理代码:(form2)PrivateSubcmdadd_Click()，添加记录事件过程DimiAsInteger,nmsgAsIntegerFori=1Torec_totalGet#1，i,stuIfTrim(stu.id)=Trim(txtid.Text)

4、Thennmsg=MsgBox(”文件中已有该同学的记录，要显示修改此记录吗?蔦vbYesNo)Ifnmsg=vbYesThenrec_no=iCalldisplayEndIfExitSubEndIfNextiCallgetdatarec_total=rec_total+1rec_no=rec_totalPut#1，rec_no,stuEndSubPrivateSubcmdbefore_Click()厶显示上一条记录事件过程Ifrec_no>1Thenrec_no=rec_no-1ElseMsgBoxn现在已是首记录！”ExitSubEndIfGet#1，rec_no,stuCalldispl

5、ayEndSubPrivateSubcmdchange_Click()“修改当前记录事件过程Callgetdata'将修改的数据保存到记录变量中Put#1,rec_no,stu，修改记录Calldispl町，删除当前记录事件过程EndSubPrivateSubcmddelete_Click()DimiAsIntegerDimdempnoAsIntegertempno=rec_noOpenfilename&n.tempHForRandomAs#2Len=rec_longFori=1Torec_totalIfi<>tempnoThenGet#1，i，stuPut#2,，stuEndIfNextiC

6、loseKillfilenameNamefilename&''.temp''AsfilenameCallfileopenEndSubPrivateSubcmdnext_Click()DimnmsgAsIntegerIfrec_no

7、c清除各文本框中的内容子过程DimiAsIntegerWithstutxtid=txtname=Hntxtclass=nn:txtsubject=Fori=1To3txtmark(i)=nnNextitxttotal=EndWithEndSubPrivateSubdisplayO《显示当前记录子过程DimiAsIntegerGet#1，rec_no,stuWithstutxtid=・id:txtn