全國計算機二級vfp上機題內(nèi)容解析

綜合應(yīng)用1、有表單myform,設(shè)為頂層表單,設(shè)計菜單mymenu(load),表單一瀏覽課程/選修課統(tǒng)計報表-預(yù)覽報表退出一、建立菜單.單擊"文件'新建”命令項..在”新建”對話框中選擇”菜單”單選鈕，再按“新建文件”按鈕..在”新建菜單”對話框中選擇“菜單”按鈕,在菜單設(shè)計器中的”菜單名稱”中依次輸入“表單"、”報表”和“退出”這三個主菜單項，然后選擇”表單”菜單項，在”結(jié)果"中選擇“子菜單"，單擊”創(chuàng)建“按鈕，在”菜單設(shè)計器”中，輸入兩個子菜單項”瀏覽課程"和"瀏覽選課統(tǒng)計"，選擇“報表”菜單項，在”結(jié)果"中選擇“子菜單"，單擊“創(chuàng)建"按鈕，在”菜單設(shè)計器”中，輸入一個子菜單項”預(yù)覽報表”..在”瀏覽課程”子菜單的”結(jié)果”選擇“過程”并輸入命令下列語句myform.gridl.recordsource="課程".在"瀏覽選課統(tǒng)計”子菜單的“結(jié)果”選擇”過程”并輸入命令下列語句myform.gridl.recordsource="sview”.在”預(yù)覽報表“子菜單的“結(jié)果“選擇"命令”并輸入命令"reportformcreportpreview"..在“退出”主菜單的”結(jié)果“選擇“命令”并輸入命令"myform.release"..單擊工具欄上“保存”按鈕，在彈出"保存”對話框中輸入"mymenu”即可..在”菜單設(shè)計器”窗口下，單擊“菜單”菜單欄，選擇“生成”菜單項，生成"mymenu.mpr"文件.二、修改表單.輸入修改表單命令 MODIFYFORMmyform.在”表單設(shè)計器”中，在其"屬性”的ShowWindow處選擇”2-作為頂層表單”,雙擊“LoadEvent",在"Forml.Load"編輯窗口中輸入"domymenu.mpr",雙擊”InitEvent"，在"myform.Init"編輯窗口中輸入"domymenu.mprwiththis,'xxxz"，啟動菜單命令,雙擊"DestroyEvent,在"myform.Destroy*5編輯窗口中輸入"releasemenuxxxextended”，在表單退出時釋放菜單.2、正確建立order-detail表并追加記錄,根據(jù)單價和數(shù)量編程修改order_list,記錄存放od_mod,總金額升序closedatabaseselect1useorder-listcopystrutotmpselect2usetmpselect訂單號，sum(單價*數(shù)量)asaafromorder-detailgroupby訂單號orderby訂單號intocursorffseleorder-listdowhile!eof()selectfflocatefor訂單號=order_list.訂單號iforder-list.總金額<>aaselectorder-listscatttommselecttmpappendblankgathfrommmreplace總金額withff.aaendifselectorder-listskipenddoselect?fromtmporderby總金額intodbfod-mod3、打開SELLDB數(shù)據(jù)庫，創(chuàng)建標題為部門銷售查詢，表單名Forml,文件名XS,附圖2標簽2文本框1表格2命令按鈕.新建表單CREATEFORMxs.在”表單設(shè)計器-xs.sex”中，在"屬性”的Caption處輸入”部門銷售查詢”..在”表單設(shè)計器-xs.sex”中，添加兩個標簽，在第1個標簽Labell”屬性”的Caption處輸入“部門號”，在第2個標簽Labell”屬性”的Caption處輸入”年度”..在"表單設(shè)計器-xs.sex”中，添加兩個文本框（Textl和Text2）..在”表單設(shè)計器-xs.sex”中，添加一個表格Gridl,在其“屬性”的RecordSourceType處選擇"4-SQL說明”..在“表單設(shè)計器-xs.sex”中，添加兩個命令按鈕，在第1個命令按鈕”屬性”窗口的Caption處輸入”查詢”，在第2個命令按鈕“屬性”窗口的Caption處輸入”退出”..在”表單設(shè)計器”中，雙擊"查詢”命令按鈕，在"Commandl.Click"編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口.XI=ALLTRIM(ThisForm.Textl.Value)X2=ALLTRIM(ThisForm.Text2.Value)ThisForm.Gridl.RecordSource="SELECT銷售表.商品號，商品名，一季度利潤，二季度利潤，三季度利潤，四季度利潤；FROM銷售表JOIN商品代碼表ON銷售表.商品號=商品代碼表.商品號；WHERE部門號=XIAND年度=X2INTOCURSORlsb”SELECT銷售表.商品號，商品名，一季度利潤，二季度利潤，三季度利潤，四季度利潤；FROM銷售表JOIN商品代碼表ON銷售表.商品號=商品代碼表.商品號；WHERE部門號=XIAND年度=X2INTOTABLExs&Xl.在”表單設(shè)計器”中，雙擊“退出"命令按鈕，在"Command?.Click”編輯窗口中輸入"ReleaseThisform"語句,接著關(guān)閉編輯窗口.4、為order_detail增加字段新單價,編程2001年90%,2002年110%,快速報表建reportl.frx.增加新字段：ALTERTABLEorder-detailADDCOLUMN新單價F(10,2)在progl.prg文件中的內(nèi)容是：UPDATEorder-detailSET新單價=單價*0.9WHERE訂單號=(SELECT訂單號FROMorder-listWHERE訂單號-order-detail.訂單號ANDYEAR(訂購日期)=2001)UPDATEorder-detailSET新單價=單價*1.1WHERE訂單號=(SELECT訂單號FROMorder-listwhere訂單號=order_detail.訂單號ANDYEAR(訂購日期)=2002)建立”快速報表”.單擊"工具'向?qū)?報表”菜單項，并顯示”向?qū)нx取”對話框..在”向?qū)нx取"對話框中，選擇”報表向?qū)А辈螕簟贝_定"按鈕，并顯示”報表向?qū)А睂υ捒?.在”報表向?qū)А睂υ捒虻?步驟1-字段選取”中，首先要選取表”order-detail"，在”數(shù)據(jù)庫和表”列表框中，選擇表"order-detail"，接著在”可用字段”列表框中顯示表。rder_detail的所有字段名，并選取指定的字段名至”選定字段”列表框中，單擊”完成"按鈕..在”報表向?qū)А睂υ捒虻摹辈襟E6-完成"中，單擊“完成"按鈕，在”另存為”對話框的”保存報表為"中輸入報表名"reports,最后單擊“保存”按鈕即可.5、建立表單，文件名、表單名為myfornua,標題商品瀏覽樣式如圖，商品分類(飲料、調(diào)味品、酒類、小家電).建立表單 CREATEFORMmyform.a.在”表單設(shè)計器”中，在“屬性”的Caption處輸入”商品瀏覽"，在Name處輸入"myform_a"..在”表單設(shè)計器”中，添加一個選項按鈕組OptionGroupl,在“屬性”的ButtonCount處輸入“4"，并對其進行編輯,在Optionl的Caption處輸入"飲料"，在Option2的Caption處輸入"調(diào)味品“，在0ption3的Caption處輸入"酒類",在0ption2的Caption處輸入“小家電”..在”表單設(shè)計器”中，添加兩個命令按鈕，在第1個命令按鈕”屬性”的Caption處輸入"退出”，在第2個命令按鈕"屬性”的Caption處輸入”確定”..在”表單設(shè)計器“中，雙擊"Commands命令按鈕，在"Command1.Click"編輯窗口中輸入"ReleaseThisform”，接著關(guān)閉編輯窗口..在”表單設(shè)計器”中，雙擊"Command2”命令按鈕，在"Command!.Click"編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口.DOCASECASETHISFORM.OPTIONGROUP1.VALUE=1SELECT*FROM商品WHERE分類編碼=人期（SELECT分類編碼FROM分類WHERE分類名稱=“飲料”）CASETHISFORM.OPTIONGROUP1.VALUE=2SELECT*FROM商品WHERE分類編碼=A期（SELECT分類編碼FROM分類WHERE分類名稱="調(diào)味品”）CASETHISFORM.OPTIONGROUP1.VALUE=3SELECT*FROM商品WHERE分類編碼=人期（SELECT分類編碼FROM分類WHERE分類名稱=“酒類”）CASETHISFORM.OPTIONGROUP1.VALUE=4SELECT*FROM商品WHERE分類編碼=人W（SELECT分類編碼FROM分類WHERE分類名稱=“小家電”）ENDCASE6、打開SDB數(shù)據(jù)庫，建標題為查詢、文件名為testb的表單，附圖，添加學生表，自

