【正文】 UB END SUB PRIVATE SUB FORM_LOAD() IF LEN(GETFROMINI(用戶信息 , 姓名 , + \電子教務系統(tǒng) .INI)) = 0 OR LEN(GETFROMINI(用戶信息 , 密碼 , + \電子教務系統(tǒng) .INI)) = 0 THEN ELSE = GETFROMINI(用戶信息 , 姓名 , + \電子教務系統(tǒng) .INI) = GETFROMINI(用戶信息 , 密碼 , + \電子教務系統(tǒng) .INI) END IF DIM RS1 AS SET RS1 = NEW LOGIN, CON, ADOPENSTATIC, ADCMDTABLE ICOUNT = 0 IF AND THEN 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 界面設計 : 代碼設計 : 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 學籍表 WHERE 班級 =39。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 開發(fā)電子教務管理系統(tǒng)的目的和原則 電子教務系統(tǒng)只要服務于高校管理者方便管理 本校教職員工 ,學生的基本信息如教師工資福利 ,學生 成績信息學籍管理等 . 開發(fā)環(huán)境介紹 開發(fā)平臺 本電子教務管理系統(tǒng)的開發(fā)平臺為微軟 windows xp visual basic 以及微軟的 Access 作為操作數(shù)據(jù)庫 . —— ACCESS數(shù)據(jù)庫管理系統(tǒng) Microsoft Access介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 對于一個學校來說，大量教師信息 ,學生管理信息 ,教職工日常工資管理 ,學生成績管理 ,以及學生評語的生成還有基本數(shù)據(jù)的維護都難于通過傳統(tǒng)的方法進行管理；這就迫切需要利用計算機技術(shù)來幫助學校管理者來處理這些日常管理 .電子教務管理系統(tǒng)是管理信息系統(tǒng)的一個典型用例 . 管理信息系統(tǒng)是一個集信息技術(shù)、經(jīng)濟管理理論、統(tǒng)計學與運籌學、數(shù)據(jù)庫技術(shù)為一體的綜合性系統(tǒng)，是一個資金技術(shù)密集型、勞動密集型、智力密集型的項目。 關鍵字 :教務管理 ,管理信息系統(tǒng) ,數(shù)據(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ù)執(zhí)行內(nèi)嵌或自定義的計算。 39。 登分 : amp。 RS!學號 amp。 amp。 ( amp。 , amp。 , amp。 amp。 amp。 RS1!語文 TXTCJ(1).TEXT = amp。 RS1!生物 TXTCJ(9).TEXT = amp。 39。 AS CJ FROM 成績表 AS A INNER JOIN 學籍表 AS B ON = 號 WHERE 班級 = 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(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 .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 學籍表 AS B ON = WHERE LIKE amp。 amp。 amp。 AND A. amp。 39。 amp。 TXTZF(I).TEXT * , CON, ADOPENSTATIC, , ADCMDTEXT TXTZF(10 + I).TEXT = RSCOUNT!YWJ TXTZF(20 + I).TEXT = RSCOUNT!YWJ / * 100 SELECT COUNT(*) AS YWY FROM 成績表 AS A INNER JOIN 學籍 表 AS B ON = WHERE LIKE amp。 = amp。 39。 ,39。,39。 , amp。 , amp。 ) = SQLSTRING END IF = FALSE NEXT I MSGBOX 添加存儲成功！ EXIT SUB ERR: MSGBOX 存儲錯誤！ CALL EXECERR(DATE, , , , ) END SUB PRIVATE SUB FORM_LOAD() CALL RESIZEINIT(ME) SET RSCOUNT = NEW DIM RSBJ AS SET RSBJ =