管理數(shù)據(jù)庫(kù)VFP常見(jiàn)編程實(shí)例

1、程序設(shè)計(jì)實(shí)例（一）建立/編輯自由表結(jié)構(gòu)（1）表設(shè)計(jì)器：（2）命令（3）SQL建立如圖的學(xué)生情況表結(jié)構(gòu)，命名為Students.dbf，為下一步錄入記錄數(shù)據(jù)做好準(zhǔn)備。學(xué)號(hào)姓名性別出生日期專(zhuān)業(yè)入學(xué)成績(jī)班級(jí)簡(jiǎn)歷相片05001李國(guó)防男05/12/87營(yíng)銷(xiāo)學(xué)598營(yíng)銷(xiāo)05-1memoGenC(5)C(10)C(2)D(8)C(10)N(6,2)C(12)M(4)G(4)（二）自由表_ 添加新記錄（1）輸入框（2）程序*.prg（3）表單*.scx錄入李國(guó)防同學(xué)的信息05001李國(guó)防男05/12/87營(yíng)銷(xiāo)學(xué)598營(yíng)銷(xiāo)05-1簡(jiǎn)歷相片在E: vfp實(shí)驗(yàn) 文件夾中保存一份王碼個(gè)人簡(jiǎn)歷 “李國(guó)防簡(jiǎn)歷.txt”文

