main.~pas

家具行業的成本核算報价系統,主要征對家個產品的結構展開進行材料成本及人工制造費用統計,加上可調節的利潤設定,將其成本核算出來,同時將報價單作出來

unit main;

interface

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

type
  TFrmmain = class(TForm)
    ImageList1: TImageList;
    MainMenu: TMainMenu;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N40: TMenuItem;
    N21: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    DanHint1: TDanHint;
    MDIWallpaper1: TMDIWallpaper;
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmmain: TFrmmain;

implementation
uses
  mrprmtype,mrprmmst,unitpublic,
  bompttype,bomPTmst,base;
{$R *.dfm}

procedure TFrmmain.N15Click(Sender: TObject);
begin
  OpenChildForm(TFRMBOMPTTYPE,FRMBOMPTTYPE,self);
end;

procedure TFrmmain.N16Click(Sender: TObject);
begin
  OpenChildForm(TFRMBOMPTMST,FRMBOMPTMST,self);
end;

procedure TFrmmain.N40Click(Sender: TObject);
begin
  OpenChildForm(TFRMMRPRMMST,FRMMRPRMMST,self);
end;

procedure TFrmmain.N18Click(Sender: TObject);
begin
  OpenChildForm(TFRMMRPRMTYPE,FRMMRPRMTYPE,self);
end;

procedure TFrmmain.N7Click(Sender: TObject);
var
   i:integer;
begin
   for i:= FRMmain.mdichildcount - 1 downto 0 do
     FRMmain.mdichildren[i].windowstate := wsnormal;
   cascade;
end;

procedure TFrmmain.N8Click(Sender: TObject);
var
   i:integer;
begin
   for i:= FRMMAIN.mdichildcount - 1 downto 0 do
     FRMMAIN.mdichildren[i].windowstate := wsnormal;
   tile;
end;

procedure TFrmmain.N9Click(Sender: TObject);
var
   i:integer;
begin
   for i:= FRMMAIN.mdichildcount - 1 downto 0 do
     FRMMAIN.mdichildren[i].windowstate := wsminimized;
   arrangeicons;
end;

procedure TFrmmain.N10Click(Sender: TObject);
var
   i:integer;
begin
   for i:=0 to FRMMAIN.mdichildcount - 1 do
     FRMMAIN.mdichildren[i].close;
end;

procedure TFrmmain.N21Click(Sender: TObject);
begin
  OpenChildForm(TFRMcost,FRMcost,self);
end;

end.