【正文】 表和成績表做笛卡爾積，獲得指定班級(jí)的成績與學(xué)生數(shù)據(jù)加工編號(hào)：加工名稱：數(shù)據(jù)備份輸入：備份數(shù)據(jù)，備份班級(jí)名稱輸出：成績備份文件加工邏輯：根據(jù)備份班級(jí)名稱生成成績備份文件（4）課程信息管理模塊數(shù)據(jù)加工條目： 加工編號(hào)：加工名稱：確認(rèn)維護(hù)要求輸入：維護(hù)要求輸出：錄入要求、修改要求加工邏輯：判斷對(duì)課程的錄入或者修改 加工編號(hào)：加工名稱：課程數(shù)據(jù)錄入輸入：課程數(shù)據(jù)單，錄入要求輸出：更新課程表文件加工邏輯：根據(jù)錄入要求，錄入課程數(shù)據(jù) 在課程表中添加一新記錄，將錄入數(shù)據(jù)作為新記錄值加工編號(hào)：加工名稱：課程數(shù)據(jù)修改輸入：課程數(shù)據(jù)單，修改要求輸出：更新課程文件加工邏輯：查詢課程信息，根據(jù)修改要求進(jìn)行修改，并更新課程文件（5）查詢模塊加工條目：加工編號(hào)：加工名稱：要求加工輸入：學(xué)生信息查詢要求輸出：查詢規(guī)則加工邏輯： CASE1 查詢要求涉及[學(xué)生表|成績表|總分表] 在[學(xué)生表|成績表|總分表]中查詢 CASE2 查詢要求涉及學(xué)生表和成績表 將學(xué)生表與成績表做笛卡爾積，與查詢條件形成 SQL 語句 CASE3 查詢要求涉及學(xué)生表和總分表將學(xué)生表與總分表做笛卡爾積，與查詢條件形成 SQL 語句CASE4 查詢要求涉及學(xué)生表和成績表、總分表將學(xué)生表與成績表、總分表做笛卡爾積，與查詢條件形成 SQL 語句CASE5 查詢要求涉及總分表和成績表 將總分表與成績表做笛卡爾積，與查詢條件形成 SQL 語句最后將 SQL 語句作為查詢規(guī)則輸出加工編號(hào)：加工名稱：查詢處理輸入：查詢規(guī)則輸出：查詢結(jié)果加工邏輯：根據(jù)查詢規(guī)則查詢指定表，并顯示結(jié)果2．3 數(shù)據(jù)庫設(shè)計(jì) 2．3．1 庫設(shè)計(jì)本系統(tǒng)涉及到的信息主要有 5 類：學(xué)生信息、成績信息、教師信息、圖書信息、后備信息。按以上分析，將系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)為三個(gè)： 一、學(xué)生數(shù)據(jù)庫： 該數(shù)據(jù)庫為中包含有以下各表：學(xué)生表：記錄學(xué)生的基本信息，是進(jìn)行學(xué)生及其它各類信息處理的基礎(chǔ)?？偡直恚河涗泴W(xué)生的期中、期末及總評(píng)的總分及名次。三、后備數(shù)據(jù)庫： 該數(shù)據(jù)庫主要保存兩類信息：學(xué)生信息、成績信息。 2．3．2 表設(shè)計(jì)： 學(xué)生表結(jié)構(gòu)：表 編號(hào) 字段名稱 字段類型 字段寬度1 學(xué)號(hào) CHAR 152 姓名 CHAR 103 性別 CHAR 24 出生日期 DATE 85 電話 CHAR 106 家庭住址 CHAR 507 班級(jí) CHAR 208 原畢業(yè)學(xué)校 CHAR 509 是否住宿 CHAR 410 政治面貌 CHAR 611 入學(xué)總分 LONG 412 專業(yè) char 20課程表結(jié)構(gòu)： 表 編號(hào) 字段名稱 字段類型 字段寬度1 課程名稱 CHAR 152 年級(jí) CHAR 103 專業(yè) char 20成績表結(jié)構(gòu)：表 編號(hào) 字段名稱 字段類型 字段寬度1 學(xué)號(hào) CHAR 152 課程名稱 CHAR 153 期中成績 LONG 44 期末成績 LONG 45 總評(píng)成績 LONG 46 班級(jí) char 20總分表結(jié)構(gòu)：表 編號(hào) 字段名稱 字段類型 字段寬度1 學(xué)號(hào) CHAR 152 期中總分 LONG 43 期末總分 LONG 44 期中名次 LONG 45 期末名次 LONG 46 班級(jí) char 20第五章 詳細(xì)設(shè)計(jì)根據(jù)系統(tǒng)的主要功能及上一章的總體設(shè)計(jì)，系統(tǒng)開發(fā)進(jìn)入第二個(gè)階段：詳細(xì)設(shè)計(jì)。進(jìn)行系統(tǒng)的流程分析，為模塊的細(xì)化做好準(zhǔn)備。 3．1 系統(tǒng)界面設(shè)計(jì)一、登錄及系統(tǒng)主窗口界面設(shè)計(jì)該部分界面主要包括登錄窗口、系統(tǒng)主窗口、修改密碼窗口。其中學(xué)生檔案是本系統(tǒng)主要的（圖一）一張表，所有信息都是根據(jù)這張學(xué)生檔案進(jìn)行有關(guān)的操作，主要的字段有：學(xué)號(hào)、姓名、年級(jí)、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、入學(xué)時(shí)間、備注。數(shù)據(jù)庫與 VB 的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是 ADO 方法，打開控制面板，打開ODBC 數(shù)據(jù)源圖標(biāo)，選擇“系統(tǒng) DSN”標(biāo)簽，點(diǎn)擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對(duì)話框中選擇名稱為“Microsoft Access Drive（*.mdb） ”，點(diǎn)擊“完成”按鈕，在 ODBC Microsoft Access 安裝對(duì)話框中在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫這個(gè)框中， 單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫這一對(duì)話框架中，在驅(qū)動(dòng)器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫所在驅(qū)動(dòng)器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“Access 數(shù)據(jù)庫（*.mdb） ”，在數(shù)據(jù)庫名中選擇本系統(tǒng)的數(shù)據(jù)庫，點(diǎn)擊“確定”按鈕即完成數(shù)據(jù)鏈接。在界面上右擊 Adodc 控制，在彈出的快捷菜單中選擇屬性，在屬性對(duì)話框中，在“屬性”這一標(biāo)簽中， 選中單選框“Use ODBC Data Source Name”，并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息，再在“RecordSoure”標(biāo)簽中，在Commard Text（ SQL）文本框中輸入查詢語句，如：select * from 學(xué)生檔案。我們可以設(shè)置 DataGrid 控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段” ，在彈出的對(duì)話框中單擊“確定” ，這時(shí)，表格中出現(xiàn)了表的字段。第六章 系統(tǒng)具體實(shí)現(xiàn) 各功能的實(shí)現(xiàn) 課程管理：課程設(shè)置（如：界面如圖二）（圖二）運(yùn)行程序后，進(jìn)入課程管理模塊，課程管理模塊的第一塊是課程設(shè)置，在這模塊中可以把專業(yè)、年級(jí)、學(xué)期、課程名稱、教材、任課老師、課時(shí)、上課地點(diǎn)、課程性質(zhì)和考試性質(zhì)等信息輸入，以便使用。 amp。 39。 = = = = = = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click() Unload Me 1End SubPrivate Sub DataGrid1_Click()39。 amp。 39。 = (專業(yè))39。 = (學(xué)期)39。 = (教材)39。 = (課時(shí))39。 = (課程性質(zhì))39。 = = = = = = = = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub課程管理：課程查詢（如：界面如圖三）（圖三）當(dāng)輸入查詢類別、運(yùn)算符和條件后可以查找到所需要的課程設(shè)置，或按查詢時(shí)間來查詢，輸入所要查找的時(shí)間段，就可查到所要的課程設(shè)置。 amp。 amp。 amp。 39。 amp。 amp。 39。 amp。 amp。 amp。 39。 amp。 amp。 39。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 amp。 KCCX2 End IfElseIf = True Then If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 Else strTiaoJian = select * from 課程表 where amp。 or amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2) = Then MsgBox 請(qǐng)輸入查詢類別！, vbOKOnly, 警告Exit SubElse Unload Me 1End IfEnd IfIf = True Then If Val(Combo6) Val(Combo9) Then MsgBox 請(qǐng)正確選擇年份！, vbOKOnly + vbExclamation, 信息提示 Exit Sub Else If Val(Combo6) = Val(Combo9) Then If Val(Combo7) Val(Combo10) Then MsgBox 請(qǐng)正確選擇月份！, vbOKOnly + vbExclamation, 信息提示 Exit Sub Else If Val(Combo7) = Val(Combo10) Then If Val(Combo8) Val(Combo11) Then MsgBox 請(qǐng)正確選擇日期！, vbOKOnly + vbExclamation, 信息提示 Exit Sub End If End If End If End If End If If = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入完整的日期, vbOKOnly, 警告 Exit Sub End If str1 = Trim(Combo6) amp。 Trim(Combo7) amp。 Trim(Combo8) str2 = Trim(Combo9) amp。 Trim(Combo10) amp。 Trim(Combo11) str1 = Format(str1, yyyymmdd) str2 = Format(str2, yyyymmdd) If sqlstr = Then sqlstr = amp。 = amp。 and amp。 = amp。 Else sqlstr = sqlstr amp。 Trim() amp。 Format(str1, yyyymmdd) amp。 Trim() amp。 Format(str2, yyyymmdd) amp。 sqlstr Unload Me 1End IfIf True And True Then MsgBox 請(qǐng)選擇查詢方式！, vbOKOnly, 警告 Exit SubEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 1999 To 2022 i iNext i = 0 = 0 For i = 1 To 12 i iNext i = 0 = 0For i = 1 To 31 i iNext i = 0 = 0 (專業(yè)) (年級(jí)) (課程名稱) (教材) (任課老師)39。 (課時(shí)) (課程性質(zhì)) (考試性質(zhì)) (=) (學(xué)期) = = = = = = = = = = = = = End Sub 打印統(tǒng)計(jì)運(yùn)行打印統(tǒng)計(jì)后可以按條件把符合條件的各種信息以報(bào)表形式羅列出來，各種信息還可以以打印出來或以報(bào)表形式保存。班級(jí)統(tǒng)計(jì)分析（如：界面如圖四）（圖四）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT 年級(jí),專業(yè),人數(shù),輔導(dǎo)員,備注 FROM 班級(jí)表 SQLadd = WHERE 年級(jí)=年級(jí) AND 專業(yè)=專業(yè) SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 年級(jí)=39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 專業(yè)=39。End IfIf = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + a