M
Hallo!
Bis jetzt hat das alles wunderbar funktioniert, leider hab ich jetzt ein Problem. Bei nachfolgendem Code erscheint der SmoothMessageDialog ganz normal, aber wenn ich etwas Anklicke passiert garnichts, obwohl die Button-Results korrekt eingestellt sind. Hab ich was übersehen? Für Hilfe wär ich echt dankbar, ich glaub ich seh vor lauter Bäumen gerade keinen Wald
// Pruefen ob Automat zugeordnet werden soll
AdvSmoothMessageDialog1->Caption = "Möchten Sie den Automaten '" +
ADOQuery1->FieldByName("BEZEICHNUNG")->AsString +
"'\nmit der Zulassungs-Nr. '" + ADOQuery1->FieldByName("SNNR")
->AsString + "' dem Aufstellplatz '" +
f_kundenverwaltung->ADOQuery1->FieldByName("AUFSTELLPLATZ")
->AsString + "' zuordnen?";
switch(AdvSmoothMessageDialog1->Execute()) {
case mrYes:
// Automat zuordnen
NR_KD = f_kundenverwaltung->ADOQuery1->FieldByName("NR_KD")->AsInteger;
SNNR = ADOQuery1->FieldByName("SNNR")->AsString;
// Gebuehr abfragen
GEBUEHR = StrToFloat(InputBox("Monatliche Gebühr", "Betrag", "0,00"))
/ 1.19;
// Wirtanteil in Prozent abfragen
PROZENT_WIRT = StrToFloat(InputBox("Wirtanteil in Prozent", "Prozent",
"0,00"));
// Erstbefuellung abfragen
ERSTBEFUELLUNG = StrToFloat(InputBox("Erstbefüllung", "Betrag",
"0,00"));
// Aufstellungsdatum abfragen
A_DATUM = StrToDate(InputBox("Datum eingeben",
"An welchem Datum wurde der Automat ausgeliefert?",
(DateToStr(Date()))));
// Vor der ersten Abrechnung wird das Auslieferungsdatum verwendet
ABRDAT_A = A_DATUM;
// Terminal dem Kunden zuordnen
DecimalSeparator = '.';
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Text =
"UPDATE automatenverwaltung.automatenverwaltung SET NR_KD = " +
IntToStr(NR_KD) + ", GEBUEHR_KD = " + (GEBUEHR)
+ ", ERSTBEFUELLUNG = " + (ERSTBEFUELLUNG) + ", PROZENT_WIRT = " +
(PROZENT_WIRT) + ", A_DATUM = '" + FormatDateTime("yyyy.mm.dd",
A_DATUM) + "', ABRDAT_A = '" + FormatDateTime("yyyy.mm.dd",
A_DATUM) + "' WHERE SNNR = '" + AnsiString(SNNR) + "'";
ADOQuery2->ExecSQL();
DecimalSeparator = ',';
// Statusmeldung ausgeben
f_kundenverwaltung->AdvSmoothMessageDialog4->Caption = "Automat '" +
ADOQuery1->FieldByName("SNNR")->AsString +
"'\nwurde dem Aufstellplatz '" +
f_kundenverwaltung->ADOQuery1->FieldByName("AUFSTELLPLATZ")
->AsString + "' zugeordnet!";
f_kundenverwaltung->AdvSmoothMessageDialog4->Execute();
// Fenster schliessen
Close();
// Anzeige fuer zuegordnete Terminals aktualisieren
f_kundenverwaltung->ADOQuery2->Active = false;
f_kundenverwaltung->ADOQuery2->Active = true;
break;
case mrNo:
break;
}
LG, Maik