【正文】 = FALSE = TRUE = TRUE = TRUE MSGBOX TRIM() amp。 CHR(13) amp。 TRIM() amp。 可以開始輸入成績了！ , , END IF 學(xué)號 amp。 姓名 IF AND THEN ELSE DO WHILE = FALSE IF LEN(RS!學(xué)號 ) = 1 THEN 0 amp。 amp。 RS!學(xué)號 amp。 RS!姓名 END IF LOOP END IF = 1 DISPLAY END SUB PRIVATE SUB COMMAND8_CLICK() = TRUE = TRUE = FALSE = FALSE = FALSE = FALSE = TRUE = FALSE = FALSE = FALSE FOR I = 0 TO 8 TXTCJ(I).ENABLED = TRUE TXTCJ(I).TEXT = NEXT I END SUB PRIVATE SUB COMMAND9_CLICK() ON ERROR GOTO ERR FOR I = 0 TO 8 IF TRIM(TXTCJ(I).TEXT) * 1 THEN MSGBOX 成績大于預(yù)定值！ , , 成績第 amp。 項錯誤 EXIT SUB END IF NEXT I TXTCJ(9).TEXT = TXTCJ(0) * 1 + TXTCJ(1) * 1 + TXTCJ(2) * 1 + TXTCJ(3) * 1 + TXTCJ(4) * 1 + TXTCJ(5) * 1 * ( * 1) + TXTCJ(6) * 1 * ( * 1) + TXTCJ(7) * 1 * ( * 1) + TXTCJ(8) * 1 * ( * 1) IF ADDFLG = FALSE THEN SELECT 語文 ,數(shù)學(xué) ,英語 ,物理 ,化學(xué) ,政治 ,歷史 ,地理 ,生物 ,總分 FROM 成績表 WHERE 考試號 =39。 TRIM() amp。 AND 考試性質(zhì) =39。 amp。, CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTEXT 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) = 修改成功保存！ ELSE = 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!姓名 SELECT AS 考試號 , AS 學(xué)號 , AS 姓名 , AS 語文 , AS 數(shù)學(xué) , AS 英語 , AS 物理 , AS 化學(xué) , AS 政治 , AS 歷史 , AS 地理 , 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, ADCMDTEXT IF = 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!總分 ELSE ADDFLG = TRUE FOR I = 0 TO 9 TXTCJ(I).TEXT = 0 NEXT I END IF END SUB PRIVATE SUB TXTCJ_LOSTFOCUS(INDEX AS INTEGER) FOR I = 0 TO 8 IF TXTCJ(I).TEXT = THEN TXTCJ(I).TEXT = 0 END IF NEXT I END SUB : 代碼設(shè)計 : PRIVATE SUB CMDEXEC_CLICK() IF = 1 OR = 1 OR = 1 THEN MSGBOX 請確保選擇統(tǒng)計班級、學(xué)科和考試性質(zhì)！ EXIT SUB END IF DATAOUT EXECPASS LOADDATA END SUB PRIVATE SUB COMLST_CLICK(INDEX AS INTEGER) IF COMLST(INDEX).LISTINDEX 1 AND 1 THEN 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 IF END SUB PRIVATE 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 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 THEN = 0 END IF END SUB PRIVATE 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 CINT(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 LOOP END IF END IF EXIT SUB ERR: CALL EXECERR(DATE, , , , ) END SUB PRIVATE SUB COMMAND1_CLICK() ON ERROR GOTO WRONG IF = 1 OR = 1 OR = THEN MSGBOX 統(tǒng)計需要項目未完整提供！ EXIT SUB END IF IF = 1 AND ( 否 AND 是 ) THEN MSGBOX 計外生情況描述不完整！ EXIT SUB ELSE IF = 否 THEN ELSE END IF END IF TXTZF(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 * 1 IF = 否 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 A.考試號 = WHERE = 39。 amp。 AND B.班級 LI