【正文】 ICJ(4) = ICJ(4) + 1 COMLST(4).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(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 .MOVENEXT34 LOOP END WITH = FOR I = 0 TO 7 TXTCOUNT(I).CAPTION = ICJ(I) NEXT I END SUBPRIVATE SUB DATAOUT()FOR I = 0 TO 7 ICJ(I) = 0 COMLST(I).CLEAR COMLST(I).TEXT = 請選 TXTCOUNT(I).CAPTION = NEXT IEND SUB35:代碼分析:DIM RSCOUNT AS DIM CMDEXEC AS DIM I AS INTEGERDIM JWSF AS STRINGDIM ADDFLG AS BOOLEANPRIVATE SUB COMBO1_LOSTFOCUS()ON ERROR GOTO ERRDIM CTL AS CONTROLFOR EACH CTL IN CONTROLS36 IF TYPEOF CTL IS TEXTBOX THEN = 0 END IFNEXT CTLIF = 1 THEN EXIT SUBELSE SELECT DISTINCT AS KSXZ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = WHERE LIKE amp。 amp。 AND 考試性質(zhì) = 39。 amp。 AS CJ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = B.考試號 WHERE 班級 = 39。, , 數(shù)值錯(cuò)誤： EXIT SUB END IFEND SUBPRIVATE SUB LOADDATA() DIM QUERY AS STRING DIM PICRS AS SET PICRS = NEW QUERY = SELECT AS XM , A. amp。 I amp。窗體改變時(shí)，控件隨之變化 = + + 100 = = + 150 = + + 100 = = + 150 = + + 100 = = + 150 FOR I = 0 TO 7 COMLST(I).TOP = COMLST(I).LEFT = TXTFSD(I).LEFT + I * 10 COMLST(I).WIDTH = COMLST(I).WIDTH NEXT I END SUB30PRIVATE SUB TXTFSD_KEYPRESS(INDEX AS INTEGER, KEYASCII AS INTEGER)IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0END IFEND SUBPRIVATE SUB EXECPASS() FOR I = 0 TO 7 IF TXTFSD(I).TEXT = THEN MSGBOX 分?jǐn)?shù)段數(shù)值錯(cuò)誤！此次統(tǒng)計(jì)不實(shí)。 39。 amp。 39。 amp。 RS1!生物 TXTCJ(9).TEXT = amp。 RS1!歷史 TXTCJ(7).TEXT = amp。 RS1!化學(xué) TXTCJ(5).TEXT = amp。 RS1!英語 TXTCJ(3).TEXT = amp。 RS1!語文 TXTCJ(1).TEXT = amp。 39。 amp。 39。 amp。 RS!學(xué)號 = amp。 條記錄IF + 1 THEN = + 118END IFDISPLAYEXIT SUBERR:CALL EXECERR(DATE, , , , )END SUBPRIVATE SUB FORM_LOAD()ADDFLG = FALSEICOUNT = 0SET RS = NEW SET RS1 = NEW SET CMDEXE = NEW DIM RSBJ AS SET RSBJ = NEW 班級表, CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTABLE 19 DO WHILE NOT RSBJ!班級 LOOP IF 0 THEN = 0 END IFEND SUBPRIVATE SUB COMMAND1_CLICK() = 1DISPLAYEND SUBPRIVATE SUB COMMAND2_CLICK()WITH RS .MOVEPREVIOUS IF .BOF THEN .MOVEFIRST20 ELSE = 1 END IFEND WITH DISPLAYEND SUBPRIVATE SUB COMMAND3_CLICK()WITH RS .MOVENEXT IF THEN ELSE = + 1 END IFEND WITH DISPLAYEND SUBPRIVATE SUB COMMAND4_CLICK() 21 = 1 DISPLAYEND SUBPRIVATE SUB LIST1_CLICK()IF 1 THENELSE 1, ADBOOKMARKFIRSTEND IFDISPLAYEND SUBPRIVATE SUB TEXT3_KEYPRESS(KEYASCII AS INTEGER)IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0END IFEND SUBPRIVATE SUB TXTCJ_GOTFOCUS(INDEX AS INTEGER)FOR I = 0 TO 8IF TXTCJ(I).TEXT = 0 THENTXTCJ(I).TEXT = 22END IFNEXT I(1) = 處于更改成績狀態(tài)！END SUBPRIVATE SUB TXTCJ_KEYPRESS(INDEX AS INTEGER, KEYASCII AS INTEGER)IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0END IFEND SUBPRIVATE SUB PASS()IF = THEN = DATEEND IFIF = THEN = END IFIF = 1 THEN = 101END IF23IF TRIM() = THEN = 130END IFFOR I = 0 TO 8 IF CHECK1(I).VALUE = 1 THEN TXTCJ(I).ENABLED = FALSE TXTCJ(I).TEXT = 0 END IFNEXT IEND SUBPRIVATE SUB DISPLAY()IF THEN MSGBOX 記錄已到最后一條！END IF = = amp。) (1) = 添加成功保存！ ICOUNT = ICOUNT + 1END IF = 共添加 amp。 amp。 ,39。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 ( amp。 39。 amp。 39。 amp。 I + 1 amp。 amp。 RS!姓名 ELSE amp。 RS!學(xué)號 amp。 amp。 CHR(13) amp。 考試性質(zhì)： amp。 登分: amp。 39。 amp。 3 MICOUNT amp。 39。 amp。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。在打開一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)4分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。1電子教務(wù)管理系統(tǒng)畢業(yè)設(shè)計(jì)目 錄摘 要 IABSTRACT II