SQL 数据库课程设计学生成绩系统(4)

SQL 数据库课程设计学生成绩系统

4.3. 主界面模块 4.3.1 说明

作为系统总界面，供用户进行各项选择。

4.3.2

窗体设计

主界面模块窗体类型为MDIForm，界面如下图所示。

SQL 数据库课程设计学生成绩系统

4.3.3 代码设计

窗体变为活动窗体处理程序（MDIForm－Activate）

Private Sub MDIForm_Activate()

WindowState = 2 ‘窗体最大化状态

StatusBar1.Panels(1).Text = "用户名: " & UserName ‘在状态栏显示用户名、用户类型 If UserType = True Then

StatusBar1.Panels(2).Text = "用户类型: 管理员" Else

StatusBar1.Panels(2).Text = "用户类型: 普通用户"

End If

If UserType = False Then ‘对普通用户设某些菜单项不可用 AA1.Enabled = False BB1.Enabled = False CC.Enabled = False DD1.Enabled = False

Toolbar1.Buttons(1).Enabled = False ‘对普通用户设工具栏的某些按钮不可用 Toolbar1.Buttons(3).Enabled = False Toolbar1.Buttons(6).Enabled = False Toolbar1.Buttons(7).Enabled = False Toolbar1.Buttons(9).Enabled = False End If End Sub

定时器（Timer1）处理程序（Timer）

Private Sub Timer1_Timer()

StatusBar1.Panels(3).Text = Now End Sub

‘在状态栏中显示当前时间

工具栏（Toolbar1）处理程序（ButtonClick）

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1

Form11.Show (1) ‘用户管理 Case 3

Form21.Show (1) ‘学生基本信息维护 Case 4

Form22.Show (1) ‘学生基本信息查询 Case 6

Form31.Show (1) ‘课程添加 Case 7

Form32.Show (1) ‘课程删除 Case 9

Form41.Show (1) ‘学生成绩维护