aboutunit.pas

来自「本软件专门用于管理餐饮行业的点菜单、加菜单酒水单等重要票据的领用及回收情况」· PAS 代码 · 共 45 行

unit aboutunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, jpeg, ExtCtrls, SUIButton, StdCtrls, SUIForm;

type
  Taboutform = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    Shape1: TShape;
    suiButton1: TsuiButton;
    Image1: TImage;
    TabControl1: TTabControl;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aboutform: Taboutform;

implementation

{$R *.dfm}

procedure Taboutform.suiButton1Click(Sender: TObject);
begin
  close;
end;

end.