J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
不知道微软还有没有脸，用VB的ADO后期绑定测试了一下相同的流程，竟然要一个多小时！ 如何提高ADO简单过程(Edit…Post Next)的效率（500分） 附：一个好的表结构和树 (0分)<br />如何提高ADO简单过程(Edit…Post Next)的效率
一般情况下，通过执行SQL都可以取得较高的效率，基本上是“瞬间”完成。但有时记录的值必须由前面多条记录的值动态计算得到，这时无法通过简单的SQL来实现，必须进行逐条扫描更新。
在实际测试时发现，用ADO连接VF的DBF文件，即使执行下面的简单过程，效率是“无法忍受”的。
PIII550，DBF文件一万条记录：
能使以下简单过程在5秒内完成，500分；
10秒内，300分；
1分钟内，200分；
能有效改善性能也给分。
procedure TForm1.Button2Click(Sender: TObject);
var
n:dword;
begin
n:=gettickcount();
with AdoTable1 do //AdoTable 的其它属性均为默认设置
begin
ConnectionString:=getVFConnStr('d:/dbTest');
TableName:='gypcbz';
Locktype:=ltOptimistic;
active:=true;
First;
while not(eof) do
begin
Label1.caption:=inttostr(recno);
application.ProcessMessages ;
//上面两句不是实质性的，只是为了查看
edit;
fieldByName('id').Asstring:='';
post;
next;
end;
active:=false;
end;
n:=gettickcount()-n;
label1.caption:=inttostr
;
end;
当然，要实现上面的功能用以下SQL就可以了：
Update gypcbz set id=’’
事实上，上面的过程是从下面简化来的：
function GetVFConnStr(d:string):string;
begin
Result:='Provider=MSDASQL.1;'+
'Persist Security Info=False;'+
'Extended Properties='+
'"Driver='+
'{Microsoft Visual FoxPro Driver};'+
'UID=;SourceDB='+d+
';SourceType=DBF;Exclusive=No;'+
'BackgroundFetch=Yes;Collate=Machine;'+
'Null=Yes;Deleted=Yes;";'+
'Initial Catalog='+d;
end;
function getLevel(s:string):integer;
begin
Result:=1;
if copy(s,3,6)='000000' then exit;
Result:=2;
if copy(s,4,5)='00000' then exit;
Result:=3;
if copy(s,5,4)='0000' then exit;
Result:=4;
if copy(s,7,2)='00' then exit;
Result:=5;
end;
function getNormalCode(s:string):string;
const n:array[1..5] of integer=(2,3,4,6,8);
begin
result:=Copy(s,1,n[getLevel(s)]);
end;
function getCodeLen(nn:integer):integer;
const n:array[1..5] of integer=(2,3,4,6,8);
begin
Result:=n[nn];
end;
procedure TForm1.Button1Click(Sender: TObject);
const MinLevel=5;
var
s,s1:string;
n,L,i,nL:dword;
Node:array[0..MinLevel] of TTreeNode;
begin
n:=gettickcount();
for i:=0 to MinLevel do Node:=nil;
s:=getVFConnStr('d:/dbTest');
Treeview1.items.BeginUpdate;
Treeview1.Items.Clear;
with AdoTable1 do
begin
Locktype:=ltOptimistic;
// Locktype:=ltBatchOptimistic;
ConnectionString:=s;
TableName:='gypcbz';
active:=true;
BlockReadSize:=1000;
First;
while not(eof) do
begin
Label1.caption:=inttostr(recno);
application.ProcessMessages ;
s:=FieldByName('cpdm').asstring;
L:=getLevel(s);
s1:=getNormalCode(s);
s:='['+s1+']'+
Trim(FieldByName('cpmc').asstring);
nL:=0;
for i:=L-1 downto 1 do
if Node<>nil then
begin
nL:=i;
break;
end;
Node[L]:=Treeview1.Items.AddChild(Node[nL],s);
for i:=L+1 to MinLevel-1 do Node:=nil;
edit;
fieldByName('id').Asstring:=s1;
if nL=0 then s1:=''
else
begin
s:=Node[nL].Text;
s1:=copy(s,pos('[',s)+1,getCodeLen(nL));
end;
fieldByName('p_id').Asstring:=s1;
post;
next;
end;
// UpdateBatch(arAll); //Locktype:=ltBatchOptimistic;时使用
active:=false;
end;
TreeView1.items.EndUpdate;
n:=gettickcount()-n;
label1.caption:=inttostr;
end;
一般情况下，通过执行SQL都可以取得较高的效率，基本上是“瞬间”完成。但有时记录的值必须由前面多条记录的值动态计算得到，这时无法通过简单的SQL来实现，必须进行逐条扫描更新。
在实际测试时发现，用ADO连接VF的DBF文件，即使执行下面的简单过程，效率是“无法忍受”的。
PIII550，DBF文件一万条记录：
能使以下简单过程在5秒内完成，500分；
10秒内，300分；
1分钟内，200分；
能有效改善性能也给分。
procedure TForm1.Button2Click(Sender: TObject);
var
n:dword;
begin
n:=gettickcount();
with AdoTable1 do //AdoTable 的其它属性均为默认设置
begin
ConnectionString:=getVFConnStr('d:/dbTest');
TableName:='gypcbz';
Locktype:=ltOptimistic;
active:=true;
First;
while not(eof) do
begin
Label1.caption:=inttostr(recno);
application.ProcessMessages ;
//上面两句不是实质性的，只是为了查看
edit;
fieldByName('id').Asstring:='';
post;
next;
end;
active:=false;
end;
n:=gettickcount()-n;
label1.caption:=inttostr
;end;
当然，要实现上面的功能用以下SQL就可以了：
Update gypcbz set id=’’
事实上，上面的过程是从下面简化来的：
function GetVFConnStr(d:string):string;
begin
Result:='Provider=MSDASQL.1;'+
'Persist Security Info=False;'+
'Extended Properties='+
'"Driver='+
'{Microsoft Visual FoxPro Driver};'+
'UID=;SourceDB='+d+
';SourceType=DBF;Exclusive=No;'+
'BackgroundFetch=Yes;Collate=Machine;'+
'Null=Yes;Deleted=Yes;";'+
'Initial Catalog='+d;
end;
function getLevel(s:string):integer;
begin
Result:=1;
if copy(s,3,6)='000000' then exit;
Result:=2;
if copy(s,4,5)='00000' then exit;
Result:=3;
if copy(s,5,4)='0000' then exit;
Result:=4;
if copy(s,7,2)='00' then exit;
Result:=5;
end;
function getNormalCode(s:string):string;
const n:array[1..5] of integer=(2,3,4,6,8);
begin
result:=Copy(s,1,n[getLevel(s)]);
end;
function getCodeLen(nn:integer):integer;
const n:array[1..5] of integer=(2,3,4,6,8);
begin
Result:=n[nn];
end;
procedure TForm1.Button1Click(Sender: TObject);
const MinLevel=5;
var
s,s1:string;
n,L,i,nL:dword;
Node:array[0..MinLevel] of TTreeNode;
begin
n:=gettickcount();
for i:=0 to MinLevel do Node:=nil;
s:=getVFConnStr('d:/dbTest');
Treeview1.items.BeginUpdate;
Treeview1.Items.Clear;
with AdoTable1 do
begin
Locktype:=ltOptimistic;
// Locktype:=ltBatchOptimistic;
ConnectionString:=s;
TableName:='gypcbz';
active:=true;
BlockReadSize:=1000;
First;
while not(eof) do
begin
Label1.caption:=inttostr(recno);
application.ProcessMessages ;
s:=FieldByName('cpdm').asstring;
L:=getLevel(s);
s1:=getNormalCode(s);
s:='['+s1+']'+
Trim(FieldByName('cpmc').asstring);
nL:=0;
for i:=L-1 downto 1 do
if Node<>nil then
begin
nL:=i;
break;
end;
Node[L]:=Treeview1.Items.AddChild(Node[nL],s);
for i:=L+1 to MinLevel-1 do Node:=nil;
edit;
fieldByName('id').Asstring:=s1;
if nL=0 then s1:=''
else
begin
s:=Node[nL].Text;
s1:=copy(s,pos('[',s)+1,getCodeLen(nL));
end;
fieldByName('p_id').Asstring:=s1;
post;
next;
end;
// UpdateBatch(arAll); //Locktype:=ltBatchOptimistic;时使用
active:=false;
end;
TreeView1.items.EndUpdate;
n:=gettickcount()-n;
label1.caption:=inttostr
;end;