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

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

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

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

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

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

一、建立菜單.建立菜單文件 CREATEMENUmymenu在"新建菜單”對(duì)話框中，單擊”菜單”按鈕..在“菜單設(shè)計(jì)器-mymenu.mnx”中，在“菜單名稱“中輸入"考試"，再單擊“創(chuàng)建"按鈕來子菜單，在“菜單名稱"中輸入“統(tǒng)計(jì)”，再移到下一個(gè)菜單項(xiàng)處中輸入"返回”..選”統(tǒng)計(jì)”子菜單項(xiàng)，在“結(jié)果"中選擇“過程"并單擊“創(chuàng)建“，在”菜單設(shè)計(jì)器-mymenu.mnx-統(tǒng)計(jì)過程”中輸入下列語句：selectyear（簽訂日期）as年份,month（簽訂日期）as月份，sum（金額）as合計(jì)fromordersgroupby年份，月份orderby年份desc,月份intotabletabletwo.選”返回”子菜單項(xiàng)，在“結(jié)果"中選擇“過程”并單擊“創(chuàng)建“，在”菜單設(shè)計(jì)器-mymenu.mnx-返回過程”中輸入下列語句：setsysmenunosavesetsysmenutodefault.單擊"顯示'常規(guī)選項(xiàng)”菜單項(xiàng)，在“常規(guī)選項(xiàng)”對(duì)話框的”位置”框中選中“追加“單選鈕，再單擊"確定”按鈕..在”菜單設(shè)計(jì)器”窗口下，單擊”菜單”菜單欄，選擇“生成”菜單項(xiàng)，生成"mymenu.mpr”文件.二、創(chuàng)建項(xiàng)目.新建項(xiàng)目文件CREATEPROJECTmyproject.在"項(xiàng)目設(shè)計(jì)器-Myproject”中，單擊“其他”選項(xiàng)卡并選中“菜單”項(xiàng)，單擊"添加"按鈕，在"添加”對(duì)話框中雙擊"mymenu.mnx”..在”項(xiàng)目設(shè)計(jì)器-Myproject”中，單擊”連編“按鈕，在“連編選項(xiàng)”對(duì)話框中單擊“確定”按鈕，在“另存為”中輸入文件名"myproject"，最后單擊”保存”按鈕.14、設(shè)計(jì)mystock的表單,表單的標(biāo)題為股票持有情況,2文本框2命令按鈕.在命令窗口中輸入建立表單命令 CREATEFORMmystock.在"表單設(shè)計(jì)器-mystock.sex”中，在"屬性"的Caption處輸入”股票持有情況”，在Name處輸入"mystock"..在“表單設(shè)計(jì)器-mystock.sex”中，添加兩個(gè)文本框("Textl*和”Text2")..在“表單設(shè)計(jì)器-mystock.sex”中，添加兩個(gè)命令按鈕，單擊第1個(gè)命令按鈕在“屬性”的Caption處輸入"查詢”，單擊第2個(gè)命令按鈕在"屬性”的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“沒有查詢到，請(qǐng)重輸"windowtimeout2endif.雙擊"退出"命令按鈕，在"Command2.Click"編輯窗口中輸入"ReleaseThisform”，接著關(guān)閉編輯窗口.15、建立表單,文件名表單名為myform有表格控件,文本控件，命令按鈕,運(yùn)行并計(jì)算筆記本和計(jì)算機(jī)產(chǎn)品部銷售額利潤.在命令窗口中輸入建立表單命令 CREATEFORMmyform.在”表單設(shè)計(jì)器”中，在其"屬性”的Name處輸入"myform^^..在”表單設(shè)計(jì)器”中，分別添加一個(gè)文本框Textl和表格Gridl..在”表單設(shè)計(jì)器”中，添加一個(gè)命令按鈕Commandl,在其命令按鈕的”屬性”的Caption處輸入”確定”..雙擊“確定“按鈕，在"Commandl.Click"編輯窗口中輸入下列程序dn=thisform.textl.valueSELECTSell.年度，SUM（Sell.銷售額）銷售額，；SUM（Sell.銷售額）-SUM（Sell.工資額）利潤；FROMsellwhere部門號(hào)in;（select部門號(hào)fromdeptwhere部門名=dn）;GROUPBYSell.年度intodbf&dnthisform.gridl.recordsource=dn16、創(chuàng)建自由表tablethree,姓名c6,最高金額n6.2,最低金額n6.2,平均金額n6.2,設(shè)計(jì)表單formtwo,表格名Gridl,查詢統(tǒng)計(jì)按鈕名Commandl…如圖，運(yùn)行統(tǒng)計(jì)趙小青和吳偉軍簽單金額一、建立表文件CREATETABLEtablethree(姓名C(6),最高金額N(6,2),最低金額N(6,2),平均金額N(6,2))二、建立表單.使用命令建立表單 CREATEFORMformtwo.在”表單設(shè)計(jì)器”中，在“屬性”的Caption處輸入”綜合應(yīng)用”..在”表單設(shè)計(jì)器”中，添加一個(gè)表格控件(Gridl)，在“屬性”的RecordSourceType處選擇"4-SQL說明”，再添加一個(gè)文本框(Textl)..在"表單設(shè)計(jì)器”中，添加兩個(gè)命令按鈕(Commandl和Command2),單擊第1個(gè)命令按鈕在“屬性”的Caption處輸入”查詢統(tǒng)計(jì)”，單擊第2個(gè)命令按鈕在“屬性”的Caption處輸入”退出”..雙擊“查詢統(tǒng)計(jì)"命令按鈕，在"Commandl.Click”編輯窗口中輸入命令組，接著關(guān)閉編輯窗口.settalkoffThisform.Gridl.RecordSource="select訂單號(hào)，金額；fromemployeejoinorderonEmployee.職員號(hào)=Order.職員號(hào)；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,標(biāo)題為數(shù)據(jù)瀏覽和維護(hù)，如圖，選項(xiàng)按鈕組選擇職工表或訂單表，復(fù)選框控件確定是否需要存盤….在命令窗口中輸入建立表單命令 CREATEFORMmyform.db.在”表單設(shè)計(jì)器”中，在其"屬性”的Name處輸入"myform_dbn,在Caption處輸入”數(shù)據(jù)瀏覽和維護(hù)”..在”表單設(shè)計(jì)器”中,建立"選項(xiàng)按鈕組”，并在選定它且單擊右鍵，再選擇“編輯”項(xiàng)，接著選定Option"在其Caption處輸入”職工表(employee)”,接著選定0ption2,在其Caption處輸入”訂單表(orders)”，在”表單設(shè)計(jì)器”中,建立”復(fù)選框”，并在其屬性的Caption處輸入”存盤”.在“表單設(shè)計(jì)器“中，添加兩個(gè)命令按鈕(Commandl和Command2)，在第1個(gè)命令按鈕Commandl”屬性”窗口的Caption處輸入“確定”，在第2個(gè)命令按鈕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,運(yùn)行菜單時(shí)會(huì)在當(dāng)前VFP菜單幫助子菜單前插入考試子菜單,如圖,統(tǒng)計(jì)以組為單位求訂單金額的和..建立菜單文件CREATEMENUmymenu在“新建菜單”對(duì)話框中，單擊“菜單”按鈕..在“菜單設(shè)計(jì)器-mymenu.mnx”中，在“菜單名稱“中輸入“考試"，再單擊”創(chuàng)建"按鈕來子菜單，在“菜單名稱“中輸入“統(tǒng)計(jì)”，再移到下一個(gè)菜單項(xiàng)處中輸入"返回”..選”統(tǒng)計(jì)”子菜單項(xiàng)，在”結(jié)果"中選擇“過程"并單擊“創(chuàng)建“，在”菜單設(shè)計(jì)器-mymenu.mnx-統(tǒng)計(jì)過程”中輸入下列語句：closedatauseemployeecopytotmplfield組別，姓名for職務(wù)="組長”select組別，sum（金額）as合計(jì)fromorders,employeewhereorders.職員號(hào)=employee.職員號(hào)groupby組別intocursortmp2selecttmp2.組別，姓名as負(fù)責(zé)人，合計(jì)fromtmpl,tmp2wheretmpl.組別=tmp2.組別orderby合計(jì)descintotabletabletwo.選”返回”子菜單項(xiàng)，在“結(jié)果"中選擇“過程”并單擊“創(chuàng)建“，在”菜單設(shè)計(jì)器-mymenu.mnx-統(tǒng)計(jì)過程”中輸入下列語句：setsysmenunosavesetsysmenutodefault.單擊"顯示'常規(guī)選項(xiàng)”菜單項(xiàng)，在”常規(guī)選項(xiàng)”對(duì)話框的”位置”框中選中”在...之前”單選鈕，在后面的列表框選擇“幫助”，再單擊"確定”按鈕..在”菜單設(shè)計(jì)器”窗口下，單擊”菜單”菜單欄，選擇“生成”菜單項(xiàng)，生成"mymenu.mprn文件.19、基于數(shù)據(jù)庫pdtmng建如圖頂層表單,文件名myform.sex,控件名為goods,表單標(biāo)題為"商品"；1表格控件Gridl,建條形菜單mymenu.mnx,在表單Load事件執(zhí)行菜單程序mymenu.mpr一、建立表單.建立表單CREATEFORMmyform.在”表單設(shè)計(jì)器”中，在其“屬性”的Name處輸入"goods"，在Caption處輸入“商品"，在ShowWindow處選擇”2-作為頂層表單"，雙擊"LoadEvent”，在"goods.Loadw編輯窗口中輸入"domymenu.mprw..在“屬性“中，雙擊"InitEvent"，在"myform.Initw編輯窗口中輸入"domymenu.mprwiththis,'xxxz"，啟動(dòng)菜單命令..在"屬性"中，雙擊"DestroyEvent,在“myform.Destroy”編輯窗口中輸入"releasemenuxxxextended”,在表單退出時(shí)釋放菜單..在”表單設(shè)計(jì)器”中，添加一個(gè)表格控件Grid"在其"屬性”的RecordSourceType處選擇"4-SQL說明”.二、建立菜單.單擊"文件'新建”命令項(xiàng)..在”新建”對(duì)話框中選擇”菜單”單選鈕，再按“新建文件”按鈕..在”新建菜單”對(duì)話框中選擇“菜單”按鈕,在菜單設(shè)計(jì)器中的”菜單名稱”中依次輸入”商品分類“和”退出”這兩個(gè)主菜單項(xiàng)，然后選擇”商品分類”菜單項(xiàng)，在“結(jié)果"中選擇“子菜單"，單擊“創(chuàng)建“按鈕，在”菜單設(shè)計(jì)器”中，輸入兩個(gè)子菜單項(xiàng)“小家電“、“飲料"和“酒類”..在”小家電”子菜單的“結(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ī)選項(xiàng)“，在“常規(guī)選項(xiàng)”對(duì)話框中選中”頂層表單”..單擊工具欄上“保存”按鈕，在彈出“保存”對(duì)話框中輸入"mymenu"即可..在”菜單設(shè)計(jì)器”窗口下，單擊”菜單”菜單欄，選擇”生成”菜單項(xiàng),生成"mymenu.mpr"文件.20、打開student數(shù)據(jù)庫，添加表student、score和ourse,建視圖viewsc,包括4個(gè)字段;建報(bào)表,簡報(bào)式，報(bào)表文件名three.frx,打開表單文件three,完成操作,運(yùn)行表單three,并一定通過生成數(shù)據(jù)命令按鈕產(chǎn)生result.dbf表文件.第1小題OPENDATABASEstudentADDTABLEstudentADDTABLEscoreADDTABLEcourse第2小題.打開并修改數(shù)據(jù)庫 MODIFYDATABASEstudent.單擊"文件'新建”菜單項(xiàng)，在“新建”對(duì)話框中選擇“視圖”單選鈕,再單擊”新建文件”.在“添加表或視圖”對(duì)話框中，雙擊表"student"，再雙擊表"score”，在"聯(lián)接條件”對(duì)話框中直接單擊“確定”按鈕,再雙擊表"course”,

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

