【正文】 MSGBOX 請用管理員賬號登錄 EXIT SUB END IF DO WHILE = FALSE RS1!登錄姓名 , I I = I + 1 LOOP END SUB PRIVATE SUB TXTPASSWORD_KEYPRESS(KEYASCII AS INTEGER) IF KEYASCII = 13 THEN CMDOK_CLICK END SUB 界面設(shè)計 : 代碼設(shè)計 : DIM KSXZ AS STRING DIM XXKBL AS DOUBLE DIM BJ AS INTEGER DIM I AS INTEGER DIM ICOUNT AS INTEGER DIM ADDFLG AS BOOLEAN DIM RSCOUNT AS INTEGER DIM RS AS DIM RS1 AS DIM CMDEXE AS PRIVATE SUB COMMAND13_CLICK() = 0 END SUB PRIVATE SUB COMMAND5_CLICK() UNLOAD ME END SUB PRIVATE SUB COMMAND7_CLICK() PASS SELECT * FROM 學(xué)籍表 WHERE 班級 =39。 amp。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。 開發(fā)電子教務(wù)管理系統(tǒng)的目的和原則 電子教務(wù)系統(tǒng)只要服務(wù)于高校管理者方便管理 本校教職員工 ,學(xué)生的基本信息如教師工資福利 ,學(xué)生 成績信息學(xué)籍管理等 . 開發(fā)環(huán)境介紹 開發(fā)平臺 本電子教務(wù)管理系統(tǒng)的開發(fā)平臺為微軟 windows xp visual basic 以及微軟的 Access 作為操作數(shù)據(jù)庫 . —— ACCESS數(shù)據(jù)庫管理系統(tǒng) Microsoft Access介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 開發(fā)電子教務(wù)管理系統(tǒng)的過程就是要實現(xiàn)數(shù)據(jù)處理方式由人工管理向計算機(jī)管理的轉(zhuǎn)變，它在計算機(jī)技術(shù)和教務(wù)管理實踐活動兩者之間架設(shè)橋梁。 對于一個學(xué)校來說，大量教師信息 ,學(xué)生管理信息 ,教職工日常工資管理 ,學(xué)生成績管理 ,以及學(xué)生評語的生成還有基本數(shù)據(jù)的維護(hù)都難于通過傳統(tǒng)的方法進(jìn)行管理；這就迫切需要利用計算機(jī)技術(shù)來幫助學(xué)校管理者來處理這些日常管理 .電子教務(wù)管理系統(tǒng)是管理信息系統(tǒng)的一個典型用例 . 管理信息系統(tǒng)是一個集信息技術(shù)、經(jīng)濟(jì)管理理論、統(tǒng)計學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫技術(shù)為一體的綜合性系統(tǒng)，是一個資金技術(shù)密集型、勞動密集型、智力密集型的項目。我國擁有廣闊的市場和豐富的 人才資源，有幾十年的技術(shù)積累和經(jīng)驗積累，有一定的后發(fā)優(yōu)勢。 關(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 have not the needs of the munity, the importance of information and information processing problems urgency unprecedented increase, in the face of increasingly plex and evolving. changes in the social environment, in particular the increasingly keen petition among enterprises situation, a person or an enterprise to survive in modern society, and development, we must have sufficient information and powerful information gathering and processing tools. For a school, a lot of information for teachers, student information management, the teaching and administrative staff daily wage management, student performance management, and the ments students have generated the basic data are difficult to maintain through traditional means。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查 詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報表。 39。 amp。 登分 : amp。 CHR(13) amp。 RS!學(xué)號 amp。 amp。 amp。 amp。 ( amp。 , amp。 , amp。 , amp。 , amp。 , amp。 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。 amp。 amp。 RS1!語文 TXTCJ(1).TEXT = amp。 RS1!化學(xué) TXTCJ(5).TEXT = amp。 RS1!生物 TXTCJ(9).TEXT = amp。 39。 39。 I amp。 AS CJ FROM 成績表 AS A INNER JOIN 學(xué)籍表 AS B ON = 號 WHERE 班級 = 39。 AND 考試性質(zhì) = 39。 QUERY, CON, ADOPENSTATIC, , ADCMDTEXT WITH PICRS DO WHILE NOT .EOF IF CINT(PICRS!CJ) = CINT(TXTFSD(0).TEXT) THEN ICJ(0) = ICJ(0) + 1 COMLST(0).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(1).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(0).TEXT) THEN ICJ(1) = ICJ(1) + 1 COMLST(1).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(2).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(1).TEXT) THEN ICJ(2) = ICJ(2) + 1 COMLST(2).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(3).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(2).TEXT) THEN ICJ(3) = ICJ(3) + 1 COMLST(3).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TXTFSD(4).TEXT) AND CINT(PICRS!CJ) CINT(TXTFSD(3).TEXT) THEN ICJ(4) = ICJ(4) + 1 COMLST(4).ADDITEM PICRS!XM END IF IF CINT(PICRS!CJ) = CINT(TX