学生管理系统说明书 - 图文(2)

第二章 系统的开发工具及数据库的设计

2.1 系统开发工具的选择

系统采用微软的Visual Studio6.0简体中文版进行开发 系统数据库采用的是Microsoft SQL Server 2005

2.2 数据库基本表的建立

图2.1成绩表

图2.2 课程信息表

图2.3 成绩信息表

4

图2.4 学生信息表

图2.5 用户信息表

5

第三章 系统代码及开发过程

3.1系统的开发

学生信息管理系统对学校加强学生信息理有着极其重要的作用。由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。而本系统则是在以前成绩管理系统的基础之上开发出来的。

3.2功能需求描述

按学生角度管理教师可以看到学生信息和成绩信息。学生信息包括学生姓名，性别，民族，入学日期，出生日期等信息。课程信息包括课程号，课程名，学时，学分等信息。成绩管理包括课程号，学号，分数等信息。每一个单独的管理系统都可以对其进行增加、修改和删除，字体可大可小。

本系统由4个窗体组成，以下是几个主要窗体的图示及代码。

3.3系统界面制作

3.3.1.登录界面的制作

用户在本窗体输入相应的学号和密码，单击“登录”就会将输入提交给系统以用学号、密码。如果学号及密码正确，则会进入系统主页。否则系统会给出提示重新输入。

使用内蒙古工业大学金川校区电力大楼做背景图片 运行效果如下：

6

图3.1登陆界面

代码如下：

Private Sub Command1_Click() Dim user As String Dim password As String Dim pw As String Dim yh As String Dim a As String user = Text1.Text password = Text2.Text

If Text1.Text <> \

Adodc1.ConnectionString = \Security=SSPI;Persist Security Info=False;Initial Catalog=PXSCJ;Data Source=XS18\

Adodc1.RecordSource = \学号,密码 from DLB where 学号='\& user & \密码='\ Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then Form1.Show

7

Unload Me Else:

MsgBox \学号不存在或密码错误！！\vbOKOnly + vbExclamation, \提示\

Text1.Text = \ Text2.Text = \ Text1.SetFocus End If Else

MsgBox \学号和密码不能为空！！\提示\

Text1.Text = \ Text2.Text = \ Text1.SetFocus End If End Sub

Private Sub Command2_Click()

sure = MsgBox(\确定要退出系统吗？\提示信息\ If sure = vbOK Then End Else End If End Sub

3.3.2主页的设计

主要是使用菜单编辑器对系统实现的功能进行分类和列举，该系统可以分为学生信息管理，课程信息管理，成绩管理. 运行效果如下：

8