授課I圖書系統(tǒng)表單

1、18.1 查看借書情況表單18.2 成批錄入圖書表單118.1 查看借書情況表單【學(xué)習(xí)目標(biāo)】 查看借書情況表單的制作 【關(guān)鍵方法】 一對多表單向?qū)У氖褂?2 【任務(wù)】 設(shè)計制作“查看借書情況”表單 【解決任務(wù)】 設(shè)計制作 在“項目TS”中創(chuàng)建表單（用一對多表單向?qū)В瓿珊?，以TSKJ為名保存。 按圖6C所示，在使用表單向?qū)е谱鬟^程中，父表為DZB，并選用表中的證號、姓名、部門、電話等字段；子表為JSV視圖，并選用表中的編碼、書名、作者、出版社、單價、借書日期、還書日期、書號等字段。 按圖6C所示，進(jìn)行表單的 重新布局和美化工作。運(yùn)行中的表單， 見圖6C。圖6C318.2 成批錄入圖書表單【學(xué)

2、習(xí)目標(biāo)】 成批錄入圖書表單的制作 【關(guān)鍵方法】 VFP應(yīng)用程序的編寫4 【任務(wù)】 設(shè)計制作“成批錄入圖書”表單 【解決任務(wù)】 可將電子表格的圖書數(shù)據(jù)成批錄入到數(shù)據(jù)庫,提高工作效率。 1. 設(shè)計思路 在“項目TS”中創(chuàng)建表單（用表單設(shè)計器），以TSPL為名保存。 設(shè)置表單TSPL相關(guān)的屬性，使其成為在頂層表單中，運(yùn)行時居中。 按圖6D所示，在表單TSPL中添加一個“列表框”控件。 按圖6D所示，在表單中施放 “轉(zhuǎn)換和導(dǎo)入”、 “退出”兩個 按鈕。施放 一些標(biāo)簽，用以 表明表單的標(biāo) 題和提示操作 方法。 運(yùn)行中的表單， 見圖6D。圖6D52. 屬性設(shè)置 表單 Form1的屬性 AutoCenter

3、 為 .T. ShowWindow 為 1在頂層表單中 其它一些屬性按圖6D自行設(shè)置。3. 事件代碼 （1）列表框LIST1 的INIT事件代碼: LIST1 INIT: PUBL KB public arl 1 =ADIR(arl,tsb*.XLS) =ASORT(arl) thisform.list1.Rowsourcetype=5 thisform.list1.Rowsource=arl（2）列表框LIST1 的CLICK事件代碼: KB=THIS.VALUE 6（3） “轉(zhuǎn)換和導(dǎo)入”按鈕的Click事件代碼KBB=ALLT(KB)KBX=KBB+ TYPE XL5SELE EUSE T

4、SBCOPY STRU TO YTSB &P105USESELE FUSE YTSBAPPE FROM &KBX &把選中的Excel表中的記錄錄入到表YTSBK 中DELE RECO 1草藥 &刪除表頭/字段名PACKBROW NOAPPEND NODELETE NOEDIT &瀏覽時不允許對記錄進(jìn)行追加、刪除、編輯p100USEX=MESSAGEBOX(你已將表: &KBB. 電子表的數(shù)據(jù)成功轉(zhuǎn)換!+CHR(13)+CHR(13)+;你確認(rèn)將表: &KBB. 數(shù)據(jù)添加到本系統(tǒng)的表TSB中嗎?,1+32,提示)IF X=1 SELE E USE TSB SELE F USE YTSB GO

5、TOP7DO WHIL !EOF() &直到最后一條記錄 SCAT TO BA & P63將表的當(dāng)前記錄復(fù)制到數(shù)組“BA”中 SELE E LOCA FOR 書號=BA(2) &查找此記錄在原TSB中是否存在，并定位 IF FOUND() REPL 數(shù)量 WITH 數(shù)量+F.數(shù)量 &此記錄在原TSB中存在，則使書的數(shù)量加1 ELSE INSE INTO TSK!TSB FROM ARRA BA ENDIF SELE F SKIP ENDDO DELE ALL PACK USE SELE E USE X1=MESSAGEBOX(你已將表: &KBB. 數(shù)據(jù)成功添加到本系統(tǒng)的表TSB中了!+CHR(13)+CHR(13)+; 想瀏覽一下嗎?,1+32,提示) IF X1=1