全国计算机二级vfp上机题内容解析_第1页
全国计算机二级vfp上机题内容解析_第2页
全国计算机二级vfp上机题内容解析_第3页
全国计算机二级vfp上机题内容解析_第4页
已阅读5页,还剩92页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

综合应用1、有表单myform,设为顶层表单,设计菜单mymenu(load),表单一浏览课程/选修课统计报表-预览报表退出一、建立菜单.单击"文件'新建”命令项..在”新建”对话框中选择”菜单”单选钮,再按“新建文件”按钮..在”新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的”菜单名称”中依次输入“表单"、”报表”和“退出”这三个主菜单项,然后选择”表单”菜单项,在”结果"中选择“子菜单",单击”创建“按钮,在”菜单设计器”中,输入两个子菜单项”浏览课程"和"浏览选课统计",选择“报表”菜单项,在”结果"中选择“子菜单",单击“创建"按钮,在”菜单设计器”中,输入一个子菜单项”预览报表”..在”浏览课程”子菜单的”结果”选择“过程”并输入命令下列语句myform.gridl.recordsource="课程".在"浏览选课统计”子菜单的“结果”选择”过程”并输入命令下列语句myform.gridl.recordsource="sview”.在”预览报表“子菜单的“结果“选择"命令”并输入命令"reportformcreportpreview"..在“退出”主菜单的”结果“选择“命令”并输入命令"myform.release"..单击工具栏上“保存”按钮,在弹出"保存”对话框中输入"mymenu”即可..在”菜单设计器”窗口下,单击“菜单”菜单栏,选择“生成”菜单项,生成"mymenu.mpr"文件.二、修改表单.输入修改表单命令 MODIFYFORMmyform.在”表单设计器”中,在其"属性”的ShowWindow处选择”2-作为顶层表单”,双击“LoadEvent",在"Forml.Load"编辑窗口中输入"domymenu.mpr",双击”InitEvent",在"myform.Init"编辑窗口中输入"domymenu.mprwiththis,'xxxz",启动菜单命令,双击"DestroyEvent,在"myform.Destroy*5编辑窗口中输入"releasemenuxxxextended”,在表单退出时释放菜单.2、正确建立order-detail表并追加记录,根据单价和数量编程修改order_list,记录存放od_mod,总金额升序closedatabaseselect1useorder-listcopystrutotmpselect2usetmpselect订单号,sum(单价*数量)asaafromorder-detailgroupby订单号orderby订单号intocursorffseleorder-listdowhile!eof()selectfflocatefor订单号=order_list.订单号iforder-list.总金额<>aaselectorder-listscatttommselecttmpappendblankgathfrommmreplace总金额withff.aaendifselectorder-listskipenddoselect♦fromtmporderby总金额intodbfod-mod3、打开SELLDB数据库,创建标题为部门销售查询,表单名Forml,文件名XS,附图2标签2文本框1表格2命令按钮.新建表单CREATEFORMxs.在”表单设计器-xs.sex”中,在"属性”的Caption处输入”部门销售查询”..在”表单设计器-xs.sex”中,添加两个标签,在第1个标签Labell”属性”的Caption处输入“部门号”,在第2个标签Labell”属性”的Caption处输入”年度”..在"表单设计器-xs.sex”中,添加两个文本框(Textl和Text2)..在”表单设计器-xs.sex”中,添加一个表格Gridl,在其“属性”的RecordSourceType处选择"4-SQL说明”..在“表单设计器-xs.sex”中,添加两个命令按钮,在第1个命令按钮”属性”窗口的Caption处输入”查询”,在第2个命令按钮“属性”窗口的Caption处输入”退出”..在”表单设计器”中,双击"查询”命令按钮,在"Commandl.Click"编辑窗口中输入下列语句,接着关闭编辑窗口.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.在”表单设计器”中,双击“退出"命令按钮,在"Command?.Click”编辑窗口中输入"ReleaseThisform"语句,接着关闭编辑窗口.4、为order_detail增加字段新单价,编程2001年90%,2002年110%,快速报表建reportl.frx.增加新字段:ALTERTABLEorder-detailADDCOLUMN新单价F(10,2)在progl.prg文件中的内容是:UPDATEorder-detailSET新单价=单价*0.9WHERE订单号=(SELECT订单号FROMorder-listWHERE订单号-order-detail.订单号ANDYEAR(订购日期)=2001)UPDATEorder-detailSET新单价=单价*1.1WHERE订单号=(SELECT订单号FROMorder-listwhere订单号=order_detail.订单号ANDYEAR(订购日期)=2002)建立”快速报表”.单击"工具'向导'报表”菜单项,并显示”向导选取”对话框..在”向导选取"对话框中,选择”报表向导”并单击”确定"按钮,并显示”报表向导”对话框..在”报表向导”对话框的"步骤1-字段选取”中,首先要选取表”order-detail",在”数据库和表”列表框中,选择表"order-detail",接着在”可用字段”列表框中显示表。rder_detail的所有字段名,并选取指定的字段名至”选定字段”列表框中,单击”完成"按钮..在”报表向导”对话框的”步骤6-完成"中,单击“完成"按钮,在”另存为”对话框的”保存报表为"中输入报表名"reports,最后单击“保存”按钮即可.5、建立表单,文件名、表单名为myfornua,标题商品浏览样式如图,商品分类(饮料、调味品、酒类、小家电).建立表单 CREATEFORMmyform.a.在”表单设计器”中,在“属性”的Caption处输入”商品浏览",在Name处输入"myform_a"..在”表单设计器”中,添加一个选项按钮组OptionGroupl,在“属性”的ButtonCount处输入“4",并对其进行编辑,在Optionl的Caption处输入"饮料",在Option2的Caption处输入"调味品“,在0ption3的Caption处输入"酒类",在0ption2的Caption处输入“小家电”..在”表单设计器”中,添加两个命令按钮,在第1个命令按钮”属性”的Caption处输入"退出”,在第2个命令按钮"属性”的Caption处输入”确定”..在”表单设计器“中,双击"Commands命令按钮,在"Command1.Click"编辑窗口中输入"ReleaseThisform”,接着关闭编辑窗口..在”表单设计器”中,双击"Command2”命令按钮,在"Command!.Click"编辑窗口中输入下列语句,接着关闭编辑窗口.DOCASECASETHISFORM.OPTIONGROUP1.VALUE=1SELECT*FROM商品WHERE分类编码=人期(SELECT分类编码FROM分类WHERE分类名称=“饮料”)CASETHISFORM.OPTIONGROUP1.VALUE=2SELECT*FROM商品WHERE分类编码=A期(SELECT分类编码FROM分类WHERE分类名称="调味品”)CASETHISFORM.OPTIONGROUP1.VALUE=3SELECT*FROM商品WHERE分类编码=人期(SELECT分类编码FROM分类WHERE分类名称=“酒类”)CASETHISFORM.OPTIONGROUP1.VALUE=4SELECT*FROM商品WHERE分类编码=人W(SELECT分类编码FROM分类WHERE分类名称=“小家电”)ENDCASE6、打开SDB数据库,建标题为查询、文件名为testb的表单,附图,添加学生表,自

