【文章內(nèi)容簡(jiǎn)介】 理系統(tǒng) –5– 軟件功能設(shè)計(jì) 圖 軟件功能設(shè)計(jì) 學(xué)生信息管理系統(tǒng) –6– 3 數(shù)據(jù)庫(kù)設(shè)計(jì) 學(xué)生表 表 學(xué)生表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 學(xué)號(hào) Id Char 20 否 是 姓名 name Char 20 否 否 性別 sex Char 2 是 否 出生年月 birthday Date/time 8 是 否 民族 nation Text 10 是 否 籍貫 native text 10 是 否 入學(xué)時(shí)間 enterTime Date/time 8 是 否 院系編號(hào) fID text 5 是 否 專(zhuān)業(yè)編號(hào) speID text 5 是 否 班級(jí)編號(hào) cID text 5 是 否 教師表 表 教師表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 教師工號(hào) tID text 20 否 是 教師姓名 tName text 10 否 否 性別 tSex text 2 是 否 名族 tNation text 10 是 否 籍貫 tNative text 10 是 否 政治面貌 Political text 10 是 否 職稱(chēng) tital text 10 是 否 所屬部門(mén) department text 10 是 否 登陸密碼 password text 50 是 否 學(xué)生信息管理系統(tǒng) –7– 管理員表 表 管理員表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 管理員編號(hào) adID text 10 否 是 管理員賬號(hào) adName text 50 否 否 密碼 adPassword text 50 否 否 所屬部門(mén) adDepart text 10 否 否 成績(jī)表 表 成績(jī)表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 學(xué)生編號(hào) stuID text 12 否 否 學(xué)科編號(hào) subID text 10 否 否 平時(shí)成績(jī) usual text 10 否 否 期末 final text 10 否 否 總評(píng) eff text 10 是 否 教師工號(hào) teacherID text 20 否 否 院系表 表 院系表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 院系編號(hào) fID text 2 否 是 院系名稱(chēng) fName text 10 否 否 專(zhuān)業(yè)表 表 專(zhuān)業(yè)表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 專(zhuān)業(yè)編號(hào) speID text 2 否 是 專(zhuān)業(yè)名稱(chēng) sName text 50 否 否 所屬院系 sfID text 2 否 否 學(xué)科表 學(xué)生信息管理系統(tǒng) –8– 表 學(xué)科表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 編號(hào) subID text 5 否 是 名稱(chēng) subName text 50 否 否 班級(jí)表 表 班級(jí)表 列 字段名 類(lèi)型 長(zhǎng)度 是否為空 主鍵 班級(jí)編號(hào) cID text 2 是 否 班級(jí)名稱(chēng) cName text 50 是 否 所屬院系 fID text 2 是 否 所屬專(zhuān)業(yè) sID text 2 是 否 學(xué)生信息管理系統(tǒng) –9– 4 程序代碼的設(shè)計(jì) 程序代碼設(shè)計(jì)要求 根據(jù)系統(tǒng)的主要功能及上一章的總體設(shè)計(jì)，系統(tǒng)開(kāi)發(fā)進(jìn)入第二個(gè)階段：詳細(xì)設(shè)計(jì)。在這一階段的工作中，主要任務(wù)有以下幾項(xiàng)： (1)、根據(jù)原型化的開(kāi)發(fā)原則，為系統(tǒng)的每個(gè)模塊功能進(jìn)行界面設(shè)計(jì)，作為進(jìn)一步優(yōu)化的基礎(chǔ)。 (2)、進(jìn)行系統(tǒng)的流程分析，為模塊的細(xì)化做好準(zhǔn)備。 (3)、對(duì)每個(gè)模塊進(jìn)行詳細(xì)的算法設(shè)計(jì)。 詳細(xì)代碼設(shè)計(jì) 公共模塊 解決登陸用戶(hù)信息以及數(shù)據(jù)庫(kù)標(biāo)志等公共信息，所以定義通用變量 Public gUserName As String 39。保存用戶(hù)名稱(chēng) Public gTid As String 39。保存教師信息 Public gStuID As String 39。保存學(xué)生登錄信息 Public flag As Integer 39。添加和修改的標(biāo)志 Public gSQL As String 39。保存 SQL 語(yǔ)句 Public kqsql2 As String 39。保存查詢(xún)其他考勤結(jié)果 SQL 語(yǔ)句 Public ArecordID As Integer Public LrecordID As Integer Public orecordID As Integer Public ErecordID As Integer Public iflag As Integer 39。數(shù)據(jù)庫(kù)是否打開(kāi)標(biāo)志 數(shù)據(jù)庫(kù)連接選用 ADODB 連接方式，首先先編寫(xiě)一公共模塊，用于存放數(shù)據(jù)庫(kù)訪問(wèn)類(lèi) [5]。 Public Function TransactSQL(ByVal sql As String) As Dim con As Dim rs As 學(xué)生信息管理系統(tǒng) –10– Dim strConnection As String Dim strArray() As String Set con = New Set rs = New On Error GoTo TransactSQL_Error strConnection = Provider=。Data Source= amp。 amp。 \DB\ strArray = Split(sql) strConnection If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else sql iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查詢(xún)錯(cuò)誤： amp。 iflag = 2 Resume TransactSQL_Exit End Function 解決關(guān)閉窗口后程序任在后臺(tái)運(yùn)行類(lèi)： Public Sub Shutdown(Optional ByVal Force As Boolean = False) Dim I As Long On Error Resume Next For I = 1 To 0 Step 1 If Not Force Then 學(xué)生信息管理系統(tǒng) –11– If I Then Exit Sub End If End If Next I If Force Or ( = 0) Then Close If Force Or ( 0) Then End End Sub 識(shí)別 tab 鍵 Public Sub TabToEnter(Key As Integer) If Key = 13 Then SendKeys {TAB} End If End Sub 登陸界面設(shè)計(jì) 圖 由于有三類(lèi)用戶(hù)同時(shí)登陸。其中，學(xué)生輸入學(xué)號(hào)登陸，教師登陸由教工號(hào)于密碼登陸，管理員由賬號(hào)密碼登陸。 代碼如下： Private Sub cmdOK_Click() 學(xué)生信息管理系統(tǒng) –12– Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒(méi)有輸入用戶(hù)名，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 Else sql = select * from Administrator where adName=39。 amp。 amp。 39。 Set rs = TransactSQL(sql) If iflag = 1 Then If = True Then MsgBox 沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 Else If Trim((2)) = Trim() Then