dws2adomodule.pas

script language

  TdwsADODatasetObj(ExtObject).AdoDataset.Open;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsEofEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info.Result := TdwsADODatasetObj(ExtObject).AdoDataset.eof;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADOConnectionConstructorsCreateAssignExternalObject(
  Info: TProgramInfo; var ExtObject: TObject);
var
  dbh: TdwsADODataBaseObj;
begin
  dbh := TdwsADODataBaseObj.Create;
  dbh.ADOConnection := TADOConnection.Create(self);
  dbh.ADOConnection.CursorLocation := clUseClient;
  dbh.ADOConnection.LoginPrompt := False;
  dbh.ADOConnection.ConnectionString := Info['ConnectionString'];
  if dbh.ADOConnection.ConnectionString <> '' then
    dbh.ADOConnection.Open;
  ExtObject := dbh;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADOConnectionMethodsOpenEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TdwsADODatabaseObj(ExtObject) do
  begin
    ADOConnection.Open;
  end;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADOConnectionMethodsCloseEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with TdwsADODatabaseObj(ExtObject) do
  begin
    ADOConnection.Close;
  end;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsSetFieldEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  DatasetObj: TdwsAdoDatasetObj;
  FieldObj: TField;
  iObj: Integer;
begin
  iObj := Info['Value'];
  if iObj = 0 then
    FieldObj := nil
  else
    FieldObj := TField(ExtObject);

  DatasetObj := TdwsAdoDatasetObj(ExtObject);
  DatasetObj.AdoDataset.Fields[info['Index']] := FieldObj;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsGetFieldEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  DatasetObj: TdwsAdoDatasetObj;
begin
  DatasetObj := TdwsAdoDatasetObj(ExtObject);
  //genera memoryleek
  Info.Result :=
    Info.Vars['TDBField'].GetConstructor('Create',
    DatasetObj.ADODataset.Fields[Info['Index']]
    ).Call.Value;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsFieldCountEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info.Result := TdwsAdoDatasetObj(ExtObject).AdoDataset.FieldCount;
end;

procedure Tdws2ADOLib.customADOUnitClassesTDBFieldMethodsDataTypeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info.Result := TField(ExtObject).DataType;
end;

procedure Tdws2ADOLib.customADOUnitClassesTDBFieldMethodsDataSizeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info.Result := TField(ExtObject).DataSize;
end;

procedure Tdws2ADOLib.customADOUnitClassesTDBFieldMethodsNameEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info.Result := TField(ExtObject).FieldName;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsGetHTMLComboEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  DatasetObj: TdwsAdoDatasetObj;
  Selected, sField, res: string;
begin
  DatasetObj := TdwsAdoDatasetObj(ExtObject);
  Selected := Info['Selected'];
  Res := '';

  with DatasetObj.AdoDataset do
  begin
    while not EOF do
    begin
      sField := Fields[0].AsString;

      if sField = selected then
      begin
        Res := Res + '<OPTION SELECTED>' + sField + '</OPTION>';
      end
      else
      begin
        Res := Res + '<OPTION>' + sField + '</OPTION>';
      end;
      next;
    end;
  end;

  Info.Result := Res;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADOConnectionMethodsSetCommandTimeoutEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TdwsADODatabaseObj(ExtObject).Adoconnection.CommandTimeout := Info['Value'];
end;

procedure Tdws2ADOLib.customADOUnitClassesTADOConnectionMethodsGetCommandTimeoutEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info.Result := TdwsADODatabaseObj(ExtObject).Adoconnection.CommandTimeout;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsFieldAsStringEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  Index: Variant;
begin
  Index := info['Index'];
  if VarIsOrdinal(Index) then
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(Index))].AsString
  else
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(Index)).AsString;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsFieldAsDateTimeEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  Index: Variant;
begin
  Index := info['Index'];
  if VarIsOrdinal(Index) then
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(Index))].AsDateTime
  else
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(Index)).AsDateTime;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsFieldAsIntegerEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  index: Variant;
begin
  index := info['index'];
  if VarIsOrdinal(index) then
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(index))].AsInteger
  else
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(index)).AsInteger;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsFieldAsFloatEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  index: Variant;
begin
  index := info['index'];
  if VarIsOrdinal(index) then
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(index))].AsFloat
  else
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(index)).AsFloat;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsGetFieldAsVariantEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  index: Variant;
begin
  index := info['index'];
  if VarIsOrdinal(index) then
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(index))].AsVariant
  else
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(index)).Asvariant;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsSetFieldAsStringEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  index: Variant;
begin
  index := info['index'];
  if VarIsOrdinal(index) then
    TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(index))].AsString := info['Value']
  else
    TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(index)).AsString := info['Value'];
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsSetFieldAsIntegerEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  index: Variant;
begin
  index := info['index'];
  if VarIsOrdinal(index) then
    TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(index))].AsInteger := info['Value']
  else
    TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(index)).AsInteger := info['Value'];
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsSetFieldAsDateTimeEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  Index: Variant;
begin
  Index := info['Index'];
  if VarIsOrdinal(Index) then
    TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(Index))].AsDateTime := info['Value']
  else
    TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(Index)).AsDateTime := info['Value'];
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsSetFieldAsFloatEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  Index: Variant;
begin
  Index := info['Index'];
  if VarIsOrdinal(Index) then
    TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(Index))].AsFloat := info['Value']
  else
    TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(Index)).AsFloat := info['Value'];
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsSetFieldAsVariantEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  Index: Variant;
begin
  Index := info['Index'];
  if VarIsOrdinal(Index) then
    TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(Index))].AsVariant := info['Value']
  else
    TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(Index)).AsVariant := info['Value'];
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsGetFieldIsNullEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  index: Variant;
begin
  index := info['index'];
  if VarIsOrdinal(index) then
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.Fields[StrToInt(VarToStr(index))].IsNull
  else
    Info.Result := TdwsADODatasetObj(ExtObject).ADODataset.FieldByName(VarToStr(index)).IsNull;
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsSetCommandTimeoutEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  TdwsAdoDatasetObj(ExtObject).AdoDataset.CommandTimeout := Info['Value'];
end;

procedure Tdws2ADOLib.customADOUnitClassesTADODatasetMethodsGetCommandTimeoutEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info.Result := TdwsAdoDatasetObj(ExtObject).AdoDataset.CommandTimeout;
end;

initialization
  CoInitializeEx(nil, COINIT_MULTITHREADED);
finalization
  CoUninitialize;
end.