動居中，1標簽,1文本框,1表格,2命令按鈕.新建表單 CREATEFORMtestb.在”表單設(shè)計器”中，在“屬性”的Caption處輸入”查詢”，在AutoCenter處選擇”.T.-真”..單擊”顯示'數(shù)據(jù)環(huán)境”菜單項，在”打開”對話框中雙擊表“學生表”，再單擊“關(guān)閉”來關(guān)閉”添加表或視圖”對話框..在"表單設(shè)計器-testb.sex”中，添加一個標簽Labell,在其"屬性"的Caption處輸入”學生注冊日期”..在"表單設(shè)計器-testb.sex”中，添加一個文本框Textl..在”表單設(shè)計器-testb.sex”中，添加一個表格Gridl,在其“屬性”的RecordSourceType處選擇"4-SQL說明”..在“表單設(shè)計器-testb.sex”中，添加兩個命令按鈕，在第1個命令按鈕”屬性”窗口的Caption處輸入”查詢”，在第2個命令按鈕“屬性”窗口的Caption處輸入”退出”..在”表單設(shè)計器”中，雙擊"查詢”命令按鈕，在"Commandl.Click"編輯窗口中輸入下列語句,接著關(guān)閉編輯窗口.ThisForm.Gridl.RecordSource="SELECT學號，姓名，年齡，性別，班級,注冊日期FROM學生表；WHERE注冊日期=CTOD(ALLTRIM(ThisForm.Textl.Value))ORDERBY年齡DESCINTOCURSORlsb*SELECT學號，姓名，年齡，性別，班級，注冊日期；FROM學生表；WHERE注冊日期=CTOD(ALLTRIM(ThisForm.Textl.Value))ORDER

BY年齡DESCINTOtableIsUSETABEZAPAPPENDFROMIsUSE.在”表單設(shè)計器”中，雙擊"退出"命令按鈕，在"Command2.Click"編輯窗口中輸入"ReleaseThisform"語句，接著關(guān)閉編輯窗口.7、建立視圖VIEW1,查詢每個雇員部門號、部門名、雇員號、姓名、性別、年齡和EMALL設(shè)計form2表單，設(shè)一個頁框，有部門和雇員選項卡，右下角有退出命令按鈕一、建立視圖.打開數(shù)據(jù)庫”雇員管理"OPENDATABASE雇員管理.單擊"工具'向?qū)?查詢”菜單項，并顯示”向?qū)нx取”對話框..在“向?qū)нx取"對話框中，選擇”本地視圖向?qū)А辈螕簟贝_定”按鈕,并顯示”本地視圖向?qū)А睂υ捒?.在”本地視圖向?qū)А睂υ捒虻?步驟1-字段選取”中，首先要選取表”雇員”，在”數(shù)據(jù)庫和表”列表框中，選擇表“雇員“，接著在“可用字段”列表框中顯示表“雇員”的所有字段名，并選定指定的字段名添加到”選定字段”列表框中；選擇表"部門”，接著在“可用字段”列表框中顯示表“部門”的所有字段名，并選定指定的字段名添加到“選定字段”列表框中，單擊“下一步”按鈕..在”本地視圖向?qū)А睂υ捒虻摹辈襟E2-為表建立關(guān)系”中，單擊“添加”按鈕，再單擊“完成"按鈕..在”本地視圖向?qū)А睂υ捒虻摹辈襟E5-完成"中，單擊“完成"按鈕..在“視圖名”對話框中，輸入視圖名"viewl"，再單擊“確認"按鈕，這樣視圖就生成了.二、設(shè)計表單.在命令窗口中輸入建立表單命令 CREATEFORMform2.在”表單設(shè)計器”中，在"屬性”的Caption處輸入”商品銷售數(shù)據(jù)輸入”..在”表單設(shè)計器”中，單擊鼠標右鍵,在彈出菜單中選擇“數(shù)據(jù)環(huán)境”菜單項，在”添加表或視圖”對話框中先選中表“部門”并單擊”添加"按鈕，接著再單擊”選定”框中”視圖”的按鈕，并單擊”添加”按鈕，最后接著單擊”關(guān)閉”按鈕關(guān)閉”添加表或視圖”對話框..在”表單控件”對話框中選定”頁框“控件，在”表單設(shè)計器”中建立這個“頁框”，選中這個“頁框”并單擊鼠標右鍵,在彈出菜單中選擇”編輯”菜單項，再單擊"Pagel"，在其"屬性”的Caption處輸入"部門”，接著在”數(shù)據(jù)環(huán)境”中選中”部門”表按住不放，再移動鼠標到”頁框"的”部門”處，最后松開鼠標;單擊”Page2"，在其“屬性”的Caption處輸入"雇員"，接著在”數(shù)據(jù)環(huán)境"中選中"viewl”視圖按住不放，再移動鼠標到”頁框"的“雇員”處,最后松開鼠標..在”表單設(shè)計器”的右下角，添加一個命令按鈕,在“屬性”窗口的Caption處輸入“退出“，雙擊“退出"命令按鈕，在"Commandl.Click"編輯窗口中輸入"ReleaseThisform”，接著關(guān)閉編輯窗口.8、建頂層表單myform.sex,創(chuàng)建并添加菜單mymenu,如圖，統(tǒng)計和退出訪問鍵為T、R,統(tǒng)計客戶號,客戶名，合計按合計降序一、建立菜單.建立菜單文件CREATEMENUmymenu在“新建菜單”對話框中，單擊“菜單”按鈕..在”菜單設(shè)計器-mymenu.nmx”中，在”菜單名稱"中輸入"統(tǒng)計（\<T）”，再移到下一個菜單項處中輸入”退出（\<R）”..選中”統(tǒng)計（\<T）”菜單項，在”結(jié)果"中選擇“過程”并單擊”創(chuàng)建”，在“菜單設(shè)計器-mymenu.mnx-統(tǒng)計（T）過程”中輸入下列語句：selectcustomer.客戶號，客戶名，sum（金額）as合計fromorders,customerwhereorders.客戶-^■=customer.客戶號groupbycustomer.客戶號orderby合計descintotabletabletwo.選中"退出（\<R）”子菜單項，在“結(jié)果"中選擇”過程“并單擊“創(chuàng)建”，在“菜單設(shè)計器-mymenu.mnx-退出（R）過程”中輸入下列語句：myform.release.單擊"顯示'常規(guī)選項”菜單項，在”常規(guī)選項”對話框的“頂層菜單”框中打勾，再單擊"確定”按鈕..在”菜單設(shè)計器”窗口下，單擊”菜單”菜單欄，選擇“生成”菜單項，生成"mymenu.mpr”文件.二、建立表單.新建表單 CREATEFORMmyform.在”表單設(shè)計器”中，在“屬性”的Caption處輸入”考試"，在ShowWindow處選擇”2-作為頂層表單”，雙擊InitEvent事件，在Forml.Init中輸入"domymenu.mprwiththis,"xxx”"，雙擊DestroyEvent事件，在Forml.Destroy中輸入"releasemenuxxxextended^^.9、gnht.dbf是合同管理表，編程統(tǒng)計訂貨單位數(shù)、供貨單位數(shù)、訂貨總數(shù)，結(jié)果

