VF實(shí)習(xí)練習(xí)題汽車修理管理信息系統(tǒng)

1、 VFP及其應(yīng)用系統(tǒng)開發(fā) 實(shí)習(xí)報(bào)告VFP及其應(yīng)用系統(tǒng)開發(fā)實(shí)習(xí)報(bào)告 姓名：肖夢 班號(hào)：080122 學(xué)號(hào)：20121003361 指導(dǎo)老師：於世為 時(shí)間：2014.01.11-2014.01.15實(shí)習(xí)內(nèi)容表1 職工工資表姓名分廠基本工資獎(jiǎng)金扣款應(yīng)發(fā)工資備注李民1500.00200.0050生產(chǎn)優(yōu)秀獎(jiǎng)王華1400.0050.0040.00胡立1280.0080.0040.00彭偉2350.0060.0040.00張良2480.0080.00200.00生產(chǎn)事故合計(jì)99一、根據(jù)表1，作如下操作練習(xí) 1. Create gz20121003361 2、添加： use gz20121003361 app

2、end blank（在表末尾添加空白記錄） 插入： insert into gz20121003361("姓名","分廠",基本工資,獎(jiǎng)金,扣款) value("肖夢 ","3",300.00,60.00,50.00) 刪除： go 7 Delete（邏輯刪除） Pack （物理刪除） 修改：replace 基本工資 with 基本工資+100.00 3、記錄指針移動(dòng)：go 3 ?recno(),bof() skip -2 ?recno(),bof() skip 5 ?recno(),bof() 4、排序： use

3、 gz20121003361 list sort to jzx on 獎(jiǎng)金 for 分廠="1" use jzx list 索引： 單索引：index on 扣款 to kqx List 復(fù)合索引： clear use gz20121003361 List index on 獎(jiǎng)金 tag jz descending list index on 分廠+str(獎(jiǎng)金,6,1) tag fcjj descending list index on 基本工資+獎(jiǎng)金-扣款 tag yfgz candidate list 統(tǒng)計(jì)： count for 分廠="2" to

4、 fc ?"2分廠人數(shù)：",fc 求和： sum 獎(jiǎng)金 to mjj ?"總獎(jiǎng)金：",mjj2、 簡單編程練習(xí)、1、程序：modify command yzc*yzc.prgclear10,5 say "請輸入所求圓的半徑"?input "半徑:" to rs=2*pi()*r?sreturn 2、程序：modify command yfbx*yfbx.prgclear2,5 say "請輸入您的儲(chǔ)戶存款"?input "儲(chǔ)戶存款：" to xinput "存款時(shí)間

5、：" to ndo casecase n=1y=x*(5.0/100+1)case n=2y=x*(5.5/100+1)case n=3y=x*(6.2/100+1)endcase?"應(yīng)償還本息金額:",yreturn 3、 程序：modify command qg*qg.prgclearinput"輸入一次項(xiàng)系數(shù)" to ainput"輸入二次項(xiàng)系數(shù)" to binput"輸入常數(shù)項(xiàng)系數(shù)" to cn=b*b-4*a*cdo casecase n<0?"無實(shí)數(shù)解"case n=

