select a.*, b.x from a,b where b.x in(select b.x from b where b.x=a.number)
解决方案 »
- 不能继承bpl中的form吗?
- delphi6和delphi7里面的汉字全部显示的为方块。。这个怎么解决?感觉是病毒的原因
- 赢取Nokia6500手机。(Nokia抽奖活动,人人有机会)
- IntraWeb应用的问题?-Frame中是否可以使用WebApplication变量?
- 急用!在edit中输入金额,如何控制只能输入到小数点后两位!
- 帮帮忙,我更新数据的时候,出现问题了!
- 如何将特定的内容用特定的打印机打印??
- 高手教我cross-tab的用法?非常感谢!!!
- delphi 中OLE打印加页眉
- delphi中有没有类似c中Cmessage的东西,急。。。
- 关于指针问题?
- 随机函数具体怎么用,Randomize;和random具体什么区别?????
procedure TForm.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if Field.Value=1 then
DBGrid1.Canvas.TextRect(rect,2,2,男)
else
DBGrid1.Canvas.TextRect(rect,2,2,女);
end;
procedure TFilterForm.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if Field.Value=1 then
DBGrid1.Canvas.TextRect(rect,2,2,男)
else
DBGrid1.Canvas.TextRect(rect,2,2,女)