2、檔和一張李國(guó)防個(gè)人相片“李國(guó)防.bmp”。員工(員工編號(hào) C(4),姓名 C(8),性別 C(2),出生日期 D(8),職務(wù) C(10),工資 N(7,2),簡(jiǎn)歷 M(4),相片 G(4)15 / 14文檔可自由編輯打印準(zhǔn)備建立一張“員工.dbf”一建立表單1建立form，標(biāo)簽，文本框，單選鈕組， 組合框，微調(diào)框，編輯框，圖象框 命令按鈕2屬性設(shè)置*.caption=Combo1捆綁數(shù)據(jù)列表(經(jīng)理、班長(zhǎng)、銷(xiāo)售員)二建立數(shù)據(jù)環(huán)境 添加“員工.dbf”三對(duì)象事件過(guò)程form_load:定義公共變量瀏覽：選擇員工的相片添加：選擇當(dāng)前表“員工.dbf”,數(shù)組元素接收各控件的當(dāng)前值將數(shù)組寫(xiě)入員工.dbf

3、表尾記錄取消：清除各控件值退出：釋放表單四運(yùn)行form_load:定義公共變量public p, public array a(7) p=“”瀏覽：選擇員工的相片p=getpict()thisform.image1.picture="&p"添加：接收各控件的當(dāng)前值，然后將數(shù)組寫(xiě)入員工.dbf表尾記錄a(1)=thisform.text1.valuea(2)=thisform.text2.valueIf thisform.optiongroup1.option1.value=1a(3)="男"elsea(3)="女"endifc

4、srq=""+thisform.text3.value+""a(4)=&csrqa(5)=bo1.valuea(6)=thisform.spinner1.valuea(7)=thisform.edit1.valueselect 員工Append from array a fields 員工編號(hào),姓名，性別,出生日期,職務(wù),工資 if empty(thisform.edit1.value)=.f.replace 簡(jiǎn)歷 with a(7) addiendifif empty(p)=.f.append gene 相片 from "&p

5、" endif取消：清除各控件值thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""bo1.value=""thisform.spinner1.value=0thisform.edit1.value=""thisform.image1.picture=“”P(pán)=“”退出：釋放表單thisform.release（三）記錄數(shù)據(jù)的計(jì)算（1）命令：（2）prg程序（3）表單*.scx在VFP系統(tǒng)的默認(rèn)文件夾中

6、有數(shù)據(jù)“表”如圖，要求統(tǒng)計(jì)并顯示男同學(xué)的人數(shù)、總分、平均入學(xué)成績(jī)。寫(xiě)出其操作指令 解題思路（算法）1、打開(kāi)表2、計(jì)算男人數(shù)，賦給n3、計(jì)算男總分，賦給s4、計(jì)算男平均，賦給p5、顯示 n, s, p7、關(guān)閉表Use studentscount all for 性別=”男” to nsum all for 性別=”男” 入學(xué)成績(jī)to saverage all for 性別=”男”入學(xué)成績(jī) to p? “男生人數(shù)=”,n? “男生入學(xué)總成績(jī)=”,s? “男生平均入學(xué)成績(jī)”,puse在VFP系統(tǒng)的默認(rèn)文件夾中有數(shù)據(jù)“表”如圖，若A、B、C三個(gè)數(shù)據(jù)能構(gòu)成三角形，則計(jì)算三角形面積，將面積S和“構(gòu)成三角形

7、”信息寫(xiě)入對(duì)應(yīng)記錄的字段，若A、B、C三個(gè)數(shù)據(jù)不能構(gòu)成三角形，則將面積“0”和“不能構(gòu)成三角形” 信息寫(xiě)入對(duì)應(yīng)記錄的字段。提示：1、構(gòu)成三角形條件：二邊之和必大于第三邊2、 其中input"三角形的第一邊長(zhǎng)=" to xinput"三角形的第二邊長(zhǎng)=" to yinput"三角形的第三邊長(zhǎng)=" to zif x=0 or y=0 or z=0 or x+y<=z or x+z<=y or y+z<=x?"不能構(gòu)成三角形"elsep=(x+y+z)/2s=sqrt(p*(p-x)*(p-y)*(p-

8、z)?"三角形的面積=",sendif（四）記錄數(shù)據(jù)的刪除（1）命令：（2）prg程序（3）表單scx例：在VFP系統(tǒng)的默認(rèn)文件夾中有數(shù)據(jù)“表”如圖，編寫(xiě)實(shí)現(xiàn)按“姓名”進(jìn)行刪除記錄的程序。 要求:程序中要對(duì)刪除的記錄進(jìn)一步的確認(rèn)，若沒(méi)有指定姓名的記錄，要有信息報(bào)告“查無(wú)此人！”Use studentsAccept “姓名” to xmLocate all for 姓名=xmIf found( )=.T. display K=messagebox("要?jiǎng)h除記錄請(qǐng)選擇確定,否則選擇取消",1+32,"確認(rèn)刪除操作?")If K=1 del

9、ete pack endifelseY=messagebox("查無(wú)此人","信息報(bào)告")End if（五）記錄數(shù)據(jù)的查詢(xún)（1）命令：（2）prg程序（3）SQL（4）表單*.scx在VFP系統(tǒng)的默認(rèn)文件夾中有數(shù)據(jù)“表”如圖，編寫(xiě)程序?qū)崿F(xiàn)按銷(xiāo)售員查詢(xún)員工的銷(xiāo)售清單“銷(xiāo)售日期，商品，金額”，若沒(méi)有指定姓名的員工，則信息報(bào)告“查無(wú)此人！”查詢(xún) COMMAND1按鈕的Click事件過(guò)程：xm=alltrim(bo1.value)Locate all for 銷(xiāo)售員=xmIf found( )select 銷(xiāo)售日期,商品,sum(數(shù)量*單價(jià)*折扣率) as &q

10、uot;金額" from 明湖超市.dbf where 銷(xiāo)售員=xm into dbf bb.dbfthisform.grid1.recordsource="bb"thisform.grid1.recordsourcetype=0thisform.refreshelsey=messagebox("查無(wú)此人!")endifreturn 準(zhǔn)備建立一張“students.dbf”一建立表單1建立form，標(biāo)簽,文本框， 命令按鈕,表格控件2屬性設(shè)置*.caption=二建立數(shù)據(jù)環(huán)境 添加“students.dbf”三對(duì)象事件過(guò)程查詢(xún)選擇當(dāng)前表stud

11、ents接收text1當(dāng)前值查找If 找到Sql查詢(xún)產(chǎn)生一張自由表szy使表格grid1捆綁szy.dbf更新否則信息報(bào)告“查無(wú)”四運(yùn)行select studentszy=trim(thisform.text1.value)locate all for zy $ students.專(zhuān)業(yè)if found() select 專(zhuān)業(yè),姓名,入學(xué)成績(jī); from students; where zy $ students.專(zhuān)業(yè); into dbf szy; order by 入學(xué)成績(jī) desc thisform.grid1.recordsourcetype=1 thisform.grid1.record

12、source="szy" thisform.refresh else y=messagebox("查無(wú)此專(zhuān)業(yè)的學(xué)生記錄!") endif（六）菜單（1）新菜單替代系統(tǒng)菜單：（2）新菜單插入在系統(tǒng)菜單：（3）新菜單出現(xiàn)在表單*.scx：建立如圖菜單：操作退出顯示查詢(xún)（八）表單的其它應(yīng)用（1）登錄身份驗(yàn)證：系統(tǒng)登錄的密碼驗(yàn)證表單要求：1設(shè)計(jì)表單(如圖)2選擇用戶(hù)名和輸入密碼：3身份驗(yàn)證，驗(yàn)證用戶(hù)名和密碼 正確，信息報(bào)告“身份驗(yàn)證通過(guò)”。 不正確，信息報(bào)告“沒(méi)通過(guò)”。4三次口令均不正確，關(guān)閉VFP系統(tǒng)。準(zhǔn)備： 建立”pass.dbf”一建立表單1建立form，

13、標(biāo)簽，組合框， 文本框，命令按鈕2屬性設(shè)置 *.caption=Combo1捆綁表pass.用戶(hù)姓名二建立數(shù)據(jù)環(huán)境 添加“pass.dbf”三對(duì)象事件過(guò)程輸入用戶(hù)姓名、密碼在pass中查找用戶(hù)姓名、密碼If 找到信息報(bào)告“”否則信息報(bào)告“”計(jì)數(shù)n=n+1If n>=3,成立，退出VFP四運(yùn)行form_loadpublic nn=0 Command1_clickxm=bo1.valuemm=val(thisform.text1.value)locate for pass.用戶(hù)姓名=xm and pass.密碼=mmif found()y=messagebox("正確！身份驗(yàn)證通過(guò)

14、")Thisform.releaseelsey=messagebox("錯(cuò)誤！身份驗(yàn)證沒(méi)通過(guò)")endifn=n+1if n>=3quitendif（2）觸發(fā)器密碼輸入：students-修改clearaccept "輸入插入觸發(fā)器密碼ps1：" to ps1accept "輸入更新觸發(fā)器密碼ps2：" to ps2if ps1="42" and ps2="142" use 員工信息 appendelse Y=messagebox("密碼錯(cuò)誤","信

15、息報(bào)告")（3）文檔備份對(duì)話(huà)框：（4）瀏覽記錄瀏覽刪除表單：表單中刪除按鈕的代碼：ans=messagebox("確定要?jiǎng)h除當(dāng)前記錄嗎?",4+32,"信息提醒")if ans=6 delete pack messagebox("當(dāng)前記錄已經(jīng)被成功刪除") endif go top thisform.refresh注意：執(zhí)行此表單時(shí)一定要將數(shù)據(jù)環(huán)境中的員工表的屬性exclusive設(shè)為.T.瀏覽修改與查詢(xún)表單： 查詢(xún)按鈕代碼：n1=alltrim(bo1.value) do case case n1="姓名&quo

16、t; locat for 姓名=alltrim(thisform.text1.value) if found() thisform.txt員工編號(hào).value=alltrim(員工.員工編號(hào)) thisform.txt姓名.value=alltrim(員工.姓名) thisform.txt性別.value=alltrim(員工.性別) thisform.txt出生日期.value=dtoc(員工.出生日期) thisform.txt職務(wù).value=alltrim(員工.職務(wù)) thisform.txt工資.value=str(員工.工資) thisform.edt簡(jiǎn)歷.value=alltr

17、im(員工.簡(jiǎn)歷) * thisform.pageframe1.page1.ole.controlsource=員工.相片 else messagebox("沒(méi)有該員工") endif case n1="員工編號(hào)" locat for 員工編號(hào)=alltrim(thisform.text1.value) if found() thisform.txt員工編號(hào).value=alltrim(員工.員工編號(hào)) thisform.txt姓名.value=alltrim(員工.姓名) thisform.txt性別.value=alltrim(員工.性別) this

18、form.txt出生日期.value=dtoc(員工.出生日期) thisform.txt職務(wù).value=alltrim(員工.職務(wù)) thisform.txt工資.value=str(員工.工資) thisform.edt簡(jiǎn)歷.value=alltrim(員工.簡(jiǎn)歷)else messagebox("沒(méi)有該員工") endif endcase thisform.refresh （九）數(shù)值（數(shù)學(xué)）計(jì)算（1）順序：1XX超市面上的商品交易結(jié)算，輸入商品數(shù)量和單價(jià)，計(jì)算出應(yīng)付金額input " 商品單價(jià)p=" to pinput "商品數(shù)量x=&

19、quot; to xy=p*x?" 應(yīng)付金額=",y2輸入一個(gè)三位整數(shù)，將其反向輸出（如輸入123，輸出321）input "輸入數(shù)據(jù)X=" to xc=mod(x,10)a=int(x/100)b=int(x/10)%10x=c*100+b*10+a?"x=",x（2）分支：1計(jì)算：在VFP系統(tǒng)的默認(rèn)文件夾中有數(shù)據(jù)“表”如圖，計(jì)算個(gè)人的社會(huì)保險(xiǎn)，所得稅和實(shí)發(fā)金額。提示：1、社會(huì)保險(xiǎn)為總收入的10%2、個(gè)人所得稅納稅條例規(guī)定：個(gè)人總收入不足2000元的不納稅，個(gè)人總收入超過(guò)2000元的，超過(guò)部分按20%納稅。input "

20、總收入x=" to xinput "社會(huì)保險(xiǎn)y=" to yy=x*0.1?" 社會(huì)保險(xiǎn)=",yinput "總收入x=" to xif x>2000x=x*0.8elsex=xendif?"實(shí)際收入x=",x2教材p164.3輸入學(xué)生成績(jī)，若大于80，則輸出“優(yōu)良” ，小于60則輸出“不合格”，否則輸出“良好”input”輸入學(xué)生成績(jī)x=” to xif x>80p=”優(yōu)秀”else if x<60p=”不合格”else p=”中等” endifendif? “這個(gè)學(xué)生屬于”，p（3）

21、循環(huán)：1求1100之間全部奇數(shù)(或偶數(shù))之和。y=0for x=1(奇)/x=2（偶） to 100 step 2y=y+xendfor?" 1到100之間奇數(shù)和y=",y2P146例9.6求水仙花數(shù)for x=100 to 999a=int(x/100)b=int(x/10)%10c=mod(x,10)if x=a3+b3+c3?"水仙花數(shù)",xendifendfor3P146例9.7 查最值input "從鍵盤(pán)中輸入一個(gè)數(shù):" to a store a to max,minfor i=2 to 15input "從鍵盤(pán)中

22、輸入一個(gè)數(shù):" to a if max<amax=aendifif min>amin=a endifendfor?"最大值為:",max?"最小值為:",min4輸入一個(gè)下整數(shù)N，計(jì)算N的階乘結(jié)果（4！=1*2*3*4=24）* 求5的階乘CLEARj=1i=1DO WHILE i<=5j=j*ii=i+1ENDDO?jRETURN5輸入一個(gè)整數(shù)N，判斷N是否素?cái)?shù)（質(zhì)數(shù)），是打印N是素?cái)?shù)，還是就打印N不是素?cái)?shù)。input "要判定的正整數(shù)=" to nk=1for a=2 to n-1 step 1k=(n

23、%a)*kendforif k=0p="合數(shù)"elsep="質(zhì)數(shù)"endif?" 判定結(jié)果",p（4）過(guò)程：1 P153例9.122 P153例9.143 計(jì)算組合數(shù)(m,n)的結(jié)果，例組合數(shù)（4，2）的結(jié)果12。（十）文件管理（1）備份：為了防止學(xué)生情況表（students.dbf）因機(jī)器故障、病毒攻擊、不當(dāng)操作而丟失，為及時(shí)做好備份，要求復(fù)制副本文件名為”bak_students” 保存位置是“d:備份”文件夾close alluse students.dbfcopy to d:備份bak_ students use（2）恢復(fù)：因

