Verwendung Datenmodul

[d6lpz]

Hallo,
möchte ungefähr folgendes erreichen:

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
        i :integer;
begin

        for i:=1 to 12 do
                DataModule1.ADOQuery[i].active :=False
        end;
end;

Frage: wie kann man eine Variable in einem Bezeichner verwenden?

Danke für alle Tips

Dirk

[edit=MrSpock]Delphi-Code Tags eingefügt. Mfg, MrSpock[/edit]

[mkinzler]

Such mal nach .FindComponent()

[d6lpz]

Zitat von mkinzler:

Such mal nach .FindComponent()

habe jetzt folgendes:

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
        str_datstart :string;
        str_datend :string;
        i :integer;
const
  NamePrefix = 'ADOQuery';

begin
        str_datstart :='01.01.2007';
        str_datend :='31.12.2007';

        for i:=1 to 12 do
                with DataModule1(FindComponent(NamePrefix + [i])) do
                begin
                        active :=False;
                end;
        end;
end;

funktioniert leider nicht - ich komme mit dieser Sache noch nicht zurecht

[DeddyH]

with DataModule1.FindComponent(NamePrefix + IntToStr(i)) as TADOQuery do Versuch es mal so.

[edit] Typecasting vergessen [/edit]

[marabu]

Hallo Dirk,

manchmal genügt eine einzelne Zeile zum Schließen aller offenen DataSets:

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
  str_datstart, str_datend: string;
  i: Integer;
  dtStart, dtEnd: TDateTime;
begin
  dtStart := EncodeDate(2007, 1, 1);
  dtEnd := EncodeDate(2007, 12, 31);

  // ...

  DataModule1.ADOConnection1.Close;
end;

Freundliche Grüße

[d6lpz]

Zitat von DeddyH:

with DataModule1.FindComponent(NamePrefix + IntToStr(i)) as TADOQuery do Versuch es mal so.

[edit] Typecasting vergessen [/edit]

Danke !!

Sorry für meine NOCH unqualifizierten Fragen - bin halt beginner.

Dirk

[DeddyH]

Wir haben alle mal angefangen

[d6lpz]

Zitat von marabu:

Hallo Dirk,

manchmal genügt eine einzelne Zeile zum Schließen aller offenen DataSets:

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
  str_datstart, str_datend: string;
  i: Integer;
  dtStart, dtEnd: TDateTime;
begin
  dtStart := EncodeDate(2007, 1, 1);
  dtEnd := EncodeDate(2007, 12, 31);

  // ...

  DataModule1.ADOConnection1.Close;
end;

Freundliche Grüße

Hallo

Aber zum Öffnen muß ich doch alle Querys einzeln aktivieren oder geht das auch anders??
Dirk

[marabu]

Zum Öffnen aller DataSets einer Connection kannst du über deren Eigenschaft DataSets[] iterieren. Vielleicht möchtest du das beim Ereignis AfterConnect() der Connection erledigen.

[d6lpz]

Zitat von DeddyH:

Wir haben alle mal angefangen

Danke für dein Verständnis

Habe nach einigem Probieren und "Hilfe" lesen aber immer noch Probleme.

Bekomme bei Folgendem die Meldung '"." erwartet, aber ";" gefunden'

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
        x_datstart, x_datend: TDateTime;
        i :integer;
const
  NamePrefix = 'ADOQuery';

begin
        x_datstart := EncodeDate(2007, 1, 1);
        x_datend := EncodeDate(2007, 12, 31);

        for i:=1 to 12 do
            with DataModule1.FindComponent(NamePrefix + IntToStr(i)) as TADOQuery do
                begin
                        Active:=false;
                        Parameters.ParamByName('emplid').Value:=lb_name.KeyValue;
                        Parameters.ParamByName('DatStart').Value:=x_datstart;
                        Parameters.ParamByName('DatEnd').Value:=x_datend;
                end;
        end;
end;

end.

die Variante geht auch nicht:

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
        x_datstart, x_datend: TDateTime;
        i :integer;
const
  NamePrefix = 'ADOQuery';

begin
        x_datstart := EncodeDate(2007, 1, 1);
        x_datend := EncodeDate(2007, 12, 31);

        for i:=1 to 12 do
            with DataModule1.FindComponent(NamePrefix + IntToStr(i)) as TADOQuery do
                begin
                        .Active:=false;
                        .Parameters.ParamByName('emplid').Value:=lb_name.KeyValue;
                        .Parameters.ParamByName('DatStart').Value:=x_datstart;
                        .Parameters.ParamByName('DatEnd').Value:=x_datend;
                end;
        end;
end;

end.

Hast ud einmal ein Hinweis?
Dirk