【正文】 TFSD(5).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(4).TEXT) THEN ICJ(5) = ICJ(5) + 1 COMLST(5).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(6).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(5).TEXT) THEN ICJ(6) = ICJ(6) + 1 COMLST(6).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(7).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(6).TEXT) THEN ICJ(7) = ICJ(7) + 1 COMLST(7).ADDITEM PICRS!XM END IF .MOVENEXT LOOP END WITH = FOR I = 0 TO 7 TXTCOUNT(I).CAPTION = ICJ(I) NEXT I END SUB PRIVATE SUB DATAOUT() FOR I = 0 TO 7 ICJ(I) = 0 COMLST(I).CLEAR COMLST(I).TEXT = 請選 TXTCOUNT(I).CAPTION = NEXT I END SUB : 代碼分析 : DIM RSCOUNT AS DIM CMDEXEC AS DIM I AS INTEGER DIM JWSF AS STRING DIM ADDFLG AS BOOLEAN PRIVATE SUB COMBO1_LOSTFOCUS() ON ERROR GOTO ERR DIM CTL AS CONTROL FOR EACH CTL IN CONTROLS IF TYPEOF CTL IS TEXTBOX THEN = 0 END IF NEXT CTL IF = 1 THEN EXIT SUB ELSE SELECT DISTINCT AS KSXZ FROM 成績表 AS A INNER JOIN 學籍表 AS B ON = WHERE LIKE amp。 39。 amp。 LABXK(I).CAPTION amp。 amp。 AND = 39。 AND A. amp。 LABXK(I).CAPTION amp。 39。 amp。 amp。 39。 TXTZF(I).TEXT * , CON, ADOPENSTATIC, , ADCMDTEXT TXTZF(10 + I).TEXT = RSCOUNT!YWJ TXTZF(20 + I).TEXT = RSCOUNT!YWJ / * 100 SELECT COUNT(*) AS YWY FROM 成績表 AS A INNER JOIN 學籍 表 AS B ON = WHERE LIKE amp。 amp。 = amp。 amp。 39。 ( amp。 ,39。,39。,39。, amp。 , amp。 , amp。 , amp。 TXTZF(I + 70).TEXT amp。 ) = SQLSTRING END IF = FALSE NEXT I MSGBOX 添加存儲成功！ EXIT SUB ERR: MSGBOX 存儲錯誤！ CALL EXECERR(DATE, , , , ) END SUB PRIVATE SUB FORM_LOAD() CALL RESIZEINIT(ME) SET RSCOUNT = NEW DIM RSBJ AS SET RSBJ = NEW 班級表 , CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTABLE = 請選擇 ... DO WHILE NOT RSBJ!班級 LOOP IF PERMISSION 0 THEN = FALSE END SUB PRIVATE SUB FORM_RESIZE() CALL RESIZEFORM(ME) 39。 TRIM() amp。 amp。 姓名 = 39。 END IF END IF END IF IF CHECK1(2).VALUE THEN IF TRIM() = THEN MSGBOX 職稱不能為空 , VBOKONLY + VBEXCLAMATION, 警告 EXIT SUB ELSE DD(2) = TRUE IF DD(0) OR DD(1) THEN TXTSQL = TXTSQL amp。 39。 amp。 \幫助文檔 .DOC) = THEN MSGBOX 幫助文件丟失，請查找 幫助文檔 .DOC 文件！ amp。 \幫助文檔 .DOC, , C:\, 1) END IF END SUB PRIVATE SUB XTGL_CLICK() END SUB PRIVATE SUB ZHCJCX_CLICK() END SUB PRIVATE SUB ZNCJSR_CLICK() VBMODAL, MDIFORM1 END SUB 第四章 數(shù)據(jù)庫的設(shè)計 : : : : : : : 數(shù)據(jù)庫概念和發(fā)展 關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應用數(shù)學方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。 Extreme Programming 更是把測試推到了極限的位置，一切軟件開發(fā)活動都要從首先編寫測試代碼開始。 運行結(jié)果證明，本學校教師信息 管理系統(tǒng) 極大提高了工作效率，節(jié)省了人力和物力，最終 滿足 學校管理、學校員工工作 的需要 ，同時也成為現(xiàn)代化學校管理的標志 致 謝 我首先感謝我的指導老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。 參考文獻 1 陳 明 . 軟件工程學教程 .科技出版社， 2020 2 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社， 2020 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫應用開發(fā) .電子工業(yè)出版社， 2020 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊 . 電子工業(yè)出版社 , 2020 5 申 旻 . visual basic 高手突破 . 清華大學出版社， 2020， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松， 王瑜，謝尚書譯 . visual basic 開發(fā)人員指南 . 機械工業(yè)出版社 .2020 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2020 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2020 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2020 嚴蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學出版社 .2020 10 王珍 玲 。 在這里我還要感謝我們宿舍的其它 5 個同學。開發(fā)本系統(tǒng)的過程中，首先 要 對 高校教務(wù) 信息管理進行系統(tǒng)調(diào)研， 熟悉 學校教 師的人事、檔案 管理 的 流程 、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到學校教師管理中存在的各種問題，并在總體設(shè)計把握好對問題的分析、理解，進而解決問題；選用開發(fā)工具要選用自己最熟悉、應用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用 MS Visual Basic ，其具有語言簡單、功能強大、組件眾多的優(yōu)點。隨著軟件危機的頻頻出現(xiàn)以及人們對于軟件本質(zhì)的進一步認識，測試的地位得到了前所未有的提高。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 然后將它存放在應用程序所在的目錄。 END IF END IF END IF IF NOT (DD(0) OR DD(1) OR DD(2) OR DD(3)) THEN MSGBOX 請設(shè)置查詢方式！ , VBOKONLY + VBEXCLAMATION, 警告 EXIT SUB END IF = = ADCMDTEXT = TXTSQL SET = ADODC1 END SUB PRIVATE SUB FORM_LOAD() CALL RESIZEINIT(ME) END SUB PRIVATE SUB FORM_RESIZE() CALL RESIZEFORM(ME) 39。 職稱 = 39。 amp。 amp。 39。 END IF END IF IF CHECK1(1).VALUE = 1 THEN IF TRIM() = THEN MSGBOX 姓名不能為空 , VBOKONLY + VBEXCLAMATION, 警告 EXIT SUB ELSE DD(1) = TRUE IF DD(0) = TRUE THEN TXTSQL = TXTSQL amp。 部門 = 39。, amp。 ,39。 , amp。 , amp。 , amp。 LABXK(I).CAPTION amp。 amp。 amp。 , amp。 amp。 amp。 LABXK(I).CAPTION amp。 AND A. amp。 AND = 39。 LABXK(I).CAPTION amp。 amp。 39。 amp。 amp。 = amp。 amp。 AND LIKE amp。 TXTZF(I).TEXT * , CON, ADOPENSTATIC, , ADCMDTEXT TXTZF(10 + I).TEXT = RSCOUNT!YWJ TXTZF(20 + I).TEXT = RSCOUNT!YWJ / * 100 SELECT COUNT(*) AS YWY FROM 成績表 AS A INNER JOIN 學籍表 AS B ON = WHERE = 39。 39。 amp。 amp。 amp。 amp。 , , 數(shù)值錯誤： EXIT SUB END IF END SUB PRIVATE SUB LOADDATA() DIM QUERY AS STRING DIM PICRS AS SET PICRS = NEW QUERY = SELECT AS XM , A. amp。窗體改變時，控件隨之變化 = + + 100 = =