在系统提示窗口提示\合法的日期区间\。
完成上述修改后运行表单，屏幕显示如图2所示。 图2
答案 操作步骤：
(1）打开表单设计器，设置Spny1的Value属性为year(date(）），Spnm1的Value属性为1，Spnd1的值为1。设置Spny2的Value属性为year(date(）），Spnm2的Value属性为months(date(）），Spnd2的Value属性值为day(date(））。
(2）添加一个标签控件修改器，设置其Caption属性为：至。
(3）选择\确定\按钮，调整其属性Default值为：.T.,并在Click事件的if语句行添加如下代码：
if empty(drq1) or empty(drq2) or drq1>drq2 then
wait wind ?非法日期?
thisform.Spny1.setfocus()
第37套表单fi用来显示学生(student)表的基本信息。按下列要求修改表单。 1.编辑框中数据为只读，但能获得焦点。
2.设置编辑框的ControlSource属性，使其能显示学生的简历(jl)字段的内容。 3.将组合框设置为下拉列表框。
4.已知学生(student)表已经按xh字段建立了主索引，索引名为xsxh，在数据环境中设置student的默认排序方式为按xh排序。
5.编制表格Grid1的AfterRowColChange事件代码，使编辑框能立即显示Grid1中指定行的学生的简历。
6.在组合框的InterActiveChange事件代码中编写一条语句，使得当改变字体时表单上所有对象的字体跟着改变。
完成上述修改后运行表单，屏幕显示如图2所示。 图2
答案 操作步骤：
(1）打开表单设计器，设置编辑框Edit1的ReadOnly属性为：.T.,ControlSource属性为：student.jl。
(2）修改组合框Cbo1的Style属性为：2-下拉列表框，在组合框的InteractiveChange属性中输入如下代码：thisform.setall(?FontName?,allt(this.value))。
(3）选择表格Grid1，在其属性AfterRowColChange增加如下代码：thisform.refresh。 第38套 表单fh用来形成一个指定的日期。根据下列要求修改表单。 1.将表单设置为模式表单。
2.设置年微调框的初值为2000，设置日微调框的最大值为31。 3.将形状控件的显示效果设置成三维。
4.设置\确定\命令按钮的Default属性，使得在表单运行时，能在任何时刻通过按【Enter】键触发\确定\命令按钮的Click事件。
5.完善\确定\命令按钮的Click事件代码，其功能是：单击该按钮时，根据微调框的值形成一个类似日期格式的字符串，然后将其转换为日期存入变量drq中，并判断该日期的合法性。如果不合法，用WAIT WINDOW命令提示\日期不合法\，同时将光标定位在年份上重新输入，否则显示该日期。(提示：在已有代码的空行处增加相应命令。) 完成修改后运行表单，屏幕显示如图2所示。 图2
答案 操作步骤：
(1）打开表单设计器，设置表单的WindowType属性为：1-模式。
(2）修改spny的Value属性为：2000，spnd的SpnnerHighValue属性为：31。
(3）修改Shape1的SpecialEffect属性值为：0-三维。
(4)设置\确定\按钮的Default属性为:.T.，在 Click事件的空白行输入如下代码：
if empty(drq) then
wait wind ?非法日期?
thisform.Spny.SetFocus
第39套 表单fg用来查看学生(student)表中男、女学生比例及平均年龄。根据下列要求修改表单，修改后表单的运行效要如图2所示。 图2
1.表单上的3个文本框设置为不可用状态。
2.设置所有的文本框在不可用状态时前景色为RGB(0，0，0)。 3.表格中数据为只读，且表格能获得焦点。
4.修改组合框的RowSource属性，使得相同的班级只显示1次。
5.完善组合框的InterActiveChange事件代码，使得当选定一个班级时，表格中显示该班学生的基本情况，3个文本框分别显示该班学生的男生人数、女生人数及学生的平均年龄。(提示：在已有代码的空行处增加3行命令。) 答案 操作步骤：
(1）打开表单设计器，分别设置表单上3个文本框的Enabled属性为：.F.,ForeColor属性为RGB(0，0，0）。
(2）修改表格Grid1的ReadOnly属性为：.T.。
(3）修改组合框的RowSource属性为：sele bjbh from student into curs cXstmp 。
(4)在组合框的InteractiveChange事件原有代码的空行处加如下代码:
thisform.Text1.Value = cRstmp.n
thisform.Text2.value = cRstmp.zrs - n
thisform.Text3.Value = cRstmp.pjnl
第40套 表单ff用来针对成绩(score)表内容实现用户自定义查询。根据下列要求修改表单。 1.将表格中成绩列的背景色设置为RGB(128，255，255)。
2.在组合框上方添加一个标签，标题为\查询关键字\，如图2所示。 图2
3.设置\确定\命令按钮的Default属性，使在表单运行时，能通过按［Enter］键触发\确定\命令按钮的Click事件。
4.已知score表已经分别以xh、kcdh、cj字段为索引表达式建立索引，索引标识分别为cjxh、cjkcdh、cjcj。在数据环境中为score表设置记录的排序方式：按xh排序。
5.完善\确定\命令按钮的Click事件代码，当单击该按钮时，能按选定的查询关键字及文本框中输入的内容进行记录的快速定位。(提示：在已有代码的两个空行处分别增加一行命令。) 答案 操作步骤：
(1）在属性面板中选择Grid1的Column3，设置其BackColor属性RGB(128，255，255）。
(2）在组合框上方添加一个标签控件，设置其Caption属性为：查询关键字。
(3）设置\确定\按钮的Default属性为：.T.。
(4）在表单设计器的标题栏中单击鼠标右键，在弹出的快捷菜单中选择【数据环境】命令，在弹出的\数据环境\对话框中双击以使属性面板显示数据环境的相关属性，设置Cursor1的Order属性为cjxh。
(4)在\确定\按钮的Click事件原有代码的空行处加如下代码:
tagx = ?cj?+ALLT(Thisform.Cbo1.Value)
seek str1
第41套：表单fe用来进行信息项的选择。在左边列表框List1中选中一项，然后单击?按钮，则选中的项移入右边的列表框List2中，反之将右边列表框List2中选中的项移入左边列表框List1中。根据下列要求修改表单，完成修改后运行表单，屏幕显示如图2所示。 图2
1.根据列表框List1的RowSource属性值来设置它的RowSourceType属性值。
2.设置表单边框为固定对话框，表单不能最大化和最小化。
3.为列表框List1编制Init事件代码，使得表单运行时，首先选中第一项。
4.已知当双击列表框List1中的某一项时，能够将该项从list1中移入List2中。为按钮命令?编制Click事件代码，要求：单击该按钮时，实现同样的功能。 5.完善按钮命令??的Click事件代码，单击该按钮时，将List2中的所有项都移到List1中。(提示：在已有代码的空行处增加一行命令，使List2的第一项成为当前选定项)。
答案：操作步骤：
(1）在属性面板中选择List1，设置其RowSourceType属性为：1-值。
(2）设置表单的BorderStyle属性为：2-固定对话框，Maxbotton，MinButton属性值均为：.F.。
(3）设置列表框List1的init属性为：thisform.List1.ListIndex = 1。
(4）为命令按钮?的Click事件中添加如下代码：
if thisform.List1.ListIndex>0
thisform.list1.DblClick()
endif
(5）在命令按钮??的Click事件中空白行中添加如下代码：
thisform.List2.ListIndex=1
第42套：表单fd用来针对成绩(score)表实现用户自定义排序。已知score表已经存在索引名分别为cjxh、cjkcdh和cjcj的索引，索引表达式分别为xh、kcdh和cj。根据下列要求修改表单。
1.表格中的数据设置为只读，且表格中每一列都能获得焦点。 2.如图2所示，设置各单选按钮的标题。 图2
3.将表格设置为只有垂直滚动条。
4.将\确定\命令按钮的访问键设置为［O］。
5.在数据环境中设置score表默认排序方式为按学号(xh)排序。
6.完善\确定\命令按钮的Click事件代码，单击该按钮时，能按选定的方式排序。(提示：分别在源代码的两个空行处添加一行语句。)
答案：操作步骤：
(1）打开表单设计器，修改表格Grid1的ReadOnly属性为：.T.。
(2）在\属性\对话框顶部的下拉列表中选中选项组控件Opt1下的Option2单选按钮，修改其Caption属性为：课程内容，以同样的方法修改Options3的Caption属性为：成绩。
(3）修改表格Grid1的ScrollBars属性为：2-垂直。
(4）将\确认\按钮的Caption属性值更改为：确认(＼ (5）打开表单的数据环境设计器，选中score表，在属性窗口中设置Order属性为：xh。 (6) 双击\确定\按钮，在Click事件原有代码的空行处加如下代码: Sort1=?cjcj? Set order to &Sort1 第43套：表单fc用来进行信息项的选择。在左边列表框list1中选中一项，然后单击?按钮，则选中的项移入右边的列表框List2中，反之将右边列表框中选中的项移入左边列表框中。根据下列要求修改表单。 1.将表单的标题设置为\项目选择\，表单为模式表单，表单不能最大化和最小化。 图2 2.完善命令按钮?的Click事件代码，使得List1中选定的项加入List2的同时，该项从list1中移去。(提示：在源代码的空行处添加一行语句。) 3.为List1编写DblClick事件代码：双击列表框List1中的某一项时，同样能实现将List1中该项移到List2中(且从List1中移去)。 4.完善命令按钮??的Click事件代码，单击该按钮时，将List1中的所有项都移到List2中(提示：将源代码作为循环体，增加一个循环入口语句和循环出口语句)。完成上述修改后运行表单，屏幕显示如图2所示。 答案：操作步骤： (1）设置表单的Caption属性为：项目选择，WindowType属性为：1-模式表单，MaxButton和MinButton属性均为：.F.。 (2）在命令按钮?的Click事件原有代码的空格处添加如下代码：thisform.List1.RemoveItem(thisform.List1.ListIndex)。 (3）在列表List1的DblClick事件中添加如下代码：thisform.Command1.Click()。 (4）在命令按钮??的Click事件中开始处添加如下代码： for i=1 to to thisform.List1.removeItem(thisform.list1.ListCount)