【正文】 RS1!語文 = TRIM(TXTCJ(0).TEXT) RS1!數(shù)學(xué) = TRIM(TXTCJ(1).TEXT) RS1!英語 = TRIM(TXTCJ(2).TEXT) RS1!物理 = TRIM(TXTCJ(3).TEXT) RS1!化學(xué) = TRIM(TXTCJ(4).TEXT) RS1!政治 = TRIM(TXTCJ(5).TEXT) * 1 * ( * 1) RS1!歷史 = TRIM(TXTCJ(6).TEXT) * 1 * ( * 1) RS1!地理 = TRIM(TXTCJ(7).TEXT) * 1 * ( * 1) RS1!生物 = TRIM(TXTCJ(8).TEXT) * 1 * ( * 1) RS1!總分 = TRIM(TXTCJ(9).TEXT) ADAFFECTALLCHAPTERS (1) = 修改成功保存！ 17ELSE = CON = INSERT INTO 成績表(考試號,語文,數(shù)學(xué),英語,物理,化學(xué),政治,歷史,地理,生物,總分,考試性質(zhì)) VALUES amp。 amp。 TXTCJ(0).TEXT amp。 TXTCJ(1).TEXT amp。 TXTCJ(2).TEXT amp。 TXTCJ(3).TEXT amp。 TXTCJ(4).TEXT amp。 TXTCJ(5).TEXT * 1 * ( * 1) amp。 TXTCJ(6).TEXT * 1 * ( * 1) amp。 TXTCJ(7).TEXT * 1 * ( * 1) amp。 TXTCJ(8).TEXT * 1 * ( * 1) amp。 TXTCJ(9).TEXT amp。 amp。 39。 ICOUNT amp。 RS!考試號 = amp。 RS!姓名24 SELECT AS 考試號 , AS 學(xué)號, AS 姓名, AS 語文 , AS 數(shù)學(xué), AS 英語, AS 物理, AS 化學(xué) , AS 政治, AS 歷史, AS 地理,B. 生物 AS 生物, AS 總分 FROM 學(xué)籍表 AS A LEFT OUTER JOIN 成績表 AS B ON = WHERE =39。 TRIM() amp。 AND =39。 TRIM() amp。 ORDER BY , CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTEXTIF = FALSE AND = FALSE THEN ADDFLG = FALSE TXTCJ(0).TEXT = amp。 RS1!數(shù)學(xué) TXTCJ(2).TEXT = amp。 RS1!物理 TXTCJ(4).TEXT = amp。 RS1!政治 TXTCJ(6).TEXT = amp。 RS1!地理 TXTCJ(8).TEXT = amp。 RS1!總分ELSE25 ADDFLG = TRUE FOR I = 0 TO 9 TXTCJ(I).TEXT = 0 NEXT IEND IFEND SUBPRIVATE SUB TXTCJ_LOSTFOCUS(INDEX AS INTEGER)FOR I = 0 TO 8IF TXTCJ(I).TEXT = THENTXTCJ(I).TEXT = 0END IFNEXT IEND SUB:26代碼設(shè)計:PRIVATE SUB CMDEXEC_CLICK()IF = 1 OR = 1 OR = 1 THEN MSGBOX 請確保選擇統(tǒng)計班級、學(xué)科和考試性質(zhì)！ EXIT SUBEND IF 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。 COMLST(INDEX).TEXT amp。 AND 考試性質(zhì) = 39。 amp。 = = 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。, , 錯誤項 amp。 ： 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。 39。 amp。 39。 , 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。 amp。 AND LIKE amp。 AND = 39。 amp。 AND A. amp。 = amp。 amp。 39。 amp。 amp。 39。 LABXK(I).CAPTION amp。 TXTZF(I).TEXT * , CON, ADOPENSTATIC, , ADCMDTEXT TXTZF(30 + I).TEXT = RSCOUNT!YWY TXTZF(40 + I).TEXT = RSCOUNT!YWY / * 100 SELECT SUM( amp。 ) AS YWZ , COUNT(*) AS RS FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = WHERE = 39。 amp。 AND LIKE amp。 AND = 39。 amp。, CON, ADOPENSTATIC, , ADCMDTEXT TXTZF(50 + I).TEXT = RSCOUNT!YWZ TXTZF(60 + I).TEXT = RSCOUNT!YWZ / TXTZF(70 + I).TEXT = TXTZF(20 + I).TEXT * + 40TXTZF(40 + I).TEXT * + TXTZF(60 + I).TEXT * TXTZF(80 + I).TEXT = RSCOUNT!RS END IF NEXT IEND IFIF = 是 THEN FOR I = 0 TO 9 IF