VFP實(shí)驗(yàn)報(bào)告(中國(guó)海洋大學(xué)學(xué)生檔案管理)

1、設(shè)計(jì)中國(guó)海洋大學(xué)人事行政管理系統(tǒng)學(xué)號(hào)：110112009003 專業(yè)年級(jí)：09政治學(xué)與行政學(xué) 姓名：常征 上機(jī)時(shí)間：周五78節(jié)實(shí)驗(yàn)?zāi)康模和ㄟ^(guò)設(shè)計(jì)中國(guó)海洋大學(xué)人事行政管理系統(tǒng)，將本學(xué)期所學(xué)的VFP知識(shí)進(jìn)行綜合，設(shè)計(jì)出一個(gè)結(jié)合自己專業(yè)的數(shù)據(jù)庫(kù)管理系統(tǒng)，以熟練掌握VFP基本操作。實(shí)驗(yàn)?zāi)夸洠阂弧⒔M成模塊1二、各模塊介紹2（一）部門(mén)查詢2（二）院系歸屬41、建立如下所示的三個(gè)數(shù)據(jù)表，結(jié)構(gòu)索引如下圖42、建立數(shù)據(jù)庫(kù)，添加表，熟悉數(shù)據(jù)庫(kù)的應(yīng)用53、表之間臨時(shí)關(guān)系的建立：64、表之間的永久關(guān)系的建立：75、查詢?cè)谠撓到y(tǒng)中的應(yīng)用：8(1)單表8(2)多表9(3) 子查詢9（三）職稱評(píng)定101、添加新字段102、

2、字段有效性103、添加自己記錄114、更新字段115、刪除記錄11（四）人事管理121、順序結(jié)構(gòu)的應(yīng)用（換課）122、分支結(jié)構(gòu)的應(yīng)用（講課費(fèi)計(jì)算）133、循環(huán)結(jié)構(gòu)的應(yīng)用（抽調(diào)教師）14（五）退出15三、結(jié)束語(yǔ)16一、組成模塊（各模塊相應(yīng)菜單見(jiàn)下面過(guò)程中的截圖）中國(guó)海洋大學(xué)人事行政管理系統(tǒng)部門(mén)查詢?cè)合禋w屬職稱評(píng)定退出人事管理二、各模塊介紹（一）部門(mén)查詢以教務(wù)處為例，進(jìn)入系統(tǒng)，調(diào)用密碼驗(yàn)證表單a=thisform.text1.valueif a="jiaowuchu"thisform.label2.caption="歡迎使用本系統(tǒng)!"mand1.visibl

3、e=.T.thisform.label1.visible=.F.thisform.text1.visible=.F.elseb=b+1if b>=3messagebox("對(duì)不起,你不是合法用戶,請(qǐng)退出")thisform.releaseelsemessagebox("你是第"+str(b,3)+"次輸入，請(qǐng)重試")this.selstart=0this.sellength=len(rtrim(this.value)return 0endifendif（二）院系歸屬1、建立如下所示的三個(gè)數(shù)據(jù)表，結(jié)構(gòu)索引如下圖三個(gè)表瀏覽如下圖2、

4、建立數(shù)據(jù)庫(kù)，添加表，熟悉數(shù)據(jù)庫(kù)的應(yīng)用（參照完整性）3、表之間臨時(shí)關(guān)系的建立：use kclocate for 課程名="公共關(guān)系學(xué)"no=課程號(hào)SELECT 2use dtindex on 課程號(hào) tag 課程號(hào)use jsset relation to 課程號(hào) into breplace all 姓名 with b.學(xué)科帶頭人 for 課程號(hào)=no4、表之間的永久關(guān)系的建立：（主索引）（建立關(guān)聯(lián)）5、查詢?cè)谠撓到y(tǒng)中的應(yīng)用：(1)單表 Select 教工號(hào),姓名,count(課程號(hào)) as 授課數(shù)量 from js group by 姓名 into table sksj(2

5、)多表 select 教工號(hào),姓名,性別,學(xué)科帶頭人from js join dt on js.課程號(hào)=da.課程號(hào);where 學(xué)科帶頭人=”崔鳳”(3) 子查詢select 教工號(hào),姓名,(year(date()-year(出生日期) as 年齡,js.課程號(hào),課程名; from kc join js;on kc.課程號(hào)=js.課程號(hào) where kc.課程號(hào) in;(select dt.課程號(hào) from dt where 學(xué)科帶頭人="王剛" or 學(xué)科帶頭人="鄭敬高")（三）職稱評(píng)定SQL在該系統(tǒng)中的應(yīng)用前面應(yīng)用了SQL的數(shù)據(jù)查詢功能，以下為其

6、數(shù)據(jù)定義和數(shù)據(jù)操縱功能的簡(jiǎn)單應(yīng)用1、添加新字段alter table js add 職稱 C (12)2、字段有效性alter table js alter 職稱 C(10) ;check 職稱="副教授" error "您無(wú)權(quán)參加教授職稱評(píng)定"3、添加自己記錄insert into js values("2011090378","常征",.T.,1990-12-02,87839,"講師")4、更新字段update js set 職稱=iif(year(date()-year(出生日期)>

7、36,"副教授","講師")5、刪除記錄delete from js where 姓名="常征"（四）人事管理本模塊主要解決三大程序結(jié)構(gòu)的應(yīng)用1、順序結(jié)構(gòu)的應(yīng)用（換課） Command1的代碼：t=thisform.label2.captionthisform.label2.caption=thisform.label4.captionthisform.label4.caption=t2、分支結(jié)構(gòu)的應(yīng)用（講課費(fèi)計(jì)算）a=thisform.text1.valuedo case case a<17 b=15*acase a>=

8、17 and a<34 b=15*17+(a-17)*20case a>=34 and a<51 b=15*17+20*17+(a-34)*25case a>=51 and a<68 b=15*17+20*17+25*17+(a-51)*30case a>=68 b=15*17+20*17+25*17+30*17+(a-68)*35endcasethisform.text2.value=b3、循環(huán)結(jié)構(gòu)的應(yīng)用（抽調(diào)教師）Command1 的代碼：thisform.timer1.enabled=.not.(thisform.timer1.enabled)a=&q

9、uot; 按“停止”按鈕，可得抽調(diào)教師姓名"b=" 被抽調(diào)的教師是： "+bo1.textif thisform.timer1.enabled=.T. this.caption="停止 (<S)" thisform.label1.caption=aelse this.caption="開(kāi)始 (<S)" thisform.label1.caption=bendifTimer1 的代碼：n=thisform.text1.valuea=int(rand()*n)+1bo1.listindex=aCombo1 的KeyP

10、ress事件代碼：LPARAMETERS nKeyCode, nShiftAltCtrldo case case nKeyCode=13 if !empty(this.displayvalue) this.additem(this.displayvalue) thisform.text1.value=this.listcount endif this.selstart=0 this.sellength=len(allt(this.text) this.tag="N" case nKeyCode=27 if this.listcount>0 this.removeitem(this.listindex) this.value=1 thisform.text1.value=this.listcountendifendcaseCombo1 的Valid事件代碼：if this.tag="Y" return.T.else this.tag="Y"return 0endif（五）退出過(guò)程代碼：if messagebox(&q