学生成绩管理系统 数据库原理课设 - 图文

沈阳理工大学课程设计专用纸

对应的代码如下：

Dim miCount As Integer

Private Sub Command1_Click() Dim SQLStr As String

SQLStr = \密码表 Where Sno= '\Adodc1.RecordSource = SQLStr Adodc1.Refresh

If Adodc1.Recordset.BOF Then

MsgBox \用户名错误，重新输入\警告\ Text1.Text = \Text1.SetFocus Else

If Adodc1.Recordset.Fields(\密码\

MDIForm1.Show Unload Me Else

MsgBox \密码错误，重新输入 \警告\Text2.Text = \Text2.SetFocus End If End If

miCount = miCount + 1

If miCount = 3 Then Unload Me End Sub

3.3 主控界面

主控界面是MDI窗体，含有的主菜单包含：文件、图书管理、音像管理和系统。在未登录之前只有文件和系统两菜单可用，成功登录之后图书管理和音像管理两个主菜单变为可用的。主控界面的详细情况如下： [文件] 包含以下子菜单和功能：

[登录]菜单：打开登录界面 [退出]返回界面登录

[数据管理]菜单包含以下子菜单和功能：

[各科信息浏览]菜单：显示各科信息的浏览窗体 [修改信息]菜单：显示修改信息的更改窗体 [综合成绩查询]菜单包含以下子菜单和功能：

[混合查询]菜单：显示混合查询的浏览窗体 [打印报表]菜单包含以下子菜单和功能：

[学生成绩表] 菜单：学生成绩打印 [课程号]菜单：课程号打印 [学生信息表]：学生信息表打印

7

沈阳理工大学课程设计专用纸

主控界面的设计如下图所示：

图3.3：菜单编辑器

图3.4：主控界面

对应代码如下：

8

沈阳理工大学课程设计专用纸

Private Sub chengji_Click() DataReport1.Show MDIForm1.Hide End Sub

Private Sub Denglu_Click() 登陆.Show MDIForm1.Hide End Sub

Private Sub Exit_Click() 欢迎界面.Show MDIForm1.Hide End Sub

Private Sub Geke_Click() 信息浏览.Show MDIForm1.Hide End Sub

Private Sub Hunhe_Click() 查询.Show MDIForm1.Hide End Sub

Private Sub kecheng_Click() DataReport2.Show MDIForm1.Hide End Sub

Private Sub MDIForm_Load() End Sub

Private Sub Xiugai_Click() 修改信息.Show MDIForm1.Hide End Sub

Private Sub xuesheng_Click() DataReport3.Show MDIForm1.Hide End Sub

3.4 信息浏览界面

（1）信息浏览界面

该窗体具有新增记录、删除记录、修改记录、取消修改等功能。当新增记录或修改记录时，只要没有单击[确定]按钮，单击[取消]按钮，可以取消上述操作。[成绩]按钮则会调到成绩界面。取消则会返回上一界面。

9

沈阳理工大学课程设计专用纸

控件名 Text1 属性名 DataSource DataField Locked 属性值 Adodc1 学号 True Adodc1 姓名 True Adodc1 专业 控件名 属性名 Text3 属性值 DataSource Adodc1 DataField 性别 Locked True Text2 DataSource DataField Locked Text4 DataSource Adodc1 DataField 生日 Locked True True Text5 DataSource DataField Text5 Locked 信息浏览界面如下：

图3.5：信息浏览

对应的代码如下：

Private Sub Command8_Click()

10