填入jieguo.dbf在文件progzh.prg存放內(nèi)容如下:select1usejieguoselect2usegnhtsumjhsltoasum &&計算訂貨總數(shù)indexondhdwtoaaauniqcounttoadhdw &&計算訂貨單位數(shù)indexonghdwtobbbuniqcounttoaghdw &&計算供貨單位數(shù)useselect1replacenumwithadhdw&&把訂貨單位數(shù)存放第1條記錄中skipreplacenumwithaghdw&&把供貨單位數(shù)存放第2條記錄中skipreplacenumwithasum&&把訂貨總數(shù)存入第3條記錄中l(wèi)ist&&顯示結(jié)果use10、建立表單stock-form含2表格控件grdStock_name,grdStock_sl,1關(guān)閉命令按鈕1.在命令窗口中輸入建立表單命令1.在命令窗口中輸入建立表單命令CREATEFORMstock.form.在”表單設(shè)計器”中，單擊鼠標右鍵,在彈出菜單中選擇“數(shù)據(jù)環(huán)境”菜單項，在”打開”對話框中選中表"w并單擊“確定"按鈕，再單擊”其他"按鈕，在“打開”對話框中，選擇表"stock_sl”，單擊"確定“按鈕，在”數(shù)據(jù)環(huán)境設(shè)計器”中，按住表"stock-name"字段"股票代碼”不放，再移動鼠標至表"stock.sT處，松開鼠標，在出現(xiàn)的提示信息窗口中，單擊”確定”按鈕..按住表"stock_name”，移動鼠標至”表單設(shè)計器”，松開鼠標，這樣就建立一個grdStock_name表格.按住表"stock_sl”,移動鼠標至“表單設(shè)計器”，松開鼠標,這樣就建立一個grdStock_sl表格..在”表單設(shè)計器”中添加一個命令按鈕，在"屬性”窗口的Caption處輸入”關(guān)閉”..雙擊“關(guān)閉”命令按鈕,在“Command1.Click”編輯窗口中輸入"ReleaseThisform”，接著關(guān)閉編輯窗口.11、建立表table3,學號字10、姓名字6、課程名字8、分數(shù)數(shù)5,1.編程查＜60的，分數(shù)升序?qū)W號降序一、建立表文件CREATETABLEtable3(學號C(10),姓名C(6),課程名C(8),分數(shù)N(5,l))二、在progl.prg文件中編寫如下程序：clearcloseallselect0usetable3deleallpackcopytotttselect0usetttselect0usexueshengindexon學號tag學號select0usechengjisetrelationto學號intoxueshenggotopdowhile.not.eof()if數(shù)學＜60selecttttappendblankreplace學號withxuesheng.學號，姓名withxuesheng.姓名replace課程名with“數(shù)學"，分數(shù)withchengji.數(shù)學selectchengjiendifif英語＜60selecttttappendblankreplace學號withxuesheng.學號，姓名withxuesheng.姓名replace課程名with"英語"，分數(shù)withchengji.英語selectchengjiendifif信息技術(shù)＜60selecttttappendblankreplace學號withxuesheng.學號，姓名withxuesheng.姓名replace課程名with"信息技術(shù)"，分數(shù)withchengji.信息技術(shù)selectchengjiendifskipenddoselecttttsorton分數(shù)，學號/dtotttlselecttable3appendfromtttlcloseall12、打開Ecommerce數(shù)據(jù)庫，生成報表myreport,設(shè)計表單myform,4個命令按鈕.打開數(shù)據(jù)庫 OPENDATABASEEcommerce.在命令窗口中輸入建立表單命令 CREATEFORMmyform.建立報表.單擊"工具'向?qū)?報表”菜單項，并顯示“向?qū)нx取”對話框..在”向?qū)нx取"對話框中，選擇”報表向?qū)А辈螕簟贝_定”按鈕,

并顯示”報表向?qū)А睂υ捒?.在”報表向?qū)А睂υ捒虻?步驟1-字段選取”中，首先要選取表”Customer"，在”數(shù)據(jù)庫和表”列表框中，選擇表"Customer"，接著在"可用字段”列表框中顯示表Customer的所有字段名，并選定所有字段名至“選定字段”列表框中，單擊”完成"按鈕..在“報表向?qū)А睂υ捒虻摹辈襟E6-完成"中，在”報表標題”文本框中輸入“客戶信息“，單擊“完成”..在”表單設(shè)計器”中，在"屬性”的Caption處輸入”客戶基本信息”，在Name處輸入"myform^^..在”表單設(shè)計器”中，添加四個命令按鈕，在第1個命令按鈕“屬性”窗口的Caption處輸入"女客戶信息”，在第2個命令按鈕“屬性”窗口的Caption處輸入”客戶購買商品情況”，在第3個命令按鈕"屬性”窗口的Caption處輸入”輸出客戶信息”，在第4個命令按鈕"屬性”窗口的Caption處輸入”退出”..雙擊”女客戶信息”按鈕，在“Commandl.Click”編輯窗口中"select*fromcustomerwhere性別="女”".雙擊”客戶購買商品情況”按鈕，在"Command?.Click”編輯窗口中”SELECT?FROMsb_vieww.雙擊”輸出客戶信息”按鈕，在"Command3.Click”編輯窗口中"REPORTFORMmyreportPREVIEW55.雙擊“退出"命令按鈕，在"Command/Click”編輯窗口中輸入”ThisForm.Release"，接著關(guān)閉編輯窗口.13、創(chuàng)建下拉菜單mymenu,運行會在當前VFP系統(tǒng)菜單末尾追加考試子菜單,如圖,創(chuàng)建項目myproject