6、0x=(-b+SQRT(n)/(2*a)?"x1=x2=",xcase n>0x1=(-b+SQRT(n)/(2*a)x2=(-b-SQRT(n)/(2*a)?"x1=",x1?"x2=",x2endcasereturn 4、程序：modify command QH*qh.prgclear3,5 say "計(jì)算S=1+2+3+N"input "輸入求和項(xiàng)數(shù)：" to NS=0for i=1 to N S=S+inext?"S=",S三、根據(jù)表1，用命令方式和程序方式分別

7、完成以下任務(wù)1 計(jì)算每個(gè)人的應(yīng)發(fā)工資及各項(xiàng)工資合計(jì)計(jì)算應(yīng)發(fā)工資：命令語句：use gz20121003361listreplace all 應(yīng)發(fā)工資 with 基本工資+獎(jiǎng)金-扣款list程序：*應(yīng)發(fā)工資.prg clear use gz20121003361 list replace all 應(yīng)發(fā)工資 with 基本工資+獎(jiǎng)金-扣款 list各項(xiàng)工資合計(jì)：命令語句：use gz20121003361listdimension s(1,4)Sum 基本工資,獎(jiǎng)金,扣款,應(yīng)發(fā)工資 to s(1),s(2),s(3),s(4)go 6gather from s fields 基本工資,獎(jiǎng)金,扣款,

8、應(yīng)發(fā)工資list 程序：*工資合計(jì).prg clear use gz20121003361 list dimension s(1,4) Sum 基本工資,獎(jiǎng)金,扣款,應(yīng)發(fā)工資 to s(1),s(2),s(3),s(4) go 6 gather from s fields 基本工資,獎(jiǎng)金,扣款,應(yīng)發(fā)工資 list 2、按分廠匯總，生成全廠工資匯總表gzhz?.dbf，其格式如下：分廠基本工資獎(jiǎng)金扣款應(yīng)發(fā)工資1299 命令語句：use gz20121003361 index on 分廠 tag fc total on 分廠 to gzhz fields 基本工資,獎(jiǎng)金,扣款,應(yīng)發(fā)工資 use g

9、zhz browse fields 分廠,基本工資,獎(jiǎng)金,扣款,應(yīng)發(fā)工資 title"全廠工資 匯總表"程序語句： *全廠工資匯總.prg clear use gz20121003361 index on 分廠 tag fc total on 分廠 to gzhz fields 基本工資,獎(jiǎng)金,扣款,應(yīng)發(fā)工資 use gzhz browse fields 分廠,基本工資,獎(jiǎng)金,扣款,應(yīng)發(fā)工資 title"全廠工資 匯總表"3、根據(jù)需要，打印職工工資表或者全廠工資匯總表 命令語句：close use gz20121003361 list to printe

10、r use gzhz list to printer 程序：*打印工資表.prgcleartext * * 1.打印職工工資表 * * 2.打印全廠工資匯總表 * * 3.退出 * *endtextdo while .t. 6,5 clear input '請輸入13：' to x do case case x=1 use gz20121003258 list to printer prompt nocon case x=2 use gzhz list to printer prompt nocon case x=3 wait '系統(tǒng)將關(guān)閉' window ti

11、meout 2 exit endcaseenddouse4、 利用表單，設(shè)計(jì)gz?.dbf的錄入、修改等維護(hù)功能 程序：*錄入修改.prgclearuse gz20121003361Text * * 1.錄入數(shù)據(jù) * * 2.修改數(shù)據(jù) * * 3.退出 * *endtextdo while .t. 6,10 clear 6,10 say "請輸入1-3:" get hy default space(1) read do case case hy="1" do lr case hy="2" do xg case hy="3&q

12、uot; wait "系統(tǒng)將關(guān)閉!" window timeout 3 exit endcaseenddouseclearset talk onset safety onprocedure lr?" 記錄輸入結(jié)束后按 Ctrl+W 存盤."appendprocedure xg?" 記錄修改結(jié)束后按 Ctrl+W 存盤."go 1browse四、小型系統(tǒng)設(shè)計(jì)1 編寫一個(gè)主控程序，將第三題中各子程序組裝起來，建成一個(gè)工資管理系統(tǒng)程序：*主程序.prgclearuse gz20121003361text * * 1.應(yīng)發(fā)工資合計(jì) 4.打印工資數(shù)據(jù) * * 2.各項(xiàng)工資合計(jì) 5.錄入修改功能 * * 3.按分廠匯總工資 6.退出 * *endtextdo while .t. input "請輸入1-6：" to hy do case case hy=1 do 應(yīng)發(fā)工資 ca