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;