用VB制作学生成绩管理系统最新范本模板Word下载.docx

1、2、教师的登录界面图3-2 教师登录界面代码：Private Sub Command1_Click（）Dim usename As String， pwd As String定义用户名和用户密码usename = LCase（Trim（T1.Text）pwd = T2.TextIf usename = admin” Then判断用户名和密码是否正确 If pwd = ”123456 ThenUnload Me 管理Form.Show Else MsgBox 密码错误！， vbOKOnly + vbInformation， 提示 T2.SetFocus T2。SelLength = 99 End

2、 IfElse用户名错误!End IfEnd Sub3。3、教师对学生的成绩管理的界面图33 成绩管理界面主要代码：Private Type student 对student类型和公共变量的定义 num As String * 8 name As String * 6 gs As Integer yy As Integer vb As Integer wl As IntegerEnd TypeDim s As student记录变量Dim filenum As Integer随机文件编号Dim lastrecord As Long文件中最后一条记录的编号Dim position As Long

3、当前记录编号Private Sub addCmd_Click（）添加学生的成绩lastrecord = LOF（filenum） / Len（s）lastrecord = lastrecord + 1s.num = NumText。Texts。name = NameText.Textgs = GsText。s.yy = YyText.Texts.vb = VbText.Texts.wl = WlText。Put #filenum， lastrecord， s向随机文件写入数据NumText.Text = NameText.Text = GsText.Text = ”YyText。Text =

4、”VbText。WlText。Text = ”Private Sub cancelCmd_Click（）删除学生的成绩Dim i As Integer， ft As Integer定义变量ft = FreeFile（）Open ”student.tmp For Random As ft Len = Len（s）打开随机文件position = Seek（filenum）position = position 1For i = 1 To lastrecordIf i position Then Get filenum， i, m Put jt, i， mClose jtKill ”student

5、。dat”Name message.tmp” As message。dat” For Random As #filenum Len = Len（m）message.dat For Random As filenum Len = Len（m）Get filenum, position， mNumText.Text = m.numPwdText.Text = m。pwd For Random As #filenum Len = Len（m）Get filenum， position， mText = m.numText = m.pwd5、学生的登录界面图3-5 学生登录界面主要代码:Private

6、 Type messagenum As String * 6pwd As String 6Private Type passwordDim n As passwordDim m As messageDim filenb As IntegerDim filenum As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command1_Click（）学生第一次登录 If BText。Text = m.num Then If PText.Text = m.pwd Then Unload Me 管理Form。Showc.Ena

7、bled = Falset.Enabled = False 管理Form.xg。Enabled = True MsgBox ”密码错误!”, vbOKOnly + vbInformation, ”提示” PText。SetFocus班号错误！Private Sub Command3_Click（）学生修改密码后的登录If BText.Text = m。num Then If PText.Text = n.pwd Thenc。Enabled = False 管理Form.t。 管理Form.xg.Enabled = True, vbOKOnly + vbInformation, ”提示 MsgB

8、ox ”班号错误！登录Form。Visible = False管理Form。filenb = FreeFileOpen App.Path ”message。dat” For Random As #filenb Len = Len（m）添户Form.NumText。添户Form。Text = m。lastrecord = LOF（filenb） / Len（m） For i = 1 To lastrecord Get filenb， i, m Nextfilenc = FreeFileOpen App.Path ”password.dat” For Random As filenc Len =

9、Len（n）改密码Form.xpwdtext。Text = n.pwdlastrecord = LOF（filenc） / Len（n） Get #filenc, i， n6、学生查询成绩的界面图3-6 成绩查询界面Private Type student num As String 8 name As String 6Dim s As studentDim fileno As IntegerPrivate Sub Command2_Click（）学生查询成绩fileno = FreeFileOpen App。Path student。 For Random As #fileno Len =

10、Len（s）添加Form。NameText.Text = s。添加Form.GsText.Text = s.gs添加Form.YyText.Text = s.yy添加Form.VbText。添加Form.WlText.Text = s。lastrecord = LOF（fileno） / Len（s） Get fileno, i, s If T1。Text = s.num Then T3.Text = s.gs T4。 T5.Text = s。vb T6。3.7、学生修改密码的界面图3-7 修改密码界面pwd As String * 6Dim filenu As IntegerPrivate

11、Sub Command1_Click（）学生修改密码If qpwdtext.Text xpwdtext.Text Then判断两次输入的新密码是否一致MsgBox ”新密码和确认新密码不一致MsgBox ”记得下次登录请用新密码,并登录时点击再登录lastrecord = LOF（filenum） / Len（n）n。pwd = xpwdtext.TextPut #filenum， lastrecord， nxpwdtext.Text = ”Open ”password。 For Random As #filenum Len = Len（n）Get filenum, position, nxp

12、wdtext。Text = n。pwd 小结通过这一周的VB程序设计实践，我感觉学到了很多知识。不仅仅巩固了对课本知识的理解，还学会了如何独自去思考程序中出现的问题。我还发现自己之前根本没学到什么，都怪自己懒惰了，没有好好去学。一开始做这个学生成绩管理系统无头绪,接着看了下课本，试着用自己学到的知识编写这个程序。我对数据文件不太理解，还有一些VB编程的细节问题不清楚，在此过程真是困难重重呀.然后，我通过再看课本进一步去理解课本的内容，再去编写程序。但还是遇到了问题，经过反复的思考去修改，最后程序终于能运行了,那刻自己感到很自豪。我记得老师曾经说过这样一句话：在编程序的过程中，你要反复的去思考，没有做不到的事，只有想不到的事。总而言之，今后我一定要多看一些编写程序的书籍，通过自己亲手去操作编写程序,学习更多的知识来提高自己的能力。