bomptmst.~pas

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

unit BomPtMst;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base01, ToolEdit, RXDBCtrl, StdCtrls, DBCtrls, Mask, Menus, ImgList, Db,
  Grids, DBGrids, ComCtrls, Buttons, ExtCtrls, DBTables, ExtDlgs, RxCalc,
  DBActns, ActnList, ToolWin, DBGridEh, DBxEdit, XPMenu, ADODB;

type
  TFrmBomPtMst = class(Tfmbase01)
    v_rmmst: TQuery;
    v_rmm: TDataSource;
    v_rmmstfprvcode: TStringField;
    v_rmmstfprvnname: TStringField;
    v_rmmstfrmcode: TStringField;
    v_rmmstCOLUMN4: TFloatField;
    v_rmmstCOLUMN5: TFloatField;
    v_rmmstCOLUMN6: TFloatField;
    ds: TDataSource;
    TreeView: TTreeView;
    Splitter1: TSplitter;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    v_mainfPtCode: TStringField;
    v_mainfPtName: TStringField;
    v_mainfPtEName: TStringField;
    v_mainfDate: TDateTimeField;
    DBEdit1: TDBxEdit;
    DBEdit2: TDBxEdit;
    DBEdit3: TDBxEdit;
    DBEdit4: TDBxEdit;
    Label28: TLabel;
    Edit2: TEdit;
    Label1: TLabel;
    Edit1: TEdit;
    V_INS2: TADOQuery;
    QRY: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure DSBase01StateChange(Sender: TObject);
    procedure BtnUndoClick(Sender: TObject);
    procedure PageControlChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
    procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
    procedure v_mainNewRecord(DataSet: TDataSet);
    procedure act_addExecute(Sender: TObject);
    procedure act_editExecute(Sender: TObject);
    procedure act_saveExecute(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    basesql,ordersql,ss:string;
    procedure addnode(node:TTreeNode;len:integer;grade:integer);
    procedure deletetmpfile(const tmpfilename:tfilename);
    function  findnode(node:TTreeNode;len:integer;findtext:string):ttreenode;    
  public
    { Public declarations }
  end;

var
  FrmBomPtMst: TFrmBomPtMst;
  node:ttreenode;
implementation

uses sysdata,unitpublic;

{$R *.DFM}

procedure TFrmBomPtMst.deletetmpfile(const tmpfilename:tfilename);
begin
filesetattr(tmpfilename,0);
DeleteFile(tmpfilename);
end;

procedure TFrmBomPtMst.addnode(node:TTreeNode;len:integer;grade:integer);
var
  i:integer;
  tmpnode:ttreenode;
begin
  for i:=node.Count downto 1  do
  begin
   qry.close;
   qry.sql.clear;
   qry.sql.Add('select fRmTypCode ,fRmTypName From t_pttypmst where len(fRmTypCode)='+ inttostr(len) +' and left(fRmTypCode,'+inttostr(grade) + ')='+#39+copy(node.Item[i-1].Text,1,grade)+#39);
   qry.open;
   tmpnode:=node.Item[i-1];
   if tmpnode.GetLastChild.Index=qry.RecordCount-1 then  Continue;
   while not qry.eof do
     begin
       treeview.items.AddChild(tmpnode,qry.fields[0].asstring+'('+qry.fields[1].asstring+')');
       qry.next;
     end;
  end;
end;



procedure TFrmBomPtMst.FormCreate(Sender: TObject);
begin
  inherited;
  basesql:=v_main.sql.text;
  ordersql:=' order by fptcode ';
  treeview.Items.Clear;
  TreeView.Items.Add(NIL,'场ン摸