我有辦法:你在adoquery1裡添加字段sex然後在這個字段的事件 gettext中寫以下代碼:
if sender.assting=1 then
text:=男
else
text:=女;
display:=true;
就可以了,給分吧!覺得有點少:)
if sender.assting=1 then
text:=男
else
text:=女;
display:=true;
就可以了,給分吧!覺得有點少:)
解决方案 »
- 求助:数据保存后窗口消失
- 我想下个DELPHI5.有谁能提供下载地址吗
- 如何使生成的应用程序文件的版本改变
- 简单问题:ADOQuery查询到数据后怎么样才能把值复制出来?
- 关于一个第三方控件的用法..
- 找女友的程序!
- delphi如何写收邮件的程序
- 怪问题,我用DBgrid作为输入界面,输入几条记录后,突然其中的几条记录自动被重复一次,后台数据库表中看输入的记录又是正常的?为什么?
- 请教如何用delphi写COM组件,哪里有这方面的例子或教材,着急~~
- 我要打包生成安装程序,我找到install shield 文件后,然后怎么办?
- 怎么动态生成一个label数组,立即给分
- 为什么一台电脑上同时装两块内置MODEM卡不能成功???
case sex when 1 then '男' else '女' end
from tablename
where ……如果dbgird的数据集是一个Table类型,你可以在Table一个参数里面设定,写上‘1:男;0:女;’,具体什么参数忘了。但是建议你使用query,无论是ADO还是BDE的。
2。在计算字段的计算事件的里判断真实字段的值,根据此给计算字段赋值。
3。只显示计算字段,不显示真实字段。procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
if QUERY1。FIELDBYNAME(‘SEX’).assting=1 then
QUERY1。FIELDBYNAME(‘SEXTMP’).ASSTRING:=‘男’
else
QUERY1。FIELDBYNAME(‘SEXTMP’).ASSTRING:=‘女’;
end;
此方法简单有效。