15 replies to this topic

[Anderrson]

Hallo Boki..

I have BIGINT (unsigned) field in MySQL, but I have no idea which itemproperty I can use, since the field value is greater than 294967295. it is out of Cardinal type range.

I want to work with Int64 var in my DBInspector, how?

[Boki (Berg)]

Hi Anderson,

You may use NxDBSpinItem.

Please tell me if you find some problems.

[Anderrson]

Thank you Boki....

but I have a problem, It can't handle value more then 294967295. or tell me if I miss something

[Boki (Berg)]

Hi Anderrson,

Spin item store Double value so it should be fine for using. Maybe you are not using proper TField type? But , I may set a {$DEFINE} to use Extended instead of Double.

[Anderrson]

Thank you Boki.
I use MySQL, and BIGINT(unsigned) for the Field type.

this is screen capture of sample problem


In my NextDBGrid it works fine, but I get invalid value in the NxDBInspector.
for Field with value 2147483648 it would be come -2147483648 in NxDBSpinItem

they both use the same DataSource and off course same DataSet.
but I get different value.
I use NxDBNumberColumn for NxDBGrid side.

[Boki (Berg)]

Hm. Not sure why TextItem doesn't display whole value.

I will do a investigation to see what may cause a problem.

thanks.

[Boki (Berg)]

Hi,

I have investigated more.

Can you please tell me which DataType (ftInteger, ftLongInt...) return Field connected to this field? This will help.

Thanks.

[Anderrson]

MyQuery1.Fields[3].DataType

It is ftLargeInt

unfortunately there is no TField.AsInt64. maybe we can use TLargeIntField(DataField).AsLargeInt ?

thankyou

[Boki (Berg)]

Hi Anderson,

Can you please tell me which Delphi version you use? It seems that AsLargeInt existing in Delphi 2010+ , but not sure it is existing in your version.

Thank you. I hope that I will find a solution very soon.

[Anderrson]

Hi..

I am using Delphi 7

Thank you.... I hope so

[Boki (Berg)]

Hi,

Can you please update next procedure in NxDBInspector.pas (Sources\Next Inspector)

procedure TItemDataLink.SetField(Field: TField; Item: TNxPropertyItem);
begin
  if Field.IsNull then Item.AsString := '' else
	if (Item is TNxDBComboBoxItem)
	  then Item.UpdateField(Field.Value) else
	begin
	  case Field.DataType of
		ftString: Item.AsString := Field.DisplayText;
		ftWideString: Item.AsString := TWideStringField(Field).Value;
		ftInteger, ftWord, ftSmallint, ftAutoInc: Item.AsInteger := Field.AsInteger;
		ftLargeint:
		begin
		  if Field is TLargeintField then
		  begin
			Item.AsInteger := TLargeintField(Field).AsLargeInt;
		  end
		  else Item.AsInteger := Field.AsInteger;
		end;
		ftFloat, ftCurrency, ftBCD, ftFMTBcd: Item.AsFloat := Field.AsFloat;
		ftBoolean: Item.AsBoolean := Field.AsBoolean;
		ftDate, ftDatetime, ftTime, ftTimeStamp: Item.AsDatetime := Field.AsDateTime;
		ftMemo: Item.AsString := Field.AsString;
		{ case }
		else Item.AsString := Field.AsString;
	  end;
	end;
end;

Please tell me if we have move from dead point

[Anderrson]

Thank You....

But sorry I could not find any SetField() method in my NxDBInspector.pas.

Interface
  TItemDataLink = class(TDataLink)
  private
	FOwner: TNextDBInspector;
  protected
   procedure ActiveChanged; override;
	procedure DataSetChanged; override;
  procedure DataSetScrolled(Distance: Integer); override;
	procedure UpdateItems;
  public
	constructor Create(AOwner: TNextDBInspector);
  end;

[Boki (Berg)]

Hi Anderson,

Very strange (?) Can you please tell me which version of NextSuite you use?

thanks

[Anderrson]

ok i'll check it

I am using ver 5.9.10.1

[Boki (Berg)]

Hi Anderson,

This seems to clarify things

I suggest that you download latest release. Maybe you will not need to change anything.

[Anderrson]

well, I hope
thanks