卡盟刷q币平台:Delphi中在ComboBox中添加数据库中字段
来源:百度文库 编辑:中财网 时间:2024/04/28 03:38:30
Delphi中在ComboBox中添加数据库中字段2010-06-20 14:15 1.在Form上添加ComboBox1,ADOQuery1,ADOConnection1(可不要)
2.连接好数据库,南山古桃(nsgtao) 的数据库中有中有表biao1,有字段name
3.运行下面的程序,ComboBox1中会出现name下对应的东东
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i : integer;
begin
ComboBox1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select name from biao1');
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
for i:=0 to ADOQuery1.RecordCount-1 do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('name').AsString);
ADOQuery1.Next;
end;
end;
end;
2008年1月4日更新下面内容
添加数据库中字段内容到ComboBox
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from biao1');
ADOQuery1.Open;
Combobox3.Clear;
for i:=0 to ADOQuery1.FieldCount-1 do
begin
ADOQuery1.First;
combobox3.Items.Add(ADOQuery1.Fields[i].FieldName);
ADOQuery1.Next;
end;
Combobox3.ItemIndex := 0;
end;
2008.01.15再添加,原文粘贴
//主窗体上放置ADOConnection1,ADOQuery1,DataSource1并有数据表,把组件属性设置完毕->OK!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ComboBox2: TComboBox;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from biao1');
ADOQuery1.Open;
//Combobox1*****
Combobox1.Clear;
if ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
end;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
//ADOQuery1.First;
ComboBox1.Items.Add(ADOQuery1.Fields[i].FieldName);
ADOQuery1.Next;
end;
Combobox1.ItemIndex := 0;
//Combobox2*****
Combobox2.Clear;
if ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
end;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
//ADOQuery1.First;
ComboBox2.Items.Add(ADOQuery1.FieldbyName(ComboBox1.Text).AsString);
ADOQuery1.Next;
end;
Combobox2.ItemIndex := 0;
end;
//当ComboBox1改变时ComboBox2随之改变
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i : integer;
begin
Combobox2.Clear;
if ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
end;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
//ADOQuery1.First;
ComboBox2.Items.Add(ADOQuery1.FieldbyName(ComboBox1.Text).AsString);
ADOQuery1.Next;
end;
Combobox2.ItemIndex := 0;
end;
end
2.连接好数据库,南山古桃(nsgtao) 的数据库中有中有表biao1,有字段name
3.运行下面的程序,ComboBox1中会出现name下对应的东东
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i : integer;
begin
ComboBox1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select name from biao1');
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
for i:=0 to ADOQuery1.RecordCount-1 do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('name').AsString);
ADOQuery1.Next;
end;
end;
end;
2008年1月4日更新下面内容
添加数据库中字段内容到ComboBox
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from biao1');
ADOQuery1.Open;
Combobox3.Clear;
for i:=0 to ADOQuery1.FieldCount-1 do
begin
ADOQuery1.First;
combobox3.Items.Add(ADOQuery1.Fields[i].FieldName);
ADOQuery1.Next;
end;
Combobox3.ItemIndex := 0;
end;
2008.01.15再添加,原文粘贴
//主窗体上放置ADOConnection1,ADOQuery1,DataSource1并有数据表,把组件属性设置完毕->OK!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ComboBox2: TComboBox;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from biao1');
ADOQuery1.Open;
//Combobox1*****
Combobox1.Clear;
if ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
end;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
//ADOQuery1.First;
ComboBox1.Items.Add(ADOQuery1.Fields[i].FieldName);
ADOQuery1.Next;
end;
Combobox1.ItemIndex := 0;
//Combobox2*****
Combobox2.Clear;
if ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
end;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
//ADOQuery1.First;
ComboBox2.Items.Add(ADOQuery1.FieldbyName(ComboBox1.Text).AsString);
ADOQuery1.Next;
end;
Combobox2.ItemIndex := 0;
end;
//当ComboBox1改变时ComboBox2随之改变
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i : integer;
begin
Combobox2.Clear;
if ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
end;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
//ADOQuery1.First;
ComboBox2.Items.Add(ADOQuery1.FieldbyName(ComboBox1.Text).AsString);
ADOQuery1.Next;
end;
Combobox2.ItemIndex := 0;
end;
end
delphi中如何使用combobox?
在C#中怎么动态添加combobox的item?
VC++:向ComboBox中添加项
在Delphi中如何添加XpMenu这个控件??谢谢~!
怎样在delphi中添加clientsocket和serversocket控件
delphi中怎样在radiogroup组件中添加数据库中某一字段值作为选项?
我delphi 中怎样添加背景音乐
在C#中怎样用comboBox实现联动菜单?
VB中Combobox的用法
怎样在combobox中显示表中的一列数据 怎样在combobox中显示表中的一列数据
c#中,form4的button_Click如何往form1中的ComboBox添加Items?
怎样在DELPHI 三层中,对数据进行添加,修改,删除?
如何在DELPHI的下拉选择框中添加文字啊??
Delphi中:
delphi 中怎么在状态栏中 变色
[求助!!!]delphi中如何查询Access中的记录条数
delphi,memo中如何添加显示多行文件哦
从combobox中选择颜色c#
请问在vb.net中,ComboBox怎么设成只读的呀
在windows应用程序中,关于combobox的数据源的问题!急。。。
在windows应用程序中,关天combobox的一个问题!!急。。。
在DELPHI 中使用 word 文档
在DELPHI中如何调用API函数
如何在DELPHI中切换窗口