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
