unit UnitMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, RzPanel, Menus, Winsock, ActnList;

type
  TMainForm = class(TForm)
    RzPanel1: TRzPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    Action7: TAction;
    Action8: TAction;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure Action7Execute(Sender: TObject);
    procedure Action8Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses UnitAlterPWDForm, UnitGj, UnitHf, UnitSh, UnitSplashForm, UnitXs,
  UnitQueryForm;

{$R *.dfm}

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(Handle, 1000, AW_CENTER + AW_HIDE);
  Action := caFree;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('是否真的要退出系統？','提示',MB_OKCancel + MB_DEFBUTTON2 + MB_IconQuestion)=ID_OK then
    CanClose := True
  else
    CanClose := False;
end;

procedure TMainForm.Action2Execute(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.Action1Execute(Sender: TObject);
begin
//修改密碼
  TAlterPWDForm.Create(nil).ShowModal;
end;

procedure TMainForm.Action3Execute(Sender: TObject);
begin
//購進
  GjForm := TGjForm.Create(nil);
  GjForm.ShowModal;
  GjForm.Free;
end;

procedure TMainForm.Action4Execute(Sender: TObject);
begin
//銷售
  TXsForm.Create(nil).ShowModal;
end;

procedure TMainForm.Action5Execute(Sender: TObject);
begin
//售后
  TShForm.Create(nil).ShowModal;
end;

procedure TMainForm.Action6Execute(Sender: TObject);
begin
//回訪
  THfForm.Create(nil).ShowModal;
end;

procedure TMainForm.Action7Execute(Sender: TObject);
begin
//關于
  TSplashForm.Create(nil, 1).ShowModal;
end;

procedure TMainForm.Action8Execute(Sender: TObject);
begin
//查詢
  TQueryForm.Create(nil).ShowModal;
end;

end.