动居中,1标签,1文本框,1表格,2命令按钮.新建表单 CREATEFORMtestb.在”表单设计器”中,在“属性”的Caption处输入”查询”,在AutoCenter处选择”.T.-真”..单击”显示'数据环境”菜单项,在”打开”对话框中双击表“学生表”,再单击“关闭”来关闭”添加表或视图”对话框..在"表单设计器-testb.sex”中,添加一个标签Labell,在其"属性"的Caption处输入”学生注册日期”..在"表单设计器-testb.sex”中,添加一个文本框Textl..在”表单设计器-testb.sex”中,添加一个表格Gridl,在其“属性”的RecordSourceType处选择"4-SQL说明”..在“表单设计器-testb.sex”中,添加两个命令按钮,在第1个命令按钮”属性”窗口的Caption处输入”查询”,在第2个命令按钮“属性”窗口的Caption处输入”退出”..在”表单设计器”中,双击"查询”命令按钮,在"Commandl.Click"编辑窗口中输入下列语句,接着关闭编辑窗口.ThisForm.Gridl.RecordSource="SELECT学号,姓名,年龄,性别,班级,注册日期FROM学生表;WHERE注册日期=CTOD(ALLTRIM(ThisForm.Textl.Value))ORDERBY年龄DESCINTOCURSORlsb*SELECT学号,姓名,年龄,性别,班级,注册日期;FROM学生表;WHERE注册日期=CTOD(ALLTRIM(ThisForm.Textl.Value))ORDER

BY年龄DESCINTOtableIsUSETABEZAPAPPENDFROMIsUSE.在”表单设计器”中,双击"退出"命令按钮,在"Command2.Click"编辑窗口中输入"ReleaseThisform"语句,接着关闭编辑窗口.7、建立视图VIEW1,查询每个雇员部门号、部门名、雇员号、姓名、性别、年龄和EMALL设计form2表单,设一个页框,有部门和雇员选项卡,右下角有退出命令按钮一、建立视图.打开数据库”雇员管理"OPENDATABASE雇员管理.单击"工具'向导'查询”菜单项,并显示”向导选取”对话框..在“向导选取"对话框中,选择”本地视图向导”并单击”确定”按钮,并显示”本地视图向导”对话框..在”本地视图向导”对话框的"步骤1-字段选取”中,首先要选取表”雇员”,在”数据库和表”列表框中,选择表“雇员“,接着在“可用字段”列表框中显示表“雇员”的所有字段名,并选定指定的字段名添加到”选定字段”列表框中;选择表"部门”,接着在“可用字段”列表框中显示表“部门”的所有字段名,并选定指定的字段名添加到“选定字段”列表框中,单击“下一步”按钮..在”本地视图向导”对话框的”步骤2-为表建立关系”中,单击“添加”按钮,再单击“完成"按钮..在”本地视图向导”对话框的”步骤5-完成"中,单击“完成"按钮..在“视图名”对话框中,输入视图名"viewl",再单击“确认"按钮,这样视图就生成了.二、设计表单.在命令窗口中输入建立表单命令 CREATEFORMform2.在”表单设计器”中,在"属性”的Caption处输入”商品销售数据输入”..在”表单设计器”中,单击鼠标右键,在弹出菜单中选择“数据环境”菜单项,在”添加表或视图”对话框中先选中表“部门”并单击”添加"按钮,接着再单击”选定”框中”视图”的按钮,并单击”添加”按钮,最后接着单击”关闭”按钮关闭”添加表或视图”对话框..在”表单控件”对话框中选定”页框“控件,在”表单设计器”中建立这个“页框”,选中这个“页框”并单击鼠标右键,在弹出菜单中选择”编辑”菜单项,再单击"Pagel",在其"属性”的Caption处输入"部门”,接着在”数据环境”中选中”部门”表按住不放,再移动鼠标到”页框"的”部门”处,最后松开鼠标;单击”Page2",在其“属性”的Caption处输入"雇员",接着在”数据环境"中选中"viewl”视图按住不放,再移动鼠标到”页框"的“雇员”处,最后松开鼠标..在”表单设计器”的右下角,添加一个命令按钮,在“属性”窗口的Caption处输入“退出“,双击“退出"命令按钮,在"Commandl.Click"编辑窗口中输入"ReleaseThisform”,接着关闭编辑窗口.8、建顶层表单myform.sex,创建并添加菜单mymenu,如图,统计和退出访问键为T、R,统计客户号,客户名,合计按合计降序一、建立菜单.建立菜单文件CREATEMENUmymenu在“新建菜单”对话框中,单击“菜单”按钮..在”菜单设计器-mymenu.nmx”中,在”菜单名称"中输入"统计(\<T)”,再移到下一个菜单项处中输入”退出(\<R)”..选中”统计(\<T)”菜单项,在”结果"中选择“过程”并单击”创建”,在“菜单设计器-mymenu.mnx-统计(T)过程”中输入下列语句:selectcustomer.客户号,客户名,sum(金额)as合计fromorders,customerwhereorders.客户-^■=customer.客户号groupbycustomer.客户号orderby合计descintotabletabletwo.选中"退出(\<R)”子菜单项,在“结果"中选择”过程“并单击“创建”,在“菜单设计器-mymenu.mnx-退出(R)过程”中输入下列语句:myform.release.单击"显示'常规选项”菜单项,在”常规选项”对话框的“顶层菜单”框中打勾,再单击"确定”按钮..在”菜单设计器”窗口下,单击”菜单”菜单栏,选择“生成”菜单项,生成"mymenu.mpr”文件.二、建立表单.新建表单 CREATEFORMmyform.在”表单设计器”中,在“属性”的Caption处输入”考试",在ShowWindow处选择”2-作为顶层表单”,双击InitEvent事件,在Forml.Init中输入"domymenu.mprwiththis,"xxx”",双击DestroyEvent事件,在Forml.Destroy中输入"releasemenuxxxextended^^.9、gnht.dbf是合同管理表,编程统计订货单位数、供货单位数、订货总数,结果

