5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TRES_BOM_VIEW_F.btnSB_SearchClick(Sender: TObject);//點擊按鈕生成樹的過程
begin
inherited;
try
RES_LOADING_F:=TRES_LOADING_F.Create(Self);
RES_LOADING_F.Label1.Caption:='正在檢索相關數據......';
RES_LOADING_F.Show;
RES_LOADING_F.Update;
CREATETREEVIEWMODEL;//過程名
finally
RES_LOADING_F.Close;
end;
end;
procedure TRES_BOM_VIEW_F.CREATETREEVIEWMODEL;
var
iLoop:Integer;
Master,MasterNode:TTreeNode;
begin
adoq_getop.Close;
//SELECT distinct PARN_TYP FROM WWW where parn_typ<>'.' and parn_typ is not null order by PARN_TYP desc
adoq_getop.SQL.Text:='SELECT distinct PARN_TYP FROM WWW where parn_typ<>''.'' and parn_typ is not null order by PARN_TYP desc';
adoq_getop.Open;
adoq_getop.First;
cx_TV.Items.BeginUpdate;
cx_TV.Items.Clear;
Master:=cx_TV.Items.Add(nil,'昆盈BOM表檢視');
while not adoq_getop.Eof do
begin
if adoq_getop.FieldByName('PARN_TYP').AsString<>'' then
begin
Screen.Cursor:=crSQLWait;
MasterNode:=cx_TV.Items.AddChild(Master,VarToStr(adoq_getop.FieldValues['PARN_TYP']));
Application.ProcessMessages;
qry_op.Close;
qry_op.SQL.Text:='SELECT DISTINCT PARN_LITM FROM WWW WHERE PARN_TYP='''+ VarToStr(adoq_getop.FieldValues['PARN_TYP'])+''' GROUP BY PARN_LITM';
qry_op.Open;
for iLoop:=0 to qry_op.RecordCount -1 do
begin
cx_TV.Items.AddChild(MasterNode,VarToStr(qry_op.FieldValues['PARN_LITM']));
qry_op.Next;
end;
Application.ProcessMessages;
cx_TV.Items.EndUpdate;
Screen.Cursor:=crDefault;
end;
adoq_getop.Next;
Application.ProcessMessages;
end;
{
ThreadTView:=cx_TV;
ViewThread:=TExpandLH.Create;
ViewThread.Resume;
}
end;
多層可用遞歸生成:
private
procedure CreateTreeModel;
procedure CreateSubTree(isR:boolean;FNodeName:string;Node:TTreeNode=nil);
{ Private declarations }
procedure TForm1.CreateTreeModel;
var
iLoop:Integer;
aa:TTreeNode;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT PARN_TYP FROM bom GROUP BY PARN_TYP';
ADOQuery1.Open;
ADOQuery1.First;
TreeView1.Items.BeginUpdate;
TreeView1.Items.Clear;
aa:=TreeView1.Items.Add(nil,'BOM');
Screen.Cursor:=crSQLWait;
Application.ProcessMessages;
for iLoop:=0 to ADOQuery1.RecordCount -1 do
begin
TreeView1.Items.AddChild(aa,VarToStr(ADOQuery1.FieldValues['PARN_TYP']));
ADOQuery1.Next;
end;
Application.ProcessMessages;
TreeView1.Items.EndUpdate;
TreeView1.Items[0].Expand(False);
Screen.Cursor:=crDefault;
end;
procedure TForm1.CreateSubTree(isR:boolean;FNodeName:string;Node:TTreeNode=nil);
var
mLocalName:string;
TreeNode:TTreeNode;
Ads_Tmp,adoq_op:TADODataSet;
begin
if isR then
begin
Ads_Tmp:=TADODataSet.Create(Self);
Ads_Tmp.Connection:=ADOConnection1;
with Ads_Tmp do
try
Close;
//CommandText:='Select distinct PARN_LITM from bom Where PARN_TYP ='+'''' + FNodeName+'''';
CommandText:='Select distinct PARN_LITM from bom Where PARN_TYP ='+'''' + FNodeName+''' and PARN_LITM like ''3%''';
Open;
First;
TreeView1.Items.BeginUpdate;
Screen.Cursor:=crSQLWait;
Application.ProcessMessages;
while not Eof do
begin
mLocalName:=Trim(FieldbyName('PARN_LITM').Asstring);
TreeNode:=TreeView1.Items.AddChild(Node,Trim(FieldByName('PARN_LITM').AsString));
CreateSubTree(False,mLocalName,TreeNode);
Next;
end;
Application.ProcessMessages;
TreeView1.Items.EndUpdate;
Screen.Cursor:=crDefault;
finally
Ads_Tmp.Free;
end;
end
else
begin
adoq_op:=TADODataSet.Create(Self);
adoq_op.Connection:=ADOConnection1;
with adoq_op do
try
Close;
CommandText:='Select CHLD_LITM from bom Where PARN_TYP='+''''+sTmp+''''+' and PARN_LITM ='+'''' + FNodeName+''''+' group by CHLD_LITM';
Open;
First;
TreeView1.Items.BeginUpdate;
Screen.Cursor:=crSQLWait;
Application.ProcessMessages;
while not Eof do
begin
mLocalName:=Trim(FieldbyName('CHLD_LITM').Asstring);
TreeNode:=TreeView1.Items.AddChild(Node, Trim(FieldByName('CHLD_LITM').AsString));
CreateSubTree(False,mLocalName,TreeNode);
Next;
end;
Application.ProcessMessages;
TreeView1.Items.EndUpdate;
Screen.Cursor:=crDefault;
finally
adoq_op.Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
sTmp:=TreeView1.Selected.Text;
CreateSubTree(True,TreeView1.Selected.Text,TreeView1.Selected);
end;