毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB学生成绩管理系统 第6页

更新时间:2008-6-24:  来源:毕业论文

VB学生成绩管理系统 第6页

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

recordnumer = recordnumer + 1

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

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)

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

paixu

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

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

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页

VB学生成绩管理系统 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。