填入jieguo.dbf在文件progzh.prg存放内容如下:select1usejieguoselect2usegnhtsumjhsltoasum &&计算订货总数indexondhdwtoaaauniqcounttoadhdw &&计算订货单位数indexonghdwtobbbuniqcounttoaghdw &&计算供货单位数useselect1replacenumwithadhdw&&把订货单位数存放第1条记录中skipreplacenumwithaghdw&&把供货单位数存放第2条记录中skipreplacenumwithasum&&把订货总数存入第3条记录中list&&显示结果use10、建立表单stock-form含2表格控件grdStock_name,grdStock_sl,1关闭命令按钮1.在命令窗口中输入建立表单命令1.在命令窗口中输入建立表单命令CREATEFORMstock.form.在”表单设计器”中,单击鼠标右键,在弹出菜单中选择“数据环境”菜单项,在”打开”对话框中选中表"w并单击“确定"按钮,再单击”其他"按钮,在“打开”对话框中,选择表"stock_sl”,单击"确定“按钮,在”数据环境设计器”中,按住表"stock-name"字段"股票代码”不放,再移动鼠标至表"stock.sT处,松开鼠标,在出现的提示信息窗口中,单击”确定”按钮..按住表"stock_name”,移动鼠标至”表单设计器”,松开鼠标,这样就建立一个grdStock_name表格.按住表"stock_sl”,移动鼠标至“表单设计器”,松开鼠标,这样就建立一个grdStock_sl表格..在”表单设计器”中添加一个命令按钮,在"属性”窗口的Caption处输入”关闭”..双击“关闭”命令按钮,在“Command1.Click”编辑窗口中输入"ReleaseThisform”,接着关闭编辑窗口.11、建立表table3,学号字10、姓名字6、课程名字8、分数数5,1.编程查<60的,分数升序学号降序一、建立表文件CREATETABLEtable3(学号C(10),姓名C(6),课程名C(8),分数N(5,l))二、在progl.prg文件中编写如下程序:clearcloseallselect0usetable3deleallpackcopytotttselect0usetttselect0usexueshengindexon学号tag学号select0usechengjisetrelationto学号intoxueshenggotopdowhile.not.eof()if数学<60selecttttappendblankreplace学号withxuesheng.学号,姓名withxuesheng.姓名replace课程名with“数学",分数withchengji.数学selectchengjiendifif英语<60selecttttappendblankreplace学号withxuesheng.学号,姓名withxuesheng.姓名replace课程名with"英语",分数withchengji.英语selectchengjiendifif信息技术<60selecttttappendblankreplace学号withxuesheng.学号,姓名withxuesheng.姓名replace课程名with"信息技术",分数withchengji.信息技术selectchengjiendifskipenddoselecttttsorton分数,学号/dtotttlselecttable3appendfromtttlcloseall12、打开Ecommerce数据库,生成报表myreport,设计表单myform,4个命令按钮.打开数据库 OPENDATABASEEcommerce.在命令窗口中输入建立表单命令 CREATEFORMmyform.建立报表.单击"工具'向导'报表”菜单项,并显示“向导选取”对话框..在”向导选取"对话框中,选择”报表向导”并单击”确定”按钮,

并显示”报表向导”对话框..在”报表向导”对话框的"步骤1-字段选取”中,首先要选取表”Customer",在”数据库和表”列表框中,选择表"Customer",接着在"可用字段”列表框中显示表Customer的所有字段名,并选定所有字段名至“选定字段”列表框中,单击”完成"按钮..在“报表向导”对话框的”步骤6-完成"中,在”报表标题”文本框中输入“客户信息“,单击“完成”..在”表单设计器”中,在"属性”的Caption处输入”客户基本信息”,在Name处输入"myform^^..在”表单设计器”中,添加四个命令按钮,在第1个命令按钮“属性”窗口的Caption处输入"女客户信息”,在第2个命令按钮“属性”窗口的Caption处输入”客户购买商品情况”,在第3个命令按钮"属性”窗口的Caption处输入”输出客户信息”,在第4个命令按钮"属性”窗口的Caption处输入”退出”..双击”女客户信息”按钮,在“Commandl.Click”编辑窗口中"select*fromcustomerwhere性别="女”".双击”客户购买商品情况”按钮,在"Command?.Click”编辑窗口中”SELECT♦FROMsb_vieww.双击”输出客户信息”按钮,在"Command3.Click”编辑窗口中"REPORTFORMmyreportPREVIEW55.双击“退出"命令按钮,在"Command/Click”编辑窗口中输入”ThisForm.Release",接着关闭编辑窗口.13、创建下拉菜单mymenu,运行会在当前VFP系统菜单末尾追加考试子菜单,如图,创建项目myproject