一、建立菜單.建立菜單文件 CREATEMENUmymenu在"新建菜單”對話框中，單擊”菜單”按鈕..在“菜單設(shè)計器-mymenu.mnx”中，在“菜單名稱“中輸入"考試"，再單擊“創(chuàng)建"按鈕來子菜單，在“菜單名稱"中輸入“統(tǒng)計”，再移到下一個菜單項處中輸入"返回”..選”統(tǒng)計”子菜單項，在“結(jié)果"中選擇“過程"并單擊“創(chuàng)建“，在”菜單設(shè)計器-mymenu.mnx-統(tǒng)計過程”中輸入下列語句：selectyear（簽訂日期）as年份,month（簽訂日期）as月份，sum（金額）as合計fromordersgroupby年份，月份orderby年份desc,月份intotabletabletwo.選”返回”子菜單項，在“結(jié)果"中選擇“過程”并單擊“創(chuàng)建“，在”菜單設(shè)計器-mymenu.mnx-返回過程”中輸入下列語句：setsysmenunosavesetsysmenutodefault.單擊"顯示'常規(guī)選項”菜單項，在“常規(guī)選項”對話框的”位置”框中選中“追加“單選鈕，再單擊"確定”按鈕..在”菜單設(shè)計器”窗口下，單擊”菜單”菜單欄，選擇“生成”菜單項，生成"mymenu.mpr”文件.二、創(chuàng)建項目.新建項目文件CREATEPROJECTmyproject.在"項目設(shè)計器-Myproject”中，單擊“其他”選項卡并選中“菜單”項，單擊"添加"按鈕，在"添加”對話框中雙擊"mymenu.mnx”..在”項目設(shè)計器-Myproject”中，單擊”連編“按鈕，在“連編選項”對話框中單擊“確定”按鈕，在“另存為”中輸入文件名"myproject"，最后單擊”保存”按鈕.14、設(shè)計mystock的表單,表單的標題為股票持有情況,2文本框2命令按鈕.在命令窗口中輸入建立表單命令 CREATEFORMmystock.在"表單設(shè)計器-mystock.sex”中，在"屬性"的Caption處輸入”股票持有情況”，在Name處輸入"mystock"..在“表單設(shè)計器-mystock.sex”中，添加兩個文本框("Textl*和”Text2")..在“表單設(shè)計器-mystock.sex”中，添加兩個命令按鈕，單擊第1個命令按鈕在“屬性”的Caption處輸入"查詢”，單擊第2個命令按鈕在"屬性”的Caption處輸入”退出”..雙擊“查詢”命令按鈕，在"Commandl.Click^^編輯窗口中輸入命令組,接著關(guān)閉編輯窗口.pinyin=alltrim(thisform.textl.value)opendatabasestockusestock-namelocatefor漢語拼iffound()select持有數(shù)量，股票簡稱fromstock.sl,stock-name;where漢語拼音=pinyinandstock_sl.股票代碼=$1：0^￡-皿1110.股票代碼;intoarrayathisform.textl.value=a[2]thisform.text2.value=a[1]elsewait“沒有查詢到，請重輸"windowtimeout2endif.雙擊"退出"命令按鈕，在"Command2.Click"編輯窗口中輸入"ReleaseThisform”，接著關(guān)閉編輯窗口.15、建立表單,文件名表單名為myform有表格控件,文本控件，命令按鈕,運行并計算筆記本和計算機產(chǎn)品部銷售額利潤.在命令窗口中輸入建立表單命令 CREATEFORMmyform.在”表單設(shè)計器”中，在其"屬性”的Name處輸入"myform^^..在”表單設(shè)計器”中，分別添加一個文本框Textl和表格Gridl..在”表單設(shè)計器”中，添加一個命令按鈕Commandl,在其命令按鈕的”屬性”的Caption處輸入”確定”..雙擊“確定“按鈕，在"Commandl.Click"編輯窗口中輸入下列程序dn=thisform.textl.valueSELECTSell.年度，SUM（Sell.銷售額）銷售額，；SUM（Sell.銷售額）-SUM（Sell.工資額）利潤；FROMsellwhere部門號in;（select部門號fromdeptwhere部門名=dn）;GROUPBYSell.年度intodbf&dnthisform.gridl.recordsource=dn16、創(chuàng)建自由表tablethree,姓名c6,最高金額n6.2,最低金額n6.2,平均金額n6.2,設(shè)計表單formtwo,表格名Gridl,查詢統(tǒng)計按鈕名Commandl…如圖，運行統(tǒng)計趙小青和吳偉軍簽單金額一、建立表文件CREATETABLEtablethree(姓名C(6),最高金額N(6,2),最低金額N(6,2),平均金額N(6,2))二、建立表單.使用命令建立表單 CREATEFORMformtwo.在”表單設(shè)計器”中，在“屬性”的Caption處輸入”綜合應(yīng)用”..在”表單設(shè)計器”中，添加一個表格控件(Gridl)，在“屬性”的RecordSourceType處選擇"4-SQL說明”，再添加一個文本框(Textl)..在"表單設(shè)計器”中，添加兩個命令按鈕(Commandl和Command2),單擊第1個命令按鈕在“屬性”的Caption處輸入”查詢統(tǒng)計”，單擊第2個命令按鈕在“屬性”的Caption處輸入”退出”..雙擊“查詢統(tǒng)計"命令按鈕，在"Commandl.Click”編輯窗口中輸入命令組，接著關(guān)閉編輯窗口.settalkoffThisform.Gridl.RecordSource="select訂單號，金額；fromemployeejoinorderonEmployee.職員號=Order.職員號；whereemployee.姓名=a11trim(thisform.textl.value);orderby金額intocursorIsb”selectIsbgotop1111=金額

gobottomma=金額average金額toavselecttablethreeappendblankreplace姓名withalltrim(thisfonn.textl.value),最高金額withma,最低金額withmi,平均金額withavsettalkon.雙擊“退出”命令按鈕,在“Command2.Click"編輯窗口中輸入"ReleaseThisform”，并關(guān)閉編輯窗口.17、建表單文件名和表單控件名為myform_db,標題為數(shù)據(jù)瀏覽和維護，如圖，選項按鈕組選擇職工表或訂單表，復(fù)選框控件確定是否需要存盤….在命令窗口中輸入建立表單命令 CREATEFORMmyform.db.在”表單設(shè)計器”中，在其"屬性”的Name處輸入"myform_dbn,在Caption處輸入”數(shù)據(jù)瀏覽和維護”..在”表單設(shè)計器”中,建立"選項按鈕組”，并在選定它且單擊右鍵，再選擇“編輯”項，接著選定Option"在其Caption處輸入”職工表(employee)”,接著選定0ption2,在其Caption處輸入”訂單表(orders)”，在”表單設(shè)計器”中,建立”復(fù)選框”，并在其屬性的Caption處輸入”存盤”.在“表單設(shè)計器“中，添加兩個命令按鈕(Commandl和Command2)，在第1個命令按鈕Commandl”屬性”窗口的Caption處輸入“確定”，在第2個命令按鈕Command2”屬性”窗口的Caption處輸入”退出”.

