id | RmtCustomerID | introducer |
XX | XXXXXXX | XXXXX |
XX | XXXXXXX | XXXXX |
// 递归查找介绍人ID
procedure GetIntroducedCusIDs(ParentID: string; var IDS: string);
var
TmpSQL: string;
IntroducedID: string;
TempQuery: ThDataSet;
begin
// 查询被介绍的人
TempQuery := CreateADOQuery;
try
TmpSQL := 'select id from bd_Customers where RmtCustomerID=' + QuotedStr(ParentID);
OpenSql(TempQuery, TmpSQL);
if TempQuery.RecordCount <> 0 then
begin
TempQuery.First;
while not TempQuery.Eof do
begin
IntroducedID := TempQuery.fieldByname('id').AsString;
IDS := IDS + IntroducedID + ',';
GetIntroducedCusIDs(IntroducedID,IDS);
TempQuery.Next;
end;
end;
finally
TempQuery.Free;
end;
end;