bompttype.pas

来自「家具行業的成本核算報价系統,主要征對家個產品的結構展開進行材料成本及人工制造費用」· PAS 代码 · 共 87 行

unit BomPtType;

interface

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

type
  TFrmBomPtType = class(TFmBase06)
    Panel3: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    DBEdit1: TDBxEdit;
    DBEdit2: TDBxEdit;
    TreeView: TTreeView;
    Splitter1: TSplitter;
    Label7: TLabel;
    Edit2: TEdit;
    v_main: TADOQuery;
    v_mainfRmTypCode: TWideStringField;
    v_mainfRmTypName: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DSBase06StateChange(Sender: TObject);
    procedure act_addExecute(Sender: TObject);
    procedure act_editExecute(Sender: TObject);
    procedure act_saveExecute(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
    procedure DBEdit1Exit(Sender: TObject);
    procedure v_mainNewRecord(DataSet: TDataSet);
    procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
    basesql,ordersql ,ss: string;
    procedure addnode(node:TTreeNode;len:integer;grade:integer);
  public
    { Public declarations }
  end;

var
  FrmBomPtType: TFrmBomPtType;
  node:ttreenode;

implementation
uses SysData;
{$R *.DFM}

procedure TFrmBomPtType.addnode(node:TTreeNode;len:integer;grade:integer);
var
  i:integer;
  tmpnode:ttreenode;
begin
  for i:=node.Count downto 1  do
  begin
   V_INS.close;
   V_INS.sql.clear;
   V_INS.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);
   V_INS.open;
   tmpnode:=node.Item[i-1];
   if tmpnode.GetLastChild.Index=V_INS.RecordCount-1 then  Continue;
   while not V_INS.eof do
     begin
       treeview.items.AddChild(tmpnode,V_INS.fields[0].asstring+'('+V_INS.fields[1].asstring+')');
       V_INS.next;
     end;
  end;
end;


procedure TFrmBomPtType.FormCreate(Sender: TObject);
begin
  inherited;
  basesql:=trim(v_main.sql.text);
  ordersql:=' order by fRmTypCode ';
  v_main.close;
  v_main.sql.clear;
  v_main.sql.add(basesql);
  v_main.sql.add(ordersql);
  v_MAIN.open;
  treeview.Items.Clear;
  TreeView.Items.Add(NIL,'场ン摸