//将Query所有字段的中文名显示在Combobox中 //字段中文名通过字段的DisplayLabel进行设定 for i := 0 to Query1.FieldCount - 1 do ComboBox1.Items.Add(Query1.Fields[i].DisplayLabel);
var Tmpstr:string; begin if query.active then query.active:=false; query1.sql.clear; query1.sql.add('select * from 表名'); query1.execsql; query1.active:=True; while not query1.eof do begin TMPst:=query.Fields.FieldByName('bh').AsString; Combobox1.item.add(Tmpst); query1.next; end;end;
我只是箱将自短名显示在COMBOBOX中,然后可以通过来选择
//将Query所有字段的中文名显示在Combobox中 //字段中文名通过字段的DisplayLabel进行设定 for i := 0 to Query1.FieldCount - 1 do ComboBox1.Items.Add(Query1.Fields[i].DisplayLabel); 但这样做的话,当你需要选择某个字段的话,需要编一个函数根据DisplayLabel来找到FieldName,省事的话直接在Combobox中显示FieldName: for i := 0 to Query1.FieldCount - 1 do ComboBox1.Items.Add(Query1.Fields[i].FieldName);
//字段中文名通过字段的DisplayLabel进行设定
for i := 0 to Query1.FieldCount - 1 do
ComboBox1.Items.Add(Query1.Fields[i].DisplayLabel);
Tmpstr:string;
begin
if query.active then
query.active:=false;
query1.sql.clear;
query1.sql.add('select * from 表名');
query1.execsql;
query1.active:=True;
while not query1.eof do
begin
TMPst:=query.Fields.FieldByName('bh').AsString;
Combobox1.item.add(Tmpst);
query1.next;
end;end;
//字段中文名通过字段的DisplayLabel进行设定
for i := 0 to Query1.FieldCount - 1 do
ComboBox1.Items.Add(Query1.Fields[i].DisplayLabel);
但这样做的话,当你需要选择某个字段的话,需要编一个函数根据DisplayLabel来找到FieldName,省事的话直接在Combobox中显示FieldName:
for i := 0 to Query1.FieldCount - 1 do
ComboBox1.Items.Add(Query1.Fields[i].FieldName);