UC知道delphi连接sql server如何制作下拉列表
来源：百度知道 编辑：UC知道 时间：2024/05/12 11:36:45
sql server数据库中一些属性值被限定在几个值的范围内（比如属性 工作 被限定为司机，教师，后勤，后面以此为例），我现在用delphi连接数据库，里面有一个与数据库中‘工作’相连的输入框，我想把它制作成一个下拉列表，就是输入值被限定为司机，教师，后勤。请高手们写一个可以实现我要求的代码。
呵呵,正好我有一个incombobox的过程,贴上来.
其实你想问的是如何仅仅限定为选定,不是如何下拉.
设置 combobox.Style := csDropDownList;就额可以了.
用下边这个过程,你可以
SQLSTR:='select distinct career from your_table '
select :='career';
combobox,就是你想存放的下拉列表框.
procedure incombobox(combobox: TComboBox; sqlstr, select: string);
begin
with DM do
begin
AdoQ.Close;
ADOQ.SQL.Clear;
ADOQ.SQL.Add(sqlstr);
ADOQ.Open;
adoq.First;
combobox.Items.Clear;
while not ADOQ.Eof do
begin
combobox.Items.Add(ADOQ.fieldbyname(select).AsString);
adoq.Next;
end;
ADOQ.Close;
combobox.Style := csDropDownList;
combobox.ItemIndex := 0;
end;
end;
用Delphi自带的TDBComboBox组件设置好数据库关联.然后在items属性里设置你想让选择的内容,别忘了把Style属性设置为csDropDownList或其它只能选择的属性.