main.pas

用于工厂对于门花尺寸进行自动计算

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls,common,materail,ll024,ll018,ll019, Grids,
  DBGrids, Menus;

type
  Tfrm_main = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    cb_model: TComboBox;
    Label2: TLabel;
    ed_height: TEdit;
    Label3: TLabel;
    ed_width: TEdit;
    Label5: TLabel;
    ed_max_space: TEdit;
    btn_calcu: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    img_model: TImage;
    Memo1: TMemo;
    btn_materail: TButton;
    btnExit: TButton;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure cb_modelChange(Sender: TObject);
    procedure btn_calcuClick(Sender: TObject);
    procedure btn_materailClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;
  modelName:String;
  model:Tmodel;

implementation

{$R *.dfm}
uses dm;

procedure Tfrm_main.btnExitClick(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tfrm_main.btn_calcuClick(Sender: TObject);
 Type TFrameClass = Class of TFrame;
var
ModelClass:TModel;

begin
if model <> nil then model:=nil;
  
{  ModelClass := Tmodel(FindClass('T'+trim(StringReplace(cb_model.Text,'-','',[]))));
  model:= ModelClass.Create();   }
if(cb_model.Text = 'LL-024') then  model:=TLL024.Create();
if(cb_model.Text = 'LL-018') then  model:=TLL018.Create();
if(cb_model.Text = 'LL-019') then  model:=TLL019.Create();
  
with model do begin
    loadinfo();
    setSize(strtoint(trim(ed_width.text)),strtoint(trim(ed_height.text)));
    printData(memo1);


end;


end;

procedure Tfrm_main.btn_materailClick(Sender: TObject);
begin
   frmMaterail.ShowModal;
end;

procedure Tfrm_main.Button1Click(Sender: TObject);
var temp:integer;
begin

end;

procedure Tfrm_main.cb_modelChange(Sender: TObject);
begin
 try
   modelName := trim(cb_model.Text);
   img_model.Picture.LoadFromFile('d:\door\'+modelName+'.bmp');
   except
    on   Exception   do

   end;

end;

procedure Tfrm_main.FormShow(Sender: TObject);
begin
cb_modelChange(Sender);
end;

end.