Forum: Programmieren allgemein
by frankistreich,
5. Apr 2013
Hab es jetzt anders gelöst. Geht jetzt alles....trotzdem danke für die mühen
procedure Tfmuanzeigen.darstellen;
var x1,x2,y1,t:integer;
s,s1,s2,s3:string;
begin
qbefehl.Close;
qbefehl.SQL.Clear;
qbefehl.SQL.Add('select ma.mid,urlaub.beginn,rtrim(urlaub.dauer),urlaub.unr from ma '+
'inner join urlaub on ma.mid = urlaub.mid '+
Forum: Programmieren allgemein
by frankistreich,
5. Apr 2013
mit einzelschritten läuft er ohne probleme jetzt durch.
jedoch kommt beim koplettdurchlauf die fehlermeldung: 030403040404 ist kein gültiger integerwert
-> d.h. er zerlegt immernoch alle daten aus der datenbank, bevor er den ersten eintrag im stringgrid macht.
danke tritzdem schon mal
Forum: Programmieren allgemein
by frankistreich,
5. Apr 2013
while s<>'.' do
begin
s3:=s3+s;
inc(i);
bei diesen zeilen bleibt er hängen und macht dort endlos weiter
Forum: Programmieren allgemein
by frankistreich,
5. Apr 2013
Hier ist mein Problem
es geht darum, dass das erste urlaubsdatum aus qbefehl in ed1 und dann in s gespeicher wird.
danach wird s in s1(tag), s2(monat) und s3(jahr) zerlegt und s1 in eds1 angezeigt.
danach wird geprüft ob s2 gleich dem vorher gewählten monat ist, wenn ja dann macht er
von s1(z.b.:5) bis s1+ urlaubsdauer(z.b. 3) dass:
y wert von stringgrid ist die mitarbeiterid...