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

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

 若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.youerw.com

3.5.3 逻辑结构设计

数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存档数据和数据需求，分析各个数据之间的关系，按照DBMS提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型。

 

 

第四章  学生成绩管理系统的实现

下面给出系统开发出来的详细界面以阐述学生成绩管理系统的具体功能

4.1登陆界面编码设计

程图

 

Sub pingbi3()

Form10.Command4.Visible = False

End Sub

 

 

Form2.删除.Visible = False

 

End Sub

Sub pingbi2()

Form9.Show

pingbi3

End Sub

 

 

Private Sub 帮助_Click()

r = MsgBox("用户名提示：123....密码提示：123...", 64, "帮助")

Form1.Show

End Sub 

 若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.youerw.com

 

登陆界面： 

管理员密码登入： 

 

Option Explicit

Const username As String = "123456"

Const password As String = "123456"

 

Private Sub cmdCancel_Click()

    txtUsername.Text = ""

    txtPassword.Text = ""

    txtUsername.SetFocus

End Sub

        Form2.Show

        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.youerw.com

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.cyuyan = recordvar1.cyuyan

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] 下一页

VB学生成绩管理系统 第5页下载如图片无法显示或论文不完整，请联系qq752018766