【正文】 Zheng?Hsian?g 第 33 頁 共 50 頁 set filte?r to (dno = alltr?im(thisf??.value?) and。 如果 TEX?T2 控件沒 ?有設(shè)計成日 ?期格式 ， 則以上命令 ?要改成如下 ?格式 set filte?r to (dno = alltr?im(thisf??.value?) and。 商品基本情 ?況表 .sname?,業(yè)務(wù)員銷售 ?記錄表 .sdate?,。 from 商品基本情 ?況表 ,業(yè)務(wù)員銷售 ?記錄表 。 DNO = ALLTR?IM(THISF??.VALUE?) AND。 INTO TABLE? RESUL?T THISF??.RECOR?DSOUR?CE = RESUL?T THISF??SH 八、 數(shù)據(jù)統(tǒng)計表 ?單設(shè)計 數(shù)據(jù)統(tǒng)計是 ?根據(jù)用戶輸 ?入的統(tǒng)計條 ?件 ， 顯示滿足條 ?件的的記錄 ?相關(guān)統(tǒng)計結(jié) ?果。 另外一個表 ?單設(shè)計類似 ?。 管理系統(tǒng)中 ?計算機應(yīng)用 ?實踐環(huán)節(jié)輔 ?導(dǎo) Zheng?Hsian?g 第 38 頁 共 50 頁 十一、上交 退出 VFP?將 F:盤的整個 K?S 文件拷貝 ?到 A:盤，在 A:盤標(biāo)簽上寫 ?上自己的信 ?息。 系統(tǒng)需要設(shè) ?置 2個表 。 按要求建立 ?上述 2個庫 ?表， 并建立表間 ?關(guān)聯(lián) ； 在旅游銷售 ?表設(shè)計器中 ?， 設(shè)置人數(shù)必 ?須在 1人到 ?100人之 ?間 ， 否則 ， 顯示 “ 人數(shù)輸入有 ?誤 ” ， 字段的默認(rèn) ?值為 2人； 設(shè)置參照完 ?整性 :字段名 字段類型 字段寬度 小數(shù)位數(shù) 訂單號 字符型 6 線路 字符型 6 報價 整型 4 人數(shù) 數(shù)值型 3 招商卡 邏輯型 1 主題類型 字符型 4 總價 數(shù)值型 5 管理系統(tǒng)中 ?計算機應(yīng)用 ?實踐環(huán)節(jié)輔 ?導(dǎo) Zheng?Hsian?g 第 40 頁 共 50 頁 如果旅游線 ?路表中沒有 ?此旅游線路 ?,則不能組團 ?參 加該線路 ?旅游 ， 即旅游銷售 ?表中將不能 ?有該線路記 ?錄。 “數(shù)據(jù)管理”項包括“ 錄入 ”、“ 修改 ” 2個一級子 ?菜單 ； 為 “ 數(shù)據(jù)打印 ” 設(shè)置快捷鍵 ?CTRL+P； 創(chuàng)建快捷菜 ?單 MYQU?ICK,具有 打開 ,復(fù)制 ,刪除 三個菜單項 ?,其 中為 刪除 項設(shè)置熱鍵 ?D,復(fù)制 和 刪除 之間用分割 ?線隔開 ， 然后在表單 ?MYFOR?M12中調(diào) ?用此快捷菜 ?單 。 （ 15分） 在 【 修改 】 頁面 ： 通過輸入訂 ?單號實現(xiàn)對 ?“ 旅游銷售表 ?” 相關(guān)數(shù)據(jù)的 ?修改及刪除 ?。（ 10 分） 5． 創(chuàng)建以 MY?FORM2? 1命名的綜 ?合查詢表單 ?， 用戶利用組 ?合框選擇團 ?隊等級 （ 豪華團 、 經(jīng)濟團 、 舒適團 ），通過表格控 ?件顯示線路 ?、 出發(fā)日期 、 團隊等級和 ?交通字段的 ?內(nèi)容。 查詢及輸出 ?結(jié)果均在各 ?自表中進行 ?。（ 10 分） 8. 創(chuàng)建以 MY? INFO 命 ?名的個人信 ?息表單 。（ 5分） 9． 點擊菜單 [退出 ]時 ， 返回系統(tǒng)菜 ?單，關(guān)閉所有 V?FP程 序及 ?數(shù)據(jù)。VALUE?=0 TEXT4?的 VALU?E=0 TEXT5?的 VALU?E=0。ROWSO?URCET?YPE=1 CHECK?1的 VAL?UE=.F. COMMA?ND1的 C?APTIO?N=確定 COMMA?ND2的 C?APTIO?N=退出 圖示： 管理系統(tǒng)中 ?計算機應(yīng)用 ?實踐環(huán)節(jié)輔 ?導(dǎo) Zheng?Hsian?g 第 45 頁 共 50 頁 ○ TEXT4?的 LOST?FOCUS?事件 : IF??THISF???=.T. THISF??.VALUE?=THISF??.VALUE?*THISF??.VALUE?THISF?EXT4?.VALUE?*500 ELSE THISF??.VALUE?=THISF??.VALUE?*THISF??.VALUE? ENDIF? ○確定按鈕 C?LICK 事 ?件 APPE BLAN REPL 訂單號 WITH ALLT(THISF??.VALUE?) REPL 線路 WITH ALLT(THISF??.VALUE?) REPL 主題類型 WITH ALLT(THISF???) REPL 報價 WITH THISF??.VALUE? REPL 招商卡 WITH THISF??? REPL 人數(shù) WITH THISF??.VALUE? REPL 總價 WITH THISF??.VALUE? THISF??.VALUE?= THISF??.VALUE?= THISF???= THISF??.VALUE?=0 THISF???=.F. THISF??.VALUE?=0 THISF??.VALUE?=0 ○ 退出按鈕的 ?CLICK?事件 THISF??SE 修改表單 ： 項目管理器 ?→ [文檔 ] → [表單 ] → [新建 ] → [新建表單 ]， 最后存名為 ?MYFOR?M12 屬性： 數(shù)據(jù)環(huán)境中 ?的 ” 旅游銷售表 ?” 的 EXCL?USIVE?=.T. FORM的 ?CAPTI?ON＝修改 TEXT1?的 INPU?TMASK?=BJ999?9 TEXT2?的 CONT?ROLSO?URCE=旅游銷售表 ?.線路 TEXT3?的 INPU?TMASK?=99999?。 CONTR?OLSOU?RCE=旅游銷售表 ?.報價 TEXT4?的 VALU?E=0。READO?NLY=.T.。ROWSO?URCET?YPE=1。 CONTR?OLSOU?RCE=旅游銷售表 ?.招商卡 COMMA?ND1的 C?APTIO?N=修改 COMMA?ND2的 C?APTIO?N=刪除 COMMA?ND3的 C?APTIO?N=退出 管理系統(tǒng)中 ?計算機應(yīng)用 ?實踐環(huán)節(jié)輔 ?導(dǎo) Zheng?Hsian?g 第 46 頁 共 50 頁 圖示 : ○ FORM1?的 INIT?事件 : USE 旅游銷售表 ? EXCL ○ FORM1?的 DEST?ROY事件 ?: PACK USE ○ TEXT1?的 LOST?FOCUS?事件 : LOCA FOR 訂單號 =ALLT(THISF??.VALUE?) IF EOF() MESSA?GEBOX?(沒有此訂單 ?,請重新輸入 ?！ ,64,提示 ) THISF??.VALUE?= THISF??.SETFO?CUS ENDIF? THISF??SH ○ TEXT4?的 LOST?FOCUS?事件 : IF??THISF???=.T. THISF??.VALUE?=THISF??.VALUE?*THISF??.VALUE?THISF?EXT4?.VALUE?*500 ELSE THISF??.VALUE?=THISF??.VALUE?*THISF??.VALUE? ENDIF? ○修改按鈕 C?LICK 事 ?件 THISF??.SETFO?CUS ○刪除按鈕 C?LICK 事 ?件 XZ=MESSA?GEBOX?(確定要刪除 ?嗎？ ,1+64,提示 ) IF XZ=1 DELE ELSE THISF??.SETFO?CUS 管理系統(tǒng)中 ?計算機應(yīng)用 ?實踐環(huán)節(jié)輔 ?導(dǎo) Zheng?Hsian?g 第 47 頁 共 50 頁 ENDIF? THISF??.VALUE?= THISF??.VALUE?= THISF??.VALUE?=0 THISF??.VALUE?=0 THISF??.VALUE?=0 THISF???= THISF???=.F. ○ 退出按鈕的 ?CLICK?事件 THISF??SE 五 、 綜合查詢表 ?單 圖示 : 屬性 : FORM 的 ?CAPTI?ON=綜合查詢 COMMA?ND1 的 C?APTIO?N=退出 LABEL?1 的 CAP?TION=按團隊等級 ?查詢相關(guān)線 ?路信息 COMBO?1 的 ROW?SOURC?E=豪華團 ,經(jīng)濟團 ,舒適團 COMBO?1 的 ROW?SOURC?ETYPE?=1 ○ COMBO?1 的 INT?ERACT?IVECH?ANGE事 ?件 : SELE 線路 ,出發(fā)日期 ,團隊等級 ,交通 FROM 旅游線路表 ? WHERE? 團隊等級 =THISF? ??。 標(biāo)題區(qū)的調(diào) ?出：報表→標(biāo)題總結(jié)→選擇標(biāo)題 在組標(biāo)頭區(qū) ?用域控件分 ?別調(diào)出：訂單號，線路，人數(shù)，主題類型，總價，并劃上線 在總結(jié)區(qū)用 ?標(biāo)簽寫上：制表人：某某某 ， 用標(biāo)簽寫上 ?： 蜜月旅行單 ?筆最低售價 ?， 用域控件在 ?表達式中輸 ?入： IIF(旅游銷售表 ?.主題類型 =蜜月 , 旅游銷售表 ?.總價 ,99999? )， 點擊計算選 ?擇最小值， 用標(biāo)簽寫上 ?元 . 八 、 創(chuàng)建個人信 ?息菜單 ， 全部用標(biāo)簽 ?， 加一個退出 ?命令，退出的 CL? ICK事件 ?為： THISF? ? SE 管理系統(tǒng)中 ?計算機應(yīng)用 ?實踐環(huán)節(jié)輔 ?導(dǎo) Zheng?Hsian?g 第 50 頁 共 50 頁 九 、 連編為可執(zhí)