软件项目管理指导书.docx

软件项目管理指导书.docx

《软件项目管理指导书.docx》由会员分享，可在线阅读，更多相关《软件项目管理指导书.docx（11页珍藏版）》请在冰豆网上搜索。

软件项目管理指导书

指

导

书

编写：

周淦淼

学籍管理系统

要求：

本系统通过VB与MSSQLServer2000数据库相结合，开发出一个学籍管理系统。

本系统用于中小学校的学籍管理。

一、系统功能结构

二、数据库设计

•s_admin（操作员）表：

用于保存允许使用系统的操作员的信息。

•s_school（学校信息）表：

用于保存学校的相关信息。

•s_grade（年级信息）表：

用于保存每个年级的信息。

•s_class（班级信息）表：

用于保存每个班级的信息。

•s_student（学生信息）表：

用于保存每个学生的相关信息。

•s_course（课程信息）表：

用于保存每门课程的相关信息。

•s_coursetype（课程类型）表：

用于保存课程的类型。

该

•s_gradecourse（年级课程信息）表：

用来保存年级开课情况。

•s_term（学期名称）表：

用来保存学期信息。

•s_result（学生成绩）表：

用来保存学生的成绩信息。

三、系统效果

四、关键代码

1、主函数

PublicfMainFormAsfrmMain

SubMain（）

DimfLoginAsNewfrmLogin

Conn="datasource=.;initialcatalog=student;userid=sa;password=sa;"'数据库连接字符串

fLogin.ShowvbModal'显示登录窗体

IfNotfLogin.OKThen'若登录失败

End'退出应用程序

EndIf

UnloadfLogin'卸载登录窗体

SetfMainForm=NewfrmMain'生成主窗体

LoadfMainForm'装载主窗体

fMainForm.Show'显示主窗体

EndSub

2、数据库连接

PrivateIsConnectAsBoolean'标记数据库是否连接

PrivateConnect_NumAsInteger'标记执行Connect（）函数后，访问数据库的次数

PrivatecnnAsADODB.Connection'连接数据库的Connection对象

PrivatersAsADODB.Recordset'保存结果集的Recordset对象

PublicstrSQLAsString'保存执行SQL语句的字符串

PublicConnAsString'连接字符串

PublicUserNameAsString'操作员名称

PublicRightAsInteger'操作员权限

PrivateSubConnect（）'连接数据库

IfIsConnect=TrueThen'如果连接标记为真，则返回。

否则会出错

ExitSub

EndIf

Conn="datasource=.;initialcatalog=student;userid=sa;password=;"

OnErrorGoToDbOpenErr

Setcnn=NewADODB.Connection'关键New用于创建新对象cnn

Withcnn

.Provider="sqloledb"

.ConnectionString=Conn

.ConnectionTimeout=10

.Open

EndWith

IsConnect=True'设置连接标记，表示已经连接到数据库

ExitSub

DbOpenErr:

IfErr=-2147467259Then

Setcnn=Nothing

MsgBox"连接MSSQLServer数据库失败！

"&vbCrLf&vbCrLf&"请检查配置是否完好，数据库Student是否存在？

",vbOKOnly+vbInformation,"学籍管理系统"

End

EndIf

EndSub

PublicSubDisconnect（）'断开与数据库的连接

DimrcAsLong

IfIsConnect=FalseThenExitSub'如果连接标记为假，标明已经断开连接，则直接返回

EndIf

cnn.Close'关闭连接

Setcnn=Nothing

IsConnect=False

EndSub

PublicSubDB_Connect（）'使用Connect_Num控制数据库连接

Connect_Num=Connect_Num+1

Connect

EndSub

PublicSubDB_Disconnect（）

IfConnect_Num>=CONNECT_LOOP_MAXThen

Connect_Num=0

Disconnect

EndIf

EndSub

PublicSubDBapi_Disconnect（）'强制关闭api方式访问的数据库，计数器复位

Connect_Num=0

Disconnect

EndSub

PublicSubSQLExt（ByValTmpSQLstmtAsString）'执行数据库操作语句

DimcmdAsNewADODB.Command'创建Command对象cmd

DB_Connect'连接到数据库

Setcmd.ActiveConnection=cnn'设置cmd的ActiveConnection属性，指定与其关联的数据库连接

cmd.CommandText=TmpSQLstmt'设置要执行的命令文本

cmd.Execute

Setcmd=Nothing

DB_Disconnect

EndSub

PublicFunctionQueryExt（ByValTmpSQLstmtAsString）AsADODB.Recordset'执行数据库查询语句

DimrstAsNewADODB.Recordset

DB_Connect'连接到数据库

Setrst.ActiveConnection=cnn'设置rst的ActiveConnection属性，指定与其关联的数据库连接

'rst.CursorType=adOpenDynamic'设置游标类型

rst.CursorType=adOpenKeyset

rst.LockType=adLockOptimistic'设置锁定类型

rst.OpenTmpSQLstmt'打开记录集

SetQueryExt=rst'返回记录集

EndFunction

PublicFunctionMakeStr（ByValStrAsString）AsString

MakeStr=Trim（Replace（Str,"'","''"））

EndFunction