雙擊”確定"命令按鈕，在"Commandl.Click”編輯窗口中輸入命令組,接著關(guān)閉編輯窗口.IFthisform.optiongroupl.optionl.value=lIFthisform.checkl.value=lSELECT*FROMemployeeINTOTABLEtempELSESELECT?FROMemployeeENDIFELSEIFthisform.checkl.value=2SELECT*FROMordersINTOTABLEtempELSESELECT*FROMordersENDIFENDIF雙擊“退出"命令按鈕，在"Command2.Click"編輯窗口中輸入”ThisForm.Release”,接著關(guān)閉編輯窗口.18、創(chuàng)建下拉式菜單mymenu.mnx,運行菜單時會在當前VFP菜單幫助子菜單前插入考試子菜單,如圖,統(tǒng)計以組為單位求訂單金額的和..建立菜單文件CREATEMENUmymenu在“新建菜單”對話框中，單擊“菜單”按鈕..在“菜單設(shè)計器-mymenu.mnx”中，在“菜單名稱“中輸入“考試"，再單擊”創(chuàng)建"按鈕來子菜單，在“菜單名稱“中輸入“統(tǒng)計”，再移到下一個菜單項處中輸入"返回”..選”統(tǒng)計”子菜單項，在”結(jié)果"中選擇“過程"并單擊“創(chuàng)建“，在”菜單設(shè)計器-mymenu.mnx-統(tǒng)計過程”中輸入下列語句：closedatauseemployeecopytotmplfield組別，姓名for職務(wù)="組長”select組別，sum（金額）as合計fromorders,employeewhereorders.職員號=employee.職員號groupby組別intocursortmp2selecttmp2.組別，姓名as負責人，合計fromtmpl,tmp2wheretmpl.組別=tmp2.組別orderby合計descintotabletabletwo.選”返回”子菜單項，在“結(jié)果"中選擇“過程”并單擊“創(chuàng)建“，在”菜單設(shè)計器-mymenu.mnx-統(tǒng)計過程”中輸入下列語句：setsysmenunosavesetsysmenutodefault.單擊"顯示'常規(guī)選項”菜單項，在”常規(guī)選項”對話框的”位置”框中選中”在...之前”單選鈕，在后面的列表框選擇“幫助”，再單擊"確定”按鈕..在”菜單設(shè)計器”窗口下，單擊”菜單”菜單欄，選擇“生成”菜單項，生成"mymenu.mprn文件.19、基于數(shù)據(jù)庫pdtmng建如圖頂層表單,文件名myform.sex,控件名為goods,表單標題為"商品"；1表格控件Gridl,建條形菜單mymenu.mnx,在表單Load事件執(zhí)行菜單程序mymenu.mpr一、建立表單.建立表單CREATEFORMmyform.在”表單設(shè)計器”中，在其“屬性”的Name處輸入"goods"，在Caption處輸入“商品"，在ShowWindow處選擇”2-作為頂層表單"，雙擊"LoadEvent”，在"goods.Loadw編輯窗口中輸入"domymenu.mprw..在“屬性“中，雙擊"InitEvent"，在"myform.Initw編輯窗口中輸入"domymenu.mprwiththis,'xxxz"，啟動菜單命令..在"屬性"中，雙擊"DestroyEvent,在“myform.Destroy”編輯窗口中輸入"releasemenuxxxextended”,在表單退出時釋放菜單..在”表單設(shè)計器”中，添加一個表格控件Grid"在其"屬性”的RecordSourceType處選擇"4-SQL說明”.二、建立菜單.單擊"文件'新建”命令項..在”新建”對話框中選擇”菜單”單選鈕，再按“新建文件”按鈕..在”新建菜單”對話框中選擇“菜單”按鈕,在菜單設(shè)計器中的”菜單名稱”中依次輸入”商品分類“和”退出”這兩個主菜單項，然后選擇”商品分類”菜單項，在“結(jié)果"中選擇“子菜單"，單擊“創(chuàng)建“按鈕，在”菜單設(shè)計器”中，輸入兩個子菜單項“小家電“、“飲料"和“酒類”..在”小家電”子菜單的“結(jié)果”選擇“過程”并輸入命令下列語句myform.gridl.recordsource="select*fromproductswhere分類編碼=，4001/intocursorlsbw.在”飲料”子菜單的“結(jié)果”選擇“過程”并輸入命令下列語句myform.gridl.recordsource="select*fromproductswhere分類編碼='1001'intocursorIsb".在“酒類”子菜單的“結(jié)果”選擇“過程”并輸入命令下列語句

myform.gridl.recordsource="select*fromproductswhere分類編碼='3001/intocursorIsb”.在”退出”主菜單的“結(jié)果”選擇”過程”并輸入下列命令myform.releasesetsysmenutodefault.單擊”顯示/常規(guī)選項“，在“常規(guī)選項”對話框中選中”頂層表單”..單擊工具欄上“保存”按鈕，在彈出“保存”對話框中輸入"mymenu"即可..在”菜單設(shè)計器”窗口下，單擊”菜單”菜單欄，選擇”生成”菜單項,生成"mymenu.mpr"文件.20、打開student數(shù)據(jù)庫，添加表student、score和ourse,建視圖viewsc,包括4個字段;建報表,簡報式，報表文件名three.frx,打開表單文件three,完成操作,運行表單three,并一定通過生成數(shù)據(jù)命令按鈕產(chǎn)生result.dbf表文件.第1小題OPENDATABASEstudentADDTABLEstudentADDTABLEscoreADDTABLEcourse第2小題.打開并修改數(shù)據(jù)庫 MODIFYDATABASEstudent.單擊"文件'新建”菜單項，在“新建”對話框中選擇“視圖”單選鈕,再單擊”新建文件”.在“添加表或視圖”對話框中，雙擊表"student"，再雙擊表"score”，在"聯(lián)接條件”對話框中直接單擊“確定”按鈕,再雙擊表"course”,

在”聯(lián)接條件”對話框中直接單擊"確定”按鈕，把這三個表文件添加到”視圖設(shè)計器”中，接著單擊“關(guān)閉”按鈕，來關(guān)閉”添加表或視圖”對話框..單擊”字段”選項卡，選擇試題要求的字段添加到“選定字段”列表框中..保存該視圖，在“保存”對話框中輸入視圖名"viewsc”.第3小題.單擊"工具'向?qū)?報表”菜單項，并顯示“向?qū)нx取”對話框..在”向?qū)нx取"對話框中，選擇”報表向?qū)А辈螕簟贝_定”按鈕，并顯示”報表向?qū)А睂υ捒?.在“報表向?qū)А睂υ捒虻?步驟1-字段選取”中，首先要選取視圖"viewsc”,在”數(shù)據(jù)庫和表”列表框中，選擇表"viewsc"，接著在”可用字段”列表框中顯示表viewsc的所有字段名，并選定指定的字段名，再單擊"下一步”按鈕..在“報表向?qū)А睂υ捒虻摹辈襟E2-分組記錄”中，單擊“下一步”..在”報表向?qū)А睂υ捒虻摹辈襟E3-選擇報表樣式”中，選擇“簡報式”，再單擊“完成"按鈕..在”報表向?qū)А睂υ捒虻摹辈襟E6-完成"中，單擊“完成”..顯示“另存為"對話框，輸入保存報表為"three"，并單擊"保存”按鈕.第4小題.雙擊”生成數(shù)據(jù)“按鈕，在"Commandl.Click"編輯窗口中輸入下列語句：select*fromviewscorderby學號，成績descintodbfresult.雙擊”運行報表“按鈕，在"Command2.Click"編輯窗口中輸入下列語

句:reportformthreepreview.雙擊“退出“按鈕，在"Command3.Click"編輯窗口中輸入下列語句：thisform.release21、建表單，如圖，完成計算器功能,文件名和表單控名為calculator,標題計算器,運行時,分別在操作數(shù)1和操作數(shù)2下的文本框中輸入數(shù)字,通過選項組選擇計算方法,單擊命令按鈕顯示計算結(jié)果，用DOCASE語句判斷分類.建立表單CREATEFORMcalculator.在"表單設(shè)計器“中，在其"屬性"的Name處輸入"calculator”,在Caption處輸入”計算器”..在”表單設(shè)計器”中,依次建立三個Labell、Label2和Label3的標簽，并分別修改其標題Caption的值，依次為"操作數(shù)1”、”操作數(shù)2"和”計算結(jié)果”..在”表單設(shè)計器”中，依次建立三個Textl、Text2和Text3的文本框，再對Text3的Enable屬性選擇”.F."..在”表單設(shè)計器”中，添加一個”選項按鈕組"，在其"屬性”的ButtonCount處輸入“4"，調(diào)整這四個按鈕的排列位置以及各個Caption的值..在"表單設(shè)計器”中，添加兩個命令按鈕（Commandl和Command?）,在第1個命令按鈕Commandl”屬性”的Caption處輸入"計算“，在第2個命令按鈕Command2w屬性”的Caption處輸入"關(guān)閉".雙擊“計算"按鈕，在“Commandl.Click"編輯窗口中輸入下列程序docasecasethisForm.optiongroupl.value=l

