为什么程序运行时得到了combobox下的items里的内容,但却不能选择它??
代码如下:还要增加什么吗?
adoconnection1:=Tadoconnection.Create(Self);
adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db\机票预定系统.mdb;Persist Security Info=False';
adoconnection1.LoginPrompt:=false;
adoquery2:=tadoquery.Create(Self);
adoquery2.Connection:=adoconnection1;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct 出发城市 from 查询表');
adoquery2.Open;
adoquery2.First;
//combobox2.items.Add('请选择');
while not adoquery2.eof do begin
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
adoquery2.Next;
end;
代码如下:还要增加什么吗?
adoconnection1:=Tadoconnection.Create(Self);
adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db\机票预定系统.mdb;Persist Security Info=False';
adoconnection1.LoginPrompt:=false;
adoquery2:=tadoquery.Create(Self);
adoquery2.Connection:=adoconnection1;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct 出发城市 from 查询表');
adoquery2.Open;
adoquery2.First;
//combobox2.items.Add('请选择');
while not adoquery2.eof do begin
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
adoquery2.Next;
end;
解决方案 »
- 下面的代码什么意思?
- pos微打,出现“&”字符,如何去掉
- 我的机器发送字节数与接收字节数是4:1,发的比接收的还多,可我只是在看网页啊,我该怎么办?
- 客户端的Delphi中应该怎样设置才能连接上服务器上的SQLServer2000数据库?
- 关于备份和卸库大家有什么高见或文章??
- 进程与线程之间的协调?
- 一个简单的问题,怎么在delphi中写文件和读文件????请指教
- 我有一个SQL Server 的语名,要在MySQL下运行,如何改????
- DBgrid表的循环某列的和
- 如何做像“金山快译”那样的窗体?跑到屏幕最上面,鼠标一指就出来!?thanks
- Formula One6 中 F1Book1.ColText 属性什么意思.怎么用?
- 请问DELPHI怎么做文字特效???像FLASH里面那些特效,比如:旋转、走马灯等等……?????????
或加上楼上的这句都可以.
這是選中第二行﹐它是從0到items.count-1的﹐即0為第一行﹐1為第二行....
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
......combobox2.itemindex := 0;
然后下拉单里的可以随便选择,比如:下拉单中有'桂林,南宁,柳州'我可以随便选一个做为combobox的值.再帮帮我,好吗?
ComboBox2.Items.add(adoquery2.Fieldbyname('请选择).AsString);
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
combobox2.itemindex := 0;
我想要选择哪项并显示哪项的内容在初始,在程序运行时选择.
var
adoquery2:TAdoquery;
begin
adoquery2:=tadoquery.Create(Self);
adoquery2.Connection:=adoconnection1;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select 出发城市 from 查询表');
adoquery2.Open;
adoquery2.First;
combobox2.Clear;
while not adoquery2.eof do begin
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
adoquery2.Next;
end;
end;
帖张照片证明你是美女!
然后下拉单里的可以随便选择,比如:下拉单中有'桂林,南宁,柳州'我可以随便选一个做为combobox的值.再帮帮我,好吗?combobox的style为csDropDownList,表示只能选择不能输入!adoquery2:=tadoquery.Create(Self);
adoquery2.Connection:=adoconnection1;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct 出发城市 from 查询表');
adoquery2.Open;
adoquery2.First;
combobox2.items.Add('请选择'); while not adoquery2.eof do
begin
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
adoquery2.Next;
end;
ComboBox2.ItemIndex := ComboBox2.Items.IndexOf('请选择');//加上这个就可以了对不对美女,给分!
怎么办啊???
运行时那个程序时
比如:
下拉单中有'桂林,南宁,柳州'我可以随便选一个做为combobox的值.再帮帮我,好吗?
按以上方法运行时都无法选择!点击下拉单项后,combobox的初始项并为空,好奇怪!
具体代码怎么写?
在formcreate里
combobox有数据,但却不能进行选择,如果选择则初始行会变成空白.
在你最上面的代码下面加:combobox1.style := csdropdown;
combobox1.text := '请选择';然后在onkeypress中加入:combobox1.style := csdropdownlist;
打个比方:
当你进入一个注册程序,它要你选择性别是男是女,用的是combobox,那怎么实现选择这个功能啊?高手们,拜托了!!!!!
开始显示的就不会为空!在formcreate里
combobox有数据,但却不能进行选择,????
什么意思?下拉能看到点一下不就选了,要得到选择的内容,在ONSELECT事件里取出
ComboBox2.TEXT就行了
csdropdown表示用户可以在combobox输入内容,csDropDownList
表示只能选泽不能输入,你要哪个?
具体点好吗?
这句开始就是空白,写了开始显示就是请选择;怎么在ONSELECT事件里取出?
晕!
下拉单中有'桂林,南宁,柳州'
你选南宁的话,在ONSELECT事件里ComboBox2.TEXT就是南宁,
你要用的话,把ComboBox2.TEXT直接拿来用就可以了,
比如adoquery2.Fieldbyname('出发城市').AsString := ComboBox2.TEXT;
Adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db\机票预定系统.mdb;Persist Security Info=False';
Adoconnection1.LoginPrompt:=false;
Adoquery2:=tadoquery.Create(Self);
Adoquery2.Connection:=adoconnection1;
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('select distinct 出发城市 from 查询表');
Adoquery2.Open;
Adoquery2.First; //初始化ComboBox下拉方式
ComboBox2.Style := csDropDownList;
//清空需要填充的ComboBox
ComboBox2.Clear;
//建立第一个初始值
ComboBox2.Items.Add('请选择');
//指定第一个显示内容
ComboBox2.ItemIndex := 0; //开始对ComboBox赋值
while not adoquery2.eof do begin
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
Adoquery2.Next;
end;--------
另:如果你需要在每次显示该Form时,ComboBox2("出发城市")始终是“请选择”,那么应该在FormShow事件中加上ComboBox2.ItemIndex := 0;至于何时添加数据应该在FormCreate时添加城市数据
我问的是怎么把选的项显示在combobox的初始行中,这个项是任意的,只要选择了,都可以变为在初始行显示.而不是用ComboBox2.ItemIndex 来初始化的因为是combobox动态得到数据库中的数据,所以只有运行才知道项内容的排列.\
ITEMS[I]上的字符串
嘿嘿。。
这是最实用的办法了。
s:string;
begin
s:=commbobox2.text;
end;
combobox就只显示一行只要选择一项,当然显示的就是该项,哪里还有初始行??
你不是选择了Combobox啊,就直接在属性Items 里写你所需要添加的城市名称即可了,然后就可以在Combobox下选择你所要的城市名称.
不信你试试看哦!