关于tcombobox取数据库记录的简单问题。

l_xiaofeng 2002-06-10 03:03:50

我在form1中放了三个combobox。我想在formcreat里加入语句实现读取他们各自在库中的字段，当然如果是一个combobox我会写，可是好几个怎么写呀？请指教

...全文

40 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

fuction 2002-06-11

打赏
举报

sql.add('select a.aa,b.bb,c.cc from a,b,c');
open;
first;
while not eof do
begin
combobox1.items.add( );
combobox2.items.add( );
combobox3.items.add( );
next;
end;

hammer_shi 2002-06-10

打赏
举报

sqlText:='select dxxzdm,dxxzmc from jtsjk.dbo.DXXZB where yxdwdm='''+ywqdm+''' order by dxxzdm';
xzMC.Items.Clear;
xzdm.Items.Clear;
xzMC.Items.add('全部');
xzdm.Items.add('1');
tuxedoquery1.sql.clear;
tuxedoquery1.sql.add(sqltext);
try Tuxedoquery1.OPEN;
except
begin
infodlgform.showbox('数据库连接失败！');
exit;
end;
end;
TuxedoQuery1.First;
while not TuxedoQuery1.Eof do
begin
xzMC.Items.Add(TuxedoQuery1.fieldbyname('dxxzmc').asstring);
xzdm.Items.Add(TuxedoQuery1.fieldbyname('dxxzdm').asstring);
Tuxedoquery1.Next;
end;
xzMC.ItemIndex:=0;
xzdm.ItemIndex:=0;

(tuxedoqury1 用法同query)
建议你把这些程序放到formactive中，有时候你放在create中出了错误调试都调试不出错误原有。他们的作用一样！我都是放在active中。
另：你几个combobox就和上面的代码一样书写了。

/*************************************/
/*1、MY TOOL:*************************/
/*2、Delphi,Oracle,Sybase,C++/C*******/
/*3、PROJECT:*************************/
/*3、Boss*****************************/
/*4、为了五星的目标希望你早点结贴*****/
/*************************************/

Snakeguo 2002-06-10

打赏
举报

是这样吗?
combobox1.items.clear;
combobox2.items.clear;
combobox3.items.clear;

table1.first;
while not table1.eof do
begin
combobox1.items.add(table1.fieldbyname('aaa').asstring);
combobox2.items.add(table1.fieldbyname('aaa').asstring);
combobox3.items.add(table1.fieldbyname('aaa').asstring);

table1.next;
end;

l_xiaofeng 2002-06-10