开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MaxForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

MaxForm.pas：源码内容
  1. unit MaxForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, Db, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     EmpTable: TTable;
  12.     EmpQuery: TQuery;
  13.     Database1: TDatabase;
  14.     BtnTable: TButton;
  15.     BtnQuery: TButton;
  16.     procedure BtnTableClick(Sender: TObject);
  17.     procedure BtnQueryClick(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  24. var
  25.   Form1: TForm1;
  27. implementation
  29. {$R *.DFM}
  31. procedure TForm1.BtnTableClick(Sender: TObject);
  32. var
  33.   MaxSalary: Double;
  34.   Tick: Cardinal;
  35. begin
  36.   Tick := GetTickCount;
  37.   EmpTable.Open;
  38.   EmpTable.First;
  39.   MaxSalary := 0;
  40.   while not EmpTable.Eof do
  41.   begin
  42.     if EmpTable.FieldByName ('Salary').AsCurrency > MaxSalary then
  43.       MaxSalary := EmpTable.FieldByName ('Salary').AsCurrency;
  44.     EmpTable.Next;
  45.   end;
  46.   Caption := 'Time: ' + IntToStr (GetTickCount - Tick);
  47.   ShowMessage (FloatToStr (MaxSalary));
  48. end;
  50. procedure TForm1.BtnQueryClick(Sender: TObject);
  51. var
  52.   Tick: Cardinal;
  53. begin
  54.   Tick := GetTickCount;
  55.   EmpQuery.Open;
  56.   Caption := 'Time: ' + IntToStr (GetTickCount - Tick);
  57.   ShowMessage (EmpQuery.Fields[0].AsString);
  58. end;
  60. end.