江苏省计算机二级上机题

n更多企业学院： 中小企业管理全能版183套讲座+89700份资料总经理、高层管理49套讲座+16388份资料中层管理学院46套讲座+6020份资料国学智慧、易经46套讲座人力资源学院56套讲座+27123份资料各阶段员工培训学院77套讲座+ 324份资料员工管理企业学院67套讲座+ 8720份资料工厂生产管理学院52套讲座+ 13920份资料财务管理学院53套讲座+ 17945份资料销售经理学院56套讲座+ 14350份资料销售人员培训学院72套讲座+ 4879份资料第一套：表单fh上有一个命令按钮(cmdcj)和一个计时器(Timer1)控件，其功能是：从学生表(student)中抽取学生学号和姓名。按下列要求修改表单，修改后表单运行效果如图2所示。1.设置表单的标题属性为抽奖，边框类型为固定对话框。2.在表单的右方添加一个命令按钮控件，并设置标题为退出。3.编写新添加的命令按钮的Click事件代码，其功能是释放表单。4.在命令按钮(cmdcj)的下方添加一个列表框控件(对象名为List1)。5.在计时器对象的Timer事件代码的末尾，添加一条命令，使得命令按钮(cmdcj)的标题显示当前记录中xh和xm字段值。1.步骤1:双击项目管理器的文档选项卡中表单分支下的fh文件，打开表单设计器。步骤2:分别设置表单的属性Caption和BorderStyle为抽奖和2-固定对话框。2.选择表单控件列表框中的命令按钮，添加到表单中，并改变其Caption属性值为退出。3.选择命令按钮的Click时间属性并添加代码如下THISFORM.Release。4. 选择表单控件列表框中的列表框控件，添加到表单cmdcj下方，使其Caption属性值为List1。5.双击定时器按钮出现代码输入窗口，在其后加入如下代码：thisform.cmdcj.Caption = xh + xm表单fg的功能是：表单上显示奥运会五环图标等。按下列要求修改表单，修改后表单运行效果如图2所示。第二套：1.在表单的下方添加一个命令按钮控件，并将其标题设置为显示，将表单的新方法COL的程序代码复制到该命令按钮的Click事件代码中。2.完善命令按钮的Click事件代码(在程序末尾添加4条命令)，其功能是设置S5形状控件的有关属性：形状设置为圆形，边框颜色(BorderColor属性)设置为红色，背景(BackStyle属性)设置为透明，边框宽度设置为3。3.将表单的背景颜色设置为白色，并将标题修改为同一个世界，同一个梦想。步骤1:在表单控件面板上单击命令按钮，在表单的下方画一个按钮，在属性面板中找到form1的col属性复制器，将全部代码粘贴到命令按钮的Click事件代码尾部。步骤2:在命令按钮的Click事件尾部加如下代码：thisform.s4.bordercolor=rgb(0,255,0)、thisform.s5.Curvature=99、thisform.s5.backStyle = 0、thisform.s5.borderwidth = 3、thisform.s5.bordercolor = rgb(255,0,0)步骤3:设置form1的BackColor为RGB(255，255，255），Caption为同一个世界，同一个梦想。表单fg的功能是：表单上显示奥运会五环图标和北京2008字样等。按下列要求修改表单，修改后表单运行时如图2所示。第三套：1.在表单的Activate事件代码的第2条命令后添加一条命令，实现表单运行开始时标题从右向左移动显示。2.分别修改对象名为S1、S2、S3、S4、S5的5个形状控件的有关属性：形状为圆形，边框颜色(BorderColor属性)分别为蓝色、黄色、黑色、绿色、红色，背景样式(BackStyle属性)为透，边框宽度为3。3.在表单的下方添加一个标签控件，并设置有关属性：标题为北京2008，字号为16，前景颜色为红色。4.将表单的背景颜色设置为白色。步骤1:在表单Activate事件中加入this.Caption = substr(c，i）。步骤2:按住Ctrl+Shift组合键单击5个控件，使其处于同时被选中状态，设计器属性Curvature为99，BackStyle为0，并分别编辑其Click事件为thisform.forsave，BorderColor分别为蓝色、黄色、黑色、绿色、红色。步骤3:单击控件面板的标签按钮在表单的下方画出标签，修改其Caption属性为北京2008，FontSize为16，ForeColor为红色。步骤4:设置Form1的BackColor为RGB(255，255，255）。表单fe的功能是：用鼠标在表单上写文字等。按下列要求修改表单，修改后表单运行效果如图2所第四套：1.将表单的标题设置为鼠标写字与小球移动，边框样式设置为固定对话框。2.在表单界面的右下方添加形状控件，并设置形状控件的有关属性，使其形状为圆形，背景颜色为红色。3.修改表单的MouseDown事件代码，其功能是：使表单前景颜色为蓝色以实现用鼠标在表单界面上写的文字为蓝色，并修改表单的MouseMove事件代码，删除其中的第六行语句(该语句为THISFORM Coord.Caption=(+)。4.将表单对象新方法XYZ中的代码复制到形状控件的Click方法程序中。步骤1:设置表单的Caption属性为鼠标写字与小球移动，BorderStyle为2-固定对话框。步骤2:在控件面板中选取形状控件，在表单右下方画出形状控件，并设置其属性Curvature为99，BackColor为(RGB255，0，0)。步骤3:将表单的MouseDown事件代码修改成如下代码：LPARAMETERS nButton, nShift, nXCoord, nYCoordthisform.forecolor=rgb(0,0,255)、thisform.x=nXCoord、thisform.y=nYCoord、thisform.pset(nXCoord,nYCoord)、并将MouseMove事件代码修改成如下代码：LPARAMETERS nButton, nShift, nXCoord, nYCoord、if nButton=1、thisform.pset(nXCoord,nYCoord)、thisform.line(thisform.x,thisform.y,nXCoord,nYCoord)、endif、thisform.x=nXCoord、thisform.y=nYCoord步骤4:按照题目要求，将表单对象新方法xyz中的代码复制到形状控件的Click方法中。第五套：在T盘中有10个图片文件1.BMP、2.BMP、10.BMP。表单F081F的功能是：通过连续播放BMP文件产生动画效果。按下列要求修改表单，修改后表单运行效果如图2所示。1.将命令按钮的Left、Top属性分别修改为100、95。2.设置表单的有关属性：标题为播放两幅动画，高度为140，宽度为210，且使其运行时自动居中。3.在图像对象(Image1)右方添加一个图像对象(Image2)。4.在计时器对象的Timer事件代码的末尾，添加一条命令，使Image2显示图片的顺序为10.BMP、9.BMP、1.BMP。5.修改播放命令按钮的Click事件代码：保留第3条命令，删除其余命令。步骤1:在属性面板中将命令按钮的Left、top属性分别设置为100和95。步骤2:设置表单的Caption属性为播放两幅动画，Height为140，Width为210，AutoCenter为.T.。步骤3:在控件面板中选取图像控件，在图像对象Image1右方添加图像对象Image2。步骤4:在计时器对象的Timer事件中加入代码thisform.image2.picture=alltrim(str(11-n)+.bmp，使Image2显示图片的顺序为10.bmp、9.bmp、1.bmp。步骤5:按照题目要求，修改播放命令按钮的Click事件代码。第六套：表单ff的功能是：通过连续播放BMP位图文件产生动画效果。按下列要求修改表单，修改后表单运行效果如图2和图3所示。 1.设置表单的有关属性，使其标题为播放动画，且无最大化、最小化按钮。2.在播放命令按钮下方添加一个命令按钮，其标题属性设置为退出，且编写其Click事件代码，其功能是释放表单。3.完善播放命令按钮的Click事件代码，其功能是：单击该按钮则其标题在播放与停止之间切换(即播放动画时显示停止，停播时显示播放)，并且如果单击停止按钮，则将计时器对象设置为不可使用。步骤1:设置表单的Caption属性为播放动画， MinButton为.F.，MaxButton为.T.。步骤2:在播放按钮下添加命令按钮，其Caption为退出，Click事件为：thisform.release。步骤3:完善播放命令按钮的Click事件代码：IF this.caption=播放this.caption=停止THISFORM.TIMER1.Enabled=.t.ELSEthis.caption=播放thisform.Timer1.Enabled = .F.ENDIF表单fe的功能是：用鼠标在表单上写汉字等操作。按下列要求修改表单，修改后表单运行效果如图2所示。第七套：1.设置表单的有关属性，使其标题为鼠标写字，边框样式属性为固定对话框，背景颜色为黄色。2.如图2所示，在表单的上部添加一个标签控件，用来显示鼠标的位置，并将其对象名修改为coord，背景样式设置为透明。3.在表单的下部添加一个文本框控件(对象名为Text1)和计时器控件(对象名为Timer1)，并设置计时器控件的有关属性，使得表单运行时触发计时器事件的间隔时间为5秒。4.编写计时器控件的Timer事件代码，实现在文本框中显示当前的系统日期和时间。步骤1:设置表单的Caption属性为鼠标写字， BorderStyle为2-固定对话框，BorderColor为RGB(255,255,0)。步骤2:在控件面板中选择标签控件，在表单上部添加标签按钮，其属性Name为coord，BackStyle设置为0-透明。步骤3:在表单中分别添加文本控制控件(Text1）和定时器(Timer1），设置定时器属性Interval为5000，Timer为thisform.Text1.Value=DATETIME()。第八套：表单fd用于水平或垂直显示标签等操作。按下列要求修改表单，修改后表单运行效要如图2和图3所示。 1.修改表单的有关属性，使其图标为pc.ico文件；设置标签控件的显示字号属性为14，字体属性为隶书(或黑体)；将右边命令按钮的标题设置为水平标签。2.在垂直标签命令按钮的Click事件代码后添加3条命令，实现的功能是：将标签控件的自动调整大小属性设置为.F.，高度设置为130，标题设置为变量cc的内容。3.编写水平标签命令按钮Click事件代码，其功能是：将标签控件的自动调整大小属性设置为.T.，高度设置为20，标签控件标题属性为变量C的内容。步骤1:双击表单的Icon属性，在新的窗口中选择考生目录下的pc.ico。设置标签控件的FontSize属性为14，name 为隶书设置左边标题的Caption属性为水平标签。步骤2:在垂直标签命令按钮的Click事件后加入如下代码：thisform.Label1.AutoSize = .F.thisform.Label1.Height = 130thisform.Label1.Caption= cc.步骤3:设置水平标签，加入如下代码:thisform.Label1.AutoSize = .T.thisform.Label1.Height = 20第九套：表单fc用于输入表名显示表结构。按下列要求修改表单，修改后表单运行效果如图2所示。1.将表单的标题属性设置为输入表名显示表结构。2.将标签控件的显示字号属性设置为10。3.将表格控件换为列表框控件。4.完善文本框控件的Valid事件代码，其功能是：使用IFELSEENDIF结构实现以下功能，若输入的文件不存在，则在自定义对话框中显示文件不存在!(使用MESSAGEBOX()函数，其参数为：X+文件不存在，48)，否则将X作为列表框的数据源，并且将列表框的数据源类型设置为：结构。thisform.Label1.Caption= C.步骤1:双击表单的Caption属性，设置为：输入表名显示表结构。步骤2:选择标签控件的FontSize属性并将其值设置为10。步骤3:删除表格控件，单击控件面板上的列表框控件，在原表格控件的位置画出一个列表框，并修改编辑框控件Text1的Valid属性如下：x=ALLT(this.value)c=x+.dbfif file(&c)use &xthisform.List1.RowSource = xthisform.List1.RowSourceType = 8elsemessagebox(x+文件不存在,48)endif表单f081c用于输入表名浏览表数据。按下列要求修改表单，修改后表单运行效果如图2所示。 第十套：1.修改表单的有关属性，使其运行时自动居中，且无最大化、最小化按钮，标题为输入表名浏览表。2.将标签控件的字号设置为10。3.完善文本框控件的Valid事件代码，其功能是：使用IFELSEENDIF结构实现以下功能，若输入的文件不存在，则利用MESSAGEBOX()函数显示文件不存在!，否则将X作为表格的数据源，并且设置表格控件宽度为400。步骤1:双击表单的Caption属性，设置为输入表名浏览表，设置MaxButton和MinButton均为.T.，设置AutoCenter为.T.。步骤2:选择标签控件的FontSize属性并将其值设置为10。步骤3:修改编辑框控件Text1的Valid属性如下：x=ALLT(this.value)c=x+.dbfif file(&c)use &xthisform.Grid1.RecordSource=xthisform.Grid1.width=400 elsemessagebox(x+文件不存在,48)endif11套，表单fb用于口令输入。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.将左边命令按钮的标题设置为确定，且两个命令按钮的TOP属性均设置为82。2.修改表单的有关属性，使其运行时自动居中，高度为120，宽度为280。3.在表单上添加一个标签控件和一个文本框控件，并按图2所示设置标签和文本框控件的有关属性(文本框的占位符属性为*)。4.编写确定命令按钮的Click事件代码，其功能是：使用IFELSEENDIF结构实现下列功能，若文本框的Value值等于ABC，则利用MESSAGEBOX()函数显示OK!，否则显示口令不正确!。步骤1:双击打开表单文件fb，单击左面的按钮设置其Caption属性为确定，Top属性为82，设置右边退出命令按钮的Top属性为82。步骤2:设置表单的AutoCenter属性为.T.，Width属性为280，Height属性为120。步骤3:分别添加一个标签控件和一个文本框控件，设置标签控件的Caption属性为口令输入，设置文本框控件的PassWordChar属性为星号(*)。步骤4:设置确定命令按钮的Click事件代码如下：if thisform.Text1.value = ABC=messagebox(OK!,64)else=messagebox(口令不正确,48)Endif12套， 图2表单fb用于浏览表数据。按下列要求修改表单，修改后表单运行效果如图2所示。1.修改表单的有关属性，使其运行时自动居中。2.将student.score、tcher、course表添加到数据环境中。3.在表单上添加一个选项按钮组和一个表格。4.将表格下方左边的命令按钮换为标签控件。5.使用生成器按图2所示修改选项按钮组的有关属性。6.将选项按钮组的Value属性设置为A，并编写其Click事件代码，要求：第1条命令为c=THIS.Value；第2条命令的功能是将表格数据源属性设置为C；第3条命令按图2所示设置标签控件的标题属性，显示被选中表的表名和表浏览信息。步骤1:设置表单的AutoCenter属性为：.T.。步骤2:在表单上单击鼠标右键，在弹出的快捷菜单中选择【数据环境】命令，打开数据环境设计器，如图3.31所示。接着用鼠标右键单击该设计器，在弹出的快捷菜单中选择【添加】命令。在打开的添加表或视图对话框中将表tcher、student、score、course添加到表格中，如图3.32所示。 图3.31 图3.32步骤3:在表单上添加一个选项按钮组和一个表格，并将右下方的命令按钮删除添加一个标签控件。步骤4:用鼠标右键单击表单，在弹出的快捷菜选择【生成器】命令，如图3.33所示修改选项组生成器的有关属性。 图3.33步骤5:设置OptionGroup1的Click属性如下：c=this.Valuethisform.Grid1.RecordSource = cthisform.Label1.caption = c+浏览器。13套，表单fa用于浏览score表的数据。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.修改表单的有关属性，使表单的标题为数据浏览，背景颜色为淡蓝色(RGB参数是(0，255，255)，表单运行时自动居中。2.首先将score表添加到数据环境中，然后从数据环境中将score表拖到表单上以产生一个表格控件，并设置该表格的有关属性，使得表格无删除标记列、不显示水平线。3.添加标签控件和一个命令按钮组控件，并按图2所示为命令按钮组设置有关属性。4.为命令按钮组编写Click事件代码，要求：首先将表单新方法yyy程序代码复制过来，然后在末尾添加一条命令，使标签控件显示被选中记录的学号(xh)。步骤1:设置表单的Caption属性为：浏览数据，BackColor属性值为：RGB(0，0，255），AutoCenter属性值为：.T.。步骤2:在表单上单击鼠标右键，在弹出的快捷菜单中选择【数据环境】命令，打开数据环境设计器。用鼠标右键单击该设计器，在弹出的快捷菜单中选择【添加】命令。在打开的添加表或视图对话框中将表score添加到表格中。然后将数据环境设计器中的score表拖拽到表单设计器中使之成为表格控件。设置该表格控件的DeleteMark属性值为：.F.,Gridlines属性值为：2-垂直，ScrollBars属性值为：2。步骤3:添加一个标签控件和一个命令按钮组控件，并在生成器的按钮选项卡中设置命令按钮组的按钮个数为4个，修改其名称。步骤4:将表单新方法yyy代码复制到按钮组的Click事件上，并在Click事件最后添加如下一行代码：thisform.Label1.Caption = score.xh。14套，表单fa用于对course表进行插入、删除等操作。按下列要求修改表单，修改后表单运行效果如图2所示。1.修改表单的有关属性，使表单的标题为数据维护，图标为pc.ico文件。 图22.首先将course表添加到数据环境中，然后从数据环境中将course表拖到表单上以生成一个表格控件，并设置该表格的有关属性，使得表格无删除标记列、无水平滚动条。3.添加一个命令按钮组，按图2所示为命令按钮组设置有关属性，并编写Click事件代码，其功能是：首先将命令按钮组当前的Value属性值赋给变量n，然后调用表单的新方法XXX。步骤1:设置表单的Caption属性为：数据维护，Ico属性值为：PC.ico。步骤2:在表单上单击鼠标右键，在弹出的快捷菜单中选择【数据环境】命令，打开数据环境设计器。用鼠标右键单击该设计器，在弹出的快捷菜单中选择【添加】命令。在打开的添加表或视图对话框中将表course添加到表格中。然后将数据环境设计器中的course表拖拽到表单设计器中使之成为表格控件。设置该表格控件的DeleteMark属性值为：.F.，ScrollBars属性值为：2。步骤3:添加一个命令按钮组控件，并在生成器的按钮选项卡中设置命令按钮组的按钮个数为5个，修改其名称，如图3.36所示。步骤4:双击命令按钮组，在命令按钮组的Click事件代码编辑器中添加如下代码：N=this.valueThisform.xxx 图3.3615套，表单fk用于根据所选择的表，将其导出为文本文件或Microsoft Excel文件。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.修改表单的有关属性，使表单的标题为导出，且表单运行时自动居中。2.将两个标签控件的显示文本分别设置为导出类型、导出文件名，将两个单选按钮的显示文本分别设置为文本文件和Excel文件，将命令按钮Command2的显示文本设置为导出。3.完善表单的ABCD方法代码，要求在两个空行处分别添加一条命令，其功能分别是：将当前工作区中打开的表复制为文本文件和Excel文件，文件名由文本框Text2给定。(注：命令中表述导出文件的文件名时，用名称表达式(ALLTRIM(THISFORM.Text2.Value)。) 4.为命令按钮Command2设置Click事件代码，要求用两条命令分别实现：首先调用表单的ABCD方法，然后关闭表单。步骤1:设置表单的Caption属性为：导出，AutoCenter属性值为：.T.。步骤2:将两个标签控件的Caption属性分别设置为导出类型和导出文件名，用鼠标右键单击选项按钮组控件，在弹出的快捷菜单中选择【生成器】命令，分别修改其标题为文本类型和Excel类型。设置命令按钮的Caption属性为导出。步骤3:修改form1方法abcd在空行处分别添加copy to (allt(thisform.Text2.value) sdf和copy to (allt(thisform.Text2.value) sdf两行代码。步骤4:双击命令按钮控件，在命令按钮控件的Click事件代码编辑器中添加如下代码：thisform.abcd()thisform.release16套， 图2表单fh用于用户登录，假定输入的用户名为学生姓名（基于student表的xm字段），密码假定为学号(xh字段)。按下列要求修改表单，修改后表单运行效果如图2所示。1.修改表单的有关属性，使表单的标题为登录，且运行时自动居中，边框样式为固定对话框。2.向表单的数据环境中添加student表，并将其设置为只读。3.添加一个图像(Image)控件，并且将其设置为显示pc.ico图标文件，背景为透明。4.添加一个命令按钮，并且命令按钮控件上显示文本为确定，访问键为Alt+Y。5.为添加的命令按钮设置Click事件代码，其功能是：根据输入的用户名和密码在student表中查找(假定用户名对应姓名、密码为学号)，若找到则将VFP主窗口(对象名为_SCREEN)的标题设置为用户名(即文本框Text1的值)，然后关闭表单，否则显示用户名或密码不正确!消息框并返回。要求用下列代码来实现其功能(该代码需要完善)：LOCATE FOR xm=ALLT(THISFORM.Text1.Value)IF!EOF()_SCREEN.CAPTION=ELSE=MESSAGEBOXRETURNENDIFTHISFORM.操作步骤：(1）设置表单的Caption属性为：登录，AutoCenter属性值为：.T.，BorderStyle属性为：2-固定对话框。(2）用鼠标右键单击，在弹出的快捷菜单中选择【数据环境】命令，在打开的对话框中单击鼠标右键，接着在弹出的快捷菜单中选择【添加】命令，在打开的对话框中选择表student进行添加，在属性面板上设置表student的ReadOnly属性为：.T.。(3）单击表单控件工具栏按钮，在表单控件工具栏中单击图像控件按钮，单击控件进行添加。设置图像控件的Picture属性为：pc.ioc,BackStyle属性为：.T.。(4）单击表单控件工具栏按钮，在表单控件工具栏中单击命令按钮按钮，单击控件进行添加。设置命令按钮的Caption属性为：确认(Y),以使其访问键为Alt+Y。(5）在命令按钮的Click事件中添加如下代码：locate for xm = allt(thisform.Text1.value);AND xh = allt(thisform.Text2.value)if !eof()_screen.caption=student.xmelse=message(用户名或密码不正确)returnendifthisform.release17套， 图2表单fh用于用户登录。按下列要求修改表单，修改后表单运行效果如图2所示。1.修改表单的有关属性，使表单的标题为登录，且无最小化、最大化按钮。2.分别添加标签控件、文本框控件和命令按钮(如图2所示)，且标签控件的显示文本为再次输入密码，命令按钮控件上显示文本为确定，访问键为Alt+Y。3.为输入密码的两个文本框控件设置PasswordChar属性值，使其在运行时输入的密码字符均显示为*。4.为添加的用于再次输入密码的文本框控件设置LostFocus事件处理代码，其功能是检查两次输入的密码是否相同：若两次输入的密码不同，则用MESSAGEBOX()函数显示提示信息两次输入的密码不同!，然后将焦点定位到第一个密码输入文本框。要求用4行命令实现，这4行命令分别是IF、=MESSAGEBOX、THISFORM和ENDIF。5.为添加的命令按钮设置Click事件代码，要求用两条命令实现：首先将VFP主窗口(对象名为_SCREEN)的标题设置为用户名(即文本框Text1的值)，然后关闭表单。操作步骤：(1）设置表单的Caption属性为：登录，MinButton属性值为：.F.，MaxBotton属性为：.F.。(2）单击表单控件工具栏按钮，在表单控件工具栏中分别选中标签控件、文本框控件、命令按钮控件，单击控件进行添加，并设置标签控件的Caption属性为：再次输入密码，命令按钮控件Caption属性为：确定(Y),使其访问键为Y。(3）设置新添加的文本框控件的LostFocus属性的命令如下：if !allt(this.value)=allt(thisform.Text2.value)messagebox(两次输入的密码不相等)thisform.Text2.SetFocus()endif(4）在命令按钮的Click事件中添加如下代码：_screen.Caption = thisform.Text1.valuethisform.release18套，表单fg用于根据所输入的检索词在教材(doxy)表中检索教材书目。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.修改表单的有关属性，使其标题为教材检索，且运行时表单自动居中。2.在表单上分别添加一个标签控件、文本框控件和命令按钮控件，且标签和命令按钮控件上显示的文本分别为检索词和检索。3.向表单的数据环境中添加教材(doxy)表，并利用鼠标的拖放操作，将该表从数据环境设计器窗口拖放到表单上，以生成一个表格控件(如图2所示)，然后将其DeleteMark和ReadOnly属性分别设置为.F.和.T.。4.为检索命令按钮设置Click事件代码，其功能是根据文本框的值检索有关教材，例如在文本框中输入思想，则表格中仅显示教材名称(jcmc字段)中包含有思想的教材。要求利用两条命令实现功能：首先根据文本框的值对doxy表记录进行筛选，然后刷新表单。操作步骤：(1）设置表单的Caption属性为：教材检索，AutoCenter属性为：.T.。(2）单击表单控件工具栏按钮，在表单控件工具栏中分别选中标签控件、输入框控件、命令按钮控件，单击控件进行添加，并设置标签控件的Caption属性为检索词，命令按钮控件的Caption属性为检索。(3）在表单上单击鼠标右键在弹出的快捷菜单中选择【数据环境】命令，打开数据环境设计器。用鼠标右键单击该设计器，在弹出的快捷菜单中选择【添加】命令。在打开的添加表或视图对话框中将表doxy添加到表格中。然后将数据环境设计器中的doxy表拖拽到表单设计器中使之成为表格控件。设置该表格控件的DeleteMark属性值为：.F.，ReadOnly属性值为：.T.。(4）在命令按钮的Click事件中添加如下代码：set filter to allt(thisform.Text1.value) $ jcmcthisform.refresh19套，表单fg用于根据所选择的学校，浏览毕业于该学校的教师名单(教师工号gh、姓名xm)。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.修改表单的有关属性，使表单的标题为校友，且无最小化按钮和最大化按钮。2.向表单上添加一个标签控件(对象名为Label1)、一个组合框控件(对象名为Combo1)和一个列表框控件(对象名为List1)。3.将标签控件的显示文本修改为学校，其控件大小为自动调整。4.将组合框控件的RowSourceType属性设置为SQL语句，RowSource为SELECT DISTINCT byxx FROM tcher ORDER BY 1 INTO CURSOR temp1(注:tcher表中byxx字段的含义是毕业学校）。5.将列表框控件的列数设置为2，数据源类型设置为SQL语句。6.为组合框控件的InterActiveChange事件设置代码，要求用一条命令来设置列表框的数据源，使得根据组合框中选择的学校，在列表框中显示毕业于该学校的教师的教师工号(gh)和姓名(xm)。7.设置表单的Destroy事件处理代码，其功能是关闭所有打开的表和临时表。操作步骤：(1）设置表单的Caption属性为：校友，MinButton属性为：.F.，MaxButton属性为：.F.。(2）单击表单控件工具栏按钮，在表单控件工具栏中分别选中标签控件、组合框控件、列表框控件，单击控件进行添加，并设置标签控件的Caption属性为：学校，AutoSize属性为：.T.。(3）将组合框的RowSourceType属性设置为：3-SQL语句，RowSource属性为：thisform.List1.RowSource=select gh,xm from tcher where byxx = thisform.Combol.value into cursor temp。(4）将列表框的ColumnCount属性设置为：2，RowSourceType属性设置为：3-SQL语句。(5）为组合框控件的InterActiveChange事件设置代码：sele distinct byxx from tcher order by 1 into curser temp1。(6）为表单的destory事件添加处理代码：close tables all。20套，表单ff浏览所选表的数据。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.修改表单的有关属性，使表单的标题为示例，且最大化按钮不可用。2.删除表单上的表格控件，在其位置添加一个列表框控件(对象名为List1)，且将其数据源类型设置为别名。3.在表单的右下角添加一个图像(Image)控件，使其显示pc.ico图标文件，背景为透明(如图2所示)，并且设置其Click事件代码，功能是关闭所有打开的表，然后释放表单(要求使用两条命令)。4.修改命令按钮的标题属性，使其显示文本为选择表，访问键为Alt+T，并且完善其Click事件代码，要求在原代码之后添加两条命令，功能分别为：设置列表框控件的RowSource属性，使列表框中显示当前工作区中打开的表的数据；设置列表框的ColumnCount属性，使其列数为当前工作区中打开表的字段数。操作步骤：(1）设置表单的Caption属性为：示例，MinButton属性为：.F.，MaxButton属性为：.F.。(2）单击表单控件工具栏按钮，在表单控件工具栏中分别选中标签控件、组合框控件、列表框控件，单击控件进行添加，并设置标签控件的Caption属性为：学校，AutoSize属性为：.T.。(3）将组合框的RowSourceType属性设置为：3-SQL语句，RowSource属性为：thisform.List1.RowSource=select gh,xm from tcher where byxx = thisform.Combol.value into cursor temp。(4）将列表框的ColumnCount属性设置为：2，RowSourceType属性设置为：3-SQL语句。(5）为组合框控件的InterActiveChange事件设置代码：sele distinct byxx from tcher order by 1 into curser temp1。(6）为表单的destory事件添加处理代码：close tables all。第21套表单ff用于浏览所选表的数据。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.修改表单的有关属性，使表单的标题为浏览表，且表单运行时不可移动其位置。2.在表格控件的下方添加一个标签控件(对象名为Label1)和文本框控件(对象名为Text1)，并且将标签控件的显示文本修改为记录数。3.修改表格控件的有关属性，使其数据只读。4.修改命令按钮的标题属性，使其显示文本为选择表，访问键为Alt+S，且完善其Click事件代码，要求在原代码之后添加3条命令，功能分别为：设置表格控件的数据源，使表格中显示当前工作区中打开的表的数据；设置文本框Text1的属性，使其显示当前打开表的记录数；刷新表单。5.设置表单的Destroy事件的处理代码，其功能是：关闭所有打开的表。答案操作步骤：(1）设置表单的Caption属性为：浏览表，Moval属性为：.F.。(2）单击表单控件工具栏按钮，在表单控件工具栏分别选中标签控件、文本框控件，单击控件进行添加，并设置标签控件的Caption属性为：记录数。(3）单击表格控件，在属性栏中调整其ReadOnly属性为：.T.。(4）单击命令按钮控件，在其属性面板上调整其Caption属性为选择表(s),使其访问键为Alt+s，并在其Click事件原有代码后添加如下代码：thisform.Grid1.Recordsource = zthisform.Text1.value = ythisform.refresh(5）为表单的destory事件添加如下处理代码：close tables all第22套表单fe用于浏览各院系专业的课程设置。按下列要求修改表单，修改后表单运行效果如图2所示。 图21.修改表单有关属性，使表单的标题为课程设置，且表单运行时不可移动。2.将yard表添加到表单的数据环境中。3.在表格控件的下方添加标签控件(对象名为默认值Label1)，且将其标题改为所有院系专业(运行时用于显示具体的院系专业名称)，控件大小为自动调整。4.修改表单的ShowYxzy方法的程序代码，该方法的功能是根据course表中的院系专业代码(yxzydm)在yard表中查找相应的院系名称(yxmc)和专业名称(zymc)，并将标签控件的标题修改为院系名称和专业名称(如图2所示)，要求在源代码中(空行处)添加两条命令来实现。5.设置表格控件的有关属性，使表格中的数据只读、表格无删除标记列，并且设置表格控件的AfterRowColchange事件处理代码，其功能是调用表单的ShowYxzy方法。答案操作步骤：(1）设置表单的Caption属性为：课程设置，Moval属性为：.F.。(2）单击表单控件工具栏按钮，在表单控件工具栏选中标签控件，单击控件进行添加，并设置标签控件的Caption属性为：所有院系专业，AutoSize属性为：.T.。(3）单击表格控件，在属性栏中调整其ReadOnly属性为：.T.。(4）在Form1属性面板上调整其Showyxzy方法在空行处分别添加如下代码：locat for yxzydm =x， this.label1.caption=yard.yxmc+yard.zymc。(5）为表格控件的AfterRowColChange事件添加如下处理代码：thisform.showyxzy()，使其能够调用表单的ShowYxzy方法。第23套表单fd用于根据所选择的数据库，显示其结构信息(标题属性值、字段名和数据类型)。按下列要求修改表单，修改后表单运行效果如图2(a)所示，选择doxy表后效果如图2(b)所示。 图21.修改表单的有关属性，使表单的标题为显示表结构，且表单为作为顶层表单。2.如图2所示，在表单上添加一个编辑框控件(EditBox)，要求其对象名为Edit1，且数据只读。3.修改表单的DisplayTS方法程序代码，要求在源代码的ENDFOR前一行增加一条命令，功能是将变量cItem的值以新的一行追加到编辑框中。(提示：CHR(13)为换行符。)4.修改表单上的命令按钮，要求其标题为选择数据库表，访问键为Alt+S，其高度为26，宽度为130，并设置其Click事件处理代码，要求利用两条命令实现：清除编辑框中的内容和调用表单的DisplayTS方法。答案表单fd用于根据所选择的数据库，显示其结构信息(标题属性值、字段名和数据类型)。按下列要求修改表单，修改后表单运行效果如图2(a)所示，选择doxy表后效果如图2(b)所示。 图21.修改表单的有关属性，使表单的标题为显示表结构，且表单为作为顶层表单。2.如图2所示，在表单上添加一个编辑框控件(EditBox)，要求其对象名为Edit1，且数据只读。3.修改表单的DisplayTS方法程序代码，要求在源代码的ENDFOR前一行增加一条命令，功能是将变量cItem的值以新的一行追加到编辑框中。(提示：CHR(13)为换行符。)4.修改表单上的命令按钮，要求其标题为选择数据库表，访问键为Alt+S，其高度为26，宽度为130，并设置其Click事件处理代码，要求利用两条命令实现：清除编辑框中的内容和调用表单的DisplayTS方法。第24套表单f072d用于根据所选择的数据库表，显示其结构信息(标题、字段名和数据类型)。按下列要求修改表单，修改后表单运行效果如图2(a)所示，选择score表后效果如图2(b)所示。 图21.将表单的标题修改为查看表结构，且表单运行时自动居中。2.如图2所示，在表单上添加一个列表框控件(ListBox)，且要求其对象名为List1，高度为200，宽度为260。3.修改表单的DisplayTS方法程序代码，要求在源代码的ENDFOR前一行增加一条命令，其功能是：将变量cItem的值添加到列表框中。4.修改表单上的命令按钮，要求其标题为选择数据库表，访问键为Alt+S，其大小为自动调整，并设置其Click事件处理代码，要求利用两条命令实现：先清除列表框中的内容(提示：调用列表框的Clear方法)，然后调用表单的DisplayTS方法。答案 操作步骤：(1）设置表单的Caption属性为：查看表结构，AutoCenter属性为：.T.。(2）单击表单控件工具栏按钮，在表单控件工具栏选中列表框控件，单击控件进行添加，并设置控件的Name属性为默认值List1，Width属性为：200，Height属性为：260。(3）在Form1属性面板上调整其DisplayTS方法，在ENDFOR语句前添加代码thisform.List1.addItem(cItem)。(4）修改表单命令按钮的Caption属性为：显示数据库表(S)，以使【Alt