vf題庫(kù)3(第三大題合集).doc

綜合應(yīng)用1、有表單myform,設(shè)為頂層表單,設(shè)計(jì)菜單mymenu(load),表單-瀏覽課程/選修課統(tǒng)計(jì) 報(bào)表-預(yù)覽報(bào)表 退出 一、建立菜單 1. 單擊”文件新建”命令項(xiàng). 2. 在”新建”對(duì)話框中選擇”菜單”單選鈕,再按”新建文件”按鈕. 3. 在”新建菜單”對(duì)話框中選擇”菜單”按鈕,在菜單設(shè)計(jì)器中的”菜單名稱”中依次輸入”表單”、”報(bào)表”和”退出”這三個(gè)主菜單項(xiàng),然后選擇”表單”菜單項(xiàng),在”結(jié)果”中選擇”子菜單”,單擊”創(chuàng)建”按鈕,在”菜單設(shè)計(jì)器”中,輸入兩個(gè)子菜單項(xiàng)”瀏覽課程”和”瀏覽選課統(tǒng)計(jì)”,選擇”報(bào)表”菜單項(xiàng),在”結(jié)果”中選擇”子菜單”,單擊”創(chuàng)建”按鈕,在”菜單設(shè)計(jì)器”中,輸入一個(gè)子菜單項(xiàng)”預(yù)覽報(bào)表”. 4. 在”瀏覽課程”子菜單的”結(jié)果”選擇”過(guò)程”并輸入命令下列語(yǔ)句 myform.grid1.recordsource=“課程” 5. 在”瀏覽選課統(tǒng)計(jì)”子菜單的”結(jié)果”選擇”過(guò)程”并輸入命令下列語(yǔ)句 myform.grid1.recordsource=“sview” 6. 在”預(yù)覽報(bào)表”子菜單的”結(jié)果”選擇”命令”并輸入命令”report form creport preview”. 7. 在”退出”主菜單的”結(jié)果”選擇”命令”并輸入命令”myform.release”. 8. 單擊工具欄上”保存”按鈕,在彈出”保存”對(duì)話框中輸入”mymenu”即可. 9. 在”菜單設(shè)計(jì)器”窗口下,單擊”菜單”菜單欄,選擇”生成”菜單項(xiàng),生成”mymenu.mpr”文件. 二、修改表單 1. 輸入修改表單命令 MODIFY FORM myform 2. 在”表單設(shè)計(jì)器”中,在其”屬性”的ShowWindow處選擇”2-作為頂層表單”,雙擊”Load Event”,在”Form1.Load”編輯窗口中輸入”do mymenu.mpr”,雙擊”Init Event”,在”myform.Init”編輯窗口中輸入”do mymenu.mpr with this ,xxx“,啟動(dòng)菜單命令,雙擊”Destroy Event,在”myform.Destroy”編輯窗口中輸入”release menu xxx extended”,在表單退出時(shí)釋放菜單.2、正確建立order_detail表并追加記錄,根據(jù)單價(jià)和數(shù)量編程修改order_list,記錄存放od_mod,總金額升序 close database select 1 use order_list copy stru to tmp select 2 use tmp select 訂單號(hào),sum(單價(jià)*數(shù)量) as aa from order_detail group by 訂單號(hào) order by 訂單號(hào) into cursor ff sele order_list do while !eof() select ff locate for 訂單號(hào)=order_list.訂單號(hào) if order_list.總金額 aa select order_list scatt to mm select tmp append blank gath from mm replace 總金額 with ff.aa endif select order_list skip enddo select * from tmp order by 總金額 into dbf od_mod3、打開(kāi)SELLDB數(shù)據(jù)庫(kù),創(chuàng)建標(biāo)題為部門銷售查詢,表單名Forml,文件名XS,附圖 2標(biāo)簽 2文本框 1表格 2命令按鈕 1. 新建表單 CREATE FORM xs 2. 在”表單設(shè)計(jì)器-xs.scx”中,在”屬性”的Caption處輸入”部門銷售查詢”. 3. 在”表單設(shè)計(jì)器-xs.scx”中,添加兩個(gè)標(biāo)簽,在第1個(gè)標(biāo)簽Label1”屬性”的Caption處輸入”部門號(hào)”,在第2個(gè)標(biāo)簽Label1”屬性”的Caption處輸入”年度”. 4. 在”表單設(shè)計(jì)器-xs.scx”中,添加兩個(gè)文本框（Text1和Text2）. 5. 在”表單設(shè)計(jì)器-xs.scx”中,添加一個(gè)表格Grid1,在其”屬性”的RecordSourceType處選擇”4 - SQL 說(shuō)明”. 6. 在”表單設(shè)計(jì)器-xs.scx”中,添加兩個(gè)命令按鈕,在第1個(gè)命令按鈕”屬性”窗口的Caption處輸入”查詢”,在第2個(gè)命令按鈕”屬性”窗口的Caption處輸入”退出”. 7. 在”表單設(shè)計(jì)器”中,雙擊”查詢”命令按鈕,在”Command1.Click”編輯窗口中輸入下列語(yǔ)句,接著關(guān)閉編輯窗口. X1 = ALLTRIM(ThisForm.Text1.Value) X2 = ALLTRIM(ThisForm.Text2.Value) ThisForm.Grid1.RecordSource = “SELECT 銷售表.商品號(hào), 商品名, 一季度利潤(rùn), 二季度利潤(rùn), 三季度利潤(rùn), 四季度利潤(rùn) ; FROM 銷售表 JOIN 商品代碼表 ON 銷售表.商品號(hào) = 商品代碼表.商品號(hào) ; WHERE 部門號(hào) = X1 AND 年度 = X2 INTO CURSOR lsb” SELECT 銷售表.商品號(hào), 商品名, 一季度利潤(rùn), 二季度利潤(rùn), 三季度利潤(rùn), 四季度利潤(rùn) ; FROM 銷售表 JOIN 商品代碼表 ON 銷售表.商品號(hào) = 商品代碼表.商品號(hào) ; WHERE 部門號(hào) = X1 AND 年度 = X2 INTO TABLE xs&X1 8. 在”表單設(shè)計(jì)器”中,雙擊”退出”命令按鈕,在”Command2.Click”編輯窗口中輸入”Release Thisform”語(yǔ)句,接著關(guān)閉編輯窗口.4、為order_detail增加字段新單價(jià),編程2001年90%,2002年110%,快速報(bào)表建report1.frx 1. 增加新字段: ALTER TABLE order_detail ADD COLUMN 新單價(jià) F(10,2) 2. 在prog1.prg文件中的內(nèi)容是: UPDATE order_detail SET 新單價(jià)=單價(jià)*0.9 WHERE 訂單號(hào)=(SELECT 訂單號(hào) FROM order_list WHERE 訂單號(hào)=order_detail.訂單號(hào) AND YEAR(訂購(gòu)日期)=2001) UPDATE order_detail SET 新單價(jià)=單價(jià)*1.1 WHERE 訂單號(hào)=(SELECT 訂單號(hào) FROM order_list where 訂單號(hào)=order_detail.訂單號(hào) AND YEAR(訂購(gòu)日期)=2002) 3. 建立”快速報(bào)表” (1). 單擊”工具向?qū)?bào)表”菜單項(xiàng),并顯示”向?qū)нx取”對(duì)話框. (2). 在”向?qū)нx取”對(duì)話框中,選擇”報(bào)表向?qū)А辈螕簟贝_定”按鈕,并顯示”報(bào)表向?qū)А睂?duì)話框. (3). 在”報(bào)表向?qū)А睂?duì)話框的”步驟1-字段選取”中,首先要選取表”order_detail”,在”數(shù)據(jù)庫(kù)和表”列表框中,選擇表”order_detail”,接著在”可用字段”列表框中顯示表order_detail的所有字段名,并選取指定的字段名至”選定字段”列表框中,單擊”完成”按鈕. (4). 在”報(bào)表向?qū)А睂?duì)話框的”步驟6-完成”中,單擊”完成”按鈕,在”另存為”對(duì)話框的”保存報(bào)表為”中輸入報(bào)表名”report1”,最后單擊”保存”按鈕即可.5、建立表單,文件名、表單名為myform_a,標(biāo)題商品瀏覽樣式如圖,商品分類(飲料、調(diào)味品、酒類、小家電) 1. 建立表單 CREATE FORM myform_a 2. 在”表單設(shè)計(jì)器”中,在”屬性”的Caption處輸入”商品瀏覽”,在Name處輸入”myform_a”. 3. 在”表單設(shè)計(jì)器”中,添加一個(gè)選項(xiàng)按鈕組OptionGroup1,在”屬性”的ButtonCount處輸入”4”,并對(duì)其進(jìn)行編輯,在Option1的Caption處輸入”飲料”,在Option2的Caption處輸入”調(diào)味品”,在Option3的Caption處輸入”酒類”,在Option2的Caption處輸入”小家電”. 4. 在”表單設(shè)計(jì)器”中,添加兩個(gè)命令按鈕,在第1個(gè)命令按鈕”屬性”的Caption處輸入”退出”,在第2個(gè)命令按鈕”屬性”的Caption處輸入”確定”. 5. 在”表單設(shè)計(jì)器”中,雙擊”Command1”命令按鈕,在”Command1.Click”編輯窗口中輸入”Release Thisform”,接著關(guān)閉編輯窗口. 6. 在”表單設(shè)計(jì)器”中,雙擊”Command2”命令按鈕,在”Command2.Click”編輯窗口中輸入下列語(yǔ)句,接著關(guān)閉編輯窗口. DO CASE CASE THISFORM.OPTIONGROUP1.VALUE=1 SELECT * FROM 商品 WHERE 分類編碼=ANY(SELECT 分類編碼 FROM 分類 WHERE 分類名稱=“飲料”) CASE THISFORM.OPTIONGROUP1.VALUE=2 SELECT * FROM 商品 WHERE 分類編碼=ANY(SELECT 分類編碼 FROM 分類 WHERE 分類名稱=“調(diào)味品”) CASE THISFORM.OPTIONGROUP1.VALUE=3 SELECT * FROM 商品 WHERE 分類編碼=ANY(SELECT 分類編碼 FROM 分類 WHERE 分類名稱=“酒類”) CASE THISFORM.OPTIONGROUP1.VALUE=4 SELECT * FROM 商品 WHERE 分類編碼=ANY(SELECT 分類編碼 FROM 分類 WHERE 分類名稱=“小家電”) ENDCASE6、打開(kāi)SDB數(shù)據(jù)庫(kù),建標(biāo)題為查詢、文件名為testb的表單,附圖,添加學(xué)生表,自動(dòng)居中,1標(biāo)簽,1文本框,1表格,2命令按鈕 1. 新建表單 CREATE FORM testb 2. 在”表單設(shè)計(jì)器”中,在”屬性”的Caption處輸入”查詢”,在AutoCenter處選擇”.T. - 真”. 3. 單擊”顯示數(shù)據(jù)環(huán)境”菜單項(xiàng),在”打開(kāi)”對(duì)話框中雙擊表”學(xué)生表”,再單擊”關(guān)閉”來(lái)關(guān)閉”添加表或視圖”對(duì)話框. 4. 在”表單設(shè)計(jì)器-testb.scx”中,添加一個(gè)標(biāo)簽Label1,在其”屬性”的Caption處輸入”學(xué)生注冊(cè)日期”. 5. 在”表單設(shè)計(jì)器-testb.scx”中,添加一個(gè)文本框Text1. 6. 在”表單設(shè)計(jì)器-testb.scx”中,添加一個(gè)表格Grid1,在其”屬性”的RecordSourceType處選擇”4 - SQL 說(shuō)明”. 7. 在”表單設(shè)計(jì)器-testb.scx”中,添加兩個(gè)命令按鈕,在第1個(gè)命令按鈕”屬性”窗口的Caption處輸入”查詢”,在第2個(gè)命令按鈕”屬性”窗口的Caption處輸入”退出”. 8. 在”表單設(shè)計(jì)器”中,雙擊”查詢”命令按鈕,在”Command1.Click”編輯窗口中輸入下列語(yǔ)句,接著關(guān)閉編輯窗口. ThisForm.Grid1.RecordSource = “SELECT 學(xué)號(hào),姓名,年齡,性別,班級(jí),注冊(cè)日期 FROM 學(xué)生表; WHERE 注冊(cè)日期 = CTOD(ALLTRIM(ThisForm.Text1.Value) ORDER BY 年齡 DESC INTO CURSOR lsb” SELECT 學(xué)號(hào),姓名,年齡,性別,班級(jí),注冊(cè)日期; FROM 學(xué)生表; WHERE 注冊(cè)日期 = CTOD(ALLTRIM(ThisForm.Text1.Value) ORDER BY 年齡 DESC INTO table ls USE TABE ZAP APPEND FROM ls USE 9. 在”表單設(shè)計(jì)器”中,雙擊”退出”命令按鈕,在”Command2.Click”編輯窗口中輸入”Release Thisform”語(yǔ)句,接著關(guān)閉編輯窗口.7、建立視圖VIEW1,查詢每個(gè)雇員部門號(hào)、部門名、雇員號(hào)、姓名、性別、年齡和EMALL設(shè)計(jì)form2表單,設(shè)一個(gè)頁(yè)框,有部門和雇員選項(xiàng)卡,右下角有退出命令按鈕 一、建立視圖 1. 打開(kāi)數(shù)據(jù)庫(kù)”雇員管理” OPEN DATABASE 雇員管理 2. 單擊”工具向?qū)Р樵儭辈藛雾?xiàng),并顯示”向?qū)нx取”對(duì)話框. 3. 在”向?qū)нx取”對(duì)話框中,選擇”本地視圖向?qū)А辈螕簟贝_定”按鈕,并顯示”本地視圖向?qū)А睂?duì)話框. 4. 在”本地視圖向?qū)А睂?duì)話框的”步驟1-字段選取”中,首先要選取表”雇員”,在”數(shù)據(jù)庫(kù)和表”列表框中,選擇表”雇員”,接著在”可用字段”列表框中顯示表”雇員”的所有字段名,并選定指定的字段名添加到”選定字段”列表框中;選擇表”部門”,接著在”可用字段”列表框中顯示表”部門”的所有字段名,并選定指定的字段名添加到”選定字段”列表框中,單擊”下一步”按鈕. 5. 在”本地視圖向?qū)А睂?duì)話框的”步驟2-為表建立關(guān)系”中,單擊”添加”按鈕,再單擊”完成”按鈕. 5. 在”本地視圖向?qū)А睂?duì)話框的”步驟5-完成”中,單擊”完成”按鈕. 6. 在”視圖名”對(duì)話框中,輸入視圖名”view1”,再單擊”確認(rèn)”按鈕,這樣視圖就生成了. 二、設(shè)計(jì)表單 1. 在命令窗口中輸入建立表單命令 CREATE FORM form2 2. 在”表單設(shè)計(jì)器”中,在”屬性”的Caption處輸入”商品銷售數(shù)據(jù)輸入”. 3. 在”表單設(shè)計(jì)器”中,單擊鼠標(biāo)右鍵,在彈出菜單中選擇”數(shù)據(jù)環(huán)境”菜單項(xiàng),在”添加表或視圖”對(duì)話框中先選中表”部門”并單擊”添加”按鈕,接著再單擊”選定”框中”視圖”的按鈕,并單擊”添加”按鈕,最后接著單擊”關(guān)閉”按鈕關(guān)閉”添加表或視圖”對(duì)話框. 4. 在”表單控件”對(duì)話框中選定”頁(yè)框”控件,在”表單設(shè)計(jì)器”中建立這個(gè)”頁(yè)框”,選中這個(gè)”頁(yè)框”并單擊鼠標(biāo)右鍵,在彈出菜單中選擇”編輯”菜單項(xiàng),再單擊”Page1”,在其”屬性”的Caption處輸入”部門”,接著在”數(shù)據(jù)環(huán)境”中選中”部門”表按住不放,再移動(dòng)鼠標(biāo)到”頁(yè)框”的”部門”處,最后松開(kāi)鼠標(biāo);單擊”Page2”,在其”屬性”的Caption處輸入”雇員”,接著在”數(shù)據(jù)環(huán)境”中選中”view1”視圖按住不放,再移動(dòng)鼠標(biāo)到”頁(yè)框”的”雇員”處,最后松開(kāi)鼠標(biāo). 5. 在”表單設(shè)計(jì)器”的右下角,添加一個(gè)命令按鈕,在”屬性”窗口的Caption處輸入”退出”,雙擊”退出”命令按鈕,在”Command1.Click”編輯窗口中輸入”Release Thisform”,接著關(guān)閉編輯窗口.8、建頂層表單myform.scx,創(chuàng)建并添加菜單mymenu,如圖,統(tǒng)計(jì)和退出訪問(wèn)鍵為T、R,統(tǒng)計(jì)客戶號(hào),客戶名,合計(jì)按合計(jì)降序 一、 建立菜單 1. 建立菜單文件 CREATE MENU mymenu 在”新建菜單”對(duì)話框中,單擊”菜單”按鈕. 2. 在”菜單設(shè)計(jì)器-mymenu.mnx”中,在”菜單名稱”中輸入”統(tǒng)計(jì)(T)”,再移到下一個(gè)菜單項(xiàng)處中輸入”退出(R)”. 3. 選中”統(tǒng)計(jì)(T)”菜單項(xiàng),在”結(jié)果”中選擇”過(guò)程”并單擊”創(chuàng)建”,在”菜單設(shè)計(jì)器-mymenu.mnx-統(tǒng)計(jì)(T) 過(guò)程”中輸入下列語(yǔ)句: select customer.客戶號(hào),客戶名,sum(金額) as 合計(jì) from orders,customer where orders.客戶號(hào)=customer.客戶號(hào) group by customer.客戶號(hào) order by 合計(jì) desc into table tabletwo 4. 選中”退出(R)”子菜單項(xiàng),在”結(jié)果”中選擇”過(guò)程”并單擊”創(chuàng)建”,在”菜單設(shè)計(jì)器-mymenu.mnx-退出(R) 過(guò)程”中輸入下列語(yǔ)句: myform.release 5. 單擊”顯示常規(guī)選項(xiàng)”菜單項(xiàng),在”常規(guī)選項(xiàng)”對(duì)話框的”頂層菜單”框中打勾,再單擊”確定”按鈕. 6. 在”菜單設(shè)計(jì)器”窗口下,單擊”菜單”菜單欄,選擇”生成”菜單項(xiàng),生成”mymenu.mpr”文件. 二、建立表單 1. 新建表單 CREATE FORM myform 2. 在”表單設(shè)計(jì)器”中,在”屬性”的Caption處輸入”考試”,在ShowWindow處選擇”2 - 作為頂層表單”,雙擊Init Event事件,在Form1.Init中輸入”do mymenu.mpr with this,”xxx”“,雙擊Destroy Event事件,在Form1.Destroy中輸入”release menu xxx extended”.9、gnht.dbf是合同管理表,編程統(tǒng)計(jì)訂貨單位數(shù)、供貨單位數(shù)、訂貨總數(shù),結(jié)果填入jieguo.dbf 在文件progzh.prg存放內(nèi)容如下: select 1 use jieguo select 2 use gnht sum jhsl to asum & 計(jì)算訂貨總數(shù) index on dhdw to aaa uniq count to adhdw & 計(jì)算訂貨單位數(shù) index on ghdw to bbb uniq count to aghdw & 計(jì)算供貨單位數(shù) use select 1 replace num with adhdw & 把訂貨單位數(shù)存放第1條記錄中 skip replace num with aghdw & 把供貨單位數(shù)存放第2條記錄中 skip replace num with asum & 把訂貨總數(shù)存入第3條記錄中 list & 顯示結(jié)果 use10、建立表單stock_form含2表格控件grdStock_name,grdStock_sl,1關(guān)閉命令按鈕 1. 在命令窗口中輸入建立表單命令 CREATE FORM stock_form 2. 在”表單設(shè)計(jì)器”中,單擊鼠標(biāo)右鍵,在彈出菜單中選擇”數(shù)據(jù)環(huán)境”菜單項(xiàng),在”打開(kāi)”對(duì)話框中選中表”stock_name”并單擊”確定”按鈕,再單擊”其他”按鈕,在”打開(kāi)”對(duì)話框中,選擇表”stock_sl”,單擊”確定”按鈕,在”數(shù)據(jù)環(huán)境設(shè)計(jì)器”中,按住表”stock_name”字段”股票代碼”不放,再移動(dòng)鼠標(biāo)至表”stock_sl”處,松開(kāi)鼠標(biāo),在出現(xiàn)的提示信息窗口中,單擊”確定”按鈕. 3. 按住表”stock_name”,移動(dòng)鼠標(biāo)至”表單設(shè)計(jì)器”,松開(kāi)鼠標(biāo),這樣就建立一個(gè)grdStock_name表格.按住表”stock_sl”,移動(dòng)鼠標(biāo)至”表單設(shè)計(jì)器”,松開(kāi)鼠標(biāo),這樣就建立一個(gè)grdStock_sl表格. 4. 在”表單設(shè)計(jì)器”中添加一個(gè)命令按鈕,在”屬性”窗口的Caption處輸入”關(guān)閉”. 5. 雙擊”關(guān)閉”命令按鈕,在”Command1.Click”編輯窗口中輸入”Release Thisform”,接著關(guān)閉編輯窗口.11、建立表table3,學(xué)號(hào) 字 10、姓名 字 6、課程名 字 8、分?jǐn)?shù) 數(shù) 5,1.編程查60的,分?jǐn)?shù)升序?qū)W號(hào)降序 一、建立表文件 CREATE TABLE table3(學(xué)號(hào) C(10), 姓名 C(6), 課程名 C(8), 分?jǐn)?shù) N(5,1) 二、在prog1.prg文件中編寫如下程序: clear close all select 0 use table3 dele all pack copy to ttt select 0 use ttt select 0 use xuesheng index on 學(xué)號(hào) tag 學(xué)號(hào) select 0 use chengji set relation to 學(xué)號(hào) into xuesheng go top do while .not.eof() if 數(shù)學(xué)60 select ttt append blank replace 學(xué)號(hào) with xuesheng.學(xué)號(hào),姓名 with xuesheng.姓名 replace 課程名 with “數(shù)學(xué)”,分?jǐn)?shù) with chengji.數(shù)學(xué) select chengji endif if 英語(yǔ)60 select ttt append blank replace 學(xué)號(hào) with xuesheng.學(xué)號(hào),姓名 with xuesheng.姓名 replace 課程名 with “英語(yǔ)”,分?jǐn)?shù) with chengji.英語(yǔ) select chengji endif if 信息技術(shù)60 select ttt append blank replace 學(xué)號(hào) with xuesheng.學(xué)號(hào),姓名 with xuesheng.姓名 replace 課程名 with “信息技術(shù)”,分?jǐn)?shù) with chengji.信息技術(shù) select chengji endif skip enddo select ttt sort on 分?jǐn)?shù),學(xué)號(hào)/d to ttt1 select table3 append from ttt1 close all12、打開(kāi)Ecommerce數(shù)據(jù)庫(kù),生成報(bào)表myreport,設(shè)計(jì)表單myform,4個(gè)命令按鈕 1. 打開(kāi)數(shù)據(jù)庫(kù) OPEN DATABASE Ecommerce 2. 在命令窗口中輸入建立表單命令 CREATE FORM myform 3. 建立報(bào)表 1). 單擊”工具向?qū)?bào)表”菜單項(xiàng),并顯示”向?qū)нx取”對(duì)話框. 2). 在”向?qū)нx取”對(duì)話框中,選擇”報(bào)表向?qū)А辈螕簟贝_定”按鈕,并顯示”報(bào)表向?qū)А睂?duì)話框. 3). 在”報(bào)表向?qū)А睂?duì)話框的”步驟1-字段選取”中,首先要選取表”Customer”,在”數(shù)據(jù)庫(kù)和表”列表框中,選擇表”Customer”,接著在”可用字段”列表框中顯示表Customer的所有字段名,并選定所有字段名至”選定字段”列表框中,單擊”完成”按鈕. 4). 在”報(bào)表向?qū)А睂?duì)話框的”步驟6-完成”中,在”報(bào)表標(biāo)題”文本框中輸入”客戶信息”,單擊”完成”. 4. 在”表單設(shè)計(jì)器”中,在”屬性”的Caption處輸入”客戶基本信息”,在Name處輸入”myform”. 5. 在”表單設(shè)計(jì)器”中,添加四個(gè)命令按鈕,在第1個(gè)命令按鈕”屬性”窗口的Caption處輸入”女客戶信息”,在第2個(gè)命令按鈕”屬性”窗口的Caption處輸入”客戶購(gòu)買商品情況”,在第3個(gè)命令按鈕”屬性”窗口的Caption處輸入”輸出客戶信息”,在第4個(gè)命令按鈕”屬性”窗口的Caption處輸入”退出”. 6. 雙擊”女客戶信息”按鈕,在”Command1.Click”編輯窗口中”select * from customer where 性別 = “女”“ 7. 雙擊”客戶購(gòu)買商品情況”按鈕,在”Command2.Click”編輯窗口中”SELECT * FROM sb_view” 8. 雙擊”輸出客戶信息”按鈕,在”Command3.Click”編輯窗口中”REPORT FORM myreport PREVIEW” 9. 雙擊”退出”命令按鈕,在”Command4.Click”編輯窗口中輸入”ThisForm.Release”,接著關(guān)閉編輯窗口.13、創(chuàng)建下拉菜單mymenu,運(yùn)行會(huì)在當(dāng)前VFP系統(tǒng)菜單末尾追加考試子菜單,如圖,創(chuàng)建項(xiàng)目myproject 一、建立菜單 1. 建立菜單文件 CREATE MENU mymenu 在”新建菜單”對(duì)話框中,單擊”菜單”按鈕. 2. 在”菜單設(shè)計(jì)器-mymenu.mnx”中,在”菜單名稱”中輸入”考試”,再單擊”創(chuàng)建”按鈕來(lái)子菜單,在”菜單名稱”中輸入”統(tǒng)計(jì)”,再移到下一個(gè)菜單項(xiàng)處中輸入”返回”. 3. 選”統(tǒng)計(jì)”子菜單項(xiàng),在”結(jié)果”中選擇”過(guò)程”并單擊”創(chuàng)建”,在”菜單設(shè)計(jì)器-mymenu.mnx-統(tǒng)計(jì) 過(guò)程”中輸入下列語(yǔ)句: select year(簽訂日期) as 年份,month(簽訂日期) as 月份,sum(金額) as 合計(jì) from orders group by 年份,月份 order by 年份 desc,月份 into table tabletwo 4. 選”返回”子菜單項(xiàng),在”結(jié)果”中選擇”過(guò)程”并單擊”創(chuàng)建”,在”菜單設(shè)計(jì)器-mymenu.mnx-返回 過(guò)程”中輸入下列語(yǔ)句: set sysmenu nosave set sysmenu to default 5. 單擊”顯示常規(guī)選項(xiàng)”菜單項(xiàng),在”常規(guī)選項(xiàng)”對(duì)話框的”位置”框中選中”追加”單選鈕,再單擊”確定”按鈕. 6. 在”菜單設(shè)計(jì)器”窗口下,單擊”菜單”菜單欄,選擇”生成”菜單項(xiàng),生成”mymenu.mpr”文件. 二、創(chuàng)建項(xiàng)目 1. 新建項(xiàng)目文件 CREATE PROJECT myproject 2. 在”項(xiàng)目設(shè)計(jì)器-Myproject”中,單擊”其他”選項(xiàng)卡并選中”菜單”項(xiàng),單擊”添加”按鈕,在”添加”對(duì)話框中雙擊”mymenu.mnx”. 3. 在”項(xiàng)目設(shè)計(jì)器-Myproject”中,單擊”連編”按鈕,在”連編選項(xiàng)”對(duì)話框中單擊”確定”按鈕,在”另存為”中輸入文件名”myproject”,最后單擊”保存”按鈕.14、設(shè)計(jì)mystock的表單,表單的標(biāo)題為股票持有情況,2文本框2命令按鈕 1. 在命令窗口中輸入建立表單命令 CREATE FORM mystock 2. 在”表單設(shè)計(jì)器-mystock.scx”中,在”屬性”的Caption處輸入”股票持有情況”,在Name處輸入”mystock”. 3. 在”表單設(shè)計(jì)器-mystock.scx”中,添加兩個(gè)文本框（”Text1”和”Text2”）. 4. 在”表單設(shè)計(jì)器-mystock.scx”中,添加兩個(gè)命令按鈕,單擊第1個(gè)命令按鈕在”屬性”的Caption處輸入”查詢”,單擊第2個(gè)命令按鈕在”屬性”的Caption處輸入”退出”. 5. 雙擊”查詢”命令按鈕,在”Command1.Click”編輯窗口中輸入命令組,接著關(guān)閉編輯窗口. pinyin= alltrim(thisform.text1.value) open database stock use stock_name locate for 漢語(yǔ)拼音=pinyin if found() select 持有數(shù)量,股票簡(jiǎn)稱 from stock_sl,stock_name ; where 漢語(yǔ)拼音=pinyin and stock_sl.股票代碼=stock_name.股票代碼; into array a thisform.text1.value=a2 thisform.text2.value=a1 else wait “沒(méi)有查詢到,請(qǐng)重輸” window timeout 2 endif6. 雙擊”退出”命令按鈕,在”Command2.Click”編輯窗口中輸入”Release Thisform”,接著關(guān)閉編輯窗口.15、建立表單,文件名表單名為myform有表格控件,文本控件,命令按鈕,運(yùn)行并計(jì)算筆記本和計(jì)算機(jī)產(chǎn)品部銷售額利潤(rùn) 1. 在命令窗口中輸入建立表單命令 CREATE FORM myform 2. 在”表單設(shè)計(jì)器”中,在其”屬性”的Name處輸入”myform”. 3. 在”表單設(shè)計(jì)器”中,分別添加一個(gè)文本框Text1和表格Grid1. 4. 在”表單設(shè)計(jì)器”中,添加一個(gè)命令按鈕Command1,在其命令按鈕的”屬性”的Caption處輸入”確定”. 5. 雙擊”確定”按鈕,在”Command1.Click”編輯窗口中輸入下列程序 dn=thisform.text1.value SELECT Sell.年度, SUM(Sell.銷售額) 銷售額,; SUM(Sell.銷售額)- SUM(Sell.工資額) 利潤(rùn); FROM sell where 部門號(hào) in; (select 部門號(hào) from dept where 部門名=dn); GROUP BY Sell.年度 into dbf &dn thisform.grid1.recordsource=dn16、創(chuàng)建自由表tablethree,姓名 c 6,最高金額 n 6.2,最低金額 n 6.2,平均金額 n 6.2,設(shè)計(jì)表單formtwo,表格名Gridl,查詢統(tǒng)計(jì)按鈕名Command1如圖,運(yùn)行統(tǒng)計(jì)趙小青和吳偉軍簽單金額 一、建立表文件 CREATE TABLE tablethree(姓名 C(6), 最高金額 N(6,2), 最低金額 N(6,2), 平均金額 N(6,2) 二、建立表單 1. 使用命令建立表單 CREATE FORM formtwo 2. 在”表單設(shè)計(jì)器”中,在”屬性”的Caption處輸入”綜合應(yīng)用”. 3. 在”表單設(shè)計(jì)器”中,添加一個(gè)表格控件（Grid1）,在”屬性”的RecordSourceType處選擇”4 - SQL 說(shuō)明”,再添加一個(gè)文本框（Text1）. 4. 在”表單設(shè)計(jì)器”中,添加兩個(gè)命令按鈕（Command1和Command2）,單擊第1個(gè)命令按鈕在”屬性”的Caption處輸入”查詢統(tǒng)計(jì)”,單擊第2個(gè)命令按鈕在”屬性”的Caption處輸入”退出”. 5. 雙擊”查詢統(tǒng)計(jì)”命令按鈕,在”Command1.Click”編輯窗口中輸入命令組,接著關(guān)閉編輯窗口. set talk off Thisform.Grid1.RecordSource=“select 訂單號(hào),金額; from employee join order on Employee.職員號(hào) = Order.職員號(hào); where employee.姓名=alltrim(thisform.text1.value); order by 金額 into cursor lsb” select lsb go top mi=金額 go bottom ma=金額 average 金額 to av select tablethree append blank replace 姓名 with alltrim(thisform.text1.value),最高金額 with ma,最低金額 with mi,平均金額 with av set talk on 6. 雙擊”退出”命令按鈕,在”Command2.Click”編輯窗口中輸入”Release Thisform”,并關(guān)閉編輯窗口.17、建表單文件名和表單控件名為myform_db,標(biāo)題為數(shù)據(jù)瀏覽和維護(hù),如圖,選項(xiàng)按鈕組選擇職工表或訂單表,復(fù)選框控件確定是否需要存盤 1. 在命令窗口中輸入建立表單命令 CREATE FORM myform_db 2. 在”表單設(shè)計(jì)器”中,在其”屬性”的Name處輸入”myform_db”,在Caption處輸入”數(shù)據(jù)瀏覽和維護(hù)”. 3. 在”表單設(shè)計(jì)器”中,建立”選項(xiàng)按鈕組”,并在選定它且單擊右鍵,再選擇”編輯”項(xiàng),接著選定Option1,在其Caption處輸入”職工表(employee)”,接著選定Option2,在其Caption處輸入”訂單表(orders)”, 4. 在”表單設(shè)計(jì)器”中,建立”復(fù)選框”,并在其屬性的Caption處輸入”存盤”. 5. 在”表單設(shè)計(jì)器”中,添加兩個(gè)命令按鈕（Command1和Command2）,在第1個(gè)命令按鈕Command1”屬性”窗口的Caption處輸入”確定”,在第2個(gè)命令按鈕Command2”屬性”窗口的Caption處輸入”退出”. 6. 雙擊”確定”命令按鈕,在”Command1.Click”編輯窗口中輸入命令組,接著關(guān)閉編輯窗口. IF thisform.optiongroup1.option1.value=1 IF thisform.check1.value=1 SELECT * FROM employee INTO TABLE temp ELSE SELECT * FROM employee ENDIF ELSE IF thisform.check1.value=2 SELECT * FROM orders INTO TABLE temp ELSE SELECT * FROM orders ENDIF ENDIF 7. 雙擊”退出”命令按鈕,在”Command2.Click”編輯窗口中輸入”ThisForm.Release”,接著關(guān)閉編輯窗口.18、創(chuàng)建下拉式菜單mymenu.mnx,運(yùn)行菜單時(shí)會(huì)在當(dāng)前VFP菜單幫助子菜單前插入考試子菜單,如圖,統(tǒng)計(jì)以組為單位求訂單金額的和. 1. 建立菜單文件 CREATE MENU mymenu 在”新建菜單”對(duì)話框中,單擊”菜單”按鈕. 2. 在”菜單設(shè)計(jì)器-mymenu.mnx”中,在”菜單名稱”中輸入”考試”,再單擊”創(chuàng)建”按鈕來(lái)子菜單,在”菜單名稱”中輸入”統(tǒng)計(jì)”,再移到下一個(gè)菜單項(xiàng)處中輸入”返回”. 3. 選”統(tǒng)計(jì)”子菜單項(xiàng),在”結(jié)果”中選擇”過(guò)程”并單擊”創(chuàng)建”,在”菜單設(shè)計(jì)器-mymenu.mnx-統(tǒng)計(jì) 過(guò)程”中輸入下列語(yǔ)句: close data use employee copy to tmp1 field 組別,姓名 for 職務(wù)=“組長(zhǎng)” select 組別,sum(金額) as 合計(jì) from orders,employee where orders.職員號(hào)=employee.職員號(hào) group by 組別 into cursor tmp2 select tmp2.組別,姓名 as 負(fù)責(zé)人,合計(jì) from tmp1,tmp2 where tmp1.組別=tmp2.組別 order by 合計(jì) desc into table tabletwo 4. 選”返回”子菜單項(xiàng),在”結(jié)果”中選擇”過(guò)程”并單擊”創(chuàng)建”,在”菜單設(shè)計(jì)器-mymenu.mnx-統(tǒng)計(jì) 過(guò)程”中輸入下列語(yǔ)句: set sysmenu nosave set sysmenu to default 5. 單擊”顯示常規(guī)選項(xiàng)”菜單項(xiàng),在”常規(guī)選項(xiàng)”對(duì)話框的”位置”框中選中”在.之前”單選鈕,在后面的列表框選擇”幫助”,再單擊”確定”按鈕. 6. 在”菜單設(shè)計(jì)器”窗口下,單擊”菜單”菜單欄,選擇”生成”菜單項(xiàng),生成”mymenu.mpr”文件.19、基于數(shù)據(jù)庫(kù)pdtmng建如圖頂層表單,文件名myform.scx,控件名為goods,表單標(biāo)題為”商品”;1表格控件Grid1,建條形菜單mymenu.mnx,在表單Load事件執(zhí)行菜單程序mymenu.mpr 一、建立表單 1. 建立表單 CREATE FORM myform 2. 在”表單設(shè)計(jì)器”中,在其”屬性”的Name處輸入”goods”,在Caption處輸入”商品”,在ShowWindow處選擇”2-作為頂層表單”,雙擊”Load Event”,在”goods.Load”編輯窗口中輸入”do mymenu.mpr”. 3. 在”屬性”中,雙擊”Init Event”,在”myform.Init”編輯窗口中輸入”do mymenu.mpr with this ,xxx“,啟動(dòng)菜單命令. 4. 在”屬性”中,雙擊”Destroy Event,在”myform.Destroy”編輯窗口中輸入”release menu xxx extended”,在表單退出時(shí)釋放菜單. 5. 在”表單設(shè)計(jì)器”中,添加一個(gè)表格控件Grid1,在其”屬性”的 RecordSourceType處選擇”4-SQL說(shuō)明”. 二、建立菜單 1. 單擊”文件新建”命令項(xiàng). 2. 在”新建”對(duì)話框中選擇”菜單”單選鈕,再按”新建文件”按鈕. 3. 在”新建菜單”對(duì)話框中選擇”菜單”按鈕,在菜單設(shè)計(jì)器中的”菜單名稱”中依次輸入”商品分類”和”退出”這兩個(gè)主菜單項(xiàng),然后選擇”商品分類”菜單項(xiàng),在”結(jié)果”中選擇”子菜單”,單擊”創(chuàng)建”按鈕,在”菜單設(shè)計(jì)器”中,輸入兩個(gè)子菜單項(xiàng)”小家電”、”飲料”和”酒類”. 4. 在”小家電”子菜單的”結(jié)果”選擇”過(guò)程”并輸入命令下列語(yǔ)句 myform.grid1.recordsource=“select * from products where 分類編碼=4001 into cursor lsb” 5. 在”飲料”子菜單的”結(jié)果”選擇”過(guò)程”并輸入命令下列語(yǔ)句myform.grid1.recordsource=“select * from products where 分類編碼=1001 into cursor lsb” 6. 在”酒類”子菜單的”結(jié)果”選擇”過(guò)程”并輸入命令下列語(yǔ)句 myform.grid1.recordsource=“select * from products where 分類編碼=3001 into cursor lsb”7. 在”退出”主菜單的”結(jié)果”選擇”過(guò)程”并輸入下列命令 myform.release set sysmenu to default 8. 單擊”顯示/常規(guī)選項(xiàng)”,在”常規(guī)選項(xiàng)”對(duì)話框中選中”頂層表單”. 9. 單擊工具欄上”保存”按鈕,在彈出”保存”對(duì)話框中輸入”mymenu”即可. 10. 在”菜單設(shè)計(jì)器”窗口下,單擊”菜單”菜單欄,選擇”生成”菜單項(xiàng),生成”mymenu.mpr”文件.20、打開(kāi)student數(shù)據(jù)庫(kù),添加表student、score和ourse,建視圖viewsc,包括4個(gè)字段;建報(bào)表,簡(jiǎn)報(bào)式,報(bào)表文件名three.frx,打開(kāi)表單文件three,完成操作,運(yùn)行表單three,并一定通過(guò)生成數(shù)據(jù)命令按鈕產(chǎn)生result.dbf表文件. 第1小題 OPEN DATABASE student ADD TABLE student