24、學(xué)生情況表（students.dbf）因機(jī)器故障、病毒攻擊、不當(dāng)操作，造成數(shù)據(jù)丟失和數(shù)據(jù)混亂，要求及時(shí)將備份在d:備份bak_ students.dbf的副本文件恢復(fù)回計(jì)算機(jī)，以保證數(shù)據(jù)管理的正確性。close alluse students.dbf exclusivezapappend from d:備份bak_ students.dbfwait “數(shù)據(jù)成功恢復(fù)”  windows at 20, 40 return（3）合并：有二張結(jié)構(gòu)完全相同的自由表students, students2，現(xiàn)要求將students2中的全部記錄添加到students尾部，實(shí)現(xiàn)二表的合并Use st

25、udentsAppend from students2browse（4）記錄移動(dòng)： 設(shè)備表(sb)如圖，將設(shè)備調(diào)拔給一車(chē)間(ycj)，實(shí)物已轉(zhuǎn)移交接，要求實(shí)現(xiàn)資產(chǎn)信息的轉(zhuǎn)移。(即sb中刪除移出的記錄，ycj中添加轉(zhuǎn)入的記錄)，提示二個(gè)表的結(jié)構(gòu)完全相同。解題思路（算法）1、工作區(qū)2，打開(kāi)ycj表 2、工作區(qū)1，打開(kāi)sb表 3、從鍵盤(pán)上輸入設(shè)備的編號(hào)4、查找設(shè)備編號(hào)查詢(xún)5、if 判斷(找到) 顯示定位記錄 定位記錄的數(shù)據(jù)復(fù)制到a數(shù)組 將定位記錄打上刪除標(biāo)記 將有刪除標(biāo)記記錄清除 選擇2號(hào)工作區(qū) 在一車(chē)間表(ycj)尾部添一空記錄 將數(shù)組a元素的值，寫(xiě)入這個(gè)空記錄 報(bào)告“記錄成功轉(zhuǎn)移”信息 否則（沒(méi)

