【正文】 關(guān)于如何在 Delphi 中進(jìn)行 Excel 控制的問題 ，對 ADO、 Exc。對前一個(gè)問題，解決的辦法一個(gè)是在 Delphi 程序中重載 SQL 語句，一個(gè)辦法是通過 Parameters 參數(shù)進(jìn)行調(diào)用。通俗的講， ADO 一個(gè) 統(tǒng)一數(shù)據(jù)庫接口 ，它的兩端可以連接不同類型的數(shù)據(jù)庫，對于 ADO（ ActiveX Data Object， ActiveX 數(shù)據(jù)對象） 這個(gè) 微軟提出的新 標(biāo)準(zhǔn)，從理論上來，能夠支持任何類型的數(shù)據(jù)庫（甚至包括流式數(shù)據(jù)） 。 本軟件在開發(fā)過程中使用了 Delphi SqlServer202 C ／ S 架構(gòu) 等一序列技術(shù)，但由于對所用技術(shù)的不熟練，導(dǎo)致了許多設(shè)計(jì)想法沒有實(shí)現(xiàn) 。而本系統(tǒng)在需求分析的階段就比較全面，實(shí)現(xiàn)了包括從新生入學(xué)到畢業(yè)的所有教學(xué)管理。也可以使用 Button控件 并編寫代碼實(shí)現(xiàn) ，但實(shí)現(xiàn)效果是相同的。 圖 － 2 成績相關(guān)字典維護(hù) 窗體 2） .“ 字典列表 ”實(shí)現(xiàn) 設(shè)置其 DBListBox 的 Items 為計(jì)算機(jī)等級(jí)和外語等級(jí)兩相，并將其分別與 T_ZDDM 表中的字段“ JSJDJ”、“ WYDJ”相連接。 1） .成績相關(guān)字典維護(hù) 流程如圖 — 1 所示。 圖 — 4 學(xué)生列表 4） .等級(jí) 考試成績 實(shí)現(xiàn)效果如圖 — 5 所示 圖 — 5 等級(jí)考試成績顯示 5） ..打印 打印頁面實(shí)現(xiàn)效果如圖 — 6 所示。 圖 — 3 選擇學(xué)生范圍 當(dāng)選擇下一級(jí)時(shí)，如果上一級(jí)為空，則下一級(jí)不能顯示，如此類推。 49 圖 — 1 成績查詢模塊 程序流程 2） . 本 模塊 所涉及信息表及其字段 表名 字段 Dept YXDM（院系代碼）、 YXMC（院系名稱） Major ZYDM（專業(yè)代碼）、 ZYMC（專業(yè)名稱） Student XH（學(xué)號(hào)）、 XM（姓名）、 RXNF（入學(xué)年份，即年級(jí)） 、 ZXWYYZ（主修外語語種）、 WYDJ（外語等級(jí)）、 JSJDJ（計(jì)算機(jī)等級(jí)） Class BJDM（班級(jí)代碼）， BJMC（班級(jí)名稱） Score CJ（成績）， XN（學(xué)年）， XQ（學(xué)期）、 BKCJ1（補(bǔ)考成績 1）、 BKRQ1（補(bǔ)考日期 1） 、 BKCJ2（補(bǔ)考成績 2）、 BKRQ2（補(bǔ)考日期 2）、 BKCJ3（補(bǔ)考成績 3）、 BKRQ3（補(bǔ)考日期 3）、 ZB（是否作弊）、 HK（是否緩考）、 BZ（備注） 50 效果 1） .成績查詢模塊 窗體實(shí)現(xiàn)效果如圖 — 2 所示。 48 圖 － 3 期末成績通知單打印 成績查詢模塊 本模塊功能是查詢及打印歷年成績 ，成績包括專業(yè)課程成績和等級(jí)考試成績。 圖 — 1 期末成績通知單打印 流程 47 2） . 本 模塊 所涉及信息表及其字段 表名 字段 Dept YXDM（院系代碼）、 YXMC（院系名稱） Major ZYDM（專業(yè)代碼）、 ZYMC（專業(yè)名稱） Student XH（學(xué)號(hào)）、 XM（姓名）、 RXNF（入學(xué)年份，即年級(jí)） Class BJDM（班級(jí)代碼）， BJMC（班級(jí)名稱） Score CJ（成績）， XN（學(xué)年）， XQ（學(xué)期）、 ZB（是否作弊）、 HK（是否緩考） 效果 1） . 期末成績通知單打印 窗體實(shí)現(xiàn) .期末成績通知單打印窗體實(shí)現(xiàn)效果如圖 — 2 所示。 期末成績通知單打印模塊 本模塊功能是查詢 到符合查詢條件的學(xué)生期末成績并打印出來。 圖 － 2 等級(jí)考試成績錄入窗體 2） .學(xué)號(hào)、姓名搜索 實(shí)現(xiàn)效果 如圖 － 3 所示。 1） .等 級(jí)考試成績錄入模塊程序流程如圖 — 1 所示。 等級(jí)考試成績錄入模塊 此模塊功能是通過手工對等級(jí)考試成績信息進(jìn)行添加、修改、刪除、錄入。 圖 － 8 補(bǔ)考成績手工錄 入窗體 ii. “成績記錄方式”、“補(bǔ)考日期” 、 “補(bǔ)考次數(shù)” 實(shí)現(xiàn)效果如圖 － 9 所示。 圖 － 7 成績記錄方式及考試日期 在添加記錄和錄入成績前，必須先選擇成績記錄方式和考試日期，以確定成績的記錄 43 方式，只要在“添加記錄”和“錄入”的 Click 事件中預(yù)先確定 Score 表中的 CJ（成績）字段和 KSRQ（考試日期）就可以實(shí)現(xiàn)。效果 如 圖 － 6 所示。 圖 － 4 學(xué)號(hào)搜索 iii. 添加記錄 42 在“添加記錄”的 Click 事件中， 是以選中當(dāng)前“課程列表”中的某一條記錄為前提的，在點(diǎn)擊“添加記錄”按鈕后，可在當(dāng)前記錄的最后一列添加一個(gè)學(xué)生的信息（包括姓名、學(xué)號(hào)、成 績、考試時(shí)間等基本信息），效果如圖 — 5 所示。 圖 — 2 補(bǔ)考成績手工錄 入流程 40 3. 各模塊引用的相關(guān)表及其字段 1） . 成績手工錄入模塊 表名 字段 Dept YXDM（院 系代碼）、 YXMC（院系名稱） Major ZYDM（專業(yè)代碼）、 ZYMC（專業(yè)名稱） Student XH（學(xué)號(hào)）、 XM（姓名）、 RXNF（入學(xué)年份，即年級(jí)） Class BJDM（班級(jí)代碼）， BJMC（班級(jí)名稱） Lecrure KCDM（課程代碼）， KCMC（課程名稱） Score CJ（成績）， XN（學(xué)年）， XQ（學(xué)期）， BKCJ1（補(bǔ)考成績 1）、 BKRQ1（補(bǔ)考日期 1）、 BKCJ2（補(bǔ)考成績 2）、 BKRQ2（補(bǔ)考日期 2）、 BKCJ3（補(bǔ)考成績 3）、 BKRQ3（補(bǔ)考日期 3）、 ZB（是否作弊 ）、 HK（是否緩考） 2） . 補(bǔ)考成績手工錄入模塊 表名 字段 Dept YXDM（院系代碼）、 YXMC（院系名稱） Major ZYDM（專業(yè)代碼）、 ZYMC（專業(yè)名稱） Student XH（學(xué)號(hào)）、 XM（姓名）、 RXNF（入學(xué)年份，即年級(jí)） Class BJDM（班級(jí)代碼）， BJMC（班級(jí)名稱） Lecrure KCDM（課程代碼）， KCMC（課程名稱） Score CJ（成績）， XN（學(xué)年）， XQ（學(xué)期）， BKCJ1（補(bǔ)考成績 1）、 BKRQ1（補(bǔ)考日期 1）、 BKCJ2（補(bǔ)考成績 2）、 BKRQ2（補(bǔ)考日期 2）、 BKCJ3（補(bǔ)考成績 3）、 BKRQ3（補(bǔ)考日期 3）、 ZB（是否作弊）、 HK（是否緩考） 41 效果 1） .成績錄入模塊程序?qū)崿F(xiàn) i. 成績手工錄入 窗體 實(shí)現(xiàn) 效果 如 圖 － 3 所示。 程 1） .成績手工錄入模塊程序流程圖如圖 － 1 所示。 ii. 錄入 手工錄入已在數(shù)據(jù)庫中的學(xué)生的某一門課程的 補(bǔ)考 成績信息，包括考試時(shí)間 、成績、錄入方式。 2） . 補(bǔ)考成績的手工錄入模塊功能 此模塊功能是通過手工對 補(bǔ)考 成績信息進(jìn)行錄入，在進(jìn)行 補(bǔ)考 成績錄入、修改時(shí)，可以選擇 補(bǔ)考 成績的錄入方式（定量或者是定性），還可以修改考試時(shí)間。 iii. 刪除記錄 只刪除原記錄中某一學(xué)生的某一門課程的成績信息，但不刪除學(xué)生的其他信息。 i. 學(xué)號(hào)、姓名搜索 通過輸入學(xué)號(hào)或姓名查找到學(xué)生的成績信息以進(jìn)行成績管理。但由于它們的功能及流程都及其相似，因此將它們的設(shè)計(jì)放在同一節(jié)進(jìn)行論述， 并對其不同之處加以說明。 圖 — 14 補(bǔ)考記分冊 Excel 文檔格式 4） . 補(bǔ)考成績的自動(dòng) Excel 導(dǎo)入 補(bǔ)考成績的自動(dòng) Excel 導(dǎo)入 窗體實(shí)現(xiàn)效果 如 圖 － 15 所示。 圖 － 12 補(bǔ)考記分冊打印、 Excel 導(dǎo)出 窗體 36 ii. “打印”實(shí)現(xiàn) 打印報(bào)表的實(shí)現(xiàn)效果如圖 － 13 所示。 iii. 檢查成績 將映射到“成績預(yù)覽”的成績信息設(shè)置為可編輯，即設(shè)置相應(yīng)的 ADOQuery 控件qryJCCJ 為可編輯屬性。在按鈕的“點(diǎn)擊事件”中，按鈕點(diǎn)擊后即激活 OpenDlalog控件，此 OpenDlalog 控件的 Filter 屬性設(shè)置為 FilterName： Excel (*.XLS)、 Filter： *.xls，即只能打開 Excel (*.XLS)文件。 34 圖 — 10 記分冊 Excel 文件格式 2） . 成績的 自動(dòng) Excel 導(dǎo)入 i .成績冊導(dǎo)入窗體實(shí)現(xiàn) 效果如 圖 － 11 所示。 end。 end。 // hide。 // := +1。 end。), str_Hint, MB_ok + MB_ICONQUESTION)。 + inttostr(kccount) + 39。 (pchar(39。 except 。].select。 [39。 := False。].select。 [39。 := false。:H100039。a39。 := False。 + inttostr(j)].select。 [39。 end。 end。 [j + 1, 4].value := strArraylectureChoosedname1[i]。 [j + 1, 2].value := s_strterm1。定性： A:優(yōu) B:良 C: 中 D:合格 E:不合格 39。成績 39。性別 39。姓名 39。學(xué)號(hào) 39。課程名稱 39。課程代碼 39。學(xué)期 39。學(xué)年 39。成績只能輸入分值或者 A B C D E39。請各位任課教師嚴(yán)格按照給定的格式書寫 39。]。 [3, 6].value := [39。] + 39。 [3, 4].value := [39。 [2, 1].value := strArraylectureChoosedname1[i] + 39。 [1, 9].value := 39。 := 3。I1:I1,4:439。 := 5。5:539。 // := 3。 := 3。].Select。 [39。].Select。 [39。 := 39。].Select。 [39。 := false。), str_Hint, MB_YESNO + MB_ICONQUESTION) = 6 then deletefile(savename) else begin continue。 if fileexists(savename) then if (PChar(savename + 39。 savename := strFilePath + bjmc + strArraylectureChoosedname1[i] + 39。 // show。 // with (self) do // begin // := 1。 exit。您的機(jī)器中未裝 Excel！ 39。)。 //excel 的行和列 begin try v := createoleobject(39。 //存放一個(gè) excel變量 savename: string。 const xlcenter = 4196。 //這是“選擇導(dǎo)出課程” 窗口，既 圖 — 9 所示窗口中的“確定”按鈕的點(diǎn)擊事件 procedure (bjmc, s_strterm1, s_stryear1: string。 30 圖 － 8 打印預(yù)覽頁面 v. “ Excel 導(dǎo)出”實(shí)現(xiàn) 窗體實(shí)現(xiàn)效果如圖 — 9 中的窗口所示。 iii. 學(xué)生列表 窗體實(shí)現(xiàn)效果如圖 — 7 所示。 在 SQL 語句中，將字段分為四個(gè)級(jí)別，級(jí)別從高至低分別 YXDM、 ZYDM、 RXNF、BJDM，并將上一級(jí)設(shè)置成父節(jié)點(diǎn)、下一級(jí)設(shè)置為子節(jié)點(diǎn)， YXDM（院系代碼）設(shè)置成根節(jié)點(diǎn)。 圖 — 4 補(bǔ)考成績的自動(dòng) Excel 導(dǎo)入 流程 字段 1） .記分冊打印及 Excel 導(dǎo)出 模塊 表名 字段 Dept YXDM（院系代碼）、 YXMC（院系名稱） Major ZYDM（專業(yè)代碼）、 ZYMC（專業(yè)名稱） Student XH（學(xué)號(hào)）、 XM（姓名）、 RXNF（入學(xué)年份，即年級(jí)） Class BJDM（班級(jí)代碼）， BJMC（班級(jí)名稱） Score CJ（成績）， XN（學(xué)年）， XQ（學(xué)期） 2） .成績的自動(dòng) Excel 導(dǎo)入 模塊 表名 字段 Dept YXDM（院系代碼）、 YXMC（院系名稱） Major ZYDM（專業(yè)代碼）、 ZYMC（專業(yè)名稱） 27 Student XH（學(xué)號(hào)）、 XM（姓名）、 RXNF（入學(xué)年份，即年級(jí)） Class BJDM（班級(jí)代碼）， BJMC（班級(jí)名稱） Score CJ（成績）， XN（