數(shù)據(jù)流程分析

電子商務數(shù)據(jù)庫技術課程設計報告

題目：學生信息管理系統(tǒng)

院系:_____________

專業(yè)班級：

學號：_________

學生姓名：__________________

指導教師：___________________

2013年6月21日

第1章：需求分析.................................................................1

11.開發(fā)目的、背景與意義...................................................1

1.2系統(tǒng)概述................................................................1

1.3開發(fā)工具簡介............................................................2

第2章：系統(tǒng)分析.................................................................3

2.1業(yè)務流程分析............................................................3

2.2數(shù)據(jù)流程分析............................................................3

2.3軟件功能設計............................................................4

2.4E-R圖...............................................................4

2.5詳細設計................................................................6

2.5.1數(shù)據(jù)庫設計........................................................6

2.5.2詳細代碼設計......................................................7

2.5.2.1公共模塊：......................................................7

2.5.2.2登陸界面設計....................................................9

2.5.2.3主窗體設計：...................................................11

252.5學生注冊頁面.....................................................14

2.5.2.6,信息存儲......................................................16

2.5.2.7,密碼修改......................................................19

第1章：需求分析

11.開發(fā)目的、背景與意義

幾年前，各個學校的學生成績管理基本上都是靠手工進行，隨著各個大

學，有關學生信息管理工作所涉及的數(shù)據(jù)量越來越大，有的學校不得不靠增加人

力、物力來進行學生信息管理。但手工管理具有效率底、易出錯、檢索信息慢、

對學校的管理提供決信息較為困難等缺點。我校盡管部分學院或系已開出學生信

息管理系統(tǒng)，但開發(fā)的系統(tǒng)不具有通用性，所以我想借本次課程設計之際，開發(fā)

一個不僅適用本校各系而且適用于其它各校的通用學生信息管理系統(tǒng)。

建立學生信息管理系統(tǒng)，采用計算機對學生信息進行管理，進一步提高辦學效

益和現(xiàn)代化水平。幫助廣大教師提高工作效率，實現(xiàn)學生信息信息管理工作流程

的系統(tǒng)化、規(guī)范化和自動化。以上各類信息目前還處于手工或半手工的管理狀態(tài),

效率低，可靠性差。配備電腦，但實際利用率不高，如果采用計算機進行以上各

類信息的管理，必將大大提高工作效率，對學校各類信息的維護及了解起到積極

的作用。另外隨著計算機網(wǎng)絡的持續(xù)發(fā)展，無論是工作、學習還是生活，將會越

來越多地融入到流動的比特中，人們的工作節(jié)奏在不斷加快，需要快捷的信息來

源，并對此作出反應。因此，無論是從目前的現(xiàn)狀來看，還是面向未來，一個功

能完備的學生信息管理系統(tǒng)的開發(fā)都非常有必要。對系統(tǒng)的需求作了較深入的認

識，同時也掌握了一定的系統(tǒng)開發(fā)理論，借這次課程設計的契機，一方面利用自

己的所學小刀試牛，另一方面通過這次實踐必將提升自身對軟件工程、數(shù)據(jù)庫、

程序設計等理論的認識，積累系統(tǒng)開發(fā)的經(jīng)驗。

1.2系統(tǒng)概述

學生信息管理系統(tǒng)能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人

們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點，如效率低、

保密性差,另外時間一長將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶

來了不少的困難。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能

己為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。

作為計算機應用的一部分，使用計算機對學生檔案信息進行管理具有著手工管理

所無法比擬的優(yōu)點，例如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、

壽命長、成本低等。這些優(yōu)點能夠極大地提高學生檔案管理的效率，也是企業(yè)的

科學化、正規(guī)化管理，與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件成

為很有必要的。本系統(tǒng)具有較強的實用性和先進性、規(guī)范管理、快速查詢等特點。

1.3開發(fā)工具簡介

本系統(tǒng)的設計是在WindowsXP簡體中文版操作系統(tǒng)環(huán)境下，使用MSVisual

Basic6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術，在MIS開發(fā)過

程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)

品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應考慮數(shù)據(jù)庫應用的

特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：

VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動方式的結構化高級程

序設計，可用于開發(fā)Windows環(huán)境下的種類應用程序。它簡單易學、效率高，且

功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必

具有C/C++編程基礎。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機制、新

穎易用的可視化設計工具，使用Windows內(nèi)部的應用程序接口(API)函數(shù)，以及

動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)

訪問(ODBC)等技術，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界

