DataSet.FieldByName('WareSum').AsCurrency :=
DataSet.FieldByName('WarePrice').AsCurrency *
DataSet.FieldByName('WareCount').AsInteger;
ADOLookup.Append;
// 給數(shù)據(jù)集中添加數(shù)據(jù)
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; // 返回可編輯單元的內(nèi)容
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;
