uz_gtsp_ye.pas

来自「恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001」· PAS 代码 · 共 65 行

unit uz_gtsp_ye;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, ComCtrls, ToolWin, Grids, DBGrids, Db, DBTables,
  StdCtrls, ImgList;

type
  Tz_gtsp_ye = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    H1: TMenuItem;
    H2: TMenuItem;
    N11: TMenuItem;
    A1: TMenuItem;
    DBGrid1: TDBGrid;
    ImageList1: TImageList;
    ToolButton4: TToolButton;
    Label1: TLabel;
    cx: TEdit;
    fg1: TToolButton;
    fg2: TToolButton;
    procedure ToolButton3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_gtsp_ye: Tz_gtsp_ye;

implementation

uses uabout;

{$R *.DFM}

procedure Tz_gtsp_ye.ToolButton3Click(Sender: TObject);
begin
   close;
end;

procedure Tz_gtsp_ye.A1Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

end.