面豐富的應用軟件系統(tǒng)

2

第2章：系統(tǒng)分析

2.1業(yè)務流程分析

2.2數(shù)據(jù)流程分析

普通用戶（學生）:提供查詢（需登錄，僅顯示登錄用戶信息）

中等用戶（教師）:提供增刪改查（需登錄，只可操作成績表，并且教師工號對

自己對應的成績）

管理員（教務處）:提供增刪改查（可對學生，教師，成績等操作）

普通用戶：登錄賬戶為學生學號

3

中級用戶：登錄賬號為教師工號，密碼自定義，可修改

管理員：登錄賬號為特定，密碼可修改，可增加特殊賬號

2.3軟件功能設計

2.4E-R圖

4

5

2.5.1數(shù)據(jù)庫設計

學生表(student):

列字段名類型長度是否為空主鍵

學號Idchar20否是

姓名namechar6否否

性別sexchar2是否

出生年月birthdayDate/time8是否

民族nationText8是否

籍貫nativeText20是否

入學時間enterTimeDate/time10是否

院系編號fIDText10是否

專業(yè)編號spelDText10是否

班級編號cIDText10是否

教師表:

列字段名類型長度是否為空主鍵

教師工號IDtext20否是

教師姓名tNametext10否否

性別tSextext10是否

6

民族tNationtext10是否

籍貫tNativetext10是否

政治面貌Politicaltext10是否

職稱titaltext10是否

所屬部門departmenttext10是否

登錄密碼passwordtext10是否

管理員表:

列字段名類型長度是否為空主鍵

管理員編號adIDText10否是

管理員賬號adNameText10否否

密碼adPasswordText10否否

所屬部門adDeparttext10否否

成績表:

列字段名類型長度是否為空主鍵

學生編號stuIDText10否否

學科編號sublDText10否否

平時成績usualText10否否

期末finalText10否否

總評effText10否否

教師工號teacherlDText10否否

院系表:

列字段名類型長度是否為空主鍵

院系編號fIDText10否是

院系名稱fNameText10否否

2.5.2詳細代碼設計

2.5.2.1公共模塊：

解決登陸用戶信息以及數(shù)據(jù)庫標志等公共信息，所以定義通用變量

PublicgUserNameAsString'保存用戶名稱

PublicgTidAsString'保存教師信息

7

PublicgStuIDAsString'保存學生登錄信息

PublicflagAsInteger'添加和修改的標志

PublicgSQLAsString'保存SQL語句

Publickqsql2AsString'保存查詢其他考勤結果SQL語句

PublicArecordIDAsInteger

PublicLrecordIDAsInteger

PublicorecordIDAsInteger

PublicErecordIDAsInteger

PubliciflagAsInteger

數(shù)據(jù)庫是否打開標志數(shù)據(jù)庫連接選用AD0DB連接方式，首先先編寫一公共模塊,

用于存放數(shù)據(jù)庫訪問類。

PublicFunctionTransactSQL(ByVaisqlAsString)AsADODB.Recordset

DimconAsADODB.Connection

DimrsAsADODB.Recordset

DimstrConnectionAsString

DimstrArray()AsString

Setcon=NewADODB.Connection

Setrs=NewADODB.Recordset

OnErrorGoToTransactSQL_Error

strConnection二〃Provider=Microsoft，jet.oledb.4.0;DataSource=z/&App.Pat&

/z\DB\StuData.mdb〃

strArray=Split(sql)

con.OpenstrConnection

IfStrComp(UCase$(strArray(0)),“select”,vbTextCompare)=0Then

rs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimistic

SetTransactSQL=rs

iflag=1

Else

con.Executesql

iflag=1

EndIf

TransactSQL_Exit:

Setrs=Nothing

Setcon=Nothing

8

ExitFunction

TransactSQLError:

MsgBox〃查詢錯誤：〃&Err.Description

iflag=2

ResumeTransactSQL_Exit

EndFunction

解決關閉窗口后程序任在后臺運行類：

PublicSubShutdown(OptionalByVaiForceAsBoolean=False)

DimIAsLong

OnErrorResumeNext

ForI=Forms.Count-1To0Step-1

IfNotForceThen

IfForms.Count>IThen

ExitSub

EndIf

EndIf

NextI

IfForceOr(Forms.Count=0)ThenClose

IfForceOr(Forms.Count>0)ThenEnd

EndSub

識別tab鍵

PublicSubTabToEnter(KeyAsInteger)

