表单组合框!10

表单组合框!10 以下文件均保存在C:\SourceCode\3000105文件夹中 按下列要求进行操作: 1)新建表单文件F104。 在表单体中加入两个标签控件Label1和Label2，一个组合框Combo1，一个文本框Text1和一个命令按钮Command1。 Label1标签所显示的标题文字为粗体红色隶书18号字“请选择姓名:”，Label2标签所显示的标题文字为斜体蓝色黑体18号字“成绩等级为:”;组合框Combo1的选项显示为粗体14号字;文本框Text1的值显示为粗体18号字;命令按钮Command1的键面显示出粗体14号字“显示”。如图1所示。 设定组合框的RowSourceType属性值为:3-SQL语句。 2)为表单的Init事件编程，使得刚运行表单时，表单是居中显示的，且只显示出命令按钮，而见不到其它控件。图示见图2。 3)为命令按钮的Click事件编程，使得单击该命令按钮时，能显示出其它控件，同时使得组合框的选项为T104表中所有记录的姓名字段值;最后使命令按钮变成不可用的。图示见图3。 4)为组合框的InteractiveChange事件编程，使得当用户在组合框中选择了某个姓名时，能根据成绩来为该生确定其成绩等级。成绩等级的评定规则为:成绩高于650分者为优秀，成绩低于或等于650分但不低于600分者为良好，成绩低于600分而高于550分者为一般，成绩不高于550分者为差。图示见图4。 T104表含有考号、身份证号、姓名、性别、考试名称、成绩等字段，(题分:20.0 0.0) 得分: [参考答案0] PROCEDURE Init This.Label1.Visible=.F. This.Label2.Visible=.F. This.Combo1.Visible=.F. This.Text1.Visible=.F. This.AutoCenter=.T. ENDPROC [参考答案1] PROCEDURE InteractiveChange XM=This.Value LOCATE FOR 姓名=XM DO CASE CASE 成绩>650 Thisform.Text1.Value="优秀" CASE 成绩>=600 Thisform.Text1.Value="良好" CASE 成绩>550 Thisform.Text1.Value="一般" OTHERWISE Thisform.Text1.Value="差" ENDCASE ENDPROC [参考答案2] PROCEDURE Click Thisform.Label1.Visible=.T. Thisform.Label2.Visible=.T. Thisform.Combo1.Visible=.T. Thisform.Text1.Visible=.T. CC="SELECT 姓名 FROM T104 INTO CURSOR TT" Thisform.Combo1.RowSource=CC This.Enabled=.F. ENDPROC 图1 图2 图3 图4