-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
21. Jun 2002
So, nun habe ich den Code umfunktioniert, so wie oben beschrieben.
Weiters habe ich im DataModul (DM) den Code beim Filtern auch umgeschrieben.
procedure TDM.ADOSHauptFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if (StrToDate(Copy(ADOSHaupt.FieldByName('Geburtsdatum').AsString,1,6)+Copy(DateToStr(Date),7,4))<=Date+7)
and...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
20. Jun 2002
Danke für die INFO. Genau solche Beschreibungen können jemanden weiterhelfen, der sich nicht richtig im Code-tschungel auskennt.
Aber trotzdem: das mit dem onShow hab ich ja immer gemacht. Da ist ja das problem. Ich bekomme die Form nicht automatisch beim Start auf. (siehe postings weiter oben).
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
20. Jun 2002
Hi, werd ich heute abend mal probieren.
Was ist jetzt aber mit dem Geburtsdatum.Click oder GeburtsdatumClick(sender)
Ich werd mal probieren, diese procedure in onActivate hineinzustellen.
Ich habe aber fast die befürchtung, dass da dann, wenn die checkbox angewählt ist, wieder eine Meldung von Onhide und so kommen wird.
Ich habe es ja vorher auch bei onActivate gehabt. Da hat sich die...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
19. Jun 2002
Hi, ich habe jetzt den Code vom Button so wie oben beschrieben eingebaut. Der Button funktioniert zwar, aber die ExtraForm öffnet sich noch immer nicht automatisch beim start.
Da wir ja gerade dabei sind, auch den Code vom Geburtstag zu ändern, zeige ich jetzt euch noch den Code, der in dem Datenmodul 'DM' steht, wo ich dann filtere:
procedure TDM.ADOSHauptFilterRecord(DataSet: TDataSet; ...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
18. Jun 2002
So sieht der Code beim Button Geburtsdatum aus:
procedure TKundendaten.GeburtsdatumClick(Sender: TObject);
var i,r:Integer;
begin
r:=DM.ADOSHaupt.RecNo;
for i:=1 to DM.ADOSHaupt.RecordCount do begin
if (StrToDate(Copy(DM.ADOSHaupt.FieldByName('Geburtsdatum').AsString,0,6)+C opy(DateToStr(now+7),7,4))<=now+7)
and...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
17. Jun 2002
Hi, hab ich alles schon probiert, es kommt jetzt zwar keine Fehlermeldung, aber die ExtraForm wird nicht geöffnet, obwohl die Checkbox in der ExtraForm aktiviert ist!
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
17. Jun 2002
Ich hab jetzt was anderes probiert:
procedure TKundendaten.save_inifile;
var
Ini : TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini' );
try
Ini.WriteBool('Sektion1','check_box',ExtraForm.CheckBox1.Checked);
finally
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
17. Jun 2002
hab ich gemacht, es kommt zuerst keine Fehlermeldung. Wenn ich mit dem Cursor über das Wort ExtraForm gehe, dann kommt ein gelbes fenster, da steht ein langer code drinn. Wenn ich dann F8 drücke, dann ist die Zeile ini.free; blau. Wenn ich nochmals F8 drücke, dann kommt die Fehlermeldung.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
17. Jun 2002
Hab ich gemacht, nützt aber nichts!
Noch was ist mir aufgefallen:
Normalerweise schreibt man das ja so:
Procedure TKundendaten.load_inifile;
var
Ini: TIniFile;
begin
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
17. Jun 2002
Hi, die procedure load_inifile rufe ich sonst niergenst auf und ExtraForm ist auf der rechten Seite
-
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
17. Jun 2002
Hi Leute, so nun hab ich ein Problem beseitigt, schon ist das nächste da. Dies ist aber (glaub ich jedenfalls) das letzte, was ich noch habe.
Ich habe folgendes vor.
Ich habe eine Form (ExtraForm) wo ich die Geburtstagskinder sehe, die von heute an bis hin in einer Woche, Geburtstag haben.
Das mit dem Filtern von den Geburtstagskindern funktioniert einwandfrei.
Folgendes. Ich habe in der...