IfKey=13Then

SendKeys〃{TAB}〃

EndIf

EndSub

2.5.2.2登陸界面設計

由于有三類用戶同時登陸

9

其中，學生輸入學號登陸，教師登陸由教工號于密碼登陸，管理員由賬號密碼登陸。

代碼如下：

PrivateSubcmdOK_Click()

DimsqlAsString

DimrsAsADODB.Recordset

IfTrim(UserName.Text="〃)Then

MsgBox〃沒有輸入用戶名,請重新輸入！〃,vbOKOnly+vbExclamation,，z

警告〃

UserName.SetFocus

Else

sql="select*fromAdministratorwhereadName='〃&

UserName.Text&

Setrs=TransactSQL(sql)

Ififlag=1Then

Ifrs.EOF=TrueThen

MsgBox〃沒有這個用戶，請重新輸入！〃，

vbOKOnly+vbExclamation,〃警告〃

UserName.SetFocus

Else

IfTrim(rs.Fields(2))=Trim(adPassWord.Text)Thenrs.CloseMe.Hide

gUserName=Trim(UserName.Text)'i己錄用戶

adminFrm.Show

10

UnloadMe

Else

MsgBox〃密碼不正確，請重新輸入！〃，vbOKOnly+vbExclamation,〃警告〃

adPassWord.SetFocus

adPassWord.Text=〃〃

EndIf

EndIf

Else

UnloadMe

EndIf

EndIf

EndSub

2.5.2.3主窗體設計:

2.5.2.4系統(tǒng)選項中提供管理員注冊，修改，刪除功能

其中，注冊界面代碼如下：

11

代碼：

PrivateSubcmdOK_Click()

DimsqlAsString

DimrsAsADODB.Recordset

IfTrim(adName.Text)=〃〃Then

MsgBox〃請輸入用戶名稱〃，vbOKOnly+vbExclamation,〃警告〃

ExitSub

adName.SetFocus

Else

sql="select*from

Administrator

where

adName='〃&adName.Text&〃'〃Setrs=TransactSQL(sql)

'判斷用戶名是否存在

Ifrs.EOF=FalseThen

MsgBox〃這個用戶已存在，請重新輸入！〃，vbOKOnly

+vbExc1amation,〃警告〃

adName.SetFocus

adName.Text=〃〃

passWl.Text=〃〃

12

passW2.Text=〃〃

ExitSub

Else

IfTrim(passWl.Text)=〃〃Then

MsgBox〃請輸入密碼〃，vbOKOnly+vbExclamation,〃警告〃

passWl.SetFocus

ExitSub

ElselfTrim(passW2.Text)=〃〃Then

passWl.SetFocus

ExitSub

ElselfTrim(passW2.Text)=〃〃Then

MsgBox〃請再次輸入密碼！〃，vbOKOnly+vbExclamation,〃警告〃

passW2.SetFocus

ExitSub

ElselfTrim(passWl.Text)<>Trim(passW2.Text)Then

MsgBox〃兩次輸入不一致,請重新輸入〃，vbOKOnly+vbExclamation,〃警告〃

passW2.Text=〃〃

passW2.SetFocus

ExitSub

Else

sql=〃insertintoAdministrator

(adID,adName,adPassword,adDepart)values('〃&id.Text&〃，，，〃&

adName.Text&〃&passWl.Text&"&Depart.Text&〃')〃

CallTransactSQL(sql)

MsgBox〃注冊成功！vbOKOnly+vbExclamation,〃添加結果〃

Callinit

EndIf

EndIf

EndIf

EndSub

13

2.5.2.5學生注冊頁面

優(yōu)化功能：

為用戶提供便捷的操作，以及在目標中提到的要求，在學生注冊系統(tǒng)中加入了一

些便捷操作：

2.5.2.5.1,由于沒個學生由于院系，專業(yè)，班級不同學號有所不同所以學號由

系統(tǒng)

自動生成，以減少人工干預，降低系統(tǒng)出錯率。

PrivateSubcmdID_Click()

DimsqlAsString

DimrsAsNewADODB.Recordset

DimendIDAsString

DimtempIDAsString

DimelDAsString

DimrsaAsString

'Dimfaculty,special,classAsString

IffacultylD=〃〃Then

MsgBox〃請輸入院系！〃，vbOKOnly+vbExclamation,〃警告〃

14

faculty.SetFocus

ExitSub

ElselfspeciallD=〃〃Then

MsgBox〃請輸入專業(yè)！〃，vbOKOnly+vbExclamation,〃警告〃

special.SetFocus

ExitSub

ElselfclassID=〃〃Then

MsgBox〃請輸入班級！〃，vbOKOnly+vbExclamation,〃警告〃

class.SetFocus

ExitSub

Else

enterTime=Mid(entTime.Value,1,4)

sql="selectidfromstudentwhereidand

fID=〃&facultylD

&〃’andspelD='〃&speciallD&andcID='〃&classID&〃'orderbyid

desc〃

Setrs=TransactSQL(sql)

elD=rs(0)

elD=Right(elD,2)+1

'native.Text=classID

'native.Text=sql

endID=Right(Format(1000+elD),2)

'rs.Close

tempID=enterTime&facultylD&speciallD&classID&endID

id.Text=tempID

EndIf

EndSub

2.5.2.5.2,院系，專業(yè)，班級都從數(shù)據(jù)庫中提取，在學生表中只存儲編號代碼。

DimsqlAsString

DimrsAsADODB.Recordset

sql="select*fromspecialwheresName='〃&special.Text&

Setrs=TransactSQL(sql)

classID=rs(0)

rs.Close

15

2.5.2.5.3,由于院系，專業(yè)，班級有包含關系所以在這里combobox控件加入代

碼，實現(xiàn)選擇院系后所包含的專業(yè)自動加入隊列。

PrivateSubfaculty_click()

DimsqlAsString

DimrsAsADODB.Recordset

'DimfIDAsString

DimsAsString

special.Clear'選定院系后刷新獲得院系所含專業(yè)

speciallD二〃〃

class.Clear

classID二〃〃

sql="select*fromfacultywherefName=，z，&faculty.Text&〃'

Setrs=TransactSQL(sql)

facultylD=rs(0)'rs.Close

sql="select*fromspecialwheresfID='〃&facultylD&

Setrs=TransactSQL(sql)

DoWhileNotrs.EOF

s=rs(1)

special.Additem(s)

rs.MoveNext

Loop

rs.Close

EndSub

2.5.2.6,信息存儲

由于在表中只存儲編號信息，程序中顯示名稱我們以添加新的班級為例。

16

■FOTBI目回區(qū)

在窗口加載時得將院系信息加入到combobox控件隊列，實現(xiàn)代碼如下：

PrivateSubForm_Load()

DimsqlAsString

DimrsAsADODB.Recordset

DimfAsString

sql="select*fromfacultywherefName〃

Setrs=TransactSQL(sql)

DoWhileNotrs.EOF

f=rs(1)

fID.Additem(f)

rs.MoveNext

Loop

rs.Close

EndSub

在選取院系信息后要將院系所包含的專業(yè)信息加入到隊列，實現(xiàn)代碼如下:

PrivateSubfID_Click()

DimsqlAsString

DimrsAsADODB.Recordset

DimsAsString

sID.Clear

選定院系后刷新獲得院系所含專業(yè)

sql="select*fromfacultywherefName='〃&fID.Text&〃

17

Setrs=TransactSQL(sql)

facID=rs(O)

'rs.Close

sql="select*fromspecialwheresfID='〃&facID&

Setrs=TransactSQL(sql)

DoWhileNotrs.EOF

s=rs(1)

sID.Additem(s)

rs.MoveNext

Loop

rs.Close

EndSub

由于班級編號在同一專業(yè)不能重復，所以編號由系統(tǒng)自動生成。

當選定院系，專業(yè)后系統(tǒng)將從所數(shù)據(jù)庫獲得選定院系，專業(yè)現(xiàn)存的班級編號，

按倒序排列后獲得最后的編碼，由系統(tǒng)自動加顯示在控件上。實現(xiàn)代碼如下：

PrivateSubinit()

DimtempIDAsString

DimsqlAsString

DimrsAsADODB.Recordset

DimnumAsInteger

sql

="selectcID

fromclasswherefID='〃&facID&andsID=，〃&spelD&〃'orderbycID

desc〃

Setrs=TransactSQL(sql)

num=rs(0)

num=num+1+0

rs.Close

cID.Text=num

EndSub

其中參數(shù)facID,spelD在選取時記錄如以下代碼：

PrivateSubsID_Click()

DimsqlAsString

DimrsAsADODB.Recordset

18

sql="select*fromspecialwheresfID=，〃&facID&

Setrs=TransactSQL(sql)

spelD=rs(0)

rs.Close

Callinit