Private Sub 确定_Click()
If (Text3.Text < 0 Or Text3.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text3.SetFocus
GoTo chonglai
End If
If (Text4.Text < 0 Or Text4.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text4.SetFocus
GoTo chonglai
End If
MsgBox "输入有误,请重新输入"
Text5.SetFocus
GoTo chonglai
End If
If (Text6.Text < 0 Or Text6.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text6.SetFocus
GoTo chonglai
End If
If (Text7.Text < 0 Or Text7.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text7.SetFocus
GoTo chonglai
End If
Open "cj.dat" For Random As #1 Len = Len(recordvar)
recordnumer = LOF(1) / Len(recordvar)
recordvar.stnum = Text1.Text
recordvar.stname = Text2.Text
recordvar.gaoshu = Text3.Text
recordvar.yingyu = Text4.Text
recordvar.wuli = Text5.Text
recordvar.cyuyan = Text6.Text
Put #1, recordnumer, recordvar
paixu
Close #1
Visible = False
Form2.Visible = True
Unload Form5
chonglai:
End Sub若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn
信息的修改:
Private Sub 确定_Click()
If (Text3.Text < 0 Or Text3.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text3.SetFocus
GoTo chonglai
End If
If (Text4.Text < 0 Or Text4.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text4.SetFocus
GoTo chonglai
End If
GoTo chonglai
End If
If (Text6.Text < 0 Or Text6.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text6.SetFocus
GoTo chonglai
End If
If (Text7.Text < 0 Or Text7.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text7.SetFocus
GoTo chonglai
End If
Open "cj.dat" For Random As #1 Len = Len(recordvar)
recordvar.stnum = Text1.Text
recordvar.stname = Text2.Text
recordvar.gaoshu = Text3.Text
recordvar.yingyu = Text4.Text
recordvar.wuli = Text5.Text
recordvar.cyuyan = Text6.Text
recordvar.jisuanji = Text7.Text
Close #1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Visible = False
Form2.Visible = True
Unload Form7
chonglai:
End Sub
删除学生成绩:
Private Sub 确定_Click()
If (Text3.Text < 0 Or Text3.Text > 100 Or Text3.Text = "") Then
MsgBox "输入有误,请重新输入"
Text3.SetFocus
GoTo chonglai
End If
If (Text4.Text < 0 Or Text4.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text4.SetFocus
GoTo chonglai
End If
If (Text6.Text < 0 Or Text6.Text > 100) Then
MsgBox "输入有误,请重新输入"
Text6.SetFocus
GoTo chonglai
End If
If (Text7.Text < 0 Or Text7.Text > 100) Then
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页