一、建立菜单.建立菜单文件 CREATEMENUmymenu在"新建菜单”对话框中,单击”菜单”按钮..在“菜单设计器-mymenu.mnx”中,在“菜单名称“中输入"考试",再单击“创建"按钮来子菜单,在“菜单名称"中输入“统计”,再移到下一个菜单项处中输入"返回”..选”统计”子菜单项,在“结果"中选择“过程"并单击“创建“,在”菜单设计器-mymenu.mnx-统计过程”中输入下列语句:selectyear(签订日期)as年份,month(签订日期)as月份,sum(金额)as合计fromordersgroupby年份,月份orderby年份desc,月份intotabletabletwo.选”返回”子菜单项,在“结果"中选择“过程”并单击“创建“,在”菜单设计器-mymenu.mnx-返回过程”中输入下列语句:setsysmenunosavesetsysmenutodefault.单击"显示'常规选项”菜单项,在“常规选项”对话框的”位置”框中选中“追加“单选钮,再单击"确定”按钮..在”菜单设计器”窗口下,单击”菜单”菜单栏,选择“生成”菜单项,生成"mymenu.mpr”文件.二、创建项目.新建项目文件CREATEPROJECTmyproject.在"项目设计器-Myproject”中,单击“其他”选项卡并选中“菜单”项,单击"添加"按钮,在"添加”对话框中双击"mymenu.mnx”..在”项目设计器-Myproject”中,单击”连编“按钮,在“连编选项”对话框中单击“确定”按钮,在“另存为”中输入文件名"myproject",最后单击”保存”按钮.14、设计mystock的表单,表单的标题为股票持有情况,2文本框2命令按钮.在命令窗口中输入建立表单命令 CREATEFORMmystock.在"表单设计器-mystock.sex”中,在"属性"的Caption处输入”股票持有情况”,在Name处输入"mystock"..在“表单设计器-mystock.sex”中,添加两个文本框("Textl*和”Text2")..在“表单设计器-mystock.sex”中,添加两个命令按钮,单击第1个命令按钮在“属性”的Caption处输入"查询”,单击第2个命令按钮在"属性”的Caption处输入”退出”..双击“查询”命令按钮,在"Commandl.Click^^编辑窗口中输入命令组,接着关闭编辑窗口.pinyin=alltrim(thisform.textl.value)opendatabasestockusestock-namelocatefor汉语拼iffound()select持有数量,股票简称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”,接着关闭编辑窗口.15、建立表单,文件名表单名为myform有表格控件,文本控件,命令按钮,运行并计算笔记本和计算机产品部销售额利润.在命令窗口中输入建立表单命令 CREATEFORMmyform.在”表单设计器”中,在其"属性”的Name处输入"myform^^..在”表单设计器”中,分别添加一个文本框Textl和表格Gridl..在”表单设计器”中,添加一个命令按钮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、创建自由表tablethree,姓名c6,最高金额n6.2,最低金额n6.2,平均金额n6.2,设计表单formtwo,表格名Gridl,查询统计按钮名Commandl…如图,运行统计赵小青和吴伟军签单金额一、建立表文件CREATETABLEtablethree(姓名C(6),最高金额N(6,2),最低金额N(6,2),平均金额N(6,2))二、建立表单.使用命令建立表单 CREATEFORMformtwo.在”表单设计器”中,在“属性”的Caption处输入”综合应用”..在”表单设计器”中,添加一个表格控件(Gridl),在“属性”的RecordSourceType处选择"4-SQL说明”,再添加一个文本框(Textl)..在"表单设计器”中,添加两个命令按钮(Commandl和Command2),单击第1个命令按钮在“属性”的Caption处输入”查询统计”,单击第2个命令按钮在“属性”的Caption处输入”退出”..双击“查询统计"命令按钮,在"Commandl.Click”编辑窗口中输入命令组,接着关闭编辑窗口.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”,并关闭编辑窗口.17、建表单文件名和表单控件名为myform_db,标题为数据浏览和维护,如图,选项按钮组选择职工表或订单表,复选框控件确定是否需要存盘….在命令窗口中输入建立表单命令 CREATEFORMmyform.db.在”表单设计器”中,在其"属性”的Name处输入"myform_dbn,在Caption处输入”数据浏览和维护”..在”表单设计器”中,建立"选项按钮组”,并在选定它且单击右键,再选择“编辑”项,接着选定Option"在其Caption处输入”职工表(employee)”,接着选定0ption2,在其Caption处输入”订单表(orders)”,在”表单设计器”中,建立”复选框”,并在其属性的Caption处输入”存盘”.在“表单设计器“中,添加两个命令按钮(Commandl和Command2),在第1个命令按钮Commandl”属性”窗口的Caption处输入“确定”,在第2个命令按钮Command2”属性”窗口的Caption处输入”退出”.

