用 PDCA 模式建立整合型管理体系
15
页脚内容
摘要
该学生成绩管理系统是用 Visual Basic 制作的,该系统可以实现教师进行对学生的成绩管理,添加学生用户以及可以查询学生的成绩;还实现学生件中最后一条记录的编号Dim position As Long’当前记录编号
Private Sub addCmd_Click()’添加学生的成绩lastrecord = LOF(filenum) / Len(s) lastrecord = lastrecord + 1
= = = = = =
Put #filenum, lastrecord, s’ = ""
= "" = "" = "" = "" = "" End Sub
Private Sub cancelCmd_Click()’删除学生的成绩Dim i As Integer, ft As Integer’定义变量lastrecord = LOF(filenum) / Len(s)
ft = FreeFile()
Open "" For Random As ft Len = Len(s)’打开随机文件position = Seek(filenum)
position = position - 1 For i = 1 To lastrecord
If i <> position Then’判断是否与当前记录编号一致Get filenum, i, s’从随机文件读取数据
Put ft, i, s End If
Next
lastrecord = lastrecord - 1 Close filenum
Close ft
Kill ""
Name "" As ""
15
页脚内容
用 PDCA 模式建立整合型管理体系
filenum = FreeFile
Open "" For Random As #filenum Len = Len(s)’ = ""
= "" = "" = "" = "" = "" End Sub
Private Sub Form_Load() filenum = FreeFile
Open "" For Random As #filenum Len = Len(s) position = Seek(filenum)
Get filenum, position, s = = = = = =
、教师对学生添加用户的界面
主要代码:
图 3-4 添加用户界面
15
页脚内容
Private Sub addlCmd_Click()’添加学生用户lastrecord = LOF(filenum) / Len(m) lastrecord = lastrecord + 1
15
页脚内容
15
页脚内容
用 PDCA 模式建立整合型管理体系
= =
Put #filenum, lastrecord, m = "" = ""
End Sub
Private Sub cancelCmd_Click()’删除学生用户Dim j As Integer, jt As Integer
lastrecord = LOF(filenum) / Len(m) ft = FreeFile()
Op
用VB制作学生成绩管理系统 来自淘豆网www.taodocs.com转载请标明出处.