unit_dingdanmain.pas

来自「此代码为企业原料管理代码」· PAS 代码 · 共 72 行

unit Unit_dingdanmain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, jpeg, ExtCtrls, StdCtrls, Db, DBTables;

type
  TForm_dingdanmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    N3: TMenuItem;
    Qry_exe: TQuery;
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_dingdanmain: TForm_dingdanmain;

implementation

uses Unit_dinginput, Unit_Main, Unit_jihua, Unit_jihuasql;

{$R *.DFM}

procedure TForm_dingdanmain.N5Click(Sender: TObject);
begin
  close;
end;

procedure TForm_dingdanmain.N2Click(Sender: TObject);
begin
 Form_dinginput.showmodal;
end;

procedure TForm_dingdanmain.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Form_dinginput.Close;
  Form_jihuasql.Close;
  Form_jihua.Close;
 form_main.WindowState:=wsMaximized;
end;

procedure TForm_dingdanmain.N4Click(Sender: TObject);
begin
 Form_jihua.showmodal;
end;

procedure TForm_dingdanmain.N3Click(Sender: TObject);
begin
 Form_jihuasql.showmodal;
end;



end.