双击”确定"命令按钮,在"Commandl.Click”编辑窗口中输入命令组,接着关闭编辑窗口.IFthisform.optiongroupl.optionl.value=lIFthisform.checkl.value=lSELECT*FROMemployeeINTOTABLEtempELSESELECT♦FROMemployeeENDIFELSEIFthisform.checkl.value=2SELECT*FROMordersINTOTABLEtempELSESELECT*FROMordersENDIFENDIF双击“退出"命令按钮,在"Command2.Click"编辑窗口中输入”ThisForm.Release”,接着关闭编辑窗口.18、创建下拉式菜单mymenu.mnx,运行菜单时会在当前VFP菜单帮助子菜单前插入考试子菜单,如图,统计以组为单位求订单金额的和..建立菜单文件CREATEMENUmymenu在“新建菜单”对话框中,单击“菜单”按钮..在“菜单设计器-mymenu.mnx”中,在“菜单名称“中输入“考试",再单击”创建"按钮来子菜单,在“菜单名称“中输入“统计”,再移到下一个菜单项处中输入"返回”..选”统计”子菜单项,在”结果"中选择“过程"并单击“创建“,在”菜单设计器-mymenu.mnx-统计过程”中输入下列语句:closedatauseemployeecopytotmplfield组别,姓名for职务="组长”select组别,sum(金额)as合计fromorders,employeewhereorders.职员号=employee.职员号groupby组别intocursortmp2selecttmp2.组别,姓名as负责人,合计fromtmpl,tmp2wheretmpl.组别=tmp2.组别orderby合计descintotabletabletwo.选”返回”子菜单项,在“结果"中选择“过程”并单击“创建“,在”菜单设计器-mymenu.mnx-统计过程”中输入下列语句:setsysmenunosavesetsysmenutodefault.单击"显示'常规选项”菜单项,在”常规选项”对话框的”位置”框中选中”在...之前”单选钮,在后面的列表框选择“帮助”,再单击"确定”按钮..在”菜单设计器”窗口下,单击”菜单”菜单栏,选择“生成”菜单项,生成"mymenu.mprn文件.19、基于数据库pdtmng建如图顶层表单,文件名myform.sex,控件名为goods,表单标题为"商品";1表格控件Gridl,建条形菜单mymenu.mnx,在表单Load事件执行菜单程序mymenu.mpr一、建立表单.建立表单CREATEFORMmyform.在”表单设计器”中,在其“属性”的Name处输入"goods",在Caption处输入“商品",在ShowWindow处选择”2-作为顶层表单",双击"LoadEvent”,在"goods.Loadw编辑窗口中输入"domymenu.mprw..在“属性“中,双击"InitEvent",在"myform.Initw编辑窗口中输入"domymenu.mprwiththis,'xxxz",启动菜单命令..在"属性"中,双击"DestroyEvent,在“myform.Destroy”编辑窗口中输入"releasemenuxxxextended”,在表单退出时释放菜单..在”表单设计器”中,添加一个表格控件Grid"在其"属性”的RecordSourceType处选择"4-SQL说明”.二、建立菜单.单击"文件'新建”命令项..在”新建”对话框中选择”菜单”单选钮,再按“新建文件”按钮..在”新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的”菜单名称”中依次输入”商品分类“和”退出”这两个主菜单项,然后选择”商品分类”菜单项,在“结果"中选择“子菜单",单击“创建“按钮,在”菜单设计器”中,输入两个子菜单项“小家电“、“饮料"和“酒类”..在”小家电”子菜单的“结果”选择“过程”并输入命令下列语句myform.gridl.recordsource="select*fromproductswhere分类编码=,4001/intocursorlsbw.在”饮料”子菜单的“结果”选择“过程”并输入命令下列语句myform.gridl.recordsource="select*fromproductswhere分类编码='1001'intocursorIsb".在“酒类”子菜单的“结果”选择“过程”并输入命令下列语句

myform.gridl.recordsource="select*fromproductswhere分类编码='3001/intocursorIsb”.在”退出”主菜单的“结果”选择”过程”并输入下列命令myform.releasesetsysmenutodefault.单击”显示/常规选项“,在“常规选项”对话框中选中”顶层表单”..单击工具栏上“保存”按钮,在弹出“保存”对话框中输入"mymenu"即可..在”菜单设计器”窗口下,单击”菜单”菜单栏,选择”生成”菜单项,生成"mymenu.mpr"文件.20、打开student数据库,添加表student、score和ourse,建视图viewsc,包括4个字段;建报表,简报式,报表文件名three.frx,打开表单文件three,完成操作,运行表单three,并一定通过生成数据命令按钮产生result.dbf表文件.第1小题OPENDATABASEstudentADDTABLEstudentADDTABLEscoreADDTABLEcourse第2小题.打开并修改数据库 MODIFYDATABASEstudent.单击"文件'新建”菜单项,在“新建”对话框中选择“视图”单选钮,再单击”新建文件”.在“添加表或视图”对话框中,双击表"student",再双击表"score”,在"联接条件”对话框中直接单击“确定”按钮,再双击表"course”,

在”联接条件”对话框中直接单击"确定”按钮,把这三个表文件添加到”视图设计器”中,接着单击“关闭”按钮,来关闭”添加表或视图”对话框..单击”字段”选项卡,选择试题要求的字段添加到“选定字段”列表框中..保存该视图,在“保存”对话框中输入视图名"viewsc”.第3小题.单击"工具'向导'报表”菜单项,并显示“向导选取”对话框..在”向导选取"对话框中,选择”报表向导”并单击”确定”按钮,并显示”报表向导”对话框..在“报表向导”对话框的"步骤1-字段选取”中,首先要选取视图"viewsc”,在”数据库和表”列表框中,选择表"viewsc",接着在”可用字段”列表框中显示表viewsc的所有字段名,并选定指定的字段名,再单击"下一步”按钮..在“报表向导”对话框的”步骤2-分组记录”中,单击“下一步”..在”报表向导”对话框的”步骤3-选择报表样式”中,选择“简报式”,再单击“完成"按钮..在”报表向导”对话框的”步骤6-完成"中,单击“完成”..显示“另存为"对话框,输入保存报表为"three",并单击"保存”按钮.第4小题.双击”生成数据“按钮,在"Commandl.Click"编辑窗口中输入下列语句:select*fromviewscorderby学号,成绩descintodbfresult.双击”运行报表“按钮,在"Command2.Click"编辑窗口中输入下列语

