delphi复习题答案版

Delphi Gary

var

h，n，s，m，：integer; begin

m := timer1.Tag + 1; timer1.Tag := m;

s := m div 10; //总秒数

m := m mod 10; //1/１０秒数 n := s div 60; //总分钟数 s := s mod 60; // 秒钟数 h := n div 60; //小时数 n := n mod 60; //分钟数

maskedit1.Text := format(‘%d:%d:%d’,[h,n,s,m]); end;

３．

2） 编写小时钟程序，利用timer控件来控制指针的转动。

3） 设计一个能够实现SQL查询的应用程序，掌握SQL基本的操作语句。

（1） 使用GotoKey方法查找数据记录 （2） FindKey方法查找数据库的记录

设计程序利用上述两种方法查询数据库记录。 程序代码如下：

procedure TForm1.Button1OnClick(Sender:TObject); begin

with Table1 do begin

Label3.Caption :=''; Edit2.TEXT:='';

IndexFieldNames:='学号'; setkey;

FieldByName('学号').AsString:=Edit1.Text; If GotoKey then begin

Label3.Caption:='查询成功';

EDIT2.TEXT:=FieldByName('姓名').AsString; end

北101 5 / 6 Week18 Thur

Delphi Gary

else

Label3.Caption:='查询失败' end; end;

如果使用Findkey方法代替上例中的处理过程，则采用如下的程序代码： procedure TForm1.Button1OnClick(Sender:TObject); var

SeekValue:string; begin

with Table1 do begin

Label3.Caption:=''; Edit2.text:='';

IndexFieldName:='学号'; SeekValue:=Edit1.Text;

If FindKey([SeekValue]) then begin

Label3.Caption:='查询成功';

Edit2.text:=FieldByName('姓名').AsString; end else

Label3.Caption:='查询失败'； end;

以上题目仅供复习使用，考试要注意细心读题。 考试题量较多，同学们要注意把握好时间！ 尽量不要留出题目不写！

考试不准携带纸条入内，一旦发现零分处理。

北101 6 / 6 Week18 Thur