【正文】 DATAOUT EXECPASS LOADDATAEND SUBPRIVATE SUB COMLST_CLICK(INDEX AS INTEGER) IF COMLST(INDEX).LISTINDEX 1 AND 1 THEN27 DIM TXTSQL AS STRING TXTSQL = SELECT ,A.* FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = WHERE 姓名 = 39。 AND 考試性質(zhì) = 39。 = = ADCMDTEXT = TXTSQL SET = ADODC1 END IFEND SUBPRIVATE SUB FORM_LOAD() CALL RESIZEINIT(ME) DIM RSB AS SET RSB = NEW SELECT DISTINCT AS KSBJ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = , CON, ADOPENSTATIC, , ADCMDTEXT 28 DO WHILE NOT RSB!KSBJ LOOP SET RSX = NEW SELECT DISTINCT AS KSXZ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = , CON, ADOPENSTATIC, , ADCMDTEXT DO WHILE NOT RSX!KSXZ LOOP IF 0 THEN = 0 = 9 END IF IF 0 THEN29 = 0 END IFEND SUBPRIVATE SUB FORM_RESIZE() CALL RESIZEFORM(ME) 39。 ： EXIT SUB END IF NEXT I IF CINT(TXTFSD(0).TEXT) CINT(TXTFSD(1).TEXT) AND CINT(TXTFSD(1).TEXT) CINT(TXTFSD(2).TEXT) AND CINT(TXTFSD(2).TEXT) CINT(TXTFSD(3).TEXT) AND CINT(TXTFSD(3).TEXT) CINT(TXTFSD(4).TEXT) AND CINT(TXTFSD(4).TEXT) CINT(TXTFSD(5).TEXT) AND 31CINT(TXTFSD(5).TEXT) CINT(TXTFSD(6).TEXT) AND CINT(TXTFSD(6).TEXT) CINT(TXTFSD(7).TEXT) THEN ELSE MSGBOX 請保持?jǐn)?shù)值遞減順序！此次統(tǒng)計不實。 amp。 amp。 , CON, ADOPENSTATIC, , ADCMDTEXT = = 請選擇性質(zhì) = FALSE IF = FALSE AND = FALSE THEN DO WHILE = FALSE RSCOUNT!KSXZ = TRUE LOOP37 END IF END IFEXIT SUBERR:CALL EXECERR(DATE, , , , )END SUBPRIVATE SUB COMMAND1_CLICK()ON ERROR GOTO WRONGIF = 1 OR = 1 OR = THEN MSGBOX 統(tǒng)計需要項目未完整提供！ EXIT SUBEND IFIF = 1 AND ( 否 AND 是) THEN MSGBOX 計外生情況描述不完整！ EXIT SUB38 ELSE IF = 否 THEN ELSE END IFEND IFTXTZF(9).TEXT = TXTZF(9).TEXT = TXTZF(0).TEXT * 1 + TXTZF(1).TEXT * 1 + TXTZF(2).TEXT * 1 + TXTZF(3).TEXT * 1 + TXTZF(4).TEXT * 1 + TXTZF(5).TEXT * 1 + TXTZF(6).TEXT * 1 + TXTZF(7).TEXT * 1 + TXTZF(8).TEXT * 1IF = 否 THEN FOR I = 0 TO 9 IF TXTZF(I).TEXT 0 THEN SELECT COUNT(*) AS YWJ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = WHERE = 39。 AND LIKE amp。 amp。 = amp。 39。 amp。 LABXK(I).CAPTION amp。 ) AS YWZ , COUNT(*) AS RS FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = WHERE = 39。 AND LIKE amp。 amp。 AND = 39。 AND A. amp。 amp。 39。 TXTZF(I).TEXT * , CON, ADOPENSTATIC, , ADCMDTEXT TXTZF(30 + I).TEXT = RSCOUNT!YWY TXTZF(40 + I).TEXT = RSCOUNT!YWY / * 100 SELECT SUM( amp。 AND = 39。, CON, ADOPENSTATIC, , ADCMDTEXT TXTZF(50 + I).TEXT = RSCOUNT!YWZ TXTZF(60 + I).TEXT = RSCOUNT!YWZ / TXTZF(70 + I).TEXT = TXTZF(20 + I).TEXT * + TXTZF(40 + I).TEXT * + TXTZF(60 + I).TEXT * TXTZF(80 + I).TEXT = RSCOUNT!RS END IF NEXT IEND IF = TRUE42EXIT SUBWRONG:IF = 3705 THEN MSGBOX 內(nèi)部錯誤，請重新按一下“統(tǒng)計”按鈕！ EXIT SUBEND IFMSGBOX amp。 amp。 amp。 amp。 amp。 TXTZF(I).TEXT amp。 TXTZF(I + 20).TEXT amp。 TXTZF(I + 40).TEXT amp。 TXTZF(I + 60).TEXT amp。 39。窗體改變時，控件隨之變化WITH COMBO1 .TOP = LABEL1(0).TOP .LEFT = .WIDTH = + END WITHWITH COMBO3 .TOP = .LEFT = .WIDTH = TXTZF(50).WIDTHEND WITHWITH COMBO2 .TOP = .LEFT = .WIDTH = TXTZF(70).WIDTH + TXTZF(80).WIDTHEND WITH46 = END SUBPRIVATE SUB TABSTRIP1_CLICK()END SUBPRIVATE SUB TXTZF_KEYPRESS(INDEX AS INTEGER, KEYASCII AS INTEGER)IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0END IFEND SUB:47代碼分析:PRIVATE SUB CMDINQUIRE_CLICK() DIM TXTSQL AS STRING DIM DD(4) AS BOOLEAN TXTSQL = SELECT * FROM 教工表 WHERE IF CHECK1(0).VALUE = 1 THEN IF TRIM() = THEN MSGBOX 部門不能為空, VBOKONLY + VBEXCLAMATION, 警告48 EXIT SUB ELSE DD(0) = TRUE TXTSQL = TXTSQL amp。 39。 amp。 amp。 AND 職稱 = 39。 ELSE TXTSQL = TXTSQL amp。 39。 CHR(13) amp。20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 系統(tǒng)測試與評價測試在軟件開發(fā)過程中一直都是備受關(guān)注的，即使在傳統(tǒng)的軟件工程中，也有一個明確、獨立的測試階段。61總 結(jié)電子教務(wù)管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。實用軟件工程教程 高等教育出版社 202211 （英）Ian Sommerville 機(jī)械工業(yè)出版社 202212 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 202213 李維 面向?qū)ο箝_發(fā)實踐之路（visual basic 版）(BORLAND資深顧問著名 visual basic 作) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫系統(tǒng)開發(fā)與應(yīng)用 64 中國水利水電出版社 2022 .115 劉藝 visual basic 面向?qū)ο缶幊趟枷?機(jī)械工業(yè)出版社 2022 basic 程序設(shè)計第二版 譚浩強(qiáng) 清華大學(xué)出版社 202217. visual 程序設(shè)計教程. 胡同森 趙劍鋒等. 浙江科學(xué)技術(shù)出版社, (第二版) 周蘇 王文 著 科學(xué)出版社 2022 Basic 程序設(shè)計與開發(fā)技術(shù) 求是科技 人民郵電出版社