thisForm.Text3.Value=val(thisForm.Textl.Value)+val(thisForm.Text2.Value)casethisForm.optiongroupl.value=2thisForm.Text3.Value=val(thisForm.Textl.Value)-val(thisForm.Text2.Value)casethisForm.optiongroupl.value=3thisForm.Text3.Value=val(thisForm.Textl.Value)*val(thisForm.Text2.Value)casethisForm.optiongroupl.value=4thisForm.Text3.Value=val(thisForm.Textl.Value)/val(thisForm.Text2.Value)endcase雙擊”關(guān)閉”命令按鈕，在"Command2.Click"編輯窗口中輸入”ThisForm.Release"，接著關(guān)閉編輯窗口.22、打開”點菜”數(shù)據(jù)庫，創(chuàng)建表單，標題查詢、文件名testB,如圖，1標簽、1文本框、1表格、3命令按鈕.打開數(shù)據(jù)庫 OPENDATABASE點菜.在命令窗口中輸入建立表單命令 CREATEFORMtestb.在”表單設(shè)計器”中，在其"屬性”的Caption處輸入”查詢”..在”表單設(shè)計器”中，添加一個標簽Label"在其"屬性”的Caption處輸入”結(jié)帳日期”..在”表單設(shè)計器”中，分別添加一個文本框Textl和表格Gridl..在"表單設(shè)計器“中，添加三個命令按鈕(Commandl、Command2和Command3),在第1個命令按鈕Commandl”屬性"窗口的Caption處輸入"查詢”，在第2個命令按鈕Command2”屬性”窗口的Caption處輸入”顯示”，在第3個命令按鈕Command3”屬性”窗口的Caption處輸入”退出”..雙擊“查詢“按鈕，在"Commandl.Click"編輯窗口中輸入下列程序dd=CTOD(ThisForm.Textl.Value)SELECT顧客序號，顧客姓名，單位，消費金額FROM結(jié)帳表；WHERE結(jié)帳日期=dd;ORDERBY消費金額DESC;INTOTABLEtabc.雙擊“顯示”按鈕，在"Command?.Click”編輯窗口中輸入下列程序ThisForm.Gridl.RecordSourceType=0ThisForm.Gridl.RecordSource=utabc^^.雙擊"退出"命令按鈕，在"Command3.Click"編輯窗口中輸入”ThisForm.Releasen，接著關(guān)閉編輯窗口.23、打開數(shù)據(jù)庫SDB,設(shè)計sform表單,文件名SDISPLAY,標題學生課程教師基本信息瀏覽，包含三個選項卡的頁框控件、一個“退出”按鈕..建立表單 CREATEFORMsdisplay.在”表單設(shè)計器”中，在“屬性”的Caption處輸入”學生課程教師基本信息瀏覽"，在Name處輸入"sform"，在Height處輸入"280”，在Width處輸入”

450”，在AutoCenter處選擇”.T.”..在”表單設(shè)計器”中，單擊鼠標右鍵,在彈出菜單中選擇"數(shù)據(jù)環(huán)境"，在”數(shù)據(jù)環(huán)境設(shè)計器-sdisplay.sex”中，在"打開"對話框中，選擇"student.dbf”表，接著在”添加表或視圖”的對話框中，雙擊表"course"，再在"添加表或視圖”的對話框中，雙擊表"teacher"，再按"關(guān)閉”按鈕,關(guān)閉”添加表或視圖”對話框..在“表單設(shè)計器“中，添加一個頁框Pageframel,在其"屬性"的PageCount處輸入"3"，在Left處輸入"18"，在Top處輸入"10"，在Height處輸入"230”，在Width處輸入"420”.選中Pagel,在其“屬性”的Caption處輸入”學生表”，選中Page2,在其"屬性”的Caption處輸入”課程表"，選中Page3,在其“屬性”的Caption處輸入”教師表”..在”表單設(shè)計器”中，添加一個命令按鈕，在其"屬性”的Caption處輸入“退出“，雙擊"Commandl"命令按鈕，在"Commandl.Click"編輯窗口中輸入"ReleaseThisform”,接著關(guān)閉編輯窗口..選中”學生表”頁,打開”數(shù)據(jù)環(huán)境“，按住"student”不放,拖至”學生表”頁左上角處松開鼠標;選中”課程表”頁,打開“數(shù)據(jù)環(huán)境“，按住“course”不放,拖至”課程表”頁左上角處松開鼠標;選中”教師表”頁,打開”數(shù)據(jù)環(huán)境”，按住"teacher”不放,拖至"教師表”頁的左上角處松開鼠標.24、編程計算01組歌手的得分將結(jié)果存入自由表FINAL.DBF.含2個字段，得分取平均值,得分、歌手姓名降序,程序存儲在two.prg中；建文件名和表單名為score_form的表單,添加一個命令按鈕,標題計算,Click事件調(diào)用two.prg程序，運行表單,執(zhí)行two程序;建一個項目score-project,將自由表歌手表、評委表和評分表以及表單score_form加入該項目，然后將項目文件連編成應(yīng)用程序文件

score.app.一、在two.prg文件中編寫下列程序select歌手姓名，avg（分數(shù)）as得分from歌手表，評分表;where歌手表.歌手編號=評分表.歌手編號andleft（歌手表.歌手編號，2）="01”;groupby歌手表.歌手編號；orderby得分desc,歌手姓名descintotablefinal二、建立表單.在命令窗口中輸入建立表單命令 CREATEFORMscore-form.在其"屬性"的Name處輸入"score_form"..在”表單設(shè)計器”中，添加一個命令按鈕Commandl,在其"屬性”的Caption處輸入”計算”..雙擊“計算“按鈕，在"Command1.Click"編輯窗口中輸入"dotwo”，并關(guān)閉編輯窗口.三、建立項目文件.在命令窗口中輸入建立項目文件 CREATEPROJECTscore-project.在”項目管理器”中，單擊“數(shù)據(jù)”選項卡，接著選中“自由表”，依次單擊"添加“按鈕，在“打開”對話框中，雙擊“歌手表"、”評委表”和”評分表”..在”項目管理器”中，單擊“文檔”選項卡，接著選中“表單“，單擊”添加"按鈕，在"打開"對話框中，雙擊"score-form”..在”項目管理器”中，單擊“連編”按鈕，在“連編選項”對話框中，單