26、找到） 報(bào)告“查無(wú)此設(shè)備”信息6、關(guān)閉表程序設(shè)計(jì)（代碼）Use ycj in 2Use sb in 1 Accept “設(shè)備編號(hào)” to bhLocate all for 設(shè)備編號(hào)=bhIf found( ) disp scatter to a delete pack select 2 append blank gather from a wait “記錄成功轉(zhuǎn)移” windowselse y=messagebox(“查無(wú)此設(shè)備”)End ifClose table all階乘：（1）input "需求階乘數(shù)=" to ny=ndo while n>2y=y*(n-1

27、)n=n-1enddo?"結(jié)果=",y（2）input "需求階乘數(shù)=" to ay=1for x=1 to a step 1y=y*xendfor?"結(jié)果",y操作:1、建立表單：安放控件（如圖）2、數(shù)據(jù)環(huán)境定義：students.dbf3、各對(duì)象控件捆綁students.dbf表中字段4、編寫(xiě)程序(1)文件首：go top ； 更新；按鈕抑制(2)上一個(gè)記錄：skip -1； 更新；按鈕抑制(3)下一個(gè)記錄：skip +1； 更新；按鈕抑制(4)文件尾：go bottom； 更新；按鈕抑制(5)退出游覽：thisform.rele

28、ase(1)go topthisform.refreshif bof()=.T.mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.elsemand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.t.endif（2）skip-1thisform.refreshif bof()=.T.mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.elsemand1.

