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; |
|