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

25编制“学生”表信息查询界面，要求如图1、图2、图3所示。 图1 用户选择前的运行界面 图2 用户选择同学后的运行界面答案：（学生表拉到数据环境）（把“性别”字段拉到表单内，改Caption）（1）表单Form1的Init事件代码：Thisform.Label1.Caption=”请选择学生姓名”Thisform.Label2.Caption=”学号”Thisform.Label3.Caption=”姓名”Thisform.Labe4.Caption=”性别”Thisform.Label5.Caption=”出生年月”Thisform.Label6.Caption=”奖学金”Thisform.Check1.Caption=”选中为男,否则为女”Thisform.Caption=”学生表信息查询”Thisform.Setall(“Readonly”,.T.,”TextBox”)Thisform.Check1.Readonly=.T.（2）列表框List的InterActiveChange事件代码：ThisForm.SetAll(Visible,.T.) ThisForm.Refresh19编制一个表单完成表文件“学生.dbf”内容的学生奖学金查询显示功能（界面如图所示）。要求：当用户在组合框输入或选择班级（学号的前三位）后，按回车或“确定”按钮时，表单将自动显示对应班级的奖学金总额；按“退出”按钮时，自动关闭表单。图:用户选择确定后的运行界面答案：(把学生表拉到数据环境)(1)表单Form1的Init事件代码：SET TALK OFFSET SAFETY OFFINDEX ON LEFT(学生.学号,3) TO XH UNIQUEThisform.Combo1.DisplayValue=Left(学生.学号,3)SCAN Thisform.Combo1.AddItem(Left(学生.学号,3)ENDSCANSET INDEX TO(2)组合框Combo1的Valid事件代码：IF EMPTY(This.DisplayValue) RETURN .T.ENDIFLOCATE 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.Release18建立一个表单，通过每次单击“开始”按钮，都能实现表单的标签信息从顶行向下平移，移到底边即停止。设计界面如图所示。标签高度为30像素，字体颜色为蓝色。图：信息单向平移表单设计界面答案：(Foreclour)(1)表单Form1的Init事件：Thisform.Timer1.Enabled=.F.(2)命令按扭Command1的事件代码:Thisform.Timer1.Enabled=.T.(3)命令按扭Command2的事件代码:Thisform.Release(4)计时器Timer1的Timer事件：IF Thisform.Label1.Top9,STR(Thisform.H,2),0+STR(Thisform.H,1)MM=IIF(Thisform.M9,STR(Thisform.M,2),0+STR(Thisform.M,1)SS=IIF(Thisform.S9,STR(Thisform.S,2),0+STR(Thisform.S,1)Thisform.Text1.Value=HH+:+MM+:+SSThisform.Refresh4编一页面转换表单，界面如图所示。要求表单上有一个包含三页的页框，每页依次放入一幅图画（FOX.BMP）、一张表格（显示“学生.DBF”的数据）、一个列表框（包含有“学生.DBF”的“姓名”字段），并能每隔2秒钟从左自右自动换页，当翻到第3页后，自动回到第1页，未被激活的页面自动设为不可访问。图: 页面转换界面答案：（表单，新建属性）(1)表单form1的init事件thisform.P=0（2）计时器timer1的timer事件thisform.pageframe1.page1.enabled=.F.thisform.pageframe1.page2.enabled=.F.thisform.pageframe1.page3.enabled=.F.thisform.P=thisform.p+1IF thisform.Pthisform.pageframe1.pagecount thisform.P=1ENDIF thisform.pageframe1.pages(thisform.P).enabled=.T.thisform.pageframe1.activepage=thisform.Pthisform.Refresh13设计一个表单，当用户在文本框中输入矩阵的维数N后，按“显示”按钮则会在编辑框中输出对角线为0的N维矩阵。界面如图所示。 图：设计界面 图：运行界面答案：（list）（1)文本框text1的valid事件代码IF VAL(This.Value)9 OR VAL(This.Value)1 =MESSAGEBOX(“输入错，请重新输入!”) RETURN.f.ELSE RETURN.T.ENDIFThisform.Refresh （2）命令按钮显示command1的click事件代码N=Val(ALLTRIM(Thisform.Text1.Value)DIMENSION A(N,N)CH=”FOR I=1 TO N FOR J=1 TO N IF I=J OR I+J=N+1 A(I,J)=0 ELSE A(I,J)=1 ENDIF CH=CH+STR(A(I,J),2)ENDFORCH=CH+CHR(13)ENDFORThisform.Edit1.Value=ch Thisform.Text1.SetFocus Thisform.Refresh7设计一个表单，使表单中的信息行显示系统当前时间，并使该信息行在表单内左右缓慢平移。界面如图所示。 图：设计界面 图：运行界面答案：（新建属性D）(1)表单form1的init事件this.caption=信息行动态平行移动thisform.timer1.Interval=100thisform.label1.caption=TIME()thisform.label1.left=0thisform.d=.t.(2)计时器timer1的timer事件thisform.label1.Caption=TIME()IF thisform.label1.Left=thisform.Width-thisform.label1.Width thisform.D=.f.ENDIF IF thisform.D=.t. thisform.label1.Left=thisform.label1.Left+1ELSE thisform.label1.Left=thisform.label1.Left-1ENDIF thisform.refresh8利用计时器控件设计一个模拟拍球动作的表单。具体界面如图所示。球的起始位置在表单的顶行中部，表单执行后，球自上而下落下并且球体逐渐变大，当球到达表单底部时自动弹回，并且球体又逐渐回缩变小，当球到达顶部时再次自动下落，如此往复弹跳，仿佛有人用手拍打球，直到关闭表单。 图: 球自上而下落下 球逐渐变大到达底部答案：（新建属性F）（1）表单form1的init事件thisform.shape1.Width=40thisform.shape1.height=40thisform.shape1.Top=0thisform.T=1thisform.timer1.Interval=100（2） 表单timer1的timer事件IF Thisform.Shape1.Top=thisform.Height-thisform.shape1.height thisform.T=0ENDIFif thisform.T=1 thisform.shape1.top=thisform.shape1.top+1 thisform.shape1.height=thisform.shape1.height+1 thisform.shape1.width=thisform.shape1.width+1ELSE thisform.shape1.top=thisform.shape1.top-1 thisform.shape1.height=thisform.shape1.height-1 thisform.shape1.width=thisform.shape1.width-1ENDIFthisform.refresh9设计一个三表表单（学生表、成绩表、课程表），成绩表与学生表建立临时关联，成绩表与课程表建立临时关联，查询相关的信息。运行界面如图所示。答案：(1)表单form1的init事件thisform.SetAll(readonly,.T.,grid)thisform.setall(allowaddnew,.F.,grid)thisform.SetAll(deletemark,.F.,grid)23编制一个表单完成表文件学生.dbf成绩.dbf课程.dbf内容的编辑浏览显示功能（设计界面和运行界面如图所示）。具体要求如下：1、三个表文件分别显示在三个不同的页面上；2、表单内容将以3秒为间隔自动换页刷新，即自动自左向右顺序翻页，当翻至第三页时，将自动回到第一页循环翻动。 图：设计界面 图：运行界面答案：(1)计时器timer1的timer事件DO CASE CASE thisform.pageframe1.ActivePage=1 thisform.pageframe1.ActivePage=2 CASE thisform.pageframe1.ActivePage=2 thisform.pageframe1.ActivePage=3 CASE thisform.pageframe1.ActivePage=3 thisform.pageframe1.ActivePage=1ENDCASE thisform.Refresh 21设计表单完成如图所示的界面。具体要求如下：当在文本框输入数字并回车，判断按钮会自动按下，并判断该数是否为素数，同时焦点自动回倒text1，自动选中原文本框中数据，准备接收新的输入。 图：设计界面 图：运行界面答案：（1）表单form1的init事件thisform.text1.SelectOnEntry=.T.thisform.text2.readonly=.T.thisform.text1.value=3mand1.default=.T.（2）命令按钮command1的click事件n=thisform.text1.ValueFOR i=2 TO n-1 IF n%i=0 EXIT ENDIF ENDFOR IF in-1 thisform.text2.Value=是素数!ELSE thisform.text2.Value=不是素数!ENDIF thisform.text1.SetFocusthisform.Refresh(3) 命令按钮command2的click事件thisform.Release22设计表单完成如图所示的界面。具体要求如下：当表单运行后，图片自动从右向左移动，当移动到左边界时，又回到右边继续移动。 答案：（interval设置为10）（1）表单form1的lnit事件thisform.F=0thisform.caption=动画（2）计时器timer1的timer事件IF thisform.F=0thisform.image1.Left=thisform.image1.Left-1 IF thisform.image1.Left=Thisform.width-Thisform.Image1.Width thisform.F=1 ENDIF ENDIF IF thisform.F=1 thisform.image1.Left=thisform.image1.Left-1IF thisform.image1.Left=0 thisform.F=0 ENDIF ENDIF24设计如图所示的表单，根据“学生”、“课程”、“成绩”表，用SQL-SELECT语句实现以下查询：（查询表单）l 在查询1按钮中实现查找1990年之后出生的学生的信息的功能（查询内容显示时包含学号、姓名、出生日期、课程名和成绩五个字段）。l 2.在查询2按钮中实现查找成绩在60分以上的学生的信息的功能（查询内容显示时包含学号、姓名、课程名和成绩四个字段）。l 3.在查询3按钮中实现查找学号的前三位为081的学生的信息的功能（查询内容显示时包含学号、姓名、课程名和成绩四个字段）。l 4.表单的标题是查询。答案：（1）command1的click事件（3个表都拉到数据环境）SELECT 学生.学号,姓名,出生年月,课程名,成绩 FROM 学生,成绩,课程;WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND YEAR(出生年月)=1990（2）command2的click事件SELECT 学生.学号,姓名,出生年月,课程名,成绩 FROM 学生,成绩,课程;WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND 成绩=60（3）command3的click事件SELECT 学生.学号,姓名,出生年月,课程名,成绩 FROM 学生,成绩,课程; WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND LEFT(学生.学号,3)=081（4）command4的click事件thisform.Release10. 设计一个表单，实现查询并显示指定学生的平均成绩和成绩档次。要求不及格的平均成绩和成绩档次用红字显示，其他用蓝字显示。（1） 表单form1的Destory事件 SET TALK ON（2） 表单Form1的Init事件 SET TALK OFF（3） 命令按钮组Comman