【正文】 ************************* * * * * _0VV0ILZE8 ON SELECTION BAR 5 OF POPUP 系統(tǒng)維護(hù) * * * * Procedure Origin: * * * * From Menu: , Record: 29 * * Called By: ON SELECTION BAR 5 OF POPUP 系統(tǒng)維護(hù) * * Prompt: 系統(tǒng)初始化 * * Snippet: 9 * * * ********************************************************* * PROCEDURE _0vv0ilze8 IF MESSAGEBOX(真的要進(jìn)行系統(tǒng)初始化嗎 ?,4+32,確認(rèn) )=6 IF ulevel=系統(tǒng)管理員 USE user IN 0 SELECT user ZAP APPEND BLANK REPLACE usename WITH system,usepass WITH manager,uselevel WITH 系統(tǒng)管理員 USE IN user USE student IN 0 SELECT student ZAP COPY TO student1 USE IN student USE student1 IN 0 SELECT student1 APPEND BLANK USE IN student1 USE score IN 0 河北大學(xué)畢業(yè)論文 25 SELECT score ZAP USE IN score USE prof IN 0 SELECT prof ZAP USE IN prof USE classn IN 0 SELECT classn ZAP INDEX ON 專(zhuān)業(yè) +班號(hào) +STR(入校年份 ) TAG sx OF classn amp。建立結(jié)構(gòu)復(fù)合索引文件 USE IN classn USE course IN 0 SELECT course ZAP USE IN course MESSAGEBOX(系統(tǒng)初始化完畢 !,0+64,信息提示 ) ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示 ) ENDIF ENDIF Setprof 表本單設(shè)計(jì)事件如下： PROCEDUDF Activate IF RECCOUNT（ ） =0 this Command2 Enabled=.F. 設(shè)置專(zhuān)業(yè) 專(zhuān) 業(yè) 添加 修改 退出 河北大學(xué)畢業(yè)論文 26 ELSE This mand2 Enabled= .T. ENDIF Thisform Refresh Thisform Refresh Thisform gid1 S Focus ENDIPOC PROCEDURE Init Public f, flag ENDPROC PROCEDURE mand1, click F=“ ” Flag=1 amp。添加專(zhuān)業(yè) DO FORM tprof1 ENDPROC PROCEDURE mard2 click f=專(zhuān)業(yè) flag=2 amp。 修改專(zhuān)業(yè) DO FORM SETPROF ENDPROC PROCEDURE mnd3 click SELEET prof DACK Thisform Release RELEASE f flag Close DATABASES all ENDPROC Setprof1 表單事件如下： PROCEPURE Init IF flag=1 This caption=“ 添加新專(zhuān)業(yè) ” ELSE This caption=“ 修改原專(zhuān)業(yè) ” 歡迎使用 專(zhuān)業(yè) Text1 確定 取消 河北大學(xué)畢業(yè)論文 27 ENDIF This text1 palve=f ENDPROC PROCEDURE mand1 click IF flag=1 SELECT prof APPEND BLANK ENDIF REPLACE 專(zhuān)業(yè) WITH thisform text1 Text Thisform Release ENDPROC PROCEDURE mond2 click Thisform Release ENDPROC setclass 表單事件過(guò)程如下： PROCEDURE Init Public f1,f2,f3,flag Thisform, cmdclass , Enabled=.F. Thisform mand1 enabled=.F. SELEDT classn SET FILTER TO F ENDPROC PROCEDURE Refresh Thisform mand2 Enabled=.f. Thisform mand3 Enabled=.F. ENDPROC PROCEDURE Activate Thisform Refresh Thisform Cmdclass Enabled=F ENBPROC PROCEDURF mand1 click F1=thisform list1 valve F2= thisform list1 valve 河北大學(xué)畢業(yè)論文 28 F3=year(DATE()) Flag=1 amp。添加操作 Do FORM setclass1 ENDPROC PROCEDURE mand2 click SELEET classn F1=專(zhuān)業(yè) f2=班號(hào) f3=入校年份 flag=2 Do form setclass 1 ENDPROC PROCEDURE mand4 click SHECT classn DACK Thisform, Release RELEASF f1,f2,f3,flag Close DATABASES all ENDRLC PROCEDURE mand3 click SELECT classn F1=專(zhuān)業(yè) f2=班號(hào) f3=入校年份 flag=3 Do form setclass1 ENDPROC PROCEDURE cmdclass click Thisform mmond1 Enabled=F Thisform label4 caption=ALLTRJM(tish form 附 1 palve +“ 專(zhuān)業(yè)的班號(hào) ” SELEET classn SET FILTER TO ALLTRIM(專(zhuān)業(yè) )=ALLTRIM(thisform (ist1 palve))AND GTO TOP NOT DELETEDC Thisform refresh ENBPROC PROCEDURE text1 click Thisform mand2 Enabled=F Thisform mand3 Enabled=T 河北大學(xué)畢業(yè)論文 29 ENDPROC setclass1 表單事件過(guò)程如下： PROCEDURE Init Thisform text1 Dalve=f1 Thisform text3 Dalve=f2 Thisform text3 dalve=f3 IF flag=1 Thisform caption=“ 添加班 號(hào) ” EFSE IF flag=2 Thisform capfion=“ 修改班號(hào) ” ELSE Thisform caption=“ 刪除班號(hào) ” This text2 Read only =T Thisform text3 Read only=T ENBIF ENDIF ENDPROC PROCEDURE mand1 click SELEET classn IF flag=1 APPEND BLAND REPLAEE 專(zhuān)業(yè) WITH f1,班號(hào) WITH thisform text2 text 入校年份 WITH thisform text3 Dalve ELSE FI flag=2 REPLACE 班號(hào) WITH thisform text2 foxt。 GTO TOP AND NOT DELETZDC Thisform Refresh. ENDPROC DROCEDURE text1 click Thisform mand2 Enabled=T Thisform mand3 Enabled=T Thisform mand4 Enabled=T ENDPROC QROCEDURE tex41 click Thisform mand2 Enabled=T Thisform mand3 Enabled=T Thisform mand4 Enabled=T ENDPROC PROCEDURE text1 click Thisform mand2 Enabled=T Thisform mand3 Enabled=T Thisform mand4 Enabled=T ENDPROC PROCEDURE mand2 click 河北大學(xué)畢業(yè)論文 32 f1=thisform Bst1 value f 2=thisform Bst1 value f3= thisform Bst1 value f4= thisform Bst1 value f5= thisform Bst1 value f6=0 flag=4 DO form setcoure1 ENDPROC setcourse1 表單事件過(guò)程： PROCEDURE Init fhisform text1 value=f1 fhisform text1 value=f2 fhisform text1 value=f3 fhisform text1 value=f4 fhisform text1 value=f5 fhisform text1 value=f6 IF flag=1 or flag=4 thisform caption=“ 添加課程 ” ELSE IF FLAG=2 Thisform caption=“ 修改課程 ” ELSE thisform caption=“ 刪除課程 ” thisform text2 Readonly=T thisform bo1 Readonly=T thisform bo2 readonly=T ENDIF ENDIF ENDPROC PROCEDURE mand1 click SEUECT course IF flag=1 “添加操作” APPEND BLANK REPLACE 專(zhuān)業(yè) WITH f1 課程是 WITH thisform text2 text1 河北大學(xué)畢業(yè)論文 33 課程 WITH thisform text3 text, 性質(zhì) WITH this mbl1 value。amp。am