【正文】 nepaper 分 1310 autoanswer autoanswer1310tmno[pp]選擇題 1310 pp pp1 end begin query1Close qur qu select tno from ti_choose if ListBox2Count 1 then begin for mm 1 to 9 do begin if TF[mm] t then begin qu where tno not like inttostr mm break end end if listBox2Count 1 then begin for mm 1 to 9 do if TF[mm] t then begin qu and tno not like inttostr mm end end end query1Open query1First while not query1Eof do begin hade false if i 1 then begin thao[i] Query1FieldValues[tno] div 10 end else if i 1 then begin for j i1 downto 1 do begin if thao[j] Query1FieldValues[tno] div 10 then begin t true break end else t false end if not t then begin thao[i] Query1FieldValues[tno] div 10 t false end end query1Next if not t then i i1 end temp random i1 1 r thao[temp] q random 9 1 ran r10q for m 1 to 800 do havetake[m] 0 for m 1 to 800 do begin if havetake[m] ran then begin showmessage chongfu hade true break end end if not hade then begin for m 0 to 800 do if havetake[m] 0 then begin havetake[m] ran break end query1Close qur qu select tiganxaxbxcxdanswerdifficulty from ti_choose where tno no query1ParamByName no Value ran query1Open if choosenumber 0 then begin if query1RecordCount 0 then continue showmessage ddd begin n strtoint query1FieldByName difficulty AsString if diff[n] 0 then begin tt tt1 memo1Text memo1Textinttostr tt query1fieldbyname tigan AsString1310 memo1Text memo1Textquery1fieldbyname xa AsString1310 memo1Text memo1Textquery1fieldbyname xb AsString1310 memo1Text memo1Textquery1fieldbyname xc AsString1310 memo1Text memo1Textquery1fieldbyname xd AsString1310 autoanswer autoanswerinttostr tt query1fieldbyname answer AsString1310 choosenumber choosenumber1 n n1 end 45 本章小結(jié) 本章主要介紹了系統(tǒng)運(yùn)行后功能實(shí)現(xiàn)的截圖跟各主要功能的實(shí)現(xiàn)代碼 結(jié) 論 畢業(yè)設(shè)計(jì)到這就全部完成了試卷自動(dòng)生成系統(tǒng)基本上完成可以實(shí)現(xiàn)有關(guān)信息的輸入修改刪除查詢(xún)以及自動(dòng)生成等功能回想整個(gè)過(guò)程從開(kāi)始分析課題總體設(shè)計(jì)著手開(kāi)發(fā)軟件到最后的系統(tǒng)實(shí)現(xiàn)對(duì) 于畢業(yè)設(shè)計(jì)又有了一個(gè)更高的認(rèn)識(shí)設(shè)計(jì)初我認(rèn)真地學(xué)習(xí)了此次設(shè)計(jì)所用的開(kāi)發(fā)工具編程語(yǔ)言了解了相關(guān)的專(zhuān)業(yè)知識(shí)為順利完成本次畢業(yè)設(shè)計(jì)奠定了基礎(chǔ) 總的來(lái)說(shuō)這次畢業(yè)設(shè)計(jì)收獲很大但是在開(kāi)發(fā)過(guò)程也遇到了不少的困難通過(guò)查閱資料向別人請(qǐng)教自己琢磨和嘗試和導(dǎo)師的指導(dǎo)問(wèn)題大部分被一一解決當(dāng)然本次開(kāi)發(fā)的系統(tǒng)一定還存在一些問(wèn)題我將在以后的學(xué)習(xí)中慢慢完善 由于時(shí)間和技術(shù)的限制本系統(tǒng)只是針對(duì)學(xué)院來(lái)設(shè)計(jì)的所以其功能還有諸多限制而且此次設(shè)計(jì)并為考慮到系統(tǒng)的美觀性經(jīng)過(guò)以后的學(xué)習(xí)可以開(kāi)發(fā)出對(duì)我們整個(gè)學(xué)院都適用的試卷自動(dòng)生成系統(tǒng)甚至對(duì)所有學(xué)校都適用的 系統(tǒng) 參考文獻(xiàn) 1 吳天準(zhǔn) Delphi7 程序設(shè)計(jì)技巧與實(shí)例 [M] 中國(guó)鐵道出版社 2 張?jiān)鰪?qiáng)蔣志光 編程實(shí)例與技巧集粹 [M] 北京希望電子出版社 2021 3 薩師煊王珊 數(shù)據(jù)庫(kù)系統(tǒng)概論 [M] 第三版 高等教育出版社 2021 4 飛思科技產(chǎn)品研發(fā)中心 Delphi7 數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā) [M] 電子工業(yè)出版社2021 5 飛思科技產(chǎn)品研發(fā)中心 Delphi6 開(kāi)發(fā)者手冊(cè) [M] 電子工業(yè)出版社 2021 6 呂偉臣精通 Delphi70[M] 科學(xué)出版社 2021 7 黃德才 數(shù)據(jù)庫(kù)原理及其應(yīng)用教程 [M] 北京科學(xué) 出版社 20218 8 雪蘭 數(shù)據(jù)庫(kù)系統(tǒng)原理及應(yīng)用教程 [M] 北京機(jī)械工業(yè)出版社 20217 9 張海藩 軟件工程導(dǎo)論 第三版 [M] 北京清華大學(xué)出版社 20217 10 薩師煊王珊 數(shù)據(jù)庫(kù)系統(tǒng)概論 第三版 [M] 北京高等教育出版社 20218 11 沈佩娟 數(shù)據(jù)庫(kù)管理及應(yīng)用開(kāi)發(fā) [M] 北京清華大學(xué)出版社 19954 12 胡光兵 Delphi70 程序設(shè)計(jì)實(shí)訓(xùn)教程電子工業(yè)出版社 20217 致 謝 我要忠心感謝我的指導(dǎo)老師邵斌老師感謝他為我選定了這樣一個(gè)有意義的研究課題并指導(dǎo)我完成該論文在幾 個(gè)月學(xué)習(xí)和論文的完成過(guò)程中在論文的研究資料的收集和格式方面感謝導(dǎo)師抽出寶貴時(shí)間多次提出了很有意義的意見(jiàn)和建議開(kāi)拓了我的思路并對(duì)我進(jìn)行悉心的指導(dǎo)和幫助使我能在預(yù)定的時(shí)間內(nèi)完成畢業(yè)論文在邵老師的指導(dǎo)下我學(xué)到了很多理論與實(shí)踐的知識(shí)這是我成長(zhǎng)路上的一筆巨大的財(cái)富感謝他的耐心指導(dǎo) 湖州師范學(xué)院 通用試卷自動(dòng)生成系統(tǒng) 30 TTable TADODataSet TADOTable TADOQuery TADOStoredProc TQuery TStoredProc TBDEDateSet TNestedTable TBDEDataSet TClientDataSet TDataSet TCustomADODataSet 客戶(hù)端應(yīng)用程序 用戶(hù)界面 TDataSouce 數(shù)據(jù)模塊 TTable TQuery BDE 數(shù)據(jù)庫(kù)服務(wù)器 試卷自動(dòng)生成系統(tǒng) 登陸系統(tǒng) 修改密碼 用戶(hù)添加 用戶(hù)刪除 修改權(quán)限 數(shù)據(jù)管理 退出系統(tǒng) 題庫(kù) 管理 試題輸入 試題查詢(xún) 試題添加 試題修改 系統(tǒng) 管理 試卷 管理 手工生成 自動(dòng)生成 試卷修改 試卷刪除 試卷預(yù)覽 事務(wù) 試卷 事務(wù) 題庫(kù)管理程序 題庫(kù) 操作記錄 試卷生成程序 數(shù)據(jù)訪問(wèn) 組件 BDE 數(shù)據(jù)庫(kù) 數(shù)據(jù)控制 組件 用 戶(hù)