如果是楼上所说,每次都Open,Close起不很浪费时间,不如都到内存中再比较吧
解决方案 »
- 现在的D版,是“僵尸之城”,都在喘息,却没有动静。现在的D版,是“处女之夜”,背靠着背,却不能翻身!
- delphi关于图象编程中说到,如果
- 关于Delphi 2006 的问题
- delphi8里怎么没有ADO组件了!
- 如何调用外部程序并做为一个MDI子窗口?
- 100分跪求DEPHI(前台)+SQLSERVER(后台)的财务管理系统(源代码)或相关资料
- 快来帮助帮助我啊!解决者另给200分
- 关于数据库的搜索(100分)????????????????
- 急急(远水救近火)求得利用DLL数据传送的资料(一定给分),我已经等很久了。
- ADO连接时错误.....
- 忘各位告知:ADO连接请问怎样让所有的DB组件禁用....如果禁用ADOTABLE1.????...如果是取消禁止那..
- 我用Query添加新记录,怎么样才能使DBGrid马上显示出添加的新记录呢?
procedure TForm4.Button8Click(Sender: TObject);
var i,j,k,m:integer;
begin
bh_string:=tstringlist.create;
with datamodule6.xmk do
begin
First;
while not Eof do
begin
bh_string.Add(trim(fieldbyname('xmbh').value));
next;
end;
m:=datamodule6.xmk.fieldbyname('xmbh').value;
end;
bh_string.sort;
showmessage(bh_string.text);
for i:=1001 to m do
begin
bh_string.find(inttostr(i), j);
if j <= -1 then
combobox1.Items.add(inttostr(i));
end;end;
var i,j,k,m:integer;
begin
bh_string:=tstringlist.create;
with datamodule6.xmk do
begin
First;
while not Eof do
begin
bh_string.Add(trim(fieldbyname('xmbh').value));
next;
end;
//Eof为真了,是读不出数据的;下面有错
m:=datamodule6.xmk.fieldbyname('xmbh').value;
end;
var i,j:integer;
begin
datamodule6.xmk.Last;
j:=datamodule6.xmk.fieldbyname('xmbh').value;
qxm.close;
qxm.sql.clear;
qxm.sql.add('select * from xmk where xmbh>1000 and xmbh<:i');
qxm.Parameters.ParamByName('i').value:=j+1;
qxm.Prepared;
qxm.Open;
while not qxm.Eof do
begin
combobox1.Items.add(qxm.FieldByName('xmbh').AsString);
end;
end;
var i,j:integer;
begin
datamodule6.xmk.Last;
j:=datamodule6.xmk.fieldbyname('xmbh').value;
qxm.close;
qxm.sql.clear;
qxm.sql.add('select * from xmk where xmbh>1000 and xmbh<:i');
qxm.Parameters.ParamByName('i').value:=j+1;
qxm.Prepared;
qxm.Open;
while not qxm.Eof do
begin
combobox1.Items.add(qxm.FieldByName('xmbh').AsString);
qxm.Next;
end;
end;