句:reportformthreepreview.雙擊“退出“按鈕，在"Command3.Click"編輯窗口中輸入下列語句：thisform.release21、建表單，如圖，完成計(jì)算器功能,文件名和表單控名為calculator,標(biāo)題計(jì)算器,運(yùn)行時(shí),分別在操作數(shù)1和操作數(shù)2下的文本框中輸入數(shù)字,通過選項(xiàng)組選擇計(jì)算方法,單擊命令按鈕顯示計(jì)算結(jié)果，用DOCASE語句判斷分類.建立表單CREATEFORMcalculator.在"表單設(shè)計(jì)器“中，在其"屬性"的Name處輸入"calculator”,在Caption處輸入”計(jì)算器”..在”表單設(shè)計(jì)器”中,依次建立三個(gè)Labell、Label2和Label3的標(biāo)簽，并分別修改其標(biāo)題Caption的值，依次為"操作數(shù)1”、”操作數(shù)2"和”計(jì)算結(jié)果”..在”表單設(shè)計(jì)器”中，依次建立三個(gè)Textl、Text2和Text3的文本框，再對(duì)Text3的Enable屬性選擇”.F."..在”表單設(shè)計(jì)器”中，添加一個(gè)”選項(xiàng)按鈕組"，在其"屬性”的ButtonCount處輸入“4"，調(diào)整這四個(gè)按鈕的排列位置以及各個(gè)Caption的值..在"表單設(shè)計(jì)器”中，添加兩個(gè)命令按鈕（Commandl和Command?）,在第1個(gè)命令按鈕Commandl”屬性”的Caption處輸入"計(jì)算“，在第2個(gè)命令按鈕Command2w屬性”的Caption處輸入"關(guān)閉".雙擊“計(jì)算"按鈕，在“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、打開”點(diǎn)菜”數(shù)據(jù)庫，創(chuàng)建表單，標(biāo)題查詢、文件名testB,如圖，1標(biāo)簽、1文本框、1表格、3命令按鈕.打開數(shù)據(jù)庫 OPENDATABASE點(diǎn)菜.在命令窗口中輸入建立表單命令 CREATEFORMtestb.在”表單設(shè)計(jì)器”中，在其"屬性”的Caption處輸入”查詢”..在”表單設(shè)計(jì)器”中，添加一個(gè)標(biāo)簽Label"在其"屬性”的Caption處輸入”結(jié)帳日期”..在”表單設(shè)計(jì)器”中，分別添加一個(gè)文本框Textl和表格Gridl..在"表單設(shè)計(jì)器“中，添加三個(gè)命令按鈕(Commandl、Command2和Command3),在第1個(gè)命令按鈕Commandl”屬性"窗口的Caption處輸入"查詢”，在第2個(gè)命令按鈕Command2”屬性”窗口的Caption處輸入”顯示”，在第3個(gè)命令按鈕Command3”屬性”窗口的Caption處輸入”退出”..雙擊“查詢“按鈕，在"Commandl.Click"編輯窗口中輸入下列程序dd=CTOD(ThisForm.Textl.Value)SELECT顧客序號(hào)，顧客姓名，單位，消費(fèi)金額FROM結(jié)帳表；WHERE結(jié)帳日期=dd;ORDERBY消費(fèi)金額DESC;INTOTABLEtabc.雙擊“顯示”按鈕，在"Command?.Click”編輯窗口中輸入下列程序ThisForm.Gridl.RecordSourceType=0ThisForm.Gridl.RecordSource=utabc^^.雙擊"退出"命令按鈕，在"Command3.Click"編輯窗口中輸入”ThisForm.Releasen，接著關(guān)閉編輯窗口.23、打開數(shù)據(jù)庫SDB,設(shè)計(jì)sform表單,文件名SDISPLAY,標(biāo)題學(xué)生課程教師基本信息瀏覽，包含三個(gè)選項(xiàng)卡的頁框控件、一個(gè)“退出”按鈕..建立表單 CREATEFORMsdisplay.在”表單設(shè)計(jì)器”中，在“屬性”的Caption處輸入”學(xué)生課程教師基本信息瀏覽"，在Name處輸入"sform"，在Height處輸入"280”，在Width處輸入”

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

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

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

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

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