数据类型

Currency 数据类型 Currency 变量存储为 64 位（8 个字节）整型的数值形式，然后除以 10,000 给出一个定点数，其小数点左边有 15 位数字，右边有 4 位数字。这种表示法的范围可以从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807。Currency 的类型声明字符为at号 (@)。Currency数据类型在货币计算与定点计算中很有用，在这种场合精度特别重要。

DataSet.FieldByName('WareSum').AsCurrency :=

    DataSet.FieldByName('WarePrice').AsCurrency *

      DataSet.FieldByName('WareCount').AsInteger;

  ADOLookup.Append;

  // 给数据集中添加数据

  ADOLookup.FieldByName('WareID').AsString := '1';

  ADOLookup.FieldByName('WareCode').AsString := '0001';

  ADOLookup.FieldByName('WareName').AsString := '西红市';

  ADOLookup.FieldByName('WareSpell').AsString := 'XHS';

  ADOLookup.FieldByName('WareSpace').AsString := '斤/筐';

  ADOLookup.FieldByName('WareUnit').AsString := '斤';

  ADOLookup.FieldByName('WarePrice').AsString := '30';

  ADOLookup.Post;

  if ADOLookup.IsEmpty then

    Exit;

  if Assigned(FOnSelect) then

    FOnSelect(ADOLookup);

  Close;

TSelectEvent = procedure (DataSet:TDataSet) of object;

FOnSelect:TSelectEvent;

    property OnSelect:TSelectEvent read FOnSelect write FOnSelect;

Result := InplaceEditor.EditText;  // 返回可编辑单元的内容

function TMyDBGrid.GetCellRect: TRect;

begin

  Result := CellRect(Col,Row);

end;

function TMyDBGrid.GetText: string;

begin

  Result := InplaceEditor.EditText;

end;

procedure TFrmStockOrder.FormDestroy(Sender: TObject);

begin

  FrmLookup.Free;

end;