【正文】 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 學(xué)籍表 AS B ON = WHERE LIKE amp。 amp。 AND 考試性質(zhì) = 39。 amp。 AS CJ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = 號 WHERE 班級 = 39。 , , 數(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。 I amp。窗體改變時，控件隨之變化 = + + 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 SUB PRIVATE SUB TXTFSD_KEYPRESS(INDEX AS INTEGER, KEYASCII AS INTEGER) IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0 END IF END SUB PRIVATE SUB EXECPASS() FOR I = 0 TO 7 IF TXTFSD(I).TEXT = THEN MSGBOX 分?jǐn)?shù)段數(shù)值錯誤！此次統(tǒng)計不實。 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 = + 1 END IF DISPLAY EXIT SUB ERR: CALL EXECERR(DATE, , , , ) END SUB PRIVATE SUB FORM_LOAD() ADDFLG = FALSE ICOUNT = 0 SET RS = NEW SET RS1 = NEW SET CMDEXE = NEW DIM RSBJ AS SET RSBJ = NEW 班級表 , CON, ADOPENSTATIC, ADLOCKPESSIMISTIC, ADCMDTABLE DO WHILE NOT RSBJ!班級 LOOP IF 0 THEN = 0 END IF END SUB PRIVATE SUB COMMAND1_CLICK() = 1 DISPLAY END SUB PRIVATE SUB COMMAND2_CLICK() WITH RS .MOVEPREVIOUS IF .BOF THEN .MOVEFIRST ELSE = 1 END IF END WITH DISPLAY END SUB PRIVATE SUB COMMAND3_CLICK() WITH RS .MOVENEXT IF THEN ELSE = + 1 END IF END WITH DISPLAY END SUB PRIVATE SUB COMMAND4_CLICK() = 1 DISPLAY END SUB PRIVATE SUB LIST1_CLICK() IF 1 THEN ELSE 1, ADBOOKMARKFIRST END IF DISPLAY END SUB PRIVATE SUB TEXT3_KEYPRESS(KEYASCII AS INTEGER) IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0 END IF END SUB PRIVATE SUB TXTCJ_GOTFOCUS(INDEX AS INTEGER) FOR I = 0 TO 8 IF TXTCJ(I).TEXT = 0 THEN TXTCJ(I).TEXT = END IF NEXT I (1) = 處于更改成績狀態(tài)！ END SUB PRIVATE SUB TXTCJ_KEYPRESS(INDEX AS INTEGER, KEYASCII AS INTEGER) IF NOT ISNUMERIC(CHR(KEYASCII)) THEN KEYASCII = 0 END IF END SUB PRIVATE SUB PASS() IF = THEN = DATE END IF IF = THEN = END IF IF = 1 THEN = 101 END IF IF TRIM() = THEN = 130 END IF FOR I = 0 TO 8 IF CHECK1(I).VALUE = 1 THEN TXTCJ(I).ENABLED = FALSE TXTCJ(I).TEXT = 0 END IF NEXT I END SUB PRIVATE SUB DISPLAY() IF THEN MSGBOX 記錄已到最后一條！ END IF = = amp。) (1) = 添加成功保存！ ICOUNT = ICOUNT + 1 END 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ù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報表。在打開一個窗體時，Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)， 并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查 詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。s information technology and to achieve a leap forward of the information industry, give better play to the information industry to stimulate economic growth. Development of electronic academic course management system approach is to be achieved by manual data management to puter management changes in puter technology and academic build bridges between management practice. keyword: academic management, management information systems, databases, puter management 目 錄 摘 要 I ABSTRACT II 第一章 引言 1 背景 1 管理系統(tǒng) 1 開發(fā)電子教務(wù) 管理系統(tǒng)的目 的和原則 3 開發(fā)環(huán)境介紹 3 開發(fā)平臺 4 —— ACCESS數(shù)據(jù)庫管理系統(tǒng) 7 第二章 系統(tǒng)設(shè)計 9 系統(tǒng)分析 9 系統(tǒng)流程和操作方式設(shè)計 11 第三章 系統(tǒng)界面設(shè)計 12 系統(tǒng)界面設(shè)計以及代碼分析 12 第四章 數(shù)據(jù)庫的設(shè)計 30 數(shù)據(jù)庫設(shè)計 30 數(shù)據(jù)庫概念和發(fā)展 30 系統(tǒng)測試與評價 38 總 結(jié) 39 致 謝 40 參考文獻(xiàn) 41 第一章 引言 對于一個學(xué)校來說，大量教師信息 ,學(xué)生管理信息 ,教職工日常工 資管理 ,學(xué)生成績管理 ,以及學(xué)生評語的生成還有基本數(shù)據(jù)的維護(hù)都難于通過傳統(tǒng)的方法進(jìn)行管理；這就迫切需要利用計算機(jī)技術(shù)來幫助學(xué)校管理者來處理這些日常管理 .電子教務(wù)管理系統(tǒng)是管理信息系統(tǒng)的一個典型用例 . 背景 電子教務(wù) 管理系統(tǒng) 開發(fā)電子教務(wù)管理系統(tǒng)的過程就是要實現(xiàn)數(shù)據(jù)處理方式由人工管理向計算機(jī)管理的轉(zhuǎn)變，它在計算機(jī)技術(shù)和教務(wù)管理實踐活動兩者之間架設(shè)橋梁。 關(guān)鍵字 :教務(wù)管理 ,管理信息系統(tǒng) ,數(shù)據(jù)庫 ,計算機(jī)管理 Abstract： Since the 20th century, the rapid development of social productive forces, science and technology, exchange of information is the depth and scope of increasing the volume of information rapid growth, the traditional information processing and decisionmaking tools hav