界面上使用普通的DBCombobx就可以了, 在Item里面加入“男”,“女”。 在DataSet 的Filed的OnGetText和OnSetText下面写转换代码。 OnGetText if Sender.AsInteger =0 then Text := '男' OnSetText if Text ='男' then Sender.value = 0; ...............................
设置Combobox的items属性为'男','女' 就可以
设置Combobox的items属性为'男','女'。在插入值入数据库存时,用下面的方法: var tmpint:integer;if combobox.items.text='男' then tmpint:=0 else tmpint:=1;然后在SQL的插入语句里用上tmpint
TO :xiaocuo_zrf(女巫手上的猫)不好意思,可能我太菜了,我居然找不到DBCombobx下DataSet的Filed的OnGetText和OnSetText。只找到了DBCombobx下DataSet的FiledDefs,里面也没有OnGetText和OnSetText。请问该怎么找?
在DataSet 的Filed的OnGetText和OnSetText下面写转换代码。
OnGetText
if Sender.AsInteger =0 then
Text := '男'
OnSetText
if Text ='男' then
Sender.value = 0;
...............................
就可以
var tmpint:integer;if combobox.items.text='男' then tmpint:=0 else tmpint:=1;然后在SQL的插入语句里用上tmpint