Also ich hab folgendes Problem und komm einfach nicht weiter:
Mit dieser Procedure sollte eigentlich automatisch die Tabelle mit den 4 Standardbenutzern gefüllt werden
ZielTempTap = TADOTable
Delphi-Quellcode:
procedure Benutzer;
begin
Application.ProcessMessages;
sleep(2000);
Form1.ZielTempTab.Active := false;
Form1.ZielTempTab.TableName := 'BENUTZER';
Form1.ZielTempTab.Active := true;
Form1.ZielTempTab.Insert;
Form1.ZielTempTab.FieldByName('USER_ID').AsInteger := 1;
Form1.ZielTempTab.FieldByName('NAME').AsString := 'SM';
Form1.ZielTempTab.Post;
Form1.ZielTempTab.Insert;
Form1.ZielTempTab.FieldByName('USER_ID').AsInteger := 2;
Form1.ZielTempTab.FieldByName('NAME').AsString := 'CS';
Form1.ZielTempTab.Post;
Form1.ZielTempTab.Insert;
Form1.ZielTempTab.FieldByName('USER_ID').AsInteger := 3;
Form1.ZielTempTab.FieldByName('NAME').AsString := 'PF';
Form1.ZielTempTab.Post;
Form1.ZielTempTab.Insert;
Form1.ZielTempTab.FieldByName('USER_ID').AsInteger := 4;
Form1.ZielTempTab.FieldByName('NAME').AsString := 'SK';
Form1.ZielTempTab.Post;
end;
Wenn ich die Procedure mit
Delphi-Quellcode:
[$DEFINE ABFRAGE}
{$IFDEF ABFRAGE}
if MessageDlg('Standardbenutzer anlegen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
{$ENDIF}
begin
Label11.Caption := 'Standardbenutzer werden angelegt';
Benutzer;
Label11.Caption := '---';
end;
aufrufen und im MessageDlg auf JA klicke, macht der das
Wenn ich jetzt aber
{$DEFINE ABFRAGE}
in z.b.
{$DEFINE notABFRAGE}
umwandele (Die MessageDlg-Abfrage wird nicht mit kompiliert) und das Programm läuft wird die Tabelle nicht angelegt?
Ich weiß einfach nicht weiter
