首先,第一个问题可以在程序中进行控制
下拉列表中显示为挂机/通话,而保存为0/1。
当选择"挂机"时,combobox.itemindex为0,
当选择"通话"时,ComboBox.itemindex为1.
则当要显示数据时可以这样:
combobox.itemindex := table1.fieldbyname('状态').asinteger;
当要保存数据时可以:
table1.fieldbyname('状态').asinteger:=combobox.itemindex;第二个问题:建议使用Edit,设置一下属性就可以了,passwordchar设置成*号就可以了
下拉列表中显示为挂机/通话,而保存为0/1。
当选择"挂机"时,combobox.itemindex为0,
当选择"通话"时,ComboBox.itemindex为1.
则当要显示数据时可以这样:
combobox.itemindex := table1.fieldbyname('状态').asinteger;
当要保存数据时可以:
table1.fieldbyname('状态').asinteger:=combobox.itemindex;第二个问题:建议使用Edit,设置一下属性就可以了,passwordchar设置成*号就可以了
//将把原始数字转化为有意义的字符
procedure TForm1.ADOQuery1q4234GetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
case Sender.AsInteger of
0: Text := '挂机';
1: Text := '通话';
end;
end;
//修改数据集时,将有意义的字符转化为数据集中所面要的数字
procedure TForm1.ADOQuery1q4234SetText(Sender: TField; const Text: string);
begin
if Text = '挂机' then
Sender.Value := 0
else
if Text = '通话' then
Sender.Value := 1;
end;