DBGrid能否显示密码号（就是*号）？

[firstep]

比方说在DBGrid中有两列数据：用户名和密码。那么用户名是明文显示，密码是*号显示，我应该怎么才能使显示密码的那一列显示为星号呢？
还有就是，我用的是TQuery组件查询数据，看过很多资料，都是使用TTable才能在DBGrid中显示中文列头，难道用TQuery就不可以了么？

[耙子]

delphi 的绝对菜鸟，我敢说你都没看过一本Delphi的书。
别急着用delphi写程序，先看看书。

[耙子]

1. 可以在TFiled 的OnGetText 里面完成;
2. 办法很多 比如 select a as '列1'， b as '列2' from xxxx

[firstep]

所以我才自命为firstep啊，老大。
我也想好好看书再去写程序，不要再散分了，可是项目已经是进行时了，如果我看了书再来写程序，估计我的程序员身份就是过去时了。
用TQuery在运行时显示中文列头，我有试过，不过我想能不能在设计阶段就可以指定呢？

[BCB]

在dbgrid事件Draw事件中显示，如果是密码字段就显示成******

[ljianq]

响应字段的OnGetText事件，将Text设为"******",就可以了：

void __fastcall TForm1::adoQueryPasswordGetText(TField *Sender,
AnsiString &Text, bool DisplayText)
{
Text="*****";
DisplayText=true;
}

[BCB]

另一种办法就是在DBgrid中，但一旦编辑又显示出来了，用于只读库
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
TDBGrid *DBGrid=(TDBGrid *)Sender;
TDataSet *dataset=Column->Field->DataSet;
if ((!dataset->Eof ||!dataset->Bof) &&
Column->FieldName=="密码")
{
DBGrid->Canvas->FillRect(Rect);
DBGrid->Canvas->TextRect(Rect,Rect.Left,Rect.Top,"******");
}
else
DBGrid->DefaultDrawColumnCell(Rect,DataCol,Column,State);

}

[niuzhenjun]

简单，在dataset的datafield editor内选中要改变为*的字段，修改它的EditMask属性为******就行了。

[swites]

用下列方法还可以贴上图片:
void __fastcall TMainForm::CurTableDrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
/////////////////////////////////////////////
Graphics::TBitmap *Bitmap= new Graphics::TBitmap();
Bitmap->Transparent=true;
Bitmap->Canvas->FillRect(Bitmap->Canvas->ClipRect);
ImageList->GetBitmap(1,Bitmap);
if(DataCol==0----x)
{
CurTable->Canvas->Draw(Rect.Left,Rect.Top,Bitmap);
}
delete Bitmap;
}