【正文】 =添加新專業(yè) ELSE =修改原專業(yè) ENDIF =f 在“確定”命令按鈕控 件 mand1 的“ click”事件中添加代碼如下： IF flag=1 SELECT prof APPEND BLANK ENDIF REPLACE zy WITH 在“取消”命令按鈕控件 mand2 的“ click”事件中添加代碼如下： 設(shè) 置班級(jí)管理的表單（ ） 該 表 單的數(shù)據(jù)環(huán)境為 prof 和 classn 表。amp。amp。為 setclass 表單所調(diào)用。amp。 圖 4. 7 控 件 和事件： 添 加 “ form1”的“ Activate” 事件的代碼如下： 添 加 “ form1”的“ Refresh”事件的代碼如下： =.F. =.F. =.F. 添 加 “ form1”的“ Init”事件的代碼如下： P UBLIC f1, f2,f3,f4,f5,f6,flag =.F. =.F. SELECT course SET FILTER T O . F. 在列表框控件“ list1”的“ click”事件中添加代碼如下： =.T. 在“添加”命令按鈕控件 mand1 的“ click”事件中添加代碼如下： f1= f2= f3= f4= f5= f6=0 flag=1 amp。前 插操作 DO FORM setcourse1 在“修改”命令按鈕控件 mand3 的“ click”事件中添加代碼如下： SELECT course f1=zy f2=kch f3=kc f4=xz f5=kkxq f6=xf flag=2 amp。刪 除操作 DO FORM setcourse1 在“退出”命令按鈕控件 mand5 的“ click”事件中添加代碼如下： SELECT course RELEASE f1, f2,f3,f4,f5,f6,flag amp。 添 加或修改某專業(yè)開設(shè)的課程的表單（ ） 該表單數(shù)據(jù)環(huán)境為空。添 加操作 AP P END BLANK REPLACE zy WITH f1,kch WITH . text,kc WITH , 。 xz WITH . Value, kkxq WITH ,xf WITH ELSE IF flag=3 amp。前插操作 INSERT BEFORE BLANK REPLACE zy WITH f1, kch WITH . text,kc WITH , 。amp。在三個(gè)子菜單中，分別 設(shè) 置其下拉菜單： 1）基本數(shù)據(jù)管理 其過程命令為 IF ulevel=系統(tǒng)管理員 do form setprof ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示 ) ENDIF 其過程命令為 IF ulevel=系統(tǒng)管理員 do form setclass ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示 ) ENDIF 其過程命令為 IF ulevel=系統(tǒng)管理員 do form setcourse ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示 ) ENDIF 其過程命令為 IF ulevel=系統(tǒng)管理員 do form setstudent ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示 ) ENDIF 其 mand 命令為 do form qustudent 2）學(xué)生成績(jī)管理 其過程命令為 IF ulevel=系統(tǒng)管理員 do form setscore ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示 ) ENDIF 其 mand 命令為 do form quscore 其 mand 命令為 do form printscore 3）系統(tǒng)維護(hù) 其過程命令為 IF ulevel=系統(tǒng)管理員 do form usermain ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示 ) ENDIF 其過程命令為 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 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 zy+bh+STR(rxnf) TAG sx OF classn amp。已防止在用戶對(duì)本系統(tǒng)進(jìn)行使用時(shí)錯(cuò)誤操作造成系統(tǒng)出錯(cuò)。經(jīng)過檢查后發(fā)現(xiàn)出錯(cuò)原因是在表格中的具體的每一個(gè) Column 中都沒有設(shè)置 ControlSourse 屬性。而 該表單的構(gòu)成 需要引用數(shù)據(jù)環(huán)境 student1 表。 總 結(jié) 經(jīng)過二個(gè)多月的設(shè)計(jì)和開發(fā)，《學(xué)生成績(jī)管理系統(tǒng)》基本開發(fā)完畢。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界 面 不夠美觀，出錯(cuò)處理不夠完善等多方面問題。使用結(jié)構(gòu)化的查詢技術(shù)，能夠從大量的數(shù)據(jù)中快速查詢需 要 的信息。不僅使我在規(guī)定的時(shí)間內(nèi)完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我學(xué)到了很多有益的經(jīng)驗(yàn)。 Visual 數(shù)據(jù)庫(kù)系統(tǒng)概論 Visual the fly sat upon the axletree of the chariot wheel, and said. What a dust do I raise? So are there some vain persons, that whatsoever goeths indeed! They could tell us something worth hearing, if they only knew how to talk. It39。t know what that is! The journey of the witches on broomsticks is well enough known that journey is taken on St. John39。 for all bravery stands upon parisons. They must needs be violent, to make good their own vaunts. Neithe r can they be secret, and therefore not effectual。 as if a man that negotiates between two princes, to draw them to join in a war against the third, doth extol the forces of either of them above measure, the one to the other: and sometimes, he that deals between man and man, raiseth his own credit with both by pretending greater interest than he hath in either. And in these, and the like kinds, it often falls out that somewhat is produced of nothing: for lies are sufficient to breed opinion, and opinion brings on substance. In military manders and soldiers, vainglory is an essential point。 and virtue was never so beholding to human nature, as it received his due at the second hand. Neither had the fame of Cicero, Seneca, Plinius Secundus, borne her age so well, if it had not been joined with some vanity in themselves: like unto varnish, that makes sealings not only shine, but last But all this while, when I speak of vainglory, I mean not of that property, that Tacitus doth attribute to Mucianus。 In mending another, you do your self right。 the idols of parasites。 for these are the offences which are and have been, and willever be, the source of all the aforesaid evils. The greatest of themare excesses and insolences of youth, and are offences against thegreatest when they are done against religion。 and the f ifth kind is when the violation ofthe civil rights of an individual demands reparation. There shouldbe a mon law embracing all these cases. For we have already said ingeneral terms what shall be the punishment of sacrilege, whetherfraudulent or violent, and now we have to determine what is to bethe punishment of those w ho spea k or act insolently toward the G first we must give them an admonition which may be in thefollowing terms:No one who in obedience to the laws believed thatthere were Gods, ever intentionally did any unholy act, or uttered anyunlawf ul word。 and whoknows but that we shall hearken to you? If then our request is afair one, please to accept our challenge. Cle. But is there any difficulty in proving the existence of theGods? Ath. How would you prove it? Cle. How ? In the first place,