dws2ibxmodule.pas

script language

  if not (IBGroup.IBXDataset.eof or IBGroup.IBXDataset.bof) then
  begin
    boOK := IBGroup.GroupFieldValue = IBGroup.GroupCol.AsString;
    if boOK then
      inc(IBGroup.iGroupCnt);
    Info['result'] := not boOK;
  end
  else
    Info['result'] := true;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDataSetGrpMethodsResetGroupEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TdwsDBGroupObj(ExtObject) do
  begin
    ResetGroup;
    GroupFieldValue := GroupCol.AsString;
    boNewGrp := false;
    iGroupCnt := 0;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDataSetGrpMethodsRestartGroupEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TdwsDBGroupObj(ExtObject) do
  begin
    // ResetGroup;
    GroupFieldValue := GroupCol.AsString;
    boNewGrp := false;
    iGroupCnt := 0;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDataSetGrpMethodsSumOfFieldEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['result'] := TdwsDBGroupObj(ExtObject).GetGroupSum(Info['FieldName']);
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsCancelEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Cancel;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsCloseEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Close;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetConstructorsCreateAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
begin
  ExtObject := TdwsIBXStatementObj.Create;
  TdwsIBXStatementObj(ExtObject).IBXStatement := TIBDataset.Create(self);
  TdwsIBXStatementObj(ExtObject).IBXStatement.Database := FIBXConnection;
  TdwsIBXStatementObj(ExtObject).IBXStatement.Transaction := FIBXTransaction;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetConstructorsCreateFromDBAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
var
  ScriptObj: IScriptObj;
  DBObj: TdwsIbxDataBaseObj;
