[工学]软件项目管理指导书.doc

指 导 书 编写：周淦淼 学籍管理系统 要求：本系统通过VB与MS SQL Server 2000数据库相结合，开发出一个学籍管理系统。本系统用于中小学校的学籍管理。 一、系统功能结构 二、数据库设计 s_admin（操作员）表：用于保存允许使用系统的操作员的信息。 s_school（学校信息）表：用于保存学校的相关信息。 s_grade（年级信息）表：用于保存每个年级的信息。 s_class（班级信息）表：用于保存每个班级的信息。 s_student（学生信息）表：用于保存每个学生的相关信息。 s_course（课程信息）表：用于保存每门课程的相关信息。 s_coursetype（课程类型）表：用于保存课程的类型。该 s_gradecourse（年级课程信息）表：用来保存年级开课情况。 s_term（学期名称）表：用来保存学期信息。 s_result（学生成绩）表：用来保存学生的成绩信息。 三、系统效果 四、关键代码 1、主函数 Public fMainForm As frmMain Sub Main() Dim fLogin As New frmLogin Conn = data source=.;initial catalog=student;user id=sa;password=sa; 数据库连接字符串 fLogin.Show vbModal 显示登录窗体 If Not fLogin.OK Then 若登录失败 End 退出应用程序 End If Unload fLogin 卸载登录窗体 Set fMainForm = New frmMain 生成主窗体 Load fMainForm 装载主窗体 fMainForm.Show 显示主窗体 End Sub Private cnn As ADODB.Connection 连接数据库的Connection对象 Private rs As ADODB.Recordset 保存结果集的Recordset对象 Public strSQL As String 保存执行SQL语句的字符串 Public Conn As String 连接字符串 Public UserName As String 操作员名称 Public Right As Integer 操作员权限 Private Sub Connect() 连接数据库 If IsConnect = True Then 如果连接标记为真，则返回。否则会出错 Exit Sub End If Conn = data source=.;initial catalog=student;user id=sa;password=; On Error GoTo DbOpenErr Set cnn = New ADODB.Connection 关键New用于创建新对象cnn With cnn .Provider = sqloledb .ConnectionString = Conn .ConnectionTimeout = 10 .Open End With IsConnect = True 设置连接标记，表示已经连接到数据库 Exit Sub DbOpenErr: If Err = -2147467259 Then Set cnn = Nothing MsgBox 连接MS SQL Server数据库失败！ vbCrLf vbCrLf 请检查配置是否完好，数据库Student是否存在？, vbOKOnly + vbInformation, 学籍管理系统 End End If End Sub Public Sub Disconnect() 断开与数据库的连接 Dim rc As Long If IsConnect = False Then Exit Sub 如果连接标记为假，标明已经断开连接，则直接返回 End If cnn.Close 关闭连接 Set cnn = Nothing IsConnect = False End Sub Public Sub DB_Connect() 使用Connect_Num控制数据库连接 Connect_Num = Connect_Num + 1 Con