Halo zusammen
ist wirklich eine Anfägerfage Sorry ( hab auch schon die Suche bemüht )
ich habe ein Form und ein Datamodul
Im Datamodul habe ich diese Procedure:
Delphi-Quellcode:
procedure TDM_hotel.nc_calc(Sender: TObject);
var maxdate : string;
begin
Q_tmp.SQL.Text := ('SELECT MAX (D_DATE) FROM HOTEL_D WHERE' +
'(ID_AREA = '+''''+(''+frm_hotel.ID.Field.DisplayText+''''+')'));
Q_tmp.ExecQuery;
maxdate := Q_tmp.FieldByName('MAX').AsString;
Q_tmp.Close;
if Hotel.FieldByName('CS').Value > 1 then
with Hotel do
begin
Edit;
FieldByName('NC').AsString := DateToStr(StrToDate(maxdate)+((FieldByName('CS').Value * 30)));
post;
end;
end;
aus dem Form kann ich so zugreifen:
Delphi-Quellcode:
procedure Tfrm_hotel.contactseries_update(Sender: TObject);
begin
DM_hotel.nc_calc(Sender);
end;
Frage: Wie kann ich im Datamodul selber auf diese Procedure zugreifen?
Delphi-Quellcode:
procedure TDM_hotel.Hotel_DAfterPost(DataSet: TDataSet);
begin
nc_calc;
end;
das hier geht nicht ...
Es kommt immer die Felermeldung : Not enough actual parameters
bin dankbar für Eure Hilfe
Shalom
Manfred