胡建宏

摘 要：本文首先簡要地介紹了學(xué)生學(xué)籍管理現(xiàn)代化的時(shí)代背景，指出學(xué)籍管理現(xiàn)代化的必要性和重要性，接著詳細(xì)闡述了學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，在學(xué)籍系統(tǒng)的設(shè)計(jì)這一部分，主要是對系統(tǒng)設(shè)計(jì)到的數(shù)據(jù)以及主要的功能進(jìn)行分析，以期提升學(xué)校對學(xué)生學(xué)籍的管理水平。

關(guān)鍵詞：學(xué)籍管理; ?教育管理; ?信息化 ; VB; ?SQL

1引言

本文的重點(diǎn)是系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，以自己開發(fā)的學(xué)生管理信息系統(tǒng)為例，詳細(xì)說明開發(fā)的一般流程和開發(fā)數(shù)據(jù)庫的基本語言。

2設(shè)計(jì)目的

《數(shù)據(jù)庫系統(tǒng)原理及應(yīng)用》課程設(shè)計(jì)是我校計(jì)算機(jī)科學(xué)與技術(shù)學(xué)科中計(jì)算機(jī)應(yīng)用專業(yè)（本科）教學(xué)大綱要求的重要實(shí)踐性環(huán)節(jié)之一，是學(xué)習(xí)完《數(shù)據(jù)庫系統(tǒng)概論》課程后進(jìn)行的一次性全面的綜合練習(xí)。其目的在于：配合《數(shù)據(jù)庫系統(tǒng)概論》課程的教學(xué)，使學(xué)生能鞏固和加深對數(shù)據(jù)庫基礎(chǔ)理論和基本知識的理解;掌握使用數(shù)據(jù)庫進(jìn)行軟件設(shè)計(jì)的基本思想和方法。

3系統(tǒng)結(jié)構(gòu)及功能設(shè)計(jì)

3.1主要功能模塊設(shè)計(jì)

在仔細(xì)分析調(diào)查有關(guān)學(xué)生信息需要的基礎(chǔ)上，將得到如下圖所示的本系統(tǒng)所處理的數(shù)據(jù)流程：

3.2 數(shù)據(jù)庫設(shè)計(jì)

針對學(xué)生管理系統(tǒng)的要求，通過對學(xué)生學(xué)習(xí)過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)數(shù)據(jù)庫中包含班級信息基本表、課程信息基本表、年級課程開設(shè)基本表、成績基本表、學(xué)校信息基本表、年級信息基本表、用戶信息基本表。每個(gè)表表示數(shù)據(jù)庫中的一個(gè)數(shù)據(jù)表。

3.3各模塊主要原代碼

①公用?？?/p>

'定義一個(gè)屬性過程反映連接字符串

Public Property Get conString（） As Variant

conString = "data source=.;initial catalog=Sims_four;user id=sa;password=;"

End Property

'定義一個(gè)提供者反映數(shù)據(jù)庫類型

Public Property Get conProvide（） As Variant

conProvide = "sqloledb"

End Property

②數(shù)據(jù)備分還原模塊

Dim cn As ADODB.Connection

Dim success As Long

Dim ret As Long ? ? ? ? ? '返回值

Dim buff As String

Private Sub Check1_Click（）

buff = String（255， 0）

ret = GetPrivateProfileString（"BackUp"， "Restore"， ""， buff， 256， App.Path & "＼Sims.ini"）

If ret = 0 Then

MsgBox "你無權(quán)執(zhí)行還原數(shù)據(jù)庫的操作，請與管理員聯(lián)系！"， vbOKOnly + vbInformation， "還原數(shù)據(jù)庫"

Unload Me

Exit Sub

End If

If Check1.Value = 1 Then

buff = String（255， 0）

ret = GetPrivateProfileString（"BackUp"， "NewFile"， ""， buff， 256， App.Path & "＼Sims.ini"）

If ret <> 0 Then cboFile.Text = buff

Else

cboFile.Text = ""

End If

End Sub

Private Sub cmdExit_Click（）

success = WritePrivateProfileString（"BackUp"， "Restore"， ""， App.Path & "＼Sims.ini"）

Unload Me

End Sub

Private Sub cmdRestore_Click（）

On Error GoTo err1

buff = String（255， 0）

ret = GetPrivateProfileString（"BackUp"， "Restore"， ""， buff， 256， App.Path & "＼Sims.ini"）

If ret = 0 Then

MsgBox "你無權(quán)執(zhí)行還原數(shù)據(jù)庫的操作，請與管理員聯(lián)系！"， vbOKOnly + vbInformation， "還原數(shù)據(jù)庫"

Unload Me

Exit Sub

End If...

4調(diào)試運(yùn)行結(jié)果

輸入ID密碼登陸后。進(jìn)行年級、班級、課程、學(xué)籍、課程、成績等信息的設(shè)置與填加;查詢界面可以支持班級、課程、成績、學(xué)籍的查詢;數(shù)據(jù)的備分及還原。

5結(jié)語

通過這次課程設(shè)計(jì)，我更加熟練的掌握了使用VB進(jìn)行SQL數(shù)據(jù)庫軟件開發(fā)的方法，加深了對數(shù)據(jù)庫課程知識的理解，在今后的學(xué)習(xí)中我會(huì)加強(qiáng)理論與實(shí)踐的結(jié)合，通過不斷的摸索來彌補(bǔ)自己在軟件制作方面的差距。

參考文獻(xiàn)：

[1]楊建強(qiáng). 基于B/S的學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J]. 福建電腦， 2007（6）：121-122.