Fibplus Dataset / SQL ändern

[manfred_h]

Zitat von DeddyH:

@Manfred: Dein Code ist ein wenig unübersichtlich, sry. Ist sql_string_default eine globale Variable? Und wird vor dem TDM.dataset_setup auch ein TDM_hospital.dataset_sql_setup durchgeführt? Schließlich handelt es sich um 2 unterschiedliche Methoden.

Hallo DeddyH

beim aufrufen der Form werden im FormShow bei Befehle aufgeruffen

Delphi-Quellcode:

procedure Tfrm_hotel.FormShow(Sender: TObject);
begin
  DM_hotel.dataset_sql_setup(Sender);
  DM.dataset_setup(Sender);

hier noch der complette Code.
>> Dein Code ist ein wenig unübersichtlich, sry.
Wenn Du mir sagen könntest wie ich dies übersichtlicher erstellen kann bitte teile mir dies mit.
Lerne gerne immer was dazu.

Delphi-Quellcode:

procedure TDM_hospital.dataset_sql_setup(Sender: TObject);
begin
  sql_string_default := 'SELECT * FROM HOSPITAL '+
                        'WHERE (STAT_DEL ='+'0'+') ORDER BY NAME';
  sql_string_default_c :=  'SELECT * FROM HOSPITAL_C WHERE ID_AREA = ?ID ORDER BY C_NAME';
  sql_string_default_d :=  'SELECT * FROM HOSPITAL_D WHERE ID_AREA = ?ID ORDER BY D_DATE DESC';
  sql_string_default_dd := 'SELECT * FROM HOSPITAL_DD WHERE ID_D = ?ID ORDER BY BIBLE_TYPE';
  sql_string_default_s :=  'SELECT * FROM HOSPITAL_S';
end;

Delphi-Quellcode:

procedure TDM.dataset_setup(Sender: TObject);
begin
  DB_Gideons.Open;
  with Default do
  begin
    close;
    SelectSQL.Clear;
    SelectSQL.Add (sql_string_default);
    GenerateSQLs;
    Open;
  end;
  with Default_D do
  begin
    close;
    SelectSQL.Clear;
    SelectSQL.Add (sql_string_default_d);
    GenerateSQLs;
    Open;
  end;
  with Default_DD do
  begin
    close;
    SelectSQL.Clear;
    SelectSQL.Add (sql_string_default_dd);
    GenerateSQLs;
    Open;
  end;
  with Default_C do
  begin
    close;
    SelectSQL.Clear;
    SelectSQL.Add (sql_string_default_c);
    GenerateSQLs;
    Open;
  end;
  with Default_S do
  begin
    close;
    SelectSQL.Clear;
    SelectSQL.Add (sql_string_default_s);
    GenerateSQLs;
    Open;
  end;
end;