Question

请教delphi中combobox的问题

我有一个代码表，比如有数据
学生 a
同事 b
朋友 c
我需要在combobox中可以自动显示出三个下拉菜单‘学生’，‘同事’，‘朋友’，在选择的时候自动生成对应的'a','b','c'录入到数据库中

请问怎么操作？

Answer 1

insert 进入数据库之前，根据combobox.itemindex进行判断是哪个值（1对应学生，2对应同事），然后再根据这个值去确定对应的abc

Answer 2

var
zi:string;
begin
if combobox1.text = '学生' then
zi:='a';
if combobox1.text = '同事' then
zi:='b';
if combobox1.text = '朋友' then
zi:='c';
end;

结贴吧，呵呵。

Answer 3

定义两个数组（也可以是一个二维数组），a[i]，b[i]存放设定的值，如a[0]=‘学生’，b[0]=‘a’,i为代码表的记录条数，提交到数据时，判断一下就可以；
for j=0 to i do
begin
if combobox.text= a[i] then
begin
s:=b[i]; //s为存入数据库的值
break;
end;
end;

Answer 4

ComboBox1.Items.Strings = (
'学生'
'同事'
'朋友')
///////////////////
procedure TForm1.ComboBox1Change(Sender: TObject);
const
Dat:array[0..2]of String=('a','b','c');
var s:string;
begin
S:=Dat[ComboBox1.ItemIndex];
end;
我相信这是最理想的方法，至于这个S的值你想怎么写到数据库中，由你决定了。可以设置成全局变量。
我告诉你的只是一个方法，你自己去变化一下。

Answer 5

增加项目
ComboBox1.Items.AddObject('Student', TObject('a'));
ComboBox1.Items.AddObject('Team', TObject('b'));
ComboBox1.Items.AddObject('Friend', TObject('c'));

写入数据库的时候，再读出combobox选定的项的Object