句:reportformthreepreview.双击“退出“按钮,在"Command3.Click"编辑窗口中输入下列语句:thisform.release21、建表单,如图,完成计算器功能,文件名和表单控名为calculator,标题计算器,运行时,分别在操作数1和操作数2下的文本框中输入数字,通过选项组选择计算方法,单击命令按钮显示计算结果,用DOCASE语句判断分类.建立表单CREATEFORMcalculator.在"表单设计器“中,在其"属性"的Name处输入"calculator”,在Caption处输入”计算器”..在”表单设计器”中,依次建立三个Labell、Label2和Label3的标签,并分别修改其标题Caption的值,依次为"操作数1”、”操作数2"和”计算结果”..在”表单设计器”中,依次建立三个Textl、Text2和Text3的文本框,再对Text3的Enable属性选择”.F."..在”表单设计器”中,添加一个”选项按钮组",在其"属性”的ButtonCount处输入“4",调整这四个按钮的排列位置以及各个Caption的值..在"表单设计器”中,添加两个命令按钮(Commandl和Command?),在第1个命令按钮Commandl”属性”的Caption处输入"计算“,在第2个命令按钮Command2w属性”的Caption处输入"关闭".双击“计算"按钮,在“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双击”关闭”命令按钮,在"Command2.Click"编辑窗口中输入”ThisForm.Release",接着关闭编辑窗口.22、打开”点菜”数据库,创建表单,标题查询、文件名testB,如图,1标签、1文本框、1表格、3命令按钮.打开数据库 OPENDATABASE点菜.在命令窗口中输入建立表单命令 CREATEFORMtestb.在”表单设计器”中,在其"属性”的Caption处输入”查询”..在”表单设计器”中,添加一个标签Label"在其"属性”的Caption处输入”结帐日期”..在”表单设计器”中,分别添加一个文本框Textl和表格Gridl..在"表单设计器“中,添加三个命令按钮(Commandl、Command2和Command3),在第1个命令按钮Commandl”属性"窗口的Caption处输入"查询”,在第2个命令按钮Command2”属性”窗口的Caption处输入”显示”,在第3个命令按钮Command3”属性”窗口的Caption处输入”退出”..双击“查询“按钮,在"Commandl.Click"编辑窗口中输入下列程序dd=CTOD(ThisForm.Textl.Value)SELECT顾客序号,顾客姓名,单位,消费金额FROM结帐表;WHERE结帐日期=dd;ORDERBY消费金额DESC;INTOTABLEtabc.双击“显示”按钮,在"Command?.Click”编辑窗口中输入下列程序ThisForm.Gridl.RecordSourceType=0ThisForm.Gridl.RecordSource=utabc^^.双击"退出"命令按钮,在"Command3.Click"编辑窗口中输入”ThisForm.Releasen,接着关闭编辑窗口.23、打开数据库SDB,设计sform表单,文件名SDISPLAY,标题学生课程教师基本信息浏览,包含三个选项卡的页框控件、一个“退出”按钮..建立表单 CREATEFORMsdisplay.在”表单设计器”中,在“属性”的Caption处输入”学生课程教师基本信息浏览",在Name处输入"sform",在Height处输入"280”,在Width处输入”

450”,在AutoCenter处选择”.T.”..在”表单设计器”中,单击鼠标右键,在弹出菜单中选择"数据环境",在”数据环境设计器-sdisplay.sex”中,在"打开"对话框中,选择"student.dbf”表,接着在”添加表或视图”的对话框中,双击表"course",再在"添加表或视图”的对话框中,双击表"teacher",再按"关闭”按钮,关闭”添加表或视图”对话框..在“表单设计器“中,添加一个页框Pageframel,在其"属性"的PageCount处输入"3",在Left处输入"18",在Top处输入"10",在Height处输入"230”,在Width处输入"420”.选中Pagel,在其“属性”的Caption处输入”学生表”,选中Page2,在其"属性”的Caption处输入”课程表",选中Page3,在其“属性”的Caption处输入”教师表”..在”表单设计器”中,添加一个命令按钮,在其"属性”的Caption处输入“退出“,双击"Commandl"命令按钮,在"Commandl.Click"编辑窗口中输入"ReleaseThisform”,接着关闭编辑窗口..选中”学生表”页,打开”数据环境“,按住"student”不放,拖至”学生表”页左上角处松开鼠标;选中”课程表”页,打开“数据环境“,按住“course”不放,拖至”课程表”页左上角处松开鼠标;选中”教师表”页,打开”数据环境”,按住"teacher”不放,拖至"教师表”页的左上角处松开鼠标.24、编程计算01组歌手的得分将结果存入自由表FINAL.DBF.含2个字段,得分取平均值,得分、歌手姓名降序,程序存储在two.prg中;建文件名和表单名为score_form的表单,添加一个命令按钮,标题计算,Click事件调用two.prg程序,运行表单,执行two程序;建一个项目score-project,将自由表歌手表、评委表和评分表以及表单score_form加入该项目,然后将项目文件连编成应用程序文件

score.app.一、在two.prg文件中编写下列程序select歌手姓名,avg(分数)as得分from歌手表,评分表;where歌手表.歌手编号=评分表.歌手编号andleft(歌手表.歌手编号,2)="01”;groupby歌手表.歌手编号;orderby得分desc,歌手姓名descintotablefinal二、建立表单.在命令窗口中输入建立表单命令 CREATEFORMscore-form.在其"属性"的Name处输入"score_form"..在”表单设计器”中,添加一个命令按钮Commandl,在其"属性”的Caption处输入”计算”..双击“计算“按钮,在"Command1.Click"编辑窗口中输入"dotwo”,并关闭编辑窗口.三、建立项目文件.在命令窗口中输入建立项目文件 CREATEPROJECTscore-project.在”项目管理器”中,单击“数据”选项卡,接着选中“自由表”,依次单击"添加“按钮,在“打开”对话框中,双击“歌手表"、”评委表”和”评分表”..在”项目管理器”中,单击“文档”选项卡,接着选中“表单“,单击”添加"按钮,在"打开"对话框中,双击"score-form”..在”项目管理器”中,单击“连编”按钮,在“连编选项”对话框中,单

