trnmain.pas

公司ERP系统

unit trnmain;

interface

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

type
  TTrnMainForm = class(TForm)
    MainMenu1: TMainMenu;
    HP3000ToHp9000: TMenuItem;
    HP9000ToHP3000: TMenuItem;
    trn100: TMenuItem;
    Database1: TDatabase;
    Database2: TDatabase;
    trn110: TMenuItem;
    trn120: TMenuItem;
    trn130: TMenuItem;
    trm140: TMenuItem;
    Trn200: TMenuItem;
    trn150: TMenuItem;
    trn160: TMenuItem;
    N1: TMenuItem;
    trn300: TMenuItem;
    trn170: TMenuItem;
    procedure trn100Click(Sender: TObject);
    procedure trn110Click(Sender: TObject);
    procedure trn120Click(Sender: TObject);
    procedure trn130Click(Sender: TObject);
    procedure trm140Click(Sender: TObject);
    procedure Trn200Click(Sender: TObject);
    procedure trn150Click(Sender: TObject);
    procedure trn160Click(Sender: TObject);
    procedure trn300Click(Sender: TObject);
    procedure trn170Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TrnMainForm: TTrnMainForm;

implementation

uses trn100, trn110, trn120, trn130, trn140, trn200,
     trn150, trn160, trn170;

{$R *.DFM}

procedure TTrnMainForm.trn100Click(Sender: TObject);
begin
  trn100Form := Ttrn100Form.Create(Application);
  trn100Form.ShowModal;
  trn100Form.Free;

end;

procedure TTrnMainForm.trn110Click(Sender: TObject);
begin
   trn110Form := Ttrn110Form.Create(Application);
   trn110Form.ShowModal;
   trn110Form.Free;

end;

procedure TTrnMainForm.trn120Click(Sender: TObject);
begin
   trn120Form := Ttrn120Form.Create(Application);
   trn120Form.ShowModal;
   trn120Form.Free;

end;

procedure TTrnMainForm.trn130Click(Sender: TObject);
begin
   trn130Form := Ttrn130Form.Create(Application);
   trn130Form.ShowModal;
   trn130Form.Free;

end;

procedure TTrnMainForm.trm140Click(Sender: TObject);
begin
   trn140Form := Ttrn140Form.Create(Application);
   trn140Form.ShowModal;
   trn140Form.Free;

end;

procedure TTrnMainForm.Trn200Click(Sender: TObject);
begin
   trn200Form := Ttrn200Form.Create(Application);
   trn200Form.ShowModal;
   trn200Form.Free;

end;

procedure TTrnMainForm.trn150Click(Sender: TObject);
begin
   trn150Form := Ttrn150Form.Create(Application);
   trn150Form.ShowModal;
   trn150Form.Free;
end;

procedure TTrnMainForm.trn160Click(Sender: TObject);
begin
   trn160Form := Ttrn160Form.Create(Application);
   trn160Form.ShowModal;
   trn160Form.Free;

end;

procedure TTrnMainForm.trn300Click(Sender: TObject);
begin
// trn300Form := Ttrn300Form.Create(Application);
// trn300Form.ShowModal;
// trn300Form.Free;

end;

procedure TTrnMainForm.trn170Click(Sender: TObject);
begin
   trn170Form := Ttrn170Form.Create(Application);
   trn170Form.ShowModal;
   trn170Form.Free;

end;

end.