begin
  ScriptObj := IScriptObj(IUnknown(Info['Database']));
  if ScriptObj = nil then
    DBObj := nil
  else
    DBObj := TdwsIbxDataBaseObj(ScriptObj.ExternalObject);

  ExtObject := TdwsIBXStatementObj.Create;
  TdwsIBXStatementObj(ExtObject).IBXStatement := TIBDataset.Create(self);
  TdwsIBXStatementObj(ExtObject).IBXStatement.Database := DBObj.IBXConnection;
  TdwsIBXStatementObj(ExtObject).IBXStatement.Transaction := FIBXTransaction;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsDeleteEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Delete;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsEditEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Edit;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsEofEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Info['Result'] := eof;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsFirstEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    First;
    Info['Result'] := not eof;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsInsertEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Insert;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsNextEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Next;
    Info['Result'] := not eof;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsOpenEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Prepare;
    Open;
    First;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDatasetMethodsPostEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBDataset(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Post;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDBFieldMethodsGetDateTimeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    Info['Result'] := TField(ExtObject).AsDateTime
  else if ExtObject is TParam then
    Info['Result'] := TParam(ExtObject).AsDateTime;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDBFieldMethodsGetFloatEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    Info['Result'] := TField(ExtObject).AsFloat
  else if ExtObject is TParam then
    Info['Result'] := TParam(ExtObject).AsFloat;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDBFieldMethodsGetIntegerEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    Info['Result'] := TField(ExtObject).AsInteger
  else if ExtObject is TParam then
    Info['Result'] := TParam(ExtObject).AsInteger;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDBFieldMethodsSetDateTimeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    TField(ExtObject).AsDateTime := Info['Value']
  else if ExtObject is TParam then
    TParam(ExtObject).AsDateTime := Info['Value'];
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDBFieldMethodsSetFloatEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    TField(ExtObject).AsFloat := Info['Value']
  else if ExtObject is TParam then
    TParam(ExtObject).AsFloat := Info['Value'];
end;

procedure Tdws2IBXLib.customIBXUnitClassesTDBFieldMethodsSetIntegerEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    TField(ExtObject).AsInteger := Info['Value']
  else if ExtObject is TParam then
    TParam(ExtObject).AsInteger := Info['Value'];
end;

procedure Tdws2IBXLib.customIBXUnitClassesTFieldMethodsGetValueEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    Info['Result'] := TField(ExtObject).AsVariant
  else if ExtObject is TParam then
    Info['Result'] := TParam(ExtObject).AsString;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTFieldMethodsGetValueStrEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    Info['Result'] := TField(ExtObject).AsString
  else if ExtObject is TParam then
    Info['Result'] := TParam(ExtObject).AsString;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTFieldMethodsSetValueEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    TField(ExtObject).AsVariant := Info['Value']
  else if ExtObject is TParam then
    TParam(ExtObject).AsString := Info['Value'];
end;

procedure Tdws2IBXLib.customIBXUnitClassesTFieldMethodsSetValueStrEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  if ExtObject is TField then
    TField(ExtObject).AsString := Info['Value']
  else if ExtObject is TParam then
    TParam(ExtObject).AsString := Info['Value'];
end;

procedure Tdws2IBXLib.customIBXUnitClassesTLUFieldMethodsGetValueEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  { TODO : .IsNumeric not supported }
 //if TdwsIBXStatementObj(ExtObject).LUCol.IsNumeric then
 //  Info['Result'] := 0.0
 //else
  Info['Result'] := '';
end;

procedure Tdws2IBXLib.customIBXUnitClassesTLUFieldMethodsGetValueStrEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  { TODO : .IsNumeric not supported }
//  if TdwsIBOStatementObj(ExtObject).LUCol.IsNumeric then
//    Info['Result'] := '0'
//  else
  Info['Result'] := '';
end;

procedure Tdws2IBXLib.customIBXUnitClassesTLUFieldMethodsSetValueEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  LUFieldSetValue(Info['Value'], ExtObject);
end;

procedure Tdws2IBXLib.customIBXUnitClassesTLUFieldMethodsSetValueStrEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  vFieldValue: variant;
begin
  vFieldValue := Info['Value'];
  LUFieldSetValue(vFieldValue, ExtObject);
end;

procedure Tdws2IBXLib.customIBXUnitClassesTQueryConstructorsCreateAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
begin
  ExtObject := TdwsIBXStatementObj.Create;
  TdwsIBXStatementObj(ExtObject).IBXStatement := TIBQuery.Create(self);
  TdwsIBXStatementObj(ExtObject).IBXStatement.Database := FIBXConnection;
  TdwsIBXStatementObj(ExtObject).IBXStatement.Transaction := FIBXTransaction;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTQueryConstructorsCreateFromDBAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
var
  ScriptObj: IScriptObj;
  DBObj: TdwsIbxDataBaseObj;
begin
  ScriptObj := IScriptObj(IUnknown(Info['Database']));
  if ScriptObj = nil then
    DBObj := nil
  else
    DBObj := TdwsIbxDataBaseObj(ScriptObj.ExternalObject);

  ExtObject := TdwsIBXStatementObj.Create;
  TdwsIBXStatementObj(ExtObject).IBXStatement := TIBQuery.Create(self);
  TdwsIBXStatementObj(ExtObject).IBXStatement.Database := DBObj.IBXConnection;
  TdwsIBXStatementObj(ExtObject).IBXStatement.Transaction := FIBXTransaction;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTQueryMethodsGetFilteredEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBQuery(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Info['Result'] := Filtered;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTQueryMethodsGetFilterEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TIBQuery(TdwsIBXStatementObj(ExtObject).IBXStatement) do
  begin
    Info['Result'] := Filter;
  end;
end;

procedure Tdws2IBXLib.customIBXUnitClassesTQueryMethodsGetSortOrderEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  raise Exception.Create('Not supported by IBX');
end;

procedure Tdws2IBXLib.customIBXUnitClassesTQueryMethodsLookUpEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  DBLookUp: TdwsIBXStatementObj;
begin
  DBLookUp := TdwsIBXStatementObj(ExtObject);
  DBlookUp.KeyFieldValue := Info['KeyFieldValue'];
  if Assigned(DBLookUp.LUCol) then