击”连编应用程序”单选钮,再单击“确定”按钮,在”另存为”对话框的”应用程序名“处输入“score_app^^..最后关闭”项目管理器”.25、建表单,表单名、文件名均为myform,如图2,标题评委打分情况,有两个命令按钮,生成表和退出,两个单选钮,按评分升序和按评分降序,按评分升序依次按最高分、最低分和平均分3个字段升序排序生成表six_a,反之生成表six-d..在命令窗口中输入建立表单命令 CREATEFORMmyform.在”表单设计器”中,在其"属性”的Caption处输入”评委打分情况”..在”表单控件”对话框中选定”选项按钮组”控件,在其”属性”的Name处输入"myOption”选中这个选项组并单击鼠标右键,在弹出菜单中选择“编辑”菜单项,再单击”Options,在其"属性”窗口的Caption处输入”按评分升序”;单击"0ption2",在其“属性”窗口的Caption处输入”按评分降序”..在"表单设计器”中,添加两个命令按钮(Commandl和Command2),单击第1个命令按钮在“属性”的Caption处输入”生成表”,单击第2个命令按钮在”属性”的Caption处输入”退出”..双击“计算”命令按钮,在"Commandl.Click”编辑窗口中输入命令组,接着关闭编辑窗口.IFthisform.optiongroupl.optionl.value=lSELECT*FORMresult;ORDERBY最高分,最低分,平均分;INTOdbfsix_aELSESELECT*FORMresult;ORDERBY最高分DESC,最低分DESC,平均分DESC;INTOdbfsix_dENDIF.双击“退出”命令按钮,在“Command2.Click"编辑窗口中输入"ReleaseThisform”,关关闭编辑窗口.26、设计文件名和表单名为myaccount的表单.标题为外汇持有情况.1选项按钮组控件,1表格控件,2命令按钮查询和退出.选项按钮组控件有两个按钮现汇、现钞..建立表单 CREATEFORMmyaccount.在”表单设计器”中,在"属性”的Caption处输入”外汇持有情况”,在Name处输入"myaccount”..在”表单设计器”中,添加一个选项按钮组,在其“属性”的Name处输入”myOptionw,接着对其进行编辑,在Optionl的Caption处输入“现汇”,在0ption2的Caption处输入"现钞"..在”表单设计器”中,添加两个命令按钮,在第1个命令按钮”属性”的Caption处输入”查询”,在第2个命令按钮"属性”的Caption处输入”退出”..在”表单设计器”中,双击"Command2"按钮,在"Command2.Click"编辑窗口输入"ReleaseThisform”,关闭编辑窗口..在”表单设计器”中,添加一个表格Gridl,在其“属性”的RecordSourceType处选择"4-SQL说明”..在”表单设计器”中,双击”Commands命令按钮,在"Command1.Clickw编辑窗口中输入下列语句,接着关闭编辑窗口.thisform.gridl.recordsource="select*from外汇账户where钞汇标志='u+iif(thisform.myOption.value=l,"现汇","现钞")+”'intocursorlsbw27、打开表单文件sapp,添加课程表,使Listl中数据项为课程名,单击列表框的数据项时,统计选修了所选课程的学生人数并将结果存储在以课程名命名的表中字段人数,添加一个命令按钮Commandl,单击该按钮时关闭表单..打开并修改表单 MODIFYFORMsapp.在”表单设计器”中,单击鼠标右键,并在弹出菜单中选择“数据环境”,并显示”数据环境设计器-sapp.sex”窗口..在此窗口中再单击鼠标右键,在弹出菜单中选择“添加”菜单项,在”添加表或视图”窗口中选择表”课程“,单击”添加"按钮,再单击“关闭”按钮..在”表单设计器”,选定Listl控件,在"属性”的RowSourceType处选择”6-字段”,在RowSource处选择”课程.课程名”..在”表单设计器”中,选定Listl控件,双击“属性”的ClickEvent事件,在“Listl.Click"编辑窗口中,输入下列语句:aa=课程.课程名SELECTCOUNT(*)AS人数FROM考试成绩WHERE考试成绩.课程编号=课程.课程编号INTOTABLE&aa.在”表单设计器”中,添加一个命令按钮,双击"CommandP命令按钮,在“Commandl.Click"编辑窗口中输入"ReleaseThisform”,接着关闭编辑窗口.28、建立表单,文件名和表单名为myform,包括1列表框,2命令按钮标题为“计算”和"退出".列表框显示组号,通过RowSource和RowSourceType属性手工指定显示条目为01、02、03、04.为计算按钮编写程序.当表单运行时,根据列表框中选定的”组号“,将“评分表”中该组歌手的所有记录存入自由表two.dbf,two.dbf的表结构与“评分表”相同,表按歌手编号降序、分数升序,运行表单,在列表框中指定组号“01”,并且单击”计算”命令按钮..建立表单CREATEFORMmyform.在”表单设计器”中,添加一个列表框Listl,在其"属性”的RowSourceType处选择"1-值",在RowSource处输入“01,02,03,04"..在”表单设计器”中,添加一个文本框Textl..在"表单设计器”中,添加两个命令按钮(Commandl和Command?),在第1个命令按钮Commandl”属性”窗口的Caption处输入”计算”,在第2个命令按钮Command2”属性”窗口的Caption处输入”退出”..双击“退出"命令按钮,在"Command2.Click"编辑窗口中输入”ThisForm.Release55,接着关闭编辑窗口..双击“查询”命令按钮,在"Commandl.Click"编辑窗口中输入下列语句,接着关闭编辑窗口.num=ThisForm.listl.valueSELECT*FROM评分表WHEREleft(歌手编号,2)=num;Orderby歌手编号desc,分数intodbftwo29、打开公司销售数据库SELLDB,设计表单名Fonn_one、文件名SD_SELECT、标题名部门年度数据查询,界面如图,为表单建立数据并添加S-T表,在"年度”标签右边微调控件中选择年度并单击“查询”按钮时,会在表格控件内显示该年度各部门四个季度的销售额和利润.指定微调控件上箭头与下箭头值范围为2010-1999,缺省值为2003,增量为1.在”表单设计器”中,在"属性”的Caption处输入”部门年度数据查询”,在Name处输入"form-one”..在”表单设计器”中,单击鼠标右键,在弹出菜单中选择"数据环境",在”数据环境设计器-sd_select.sex”中,在"打开”对话框中,选择"s.t.dbP表,接着在“添加表或视图”的对话框中,按”关闭”按钮,关闭”添加表或视图”对话框..在”表单设计器”中,添加一个标签Label"在其"属性”的Caption处输入“年度”..在”表单设计器”中,添加一个微调控件Spinnerl,在其“属性”的SpinnerHighValue处输入”2010.00",在SpinnerLowValue处输入”1999.00",在Value处输入“2003”..在”表单设计器”中,添加两个命令按钮,在第1个命令按钮”属性”的Caption处输入”查询”,在第2个命令按钮"属性”的Caption处输入”退出”..在”表单设计器“中,双击"Command2^^按钮,在"Command?.Click”编辑窗口输入"ReleaseThisform”,关闭编辑窗口..在”表单设计器”中,添加一个表格Gridl,在其“属性”的RecordSourceType处选择"4-SQL说明”..在”表单设计器”中,双击"Command^命令按钮,在"Command1.Click"编辑窗口中输入下列语句,接着关闭编辑窗口.ThisForm.Gridl.RecordSource="select*froms_twhere年度='l<+str(thisform.Spinnerl.value,4,0)+M'intocursorIsb”30、打开“宾馆”数据库,创建test表单,如图,1标签标题退房日期大于或等于、1文本框用于输入退房日期、2命令按钮,查询退房日期工输入日期…价格降序,退出,设计完成运行查询退房日期三2005-04-01的顾客信息..建立表单CREATEFORMtest.在”表单设计器”中,添加一个标签Label"在其"属性”的Caption处输入”退房日期大于或等于”..在”表单设计器”中,添加一个文本框Textl..在"表单设计器”中,添加两个命令按钮(Commandl和Command?),在第1个命令按钮Commandl”属性”窗口的Caption处输入“查询”,在第2个命令按钮Command2”属性”窗口的Caption处输入”退出”..双击“退出"命令按钮,在"Command!.Click"编辑窗口中输入”ThisForm.Release",接着关闭编辑窗口..双击“查询”命令按钮,在"Commandl.Click"编辑窗口中输入下列语句,接着关闭编辑窗口.dd=Al1trim(ThisForm.Textl.Value)SELECT客户.客户号,客户.身份证,客户.姓名,客户.工作单位,入住.客房号,房价.类型名,房价.价格;FROM客户INNERJOIN入住;INNERJOIN客房;INNERJOIN房价;ON房价.类型号=客房.类型号;ON客房.客房号=入住.客房号;ON客户.客户号=入住.客户号;WHERE入住.退房日期"CTOD(dd);ORDERBY房价.价格DESC;

