unit_modemain.~pas

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

unit Unit_modemain;

interface

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

type
  TForm_modemain = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Qry_exe: TQuery;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    procedure N5Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_modemain: TForm_modemain;

implementation

uses Unit_modeinput, Unit_modejishizi, Unit_modesalary, Unit_modechan,
  Unit_modeman;

{$R *.DFM}

procedure TForm_modemain.N5Click(Sender: TObject);
begin
 Qry_Exe.Active:=False;
 close;
end;

procedure TForm_modemain.N1Click(Sender: TObject);
begin
 Form_modeinput.show;
end;

procedure TForm_modemain.N2Click(Sender: TObject);
begin
 Form_modejishizi.show;
end;

procedure TForm_modemain.N3Click(Sender: TObject);
begin
 Form_modesalary.show;
end;

procedure TForm_modemain.N4Click(Sender: TObject);
begin
 Form_modechan.show;
end;

procedure TForm_modemain.N6Click(Sender: TObject);
begin
 Form_modeman.show;
end;

procedure TForm_modemain.FormClick(Sender: TObject);
begin
   Form_modeman.close;
   Form_modechan.close;
   Form_modesalary.close;
   Form_modejishizi.close;
   Form_modeinput.close;
end;

end.