擊”連編應(yīng)用程序”單選鈕，再單擊“確定”按鈕，在”另存為”對話框的”應(yīng)用程序名“處輸入“score_app^^..最后關(guān)閉”項目管理器”.25、建表單，表單名、文件名均為myform,如圖2,標題評委打分情況，有兩個命令按鈕,生成表和退出，兩個單選鈕,按評分升序和按評分降序,按評分升序依次按最高分、最低分和平均分3個字段升序排序生成表six_a,反之生成表six-d..在命令窗口中輸入建立表單命令 CREATEFORMmyform.在”表單設(shè)計器”中，在其"屬性”的Caption處輸入”評委打分情況”..在”表單控件”對話框中選定”選項按鈕組”控件,在其”屬性”的Name處輸入"myOption”選中這個選項組并單擊鼠標右鍵,在彈出菜單中選擇“編輯”菜單項,再單擊”O(jiān)ptions,在其"屬性”窗口的Caption處輸入”按評分升序”；單擊"0ption2"，在其“屬性”窗口的Caption處輸入”按評分降序”..在"表單設(shè)計器”中，添加兩個命令按鈕（Commandl和Command2）,單擊第1個命令按鈕在“屬性”的Caption處輸入”生成表”，單擊第2個命令按鈕在”屬性”的Caption處輸入”退出”..雙擊“計算”命令按鈕，在"Commandl.Click”編輯窗口中輸入命令組,接著關(guān)閉編輯窗口.IFthisform.optiongroupl.optionl.value=lSELECT*FORMresult;ORDERBY最高分，最低分,平均分；INTOdbfsix_aELSESELECT*FORMresult;ORDERBY最高分DESC，最低分DESC，平均分DESC;INTOdbfsix_dENDIF.雙擊“退出”命令按鈕,在“Command2.Click"編輯窗口中輸入"ReleaseThisform”，關(guān)關(guān)閉編輯窗口.26、設(shè)計文件名和表單名為myaccount的表單.標題為外匯持有情況.1選項按鈕組控件,1表格控件,2命令按鈕查詢和退出.選項按鈕組控件有兩個按鈕現(xiàn)匯、現(xiàn)鈔..建立表單 CREATEFORMmyaccount.在”表單設(shè)計器”中，在"屬性”的Caption處輸入”外匯持有情況”，在Name處輸入"myaccount”..在”表單設(shè)計器”中，添加一個選項按鈕組,在其“屬性”的Name處輸入”myOptionw,接著對其進行編輯,在Optionl的Caption處輸入“現(xiàn)匯”，在0ption2的Caption處輸入"現(xiàn)鈔"..在”表單設(shè)計器”中，添加兩個命令按鈕，在第1個命令按鈕”屬性”的Caption處輸入”查詢”，在第2個命令按鈕"屬性”的Caption處輸入”退出”..在”表單設(shè)計器”中，雙擊"Command2"按鈕，在"Command2.Click"編輯窗口輸入"ReleaseThisform”,關(guān)閉編輯窗口..在”表單設(shè)計器”中，添加一個表格Gridl,在其“屬性”的RecordSourceType處選擇"4-SQL說明”..在”表單設(shè)計器”中，雙擊”Commands命令按鈕，在"Command1.Clickw編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口.thisform.gridl.recordsource="select*from外匯賬戶where鈔匯標志='u+iif(thisform.myOption.value=l,"現(xiàn)匯","現(xiàn)鈔")+”'intocursorlsbw27、打開表單文件sapp,添加課程表，使Listl中數(shù)據(jù)項為課程名，單擊列表框的數(shù)據(jù)項時,統(tǒng)計選修了所選課程的學生人數(shù)并將結(jié)果存儲在以課程名命名的表中字段人數(shù),添加一個命令按鈕Commandl,單擊該按鈕時關(guān)閉表單..打開并修改表單 MODIFYFORMsapp.在”表單設(shè)計器”中，單擊鼠標右鍵，并在彈出菜單中選擇“數(shù)據(jù)環(huán)境”，并顯示”數(shù)據(jù)環(huán)境設(shè)計器-sapp.sex”窗口..在此窗口中再單擊鼠標右鍵,在彈出菜單中選擇“添加”菜單項，在”添加表或視圖”窗口中選擇表”課程“，單擊”添加"按鈕，再單擊“關(guān)閉”按鈕..在”表單設(shè)計器”，選定Listl控件，在"屬性”的RowSourceType處選擇”6-字段”，在RowSource處選擇”課程.課程名”..在”表單設(shè)計器”中，選定Listl控件,雙擊“屬性”的ClickEvent事件,在“Listl.Click"編輯窗口中，輸入下列語句：aa=課程.課程名SELECTCOUNT(*)AS人數(shù)FROM考試成績WHERE考試成績.課程編號=課程.課程編號INTOTABLE&aa.在”表單設(shè)計器”中，添加一個命令按鈕，雙擊"CommandP命令按鈕，在“Commandl.Click"編輯窗口中輸入"ReleaseThisform”，接著關(guān)閉編輯窗口.28、建立表單,文件名和表單名為myform,包括1列表框,2命令按鈕標題為“計算”和"退出".列表框顯示組號，通過RowSource和RowSourceType屬性手工指定顯示條目為01、02、03、04.為計算按鈕編寫程序.當表單運行時，根據(jù)列表框中選定的”組號“，將“評分表”中該組歌手的所有記錄存入自由表two.dbf,two.dbf的表結(jié)構(gòu)與“評分表”相同,表按歌手編號降序、分數(shù)升序，運行表單，在列表框中指定組號“01”，并且單擊”計算”命令按鈕..建立表單CREATEFORMmyform.在”表單設(shè)計器”中，添加一個列表框Listl,在其"屬性”的RowSourceType處選擇"1-值"，在RowSource處輸入“01,02,03,04"..在”表單設(shè)計器”中，添加一個文本框Textl..在"表單設(shè)計器”中，添加兩個命令按鈕（Commandl和Command?）,在第1個命令按鈕Commandl”屬性”窗口的Caption處輸入”計算”，在第2個命令按鈕Command2”屬性”窗口的Caption處輸入”退出”..雙擊“退出"命令按鈕，在"Command2.Click"編輯窗口中輸入”ThisForm.Release55，接著關(guān)閉編輯窗口..雙擊“查詢”命令按鈕，在"Commandl.Click"編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口.num=ThisForm.listl.valueSELECT*FROM評分表WHEREleft（歌手編號，2）=num;Orderby歌手編號desc,分數(shù)intodbftwo29、打開公司銷售數(shù)據(jù)庫SELLDB,設(shè)計表單名Fonn_one、文件名SD_SELECT、標題名部門年度數(shù)據(jù)查詢，界面如圖，為表單建立數(shù)據(jù)并添加S-T表，在"年度”標簽右邊微調(diào)控件中選擇年度并單擊“查詢”按鈕時，會在表格控件內(nèi)顯示該年度各部門四個季度的銷售額和利潤.指定微調(diào)控件上箭頭與下箭頭值范圍為2010-1999,缺省值為2003,增量為1.在”表單設(shè)計器”中，在"屬性”的Caption處輸入”部門年度數(shù)據(jù)查詢”,在Name處輸入"form-one”..在”表單設(shè)計器”中，單擊鼠標右鍵,在彈出菜單中選擇"數(shù)據(jù)環(huán)境"，在”數(shù)據(jù)環(huán)境設(shè)計器-sd_select.sex”中，在"打開”對話框中，選擇"s.t.dbP表,接著在“添加表或視圖”的對話框中，按”關(guān)閉”按鈕,關(guān)閉”添加表或視圖”對話框..在”表單設(shè)計器”中，添加一個標簽Label"在其"屬性”的Caption處輸入“年度”..在”表單設(shè)計器”中，添加一個微調(diào)控件Spinnerl,在其“屬性”的SpinnerHighValue處輸入”2010.00"，在SpinnerLowValue處輸入”1999.00",在Value處輸入“2003”..在”表單設(shè)計器”中，添加兩個命令按鈕，在第1個命令按鈕”屬性”的Caption處輸入”查詢”，在第2個命令按鈕"屬性”的Caption處輸入”退出”..在”表單設(shè)計器“中，雙擊"Command2^^按鈕，在"Command?.Click”編輯窗口輸入"ReleaseThisform”,關(guān)閉編輯窗口..在”表單設(shè)計器”中，添加一個表格Gridl,在其“屬性”的RecordSourceType處選擇"4-SQL說明”..在”表單設(shè)計器”中，雙擊"Command^命令按鈕，在"Command1.Click"編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口.ThisForm.Gridl.RecordSource="select*froms_twhere年度='l<+str(thisform.Spinnerl.value,4,0)+M'intocursorIsb”30、打開“賓館”數(shù)據(jù)庫，創(chuàng)建test表單，如圖，1標簽標題退房日期大于或等于、1文本框用于輸入退房日期、2命令按鈕,查詢退房日期工輸入日期…價格降序，退出，設(shè)計完成運行查詢退房日期三2005-04-01的顧客信息..建立表單CREATEFORMtest.在”表單設(shè)計器”中，添加一個標簽Label"在其"屬性”的Caption處輸入”退房日期大于或等于”..在”表單設(shè)計器”中，添加一個文本框Textl..在"表單設(shè)計器”中，添加兩個命令按鈕(Commandl和Command?),在第1個命令按鈕Commandl”屬性”窗口的Caption處輸入“查詢”，在第2個命令按鈕Command2”屬性”窗口的Caption處輸入”退出”..雙擊“退出"命令按鈕，在"Command!.Click"編輯窗口中輸入”ThisForm.Release"，接著關(guān)閉編輯窗口..雙擊“查詢”命令按鈕，在"Commandl.Click"編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口.dd=Al1trim(ThisForm.Textl.Value)SELECT客戶.客戶號，客戶.身份證，客戶.姓名，客戶.工作單位，入住.客房號，房價.類型名，房價.價格；FROM客戶INNERJOIN入住；INNERJOIN客房；INNERJOIN房價;ON房價.類型號=客房.類型號；ON客房.客房號=入住.客房號；ON客戶.客戶號=入住.客戶號；WHERE入住.退房日期"CTOD(dd);ORDERBY房價.價格DESC;

