pjmagagerunit.pas

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

unit pjmagagerunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, SUIURLLabel, SUIButton, DB, DBTables, jpeg,
  ImgList, XPMenu, Menus;

type
  TForm1 = class(TForm)
    Image1: TImage;
    suiURLLabel1: TsuiURLLabel;
    suiURLLabel2: TsuiURLLabel;
    lbldate: TLabel;
    Timer1: TTimer;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    suiButton6: TsuiButton;
    Label1: TLabel;
    Label2: TLabel;
    ImageList_toolbar2: TImageList;
    ImageList_toolbar3: TImageList;
    suiButton7: TsuiButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    XPMenu1: TXPMenu;
    N13: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton7Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses personunit, aboutunit, typeunit, lydjunit, reciveunit, unreciveunit,
  userunit, updatepsdunit, Unit1, deleteunit;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  lbldate.Caption:=formatdatetime('yyyy''年''mm''月''dd''日 ',date)+timetostr(now);
end;

procedure TForm1.suiButton6Click(Sender: TObject);
begin
   application.Terminate;
end;

procedure TForm1.suiButton1Click(Sender: TObject);
begin
 if personform.Table1.Active=false then
    personform.Table1.Open;
personform.showmodal;
end;

procedure TForm1.suiButton7Click(Sender: TObject);
begin
  aboutform.showmodal;
end;

procedure TForm1.suiButton2Click(Sender: TObject);
begin
  typeform.showmodal;
end;

procedure TForm1.suiButton3Click(Sender: TObject);
begin
  lydjform.showmodal;
end;

procedure TForm1.suiButton4Click(Sender: TObject);
begin
  reciveform.ShowModal;
end;

procedure TForm1.suiButton5Click(Sender: TObject);
begin
  unreciveform.showmodal;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  suiButton1Click(Sender);
end;

procedure TForm1.N7Click(Sender: TObject);
begin
 suiButton2Click(Sender);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
  suiButton7Click(Sender);
end;

procedure TForm1.N8Click(Sender: TObject);
begin
  suiButton3Click(Sender);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
  suiButton4Click(Sender);
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  suiButton5Click(Sender);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  userform.showmodal;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  updatepsdform.showmodal;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
  deleteform.showmodal;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
      application.Terminate;
end;

end.