29、enabled=.t.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.t.endif（3）skip+1thisform.refreshif eof()=.T.mand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.mand4.enabled=.f.elsemand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.t.endif（4）go bottomthisform.refreshif eof()=.T.mand1.enabl

30、ed=.t.mand2.enabled=.t.mand3.enabled=.f.mand4.enabled=.f.elsemand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.t.endif（5）thisform.release計(jì)算階乘fac=5! (即fac =1*2*3*4*5)Input “x=” to xfac=1for n=1 to x step 1fac=fac*nendfor? “fac=” , fac一定范圍內(nèi)質(zhì)數(shù)之和clears=0for i=2 to 100 n=0 for j=1 to i-1

31、if mod(i,j)=0 n=n+1 endif endfor if n=1 s=s+i endifendfor?"1100的素?cái)?shù)之和：",s計(jì)算11000之間全部奇數(shù)之和及全部偶數(shù)之和y1=0y2=0for x=1 to 100if x%2 <> 0/if mod(x,2)=0y1=y1+xelsey2=y2+xendifendfor?"11000之間所有的奇數(shù)和為:",y1?"11000之間所有的偶數(shù)和為:",y2口令主程序的設(shè)計(jì)。（1）輸入用戶(hù)名和密碼：與pass.dbf中預(yù)設(shè)權(quán)限比較。（2）用戶(hù)名和密碼正確通過(guò)，

32、信息框報(bào)告“執(zhí)行子程序sub1操作”。（3）用戶(hù)名和密碼不正確，提示信息“用戶(hù)名或密碼錯(cuò)誤！”，若三次均不正確，關(guān)閉VFP系統(tǒng)。1變量Xm，mm2計(jì)算處理3解題思路（算法）：1打開(kāi)pass表2組織循環(huán)n=1 3 輸入姓名xm，mm 順序查找locate for if 判斷查找(用戶(hù)姓名和密碼正確) 調(diào)用子程序（do sub1.prg） 否則 顯示報(bào)告信息Go top3 if n>3 條件成立，退出VFP系統(tǒng)。4事件保持4程序設(shè)計(jì) （命令窗口） modi comm p95上機(jī)運(yùn)行通過(guò)（正確） （命令窗口）do p9.prgUse pass.dbfFor n=1 to 3 step 1Accept “用戶(hù)姓名=” to xmInput “密碼=” to mmLocate all for 用戶(hù)姓名=xm and 密碼=mmIf found( )Y=messagebox(“執(zhí)行do sub1,進(jìn)行sub1過(guò)程操作”) exit && do sub1.prgelse wait “用戶(hù)名或密碼錯(cuò)誤！，再來(lái)一次”EndifEndforIf ( n >3) QuitEndifReturn &&read events明湖百貨有限公司的商品銷(xiāo)售表“明湖超市.dbf”