INTOTABLEtabd.dbf31、打开数据库SDB,创建tform表单,设计2命令按钮,查询用SQL查询选课数量工4且平均成绩二75的学号、姓名、平均成绩和选课门数,平均成绩降序,退出.建立表单CREATEFORMtform.在”表单设计器”中,添加两个命令按钮,在第1个命令按钮"属性”窗口的Caption处输入”查询”,在第2个命令按钮"属性”窗口的Caption处输入”退出”..在”表单设计器”中,双击"Commandl^^命令按钮,在"Command1.Click"编辑窗口中输入SQL的SELECT命令查询语句,接着关闭编辑窗口.SELECTStudent.学号,姓名,AVG(成绩)AS平均成绩,;COUNT(*)AS选课门数FROMStudent,ScGROUPBYSc.学号;HAVINGCOUNT(♦)>=4AND平均成绩>=75WHEREStudent.学号=Sc.学号ORDERBY;平均成绩DESCINTODBFTWO.在”表单设计器”中,双击"Command2^^按钮,在"Command2.Click"编辑窗口输入"ReleaseThisform”,关闭编辑窗口.32、建立表单如图,表单名和文件名为myform,标题教师情况,2命令按钮”生成表"和“退出”,2复选框“系名“和”工资”,2单选钮”按职工号升序”和”按职工号降序”..建立表单CREATEFORMmyform.在”表单设计器”中,在“属性”的Caption处输入”教师情况”,在Name处输入"myform”..在”表单设计器”中,添加两个复选框,在第1个复选框Checkl”属性”

的Caption处输入”系名”,在第2个复选框Checkl”属性”的Caption处输入”工资”..在“表单设计器”中,添加一个选项按钮组Optiongroupl,并在选定它且单击右键,再选择”编辑”项,接着选定Optionl,在其Caption处输入”按职工号升序”,接着选定0ption2,在其Caption处输入”按职工号降序”,.在"表单设计器”中,添加两个命令按钮(Commandl和Command?),在第1个命令按钮Commandl”属性”窗口的Caption处输入“生成表”,在第2个命令按钮Command2”属性”窗口的Caption处输入”退出”..双击“生成表”命令按钮,在"Commandl.Click”编辑窗口中输入命令组,接着关闭编辑窗口.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,接着关闭编辑窗口.33、编程change_c,将salarys备份,备份名为bak_salarys.dbf;用人事部向财务部提供的雇员工资调整表c-salaryl,对salarys的工资进行调整;设计表单form2,上面有调整和退出两个命令按钮,单击"调整”命令按钮时,调用change_c命令程序实现工资调整;.在change_c.prg文件中的内容select*fromsalarysintotablebak_salarysselect3usec-salarylorder雇员号selectsalaryssetrelationto雇员号intoC-salarylreplaceall工资withc_salaryl.工资for雇员号=c.salaryl.雇员号setrelationto.设计表单.在命令窗口中输入建立表单命令 CREATEFORMform?.在”表单设计器”中添加两个命令按钮(“调整"和”退出”).(3),双击“调整”命令按钮,在"Commandl.Click"编辑窗口中输入"dochange_c”,接着关闭编辑窗口.(4).双击“退出"命令按钮,在"Command2.Click”编辑窗口中输入"ReleaseThisform”,接着关闭编辑窗口.34、设计表单名和文件名为currency-form的表单,控件属性必须在表单设计器属性窗口设置,标题为外币市值情况.2文本框、2命令按钮查询和退出,在textl中输入某人的姓名,单击查询,则text2显示他持全部外币相当于人民币的价值数量.在命令窗口中输入建立表单命令 CREATEFORMcurrency-form.在”表单设计器”中,在"属性”的Caption处输入"外币市值情况”,在Name处输入"currency-form”..在”表单设计器”中,添加两个文本框,名称分别为Textl和Text2..在”表单设计器”中,添加两个命令按钮,单击第1个命令按钮在“属性”的Caption处输入"查询”,单击第2个命令按钮在“属性”的Caption处输入”退出”..双击”查询”命令按钮,在"Commandl.Click”编辑窗口中输入命令,接着关闭编辑窗口.name=alltrim(thisform.text

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论