face.pas

来自「集成酒店桑拿食管管理的完整程序」· PAS 代码 · 共 63 行

unit face;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    pb: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses dataproc;

{$R *.DFM}

procedure TForm2.Timer1Timer(Sender: TObject);
begin
 pb.stepit;
 if pb.position=pb.max   then
 close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  timer1.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
   fm.query1.close;
   fm.query1.sql.clear;
   fm.query1.sql.add('Select UnitName from syssetup');
   fm.query1.open;
   Label1.Caption:=trim(unpassname(fm.query1.Fields[0].asstring));
   Label1.Left:=strtoint(floattostr(int((Width-Label1.Width)/2)));
   fm.query1.close;
   fm.Query1.UnPrepare;
   fm.query1.RequestLive:=false;


end;

end.