mainut.pas

来自「密码：yfq 物流管理插件 物流管理系统－插件」· PAS 代码 · 共 77 行

unit mainut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, jpeg, ImgList, ComCtrls, ToolWin, XPMan;

type
  Tmainfm = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    PrinterSetupDialog1: TPrinterSetupDialog;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    Image2: TImage;
    XPManifest1: TXPManifest;
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfm: Tmainfm;

implementation

uses yjcxut, aboutut, loginut;

{$R *.dfm}

procedure Tmainfm.N1Click(Sender: TObject);
begin
yjcxfm:=Tyjcxfm.create(self);
yjcxfm.showmodal;
yjcxfm.free;
end;

procedure Tmainfm.N3Click(Sender: TObject);
begin
aboutfm.showmodal;
end;

procedure Tmainfm.N4Click(Sender: TObject);
begin
if messagedlg('确定退出吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;
end;

procedure Tmainfm.N2Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
end;

procedure Tmainfm.FormActivate(Sender: TObject);
begin
loginfm:=Tloginfm.create(self);
loginfm.showmodal;
loginfm.free;
end;

end.