学生成绩管理系统本科毕业论文

第4章 系统详细设计

4.1 系统开发工具及运行环境

1. 系统开发工具

本系统利用VB6.0全套开发工具做程序开发，利用Acess数据库作为学生成绩管理系统的后台数据库。VB6.0在数据库开发方面功能很强大，大量使用可视化的界面操作工具，支持面向对象的程序设计，其以简便、灵活、高效等优点著称。而Acess数据库以功能比较强大，由于VB6.0中无需另外安装其支持环境也能正常打开数据库，具有很强的适应性，更重要的是利用Acess做数据库开发，在数据备份方面很优势，方法简单，可靠。[3] 2 ．系统运行环境

软件环境：系统环境win2000及以上 + Acess数据库 硬件环境：CPU P4 2.4G、256MB内存、80G硬盘

4.2 系统各功能模块的设计及实现

执行程序后，首先进入的是学生成绩管理系统的登录界面,用户通过输入正确的信息后,就进入系统主界面。 如图4-1所示

图4-1 登陆界面

以下是登陆模块的代码： Private Sub Command1_Click() Text1.Text = DBCombo1.Text

Data1.Recordset.FindFirst \

If Data1.Recordset.NoMatch Then MsgBox (\没有此用户\ DBCombo1.Text = \ Text2.Text = \ Exit Sub End If

If Text4.Text = Text2.Text Then main.Show Unload denglu Exit Sub End If

If Not (Text4.Text = Text2.Text) Then MsgBox (\密码错误\ Text2.Text = \ Exit Sub End If End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & \End Sub[4]

进入主界面后，用户可以进行学生信息添加、删除、修改、查询和打印以及对数据库的备份等操作。如图4-2所示

图4-2 系统主界面

下面是主界面模块的代码： Private Sub bklr_Click() bukao.Show End Sub

Private Sub bkxshchx_Click() chaxun_bukao.Show End Sub

Private Sub bkxshmddy_Click() dayin_bukao.Show End Sub

Private Sub chjlr_Click() chengji.Show End Sub

Private Sub gyrj_Click() frmAbout.Show End Sub

Private Sub kchxxlr_Click() kecheng.Show End Sub

Private Sub MDIForm_Load()

End Sub

Private Sub shjbf_Click() beifen.Show End Sub

Private Sub tch_Click() End End Sub

Private Sub xshxxlr_Click() xuesheng.Show End Sub

Private Sub yhqx_Click() quanxian.Show

End Sub

4.2.1系统管理模块设计

在这里管理员可以进行添加用户、修改用户和删除用户等操作。如图4-3所示

图4-3 用户权限设置

用户权限设置代码如下： Private Sub Command1_Click() Data1.Recordset.AddNew Command1.Enabled = False Command2.Enabled = False

Command3.Enabled = True Command4.Enabled = True End Sub

Private Sub Command2_Click() Data1.Recordset.Edit Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True End Sub

Private Sub Command3_Click() Data1.Recordset.Update Data1.Refresh

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub

Private Sub Command4_Click() Data1.UpdateControls Data1.Refresh

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub

Private Sub Command5_Click()

answer = MsgBox(\确定删除数据吗？\核对框\If answer = 1 Then Data1.Recordset.Delete