dlgtoexcels.pas

计算产品成本 计算出最低成本和最高成本（持鼎新的ERP）

unit dlgToExcels;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TDLGTOEXCEL = class(TForm)
    LblClass: TLabel;
    CmbClass: TComboBox;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    EdtLang: TEdit;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure EdtLangChange(Sender: TObject);
  private
    procedure Set_Lang;
  public
    { Public declarations }
  end;

var
  DLGTOEXCEL: TDLGTOEXCEL;

implementation

uses BOMs;

{$R *.dfm}

procedure TDLGTOEXCEL.btnOKClick(Sender: TObject);
begin
  //self.Hide;
  //application.ProcessMessages ;
  //BOM.IEXCEL:=CMBCLASS.ItemIndex;
  //BOM.SELECTTOEXCEL;
  //self.Close ;
  Tag:=CMBCLASS.ItemIndex;
  close;
end;

procedure TDLGTOEXCEL.btnCancelClick(Sender: TObject);
begin
  Tag:=3; 
  close;
end;

procedure TDLGTOEXCEL.EdtLangChange(Sender: TObject);
begin
   Set_Lang;
   cmbclass.ItemIndex:=1;
end;

procedure TDLGTOEXCEL.Set_Lang;
begin
 if (trim(edtlang.Text)='CHT') OR (trim(edtlang.Text)='ZHH') THEN
 begin
    lblclass.Caption :='块