在TreeView节点中存储编号
function ReadYS(var TV: TTreeView): Boolean;
var
s : string;
sName,sID : string;
pID : PChar;
NewNode : TTreeNode;
begin
TV.Items.Clear;
s := '';
s := 'select * from mytable';
with qry do
begin
close;
sql.Clear;
sql.Add(s);
Open;
if not IsEmpty then
begin
First;
while not Eof do
begin
sName := FieldByName('name').AsString;
sID := FieldByName('bh').AsString;
NewNode := TV.Items.AddChild(Nil,sName);
GetMem(pID,10);
StrPCopy(pID,sID);
NewNode.Data := pID;
Next;
end;
end;
close;
end;
end;
取出编号
function GetBH : String;
var
s,sys : string;
pid : PChar;
begin
if not Assigned(tv.Selected) then exit;
pid := tv.Selected.Data;
s := Copy(pid,0,length(pid));
if (s = '') or (s ='0' ) then exit;
result := s ;
end;