with TempEmployees.LockList do
try
for iLoop := Count - 1 downto 0 do {添加用户列表}
begin
EmployeePointer := Items[iLoop];
with TempBranchs.LockList do
try
for jLoop := 0 to Count - 1 do
begin
if (PBranch(Items[jLoop])^.ID = EmployeePointer.BranchID) then
begin
EmployeePointer.Node := TV.Items.AddChildObjectFirst(PBranch(Items[jLoop])^.Node, EmployeePointer.Name, EmployeePointer);
EmployeePointer.Node.StateIndex := 2 {2表示为用户};
UpdateListViewStates(TV, EmployeePointer.Node); {更新用户状态}
break;
end;
end; //for
finally
TempBranchs.UnlockList;
end;
end; //for
finally
TempEmployees.UnlockList;
end;
-----------
请问上面源码中如何连接数据库,找到表并遍例在树中读出用户滴...谢谢...
try
for iLoop := Count - 1 downto 0 do {添加用户列表}
begin
EmployeePointer := Items[iLoop];
with TempBranchs.LockList do
try
for jLoop := 0 to Count - 1 do
begin
if (PBranch(Items[jLoop])^.ID = EmployeePointer.BranchID) then
begin
EmployeePointer.Node := TV.Items.AddChildObjectFirst(PBranch(Items[jLoop])^.Node, EmployeePointer.Name, EmployeePointer);
EmployeePointer.Node.StateIndex := 2 {2表示为用户};
UpdateListViewStates(TV, EmployeePointer.Node); {更新用户状态}
break;
end;
end; //for
finally
TempBranchs.UnlockList;
end;
end; //for
finally
TempEmployees.UnlockList;
end;
-----------
请问上面源码中如何连接数据库,找到表并遍例在树中读出用户滴...谢谢...
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货