MsgBox "输入有误，请重新输入"
Text7.SetFocus
GoTo chonglai
End If
Open "cj.dat" For Random As #1 Len = Len(recordvar)
repeat:
Get #1, position + 1, recordvar
If Loc(1) > recordnumer Then GoTo finish
Put #1, position, recordvar
position = position + 1
GoTo repeat
finish:
recordnumer = recordnumer - 1
Next i
Close #1
Close #2
Kill "cj.dat"
Name "cj1.dat" As "cj.dat"
Visible = False
Form2.Visible = True
Unload Form6
chonglai:
End Sub
查找学生成绩：
Private Sub Command1_Click()
Dim h As Integer
Dim n As Integer
Dim Comp2 As String
Text1.Text = "学号" + " " + "姓名" + " " + "高数" + " " + "英语" + " " + "物理" + " " + "c语言" + " " + "计算机文化基础" + " " + "平均分" + Chr(13) + Chr(10)
F = 0
h = 1
Open "cj.dat" For Random As #1 Len = Len(recordvar)
recordnumer = LOF(1) / Len(recordvar)
For n = 1 To recordnumer
Get #1, n, recordvar
Comp1 = Trim(textfindNum.Text)
temptext.Text = recordvar.stnum
Comp2 = Trim(temptext.Text)
If StrComp(Comp1, Comp2) = 0 Then
h = n
F = F + 1
Get #1, h, recordvar
With recordvar
Next n
Close #1
Label1.Caption = "一共找到" + Str(F) + "条记录"
If F = 0 Then
MsgBox "没有该记录", vbInformation, "提示"
End If
End Sub
学生成绩管理是学校管理中异常重要的一个环节，作为学校，除了育人，就是育知，学生成绩管理的计算机化是整个学校教务管理中的重要一部分，能否实现这一步关系到学校办学整体效率的高低，介与它的重要性，学生成绩管理系统的开发与应用就逐渐提入议程，并占着越来越重要的份量。
运用学生成绩管理系统可以减轻学院教学人员的工作量，缩小开支，提高工作效率与准确率，能够合理安排时间，能够尽快的知道自己的考试成绩，投入新的课程的学习或复习这次没有考过的课程。而学生成绩管理系统的应用也为今天的民办教育在未来市场的竞争力有所提高。从大的方向说，就是为了加速我国四化建设的发展，实现全部的自动化，使我国发展成为通讯网络化，决策科学化，办公自动化的国家。
在现代，高科技的飞跃发展，人们工作习惯的改变，特别是电脑的大量普及，人们生活节奏越来越快，怎样提高工作效率是人们首先考虑的问题。学生成绩管理是一个非常繁琐与复杂的一项工作，一个原因就是工作量大，不好管。对于一个学校而言，更应该运用一些本地资源，提高管理的力度，对学生负责，对国家负责。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页