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编程的细节问题不清楚,在此过程真是困难重重呀.然后,我通过再看课本进一步去理解课本的内容,再去编写程序。但还是遇到了问题,经过反复的思考去修改,最后程序终于能运行了,那刻自己感到很自豪。我记得老师曾经说过这样一句话:在编程序的过程中,你要反复的去思考,没有做不到的事,只有想不到的事。总而言之,今后我一定要多看一些编写程序的书籍,通过自己亲手去操作编写程序,学习更多的知识来提高自己的能力。
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1