数据库应用基础期末考试表单题库答案.docVIP

1．编制“学生”表信息查询界面，要求如图1、图2、图3所示。 图1 用户选择前的运行界面 图2 用户选择同学后的运行界面 答案：（学生表拉到数据环境）（把“性别”字段拉到表单内，改Caption） （1）表单Form1的Init事件代码： Thisform.List1.RowSourceType= 6 Thisform.List1.RowSource=学生.姓名 Thisform.SetAll(ReadOnly,.T.,TextBox) Thisform.SetAll(Visible,.F.,TextBox) Thisform.SetAll(Visible,.F.,Label) Thisform.SetAll(Visible,.F.,CheckBox) Thisform.Label1.Visible=.T. Thisform.Refresh （2）列表框List的InterActiveChange事件代码： ThisForm.SetAll(Visible,.T.,Textbox) ThisForm.SetAll(Visible,.T.,Label) ThisForm.SetAll(Visible,.T.,CheckBox) ThisForm.Refresh 2．编制一个表单完成表文件“学生.dbf”内容的学生奖学金查询显示功能（界面如图所示）。 要求：①当用户在组合框输入或选择班级（学号的左三位）后，按回车或“确定”按钮时，表单将自动显示对应班级的奖学金总额；②按“退出”按钮时，自动关闭表单。 图:用户选择确定后的运行界面 答案：(把学生表拉到数据环境) (1)表单Form1的Init事件代码： SET TALK OFF SET SAFETY OFF INDEX ON LEFT(学生.学号,3) TO XH UNIQUE Thisform.Combo1.DisplayValue=Left(学生.学号,3) SCAN Thisform.Combo1.AddItem(Left(学生.学号,3)) ENDSCAN SET INDEX TO (2)组合框Combo1的Valid事件代码： IF EMPTY(This.DisplayValue) RETURN .T. ENDIF LOCATE FOR LEFT(ALLTRIM(学生.学号),3)==LEFT(ALLTRIM(This.DisplayValue),3) IF EOF() RETURN .F. ELSE RETURN .T. ENDIF (3)命令按扭Command1的Click事件代码: SUM 奖学金 TO MJXJ FOR LEFT(ALLTRIM(学号),3)==LEFT(ALLTRIM(Thisform.Combo1.DisplayValue),3) Thisform.Text1.Value=MJXJ (4)命令按扭Command2的Click事件代码: Thisform.Release 3．建立一个表单，通过控件的事件代码控制，实现表单顶行的标签信息向下平移。设计界面如图所示： 图：信息单向平移表单设计界面 答案：(Foreclour) (1)表单Form1的Init事件： Thisform.Timer1.Enabled=.F. (2)命令按扭Command1的事件代码: Thisform.Timer1.Enabled=.T. (3)命令按扭Command2的事件代码: Thisform.Release (4)计时器Timer1的Timer事件： IF Thisform.Label1.Top=Thisform.Height-Thisform.Label1.Height Thisform.Label1.Top=Thisform.Label1.Top+1 ENDIF Thisform.Refresh 4．运用文本框和计时器对象设计一个数字时钟表单，界面如图1、2所示。要求：文本框文字为隶书、20号字，表单的标题为“数字时钟”，每隔1秒钟刷新一次时间。 图1：设计界面 图2：运行界面 答案： 表单Form1的Init事件代码： Thisform.Caption=数字时钟 Thisform.Text1.FontName=隶书 Thisform.Text1.FontSize=20 Thisform.Timer.Interval=1000 (2)计时器Timer1的Timer事件： Thisform.Text1.Value=LEFT(TIME(),2)+时+SUBSTR(TIME(),4,2)+分+RIGHT(TIME(),2)+秒 5．设计一个圆球跳动表单。要求：球的宽和高为40，球的填充颜