【正文】
INSERT INTO log(操作員代號,操作員姓名,登錄時間) VALUES(。統(tǒng)+SPACE(40)+DTOC(DATE())+SPACE(40)+操作員:+operatSELECT 權(quán)限 FROM menuright INTO ARRAY rr WHERE 操作員代號。amp。amp。主菜單共分為三個分菜單項:學(xué)生信息管理,學(xué)生成績管理,系統(tǒng)管理。5系統(tǒng)菜單設(shè)計 學(xué)生信息管理系統(tǒng)的菜單在應(yīng)用系統(tǒng)中,各個了模塊是通過菜單組織在一起的。每個操作員對每個菜單項有兩種權(quán)限:0或1。不能打開對應(yīng)的表單,“1”代表該操作員對該菜單項具有操作權(quán),系統(tǒng)運行后,該菜單項可用,鼠標(biāo)單擊菜單項能打開對應(yīng)的表單。本系統(tǒng)共10個菜單項,所以定義的數(shù)組也包含10個元素。本表單左邊是瀏覽窗口,便于用戶瀏覽數(shù)據(jù);右邊是編輯窗口,主要用于輸入修改數(shù)據(jù)。學(xué)生人事表和成績表的結(jié)構(gòu)請打開數(shù)據(jù)庫表查看。表7 學(xué)生數(shù)據(jù)維護(hù)表單控件屬性對象名稱屬性名稱屬性值Form1caption05計專學(xué)生數(shù)據(jù)維護(hù)AutoCenter.T.Grid1recordsourcetype1別名recordsourcersbCommandgroup1buttoncount10value13) 事件代碼:FORM1的INIT事件代碼:=.F.=.F.=.T.=.T.=.T.=.T.=.T.=.T.=.T.=.T.=.T.=.T.=.F.=.T.=.T.=.T.=.T.=.T.=.T.=.T.=.T.=.F.=.F.FORM1的CLICK事件代碼:=.F.=.F. GRID1的afterrowclochange事件代碼:LPARAMETERS nColIndex(dynamicbackcolor,IIF(reo(),rgb(255,。rgb(0,255,0)),column)select rsb 此代碼實現(xiàn)不現(xiàn)顏色顯示選中的GRID對象的行及列。嗎?,4+32+256,提示)if sel=6deleteendif“查找“按鈕的CLICK事件代碼:=.t.=.t.=()“打印“按鈕的CLICK事件代碼:report form .\menu1\ preview for 。學(xué)生姓名=alltrim()locate for 學(xué)號=alltrim() or 。分別利用不同的命令代碼方式實現(xiàn)查詢打印功能。圖8學(xué)生信息查詢表單1) 學(xué)生信息查詢表單界面中主要控件屬性如表8所示。amp。amp。amp。amp。一一對應(yīng)該對應(yīng)的數(shù)據(jù)項,COMMAND4(查詢)的CLICK事件代碼:*按輸入的日期條件在表格中顯示查詢的記錄SELECT rsbPUBLIC qsrq,jzrqqsrq=jzrq=DO CASE CASE NOT EMPTY(qsrq) AND EMPTY(jzrq) SET FILTER TO 出生日期=qsrq CASE EMPTY(qsrq) AND NOT EMPTY(jzrq) SET FILTER TO 出生日期=jzrq CASE NOT EMPTY(qsrq) AND NOT EMPTY(jzrq) SET FILTER TO 出生日期=qsrq AND 出生日期=jzrq。該表單的運行圖示如下(圖9)圖9學(xué)生信息查詢表單()設(shè)計首先,學(xué)生成績查詢菜單的設(shè)計與學(xué)生信息查詢菜單的設(shè)計比較類似。1) 。表9學(xué)生成績查詢表單控件屬性對象名稱屬性名稱屬性值Form1caption學(xué)生成績查詢AutoCenter.T.Grid1recordsourcetype1別名recordsourcecjbOptiongroup1buttoncount3value1Command1caption打印預(yù)覽…設(shè)計界面如圖10,界面如下:圖10學(xué)生成績查詢表單3) 各事件代碼均類似于學(xué)生信息查詢的事件代碼。 CASE =1 SET FILTER TO 學(xué)生姓名。各項調(diào)用相應(yīng)的表單。退出系統(tǒng)菜單功能實現(xiàn)退出到操作系統(tǒng)界面,把內(nèi)存歸還給操作系統(tǒng)。操作員管理的菜單運行如下:(圖11)圖11 學(xué)生成績查詢五、個人總結(jié)(寫出在課程設(shè)計過程中的收獲和體會,說明程序的優(yōu)