uxxts.pas

来自「小型企业物品管理系统,DELPHI源码+ACCESS数据库」· PAS 代码 · 共 60 行

unit Uxxts;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, ExtCtrls, RzPanel;

type
  TFxxts = class(TForm)
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    lbl1: TLabel;
    RzToolbar1: TRzToolbar;
    RzSpacer1: TRzSpacer;
    img3: TImage;
    RzStatusBar1: TRzStatusBar;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure img3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fxxts: TFxxts;

implementation

uses Umain, Usysoption;

{$R *.dfm}

procedure TFxxts.RzBitBtn1Click(Sender: TObject);
begin
  Fsysoption.ShowModal;
end;

procedure TFxxts.RzBitBtn2Click(Sender: TObject);
begin
  close;
  fmain.Timer1.Enabled:=false;
end;

procedure TFxxts.FormShow(Sender: TObject);
begin
  fxxts.Left:=620;
  fxxts.Top:=570;
end;

procedure TFxxts.img3Click(Sender: TObject);
begin
  RzBitBtn2.Click;
end;

end.