VB学生成绩管理系统 第5页
下面给出系统开发出来的详细界面以阐述学生成绩管理系统的具体功能
程图
Sub pingbi3()
Form10.Command4.Visible = False
End Sub
Form2.删除.Visible = False
End Sub
Sub pingbi2()
pingbi3
End Sub
Private Sub 帮助_Click()
r = MsgBox("用户名提示:123....密码提示:123...", 64, "帮助")
Form1.Show
End Sub
登陆界面:
管理员密码登入:
Option Explicit
Const username As String = "123456"
Const password As String = "123456"
Private Sub cmdCancel_Click()
txtUsername.Text = ""
txtPassword.Text = ""
txtUsername.SetFocus
End Sub
Unload Form1
Unload Me
Else
n = n + 1
If n < 3 Then
i = MsgBox("用户名或密码错误,请重新输入!", vbCritical + vbRetryCancel + vbDefaultButton1, "登录失败")
If i = vbRetry Then
txtUsername.Text = ""
txtPassword.Text = ""
txtUsername.SetFocus
Else
End
End If
Else
MsgBox "三次错误,请退出!", vbOKOnly + vbExclamation, "登录失败"
End
End If
End If
End Sub
Private Sub Command1_Click()
Unload Me
Form1.Show
End Sub
添加学生成绩 :
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn
Sub paixu()
For n = 1 To recordnumer - 1
For m = 1 To recordnumer
Get #1, m, recordvar1
Get #1, m + 1, recordvar2
If recordvar2.average > recordvar1.average Then
recordvar.jisuanji = recordvar1.jisuanji
Put #1, m, recordvar2
Put #1, m + 1, recordvar
End If
Next m
Next n
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页