mainfrm_u.~pas

汽车维修系统的设计

unit MainFrm_u;

interface

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

type
  TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    I1: TMenuItem;
    S1: TMenuItem;
    O1: TMenuItem;
    Q1: TMenuItem;
    S2: TMenuItem;
    H1: TMenuItem;
    StatusBar1: TStatusBar;
    Image1: TImage;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn4: TBitBtn;
    Panel2: TPanel;
    Image2: TImage;
    Panel3: TPanel;
    ImageSmall: TImageList;
    ImageList1: TImageList;
    N1: TMenuItem;
    T1: TMenuItem;
    N2: TMenuItem;
    S3: TMenuItem;
    procedure S1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
     str_uid,str_UserName,str_pwd:string; //当前登陆用户
     strServerName:string;         //服务器名称
  end;

var
  MainFrm: TMainFrm;

implementation

uses Stock_u, stockMain_u;

{$R *.dfm}

procedure TMainFrm.S1Click(Sender: TObject);
begin
   frmstockMain:=TfrmstockMain.Create(self);
   frmstockMain.Parent:=Panel2;
   frmstockMain.Show;  

end;

procedure TMainFrm.BitBtn4Click(Sender: TObject);
begin
  close;
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if application.MessageBox('您确认要退出本系统吗？','提示',mb_yesno+mb_iconQuestion+256)<>IDYES then abort;
      application.Terminate ;
end;

end.