base.~pas

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

    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppShape3: TppShape;
    ppLine5: TppLine;
    ppLabel23: TppLabel;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLine9: TppLine;
    ppLabel26: TppLabel;
    ppLabel27: TppLabel;
    ppLine10: TppLine;
    ppLine12: TppLine;
    ppLabel31: TppLabel;
    ppLine13: TppLine;
    ppLabel32: TppLabel;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppLine20: TppLine;
    ppLabel103: TppLabel;
    ppLabel10: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLine6: TppLine;
    ppLine14: TppLine;
    ppLine16: TppLine;
    ppLabel21: TppLabel;
    ppLabel33: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLabel236: TppLabel;
    ppDBText81: TppDBText;
    ppDetailBand2: TppDetailBand;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLine74: TppLine;
    ppLine75: TppLine;
    ppLine76: TppLine;
    ppDBText28: TppDBText;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppDBText31: TppDBText;
    ppDBText35: TppDBText;
    ppDBText37: TppDBText;
    ppDBText41: TppDBText;
    ppLine82: TppLine;
    ppLine11: TppLine;
    ppLine15: TppLine;
    ppLine17: TppLine;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppLabel28: TppLabel;
    ppFooterBand2: TppFooterBand;
    ppLabel79: TppLabel;
    ppLabel22: TppLabel;
    ppSummaryBand1: TppSummaryBand;
    ppLine32: TppLine;
    ppLine33: TppLine;
    ppLine34: TppLine;
    ppLine35: TppLine;
    ppLabel34: TppLabel;
    ppLabel35: TppLabel;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppLabel43: TppLabel;
    ppLine36: TppLine;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppLabel52: TppLabel;
    ppLine37: TppLine;
    ppLine38: TppLine;
    ppLine39: TppLine;
    ppLine40: TppLine;
    ppLine41: TppLine;
    ppLine42: TppLine;
    ppLine43: TppLine;
    s1: TppLabel;
    s2: TppLabel;
    s3: TppLabel;
    s4: TppLabel;
    s5: TppLabel;
    s6: TppLabel;
    g1: TppLabel;
    g2: TppLabel;
    g3: TppLabel;
    g4: TppLabel;
    g5: TppLabel;
    g6: TppLabel;
    y2: TppLabel;
    y1: TppLabel;
    c1: TppLabel;
    ppLine44: TppLine;
    Z1: TppLabel;
    Z2: TppLabel;
    z3: TppLabel;
    z4: TppLabel;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel57: TppLabel;
    Z5: TppLabel;
    ppLabel240: TppLabel;
    s7: TppLabel;
    ppLine54: TppLine;
    ppLine98: TppLine;
    ppLine99: TppLine;
    ppLabel241: TppLabel;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppShape4: TppShape;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine23: TppLine;
    ppLine28: TppLine;
    ppLine29: TppLine;
    ppLine30: TppLine;
    ppLine31: TppLine;
    ppLabel30: TppLabel;
    ppGroup4: TppGroup;
    ppGroupHeaderBand4: TppGroupHeaderBand;
    ppGroupFooterBand4: TppGroupFooterBand;
    Shape25: TShape;
    ppLabel242: TppLabel;
    ppLabel243: TppLabel;
    ppLabel249: TppLabel;
    ppLabel244: TppLabel;
    ppLabel252: TppLabel;
    ppLabel245: TppLabel;
    ppLabel253: TppLabel;
    ppLabel246: TppLabel;
    ppLabel254: TppLabel;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure v_sggjBeforeInsert(DataSet: TDataSet);
    procedure v_sggjBeforePost(DataSet: TDataSet);
    procedure v_sggjBeforeClose(DataSet: TDataSet);
    procedure v_sggjCalcFields(DataSet: TDataSet);
    procedure v_sggjNewRecord(DataSet: TDataSet);
    procedure act_add4Click(Sender: TObject);
    procedure act_edit4Click(Sender: TObject);
    procedure act_del4Click(Sender: TObject);
    procedure act_save4Click(Sender: TObject);
    procedure act_cancel4Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure PageControl2Change(Sender: TObject);
    procedure smgridEditButtonClick(Sender: TObject);
    procedure smgridEnter(Sender: TObject);
    procedure smgridExit(Sender: TObject);
    procedure smgridKeyPress(Sender: TObject; var Key: Char);
    procedure bsgridEditButtonClick(Sender: TObject);
    procedure bsgridKeyPress(Sender: TObject; var Key: Char);
    procedure bpgridEditButtonClick(Sender: TObject);
    procedure bpgridKeyPress(Sender: TObject; var Key: Char);
    procedure WJGridEditButtonClick(Sender: TObject);
    procedure WJGridKeyPress(Sender: TObject; var Key: Char);
    procedure bcGridEditButtonClick(Sender: TObject);
    procedure bcGridKeyPress(Sender: TObject; var Key: Char);
    procedure OTHerGridEditButtonClick(Sender: TObject);
    procedure OTHerGridKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3Change(Sender: TObject);
    procedure RxSpinEdit1Change(Sender: TObject);
    procedure RxSpinEdit4Change(Sender: TObject);
    procedure RxSpinEdit2Change(Sender: TObject);
    procedure RxSpinEdit5Change(Sender: TObject);
    procedure RxSpinEdit6Change(Sender: TObject);
    procedure RxSpinEdit7Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit38Change(Sender: TObject);
    procedure Edit20Change(Sender: TObject);
    procedure Edit21Change(Sender: TObject);
    procedure Edit12Change(Sender: TObject);
    procedure Edit18Change(Sender: TObject);
    procedure Edit28Change(Sender: TObject);
    procedure RxSpinEdit16Change(Sender: TObject);
    procedure Edit17Change(Sender: TObject);
    procedure Edit29Change(Sender: TObject);
    procedure RxSpinEdit19Change(Sender: TObject);
    procedure Edit31Change(Sender: TObject);
    procedure Edit33Change(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure ComboBox7Change(Sender: TObject);
    procedure ds_mainDataChange(Sender: TObject; Field: TField);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ds_mainStateChange(Sender: TObject);
    procedure v_sggjfnlValidate(Sender: TField);
    procedure v_sggjfrmnameValidate(Sender: TField);
    procedure v_sggjfrmupValidate(Sender: TField);
    procedure ppLabel28Print(Sender: TObject);
    procedure ppDetailBand2AfterPrint(Sender: TObject);
    procedure ppGroupHeaderBand4BeforePrint(Sender: TObject);
    procedure ppLabel30Print(Sender: TObject);
    procedure ppGroupHeaderBand2BeforePrint(Sender: TObject);
    procedure ppSummaryBand1BeforePrint(Sender: TObject);
    procedure Edit16Change(Sender: TObject);
  private
    { Private declarations }
    fptname,frmname : string;
    fprnno : integer;
    procedure sumsize;
    procedure savestate;
    procedure addstate;
    function checknum(ftxt : string) :  boolean;
  public
    { Public declarations }
  protected
    addenable,editenable,deleenable,prnenable,checkenable,browenable,locaenable,otherenable,amtenable : boolean;
  end;

var
  FRMcost: TFRMcost;

implementation
uses sysdata,main,unitpublic;
{$R *.dfm}

procedure TFRMcost.addstate;
begin
  act_Save4.Enabled := True;
  act_cancel4.Enabled := True;
  act_add4.Enabled := False and addenable ;
  act_Edit4.Enabled := False and editenable;
  act_Del4.enabled := false and deleenable;
  act_copy.enabled := false and addenable;
  smgrid.ReadOnly:=false;
  bsgrid.ReadOnly:=false;
end;

procedure TFRMcost.savestate;
begin
   act_Save4.Enabled := False;
   act_cancel4.Enabled := False;
   act_add4.Enabled := True and addenable;
   act_edit4.Enabled := True and editenable;
   act_del4.Enabled := True and deleenable;
   act_copy.enabled := true and addenable;
   smgrid.ReadOnly:=true;
   bsgrid.ReadOnly:=true;
end;

procedure TFRMcost.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFRMcost.sumsize;
var
  funit : real;
begin
  if uppercase(v_sggjfunit.Value)='IN' then
    funit:=25.4
  else if uppercase(v_sggjfunit.Value)='CM' then
    funit:=10
  else
    funit:=1;  
  //