mrwxform.~pas

来自「这是用Delphi编写的维修管理系统。主要功能包括业务管理」· ~PAS 代码 · 共 47 行

unit MRWXFORM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TMRWX = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MRWX: TMRWX;

implementation

{$R *.dfm}

procedure TMRWX.N2Click(Sender: TObject);
begin
if mrwxform=0 then begin
    if not assigned(jbxx_gsxx) then begin
       JBXX_GSXX:=tJBXX_GSXX.create(self);
       mrwxform:=1;
    end;
  JBXX_GSXX.Top:=height;
  JBXX_GSXX.Left:=(width-jbxx_gsxx.Width) div 2;
  JBXX_GSXX.show;
end else begin
  messagedlg('系统以有窗体被打开，清先关闭以打开的窗体。',mterror,[mbok],0);
end;
end.