INTOTABLEtabd.dbf31、打開數(shù)據(jù)庫SDB,創(chuàng)建tform表單，設(shè)計2命令按鈕,查詢用SQL查詢選課數(shù)量工4且平均成績二75的學號、姓名、平均成績和選課門數(shù)，平均成績降序，退出.建立表單CREATEFORMtform.在”表單設(shè)計器”中，添加兩個命令按鈕，在第1個命令按鈕"屬性”窗口的Caption處輸入”查詢”，在第2個命令按鈕"屬性”窗口的Caption處輸入”退出”..在”表單設(shè)計器”中，雙擊"Commandl^^命令按鈕，在"Command1.Click"編輯窗口中輸入SQL的SELECT命令查詢語句，接著關(guān)閉編輯窗口.SELECTStudent.學號，姓名，AVG(成績)AS平均成績，；COUNT(*)AS選課門數(shù)FROMStudent,ScGROUPBYSc.學號;HAVINGCOUNT(?)>=4AND平均成績>=75WHEREStudent.學號=Sc.學號ORDERBY;平均成績DESCINTODBFTWO.在”表單設(shè)計器”中，雙擊"Command2^^按鈕，在"Command2.Click"編輯窗口輸入"ReleaseThisform”，關(guān)閉編輯窗口.32、建立表單如圖，表單名和文件名為myform,標題教師情況,2命令按鈕”生成表"和“退出”，2復(fù)選框“系名“和”工資”，2單選鈕”按職工號升序”和”按職工號降序”..建立表單CREATEFORMmyform.在”表單設(shè)計器”中，在“屬性”的Caption處輸入”教師情況”，在Name處輸入"myform”..在”表單設(shè)計器”中，添加兩個復(fù)選框，在第1個復(fù)選框Checkl”屬性”

的Caption處輸入”系名”，在第2個復(fù)選框Checkl”屬性”的Caption處輸入”工資”..在“表單設(shè)計器”中，添加一個選項按鈕組Optiongroupl,并在選定它且單擊右鍵，再選擇”編輯”項，接著選定Optionl,在其Caption處輸入”按職工號升序”，接著選定0ption2,在其Caption處輸入”按職工號降序”，.在"表單設(shè)計器”中，添加兩個命令按鈕（Commandl和Command?），在第1個命令按鈕Commandl”屬性”窗口的Caption處輸入“生成表”，在第2個命令按鈕Command2”屬性”窗口的Caption處輸入”退出”..雙擊“生成表”命令按鈕，在"Commandl.Click”編輯窗口中輸入命令組，接著關(guān)閉編輯窗口.IFThisForm.Checkl.Value=lAndThisForm.Check2.Value=lThenIFThisForm.Optiongroupl.Value=lThenSELECT職工號，姓名，系名，工資，課程號FROM教師表INNERJOIN學院表ON教師表.系號=學院表.系號ORDERBY職工號INTOTABLETWOELSESELECT職工號，姓名，系名，工資，課程號FROM教師表INNERJOIN學院表ON教師表.系號=學院表.系號ORDERBY職工號DESCINTOTABLETWOENDIFELSEIFThisForm.Checkl.Value=lThenIFThisForm.Optiongroupl.Value=lThenSELECT職工號，姓名，系名，課程號FROM教師表INNERJOIN學院表ON教師表.系號=學院表.系號ORDERBY職工號INTOTABLEONE,XELSESELECT職工號，姓名，系名，課程號FROM教師表INNERJOIN學院表ON教師表.系號=學院表.系號ORDERBY職工號DESCINTOTABLEONE_XENDIFELSEIfThisForm.Check2.Value=lThenIFThisForm.Optiongroupl.Value=lThenSELECT職工號，姓名，工資，課程號FROM教師表INNERJOIN學院表ON教師表.系號=學院表.系號ORDERBY職工號INTOTABLEONE.XXELSESELECT職工號，姓名，工資，課程號FROM教師表INNERJOIN學院表ON教師表.系號=學院表.系號ORDERBY職工號DESCINTOTABLEONE.XXENDIFENDIFENDIFENDIF.雙擊"退出"命令按鈕，在"Command2.Click"編輯窗口中輸入”ThisForm.Releasen，接著關(guān)閉編輯窗口.33、編程change_c,將salarys備份,備份名為bak_salarys.dbf;用人事部向財務(wù)部提供的雇員工資調(diào)整表c-salaryl,對salarys的工資進行調(diào)整;設(shè)計表單form2,上面有調(diào)整和退出兩個命令按鈕,單擊"調(diào)整”命令按鈕時,調(diào)用change_c命令程序?qū)崿F(xiàn)工資調(diào)整；.在change_c.prg文件中的內(nèi)容select*fromsalarysintotablebak_salarysselect3usec-salarylorder雇員號selectsalaryssetrelationto雇員號intoC-salarylreplaceall工資withc_salaryl.工資for雇員號=c.salaryl.雇員號setrelationto.設(shè)計表單.在命令窗口中輸入建立表單命令 CREATEFORMform?.在”表單設(shè)計器”中添加兩個命令按鈕(“調(diào)整"和”退出”).(3),雙擊“調(diào)整”命令按鈕，在"Commandl.Click"編輯窗口中輸入"dochange_c”,接著關(guān)閉編輯窗口.(4).雙擊“退出"命令按鈕，在"Command2.Click”編輯窗口中輸入"ReleaseThisform”，接著關(guān)閉編輯窗口.34、設(shè)計表單名和文件名為currency-form的表單,控件屬性必須在表單設(shè)計器屬性窗口設(shè)置，標題為外幣市值情況.2文本框、2命令按鈕查詢和退出，在textl中輸入某人的姓名，單擊查詢,則text2顯示他持全部外幣相當于人民幣的價值數(shù)量.在命令窗口中輸入建立表單命令 CREATEFORMcurrency-form.在”表單設(shè)計器”中，在"屬性”的Caption處輸入"外幣市值情況”，在Name處輸入"currency-form”..在”表單設(shè)計器”中，添加兩個文本框，名稱分別為Textl和Text2..在”表單設(shè)計器”中，添加兩個命令按鈕，單擊第1個命令按鈕在“屬性”的Caption處輸入"查詢”，單擊第2個命令按鈕在“屬性”的Caption處輸入”退出”..雙擊”查詢”命令按鈕，在"Commandl.Click”編輯窗口中輸入命令，接著關(guān)閉編輯窗口.name=alltrim(thisform.text