|
Thema geschlossen
|
Registriert seit: 19. Jun 2004 89 Beiträge Delphi 10.2 Tokyo Starter |
#1
Datenbank: Access • Version: 2003 • Zugriff über: ADO
Hallo
Ich habe folgendes Problem. Ich muss vor dem Speichern des Datensatzes die Felder Überprüfen ob diese Ausgefüllt werden da ein speichern sonst nicht möglich ist. Ich habe mir einen Label L_Freigabe angelegt indem ich bei jedem ausgefüllten Feld + 1 addiren möchte so das ich am ende auf 22 komme und nur dan soll die Speicherung erfolgen. Es wird aber keine Rechnung vorgenommen ich bekomme dan auch von dem Progamm keine Fehlermeldung. Der Code sieht so aus:
Delphi-Quellcode:
Kann mir jemand helfen??
procedure TServicedetails.B_SpeichernClick(Sender: TObject);
begin if L_Freigabe.Caption < '22' then begin if E_Serviceberichtnr.Text = '2000' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Serviceberichtnr.'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'ergänzen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Zustand.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Zustand'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste Auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_Maengel.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Endeckte Mängel'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Taupunkt.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Taupunktmessung'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_L1.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'L1'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_L2.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'L2'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_L3.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'L3'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_N.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'N'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_PE.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'PE'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Wartungssiegel.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Wartungssiegel'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_naechste_Wartung.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'nächste Wartung'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'im Datumsformat TT.MM.JJJJ eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Komponenten.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Komponenten auf Verschleiß...'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Elektische.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Elektrische Komponenten...'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Schrauben.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Schraub- und Steckverbindungen...'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Pneumatische.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Pneumatische Einrichtungen...'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Ventilgruppen.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Ventilgruppen geprüft ...'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Dichtungen.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Dichtungen geprüft'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Filter.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Filter gereinigt ggf. erneuert'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Schlaeuche.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Schläche überprüft'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if CB_Grundreinigung.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Grundreinigung'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_Bemerkungen.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Bemerkungen'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder "keine" eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; if E_Reparaturzeit.Text = '' then begin Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Reparaturzeit'; Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder 0 eintragen'; Mainframe.Fehlermeldung.Show; end else; Begin L_Freigabe.Caption := L_Freigabe.Caption + '1'; end; end else; begin if L_Freigabe.Caption = '' then begin Tabellen.TAB_Servicebericht.Active := True; Tabellen.TAB_Servicebericht.Insert; Tabellen.TAB_Servicebericht.FieldByName('Anlagen_ID').Value := Mainframe.Hauptseite.DBT_Anlagen_ID.Caption; Tabellen.TAB_Servicebericht.FieldByName('Datum').AsDateTime := DTP_Datum.Date; Tabellen.TAB_Servicebericht.FieldByName('Zustand').Value := CB_Zustand.Text; Tabellen.TAB_Servicebericht.FieldByName('Maengel').Value := E_Maengel.Text; Tabellen.TAB_Servicebericht.FieldByName('Taupunkt').Value := CB_Taupunkt.Text; Tabellen.TAB_Servicebericht.FieldByName('L1').Value := E_L1.Text; Tabellen.TAB_Servicebericht.FieldByName('L2').Value := E_L2.Text; Tabellen.TAB_Servicebericht.FieldByName('L3').Value := E_L3.Text; Tabellen.TAB_Servicebericht.FieldByName('N').Value := E_N.Text; Tabellen.TAB_Servicebericht.FieldByName('Erde').Value := E_PE.Text; Tabellen.TAB_Servicebericht.FieldByName('Wartungssiegel').Value := CB_Wartungssiegel.Text; Tabellen.TAB_Servicebericht.FieldByName('Datumnaechste').Value := E_Naechste_Wartung.Text; Tabellen.TAB_Servicebericht.FieldByName('Komponenten').Value := CB_Komponenten.Text; Tabellen.TAB_Servicebericht.FieldByName('Elektrische').Value := CB_Elektrische.Text; Tabellen.TAB_Servicebericht.FieldByName('Verbindungen').Value := CB_Schrauben.Text; Tabellen.TAB_Servicebericht.FieldByName('Pneumatische').Value := CB_Pneumatische.Text; Tabellen.TAB_Servicebericht.FieldByName('Ventilgruppen').Value := CB_Ventilgruppen.Text; Tabellen.TAB_Servicebericht.FieldByName('Dichtungen').Value := CB_Dichtungen.Text; Tabellen.TAB_Servicebericht.FieldByName('Filter').Value := CB_Filter.Text; Tabellen.TAB_Servicebericht.FieldByName('Schlaeche').Value := CB_Schlaeuche.Text; Tabellen.TAB_Servicebericht.FieldByName('Grundreinigung').Value := CB_Grungreinigung.Text; Tabellen.TAB_Servicebericht.FieldByName('Wartungs_ID').Value := L_Warungsarbeiten_ID.Caption; Tabellen.TAB_Servicebericht.FieldByName('Arbeiten_ID').Value := L_Arbeiten_ID.Caption; Tabellen.TAB_Servicebericht.FieldByName('Berichtnummer').Value := E_Serviceberichtnr.Text; if Mainframe.Ersatzteile1.L_Verbrauchs_ID1.Caption > '0' then begin Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID1').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID1.Caption; end; if Mainframe.Ersatzteile1.L_Verbrauchs_ID2.Caption > '0' then begin Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID2').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID2.Caption; end; if Mainframe.Ersatzteile1.L_Verbrauchs_ID3.Caption > '0' then begin Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID3').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID3.Caption; end; if Mainframe.Ersatzteile1.L_Verbrauchs_ID4.Caption > '0' then begin Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID4').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID4.Caption; end; if Mainframe.Ersatzteile1.L_Verbrauchs_ID5.Caption > '0' then begin Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID5').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID5.Caption; end; Tabellen.TAB_Servicebericht.FieldByName('Bemerkung').Value := E_Bemerkungen.Text; Tabellen.TAB_Servicebericht.FieldByName('Reparaturzeit').Value := E_Reparaturzeit.Text; Tabellen.TAB_Servicebericht.Post; Mainframe.Ersatzteile1.L_Zaehler.Caption := ''; Mainframe.Ersatzteile1.L_Verbrauchs_ID1.Caption := ''; Mainframe.Ersatzteile1.L_Verbrauchs_ID2.Caption := ''; Mainframe.Ersatzteile1.L_Verbrauchs_ID3.Caption := ''; Mainframe.Ersatzteile1.L_Verbrauchs_ID4.Caption := ''; Mainframe.Ersatzteile1.L_Verbrauchs_ID5.Caption := ''; B_Ersatzteile.Enabled := True; CB_Zustand.Text := ''; E_Maengel.Text := ''; CB_Taupunkt.Text := ''; E_L1.Text := ''; E_L2.Text := ''; E_L3.Text := ''; E_N.Text := ''; E_PE.Text := ''; CB_Wartungssiegel.Text := ''; E_Naechste_Wartung.Text := ''; CB_Komponenten.Text := ''; CB_Elektrische.Text := ''; CB_Schrauben.Text := ''; CB_Pneumatische.Text := ''; CB_Ventilgruppen.Text := ''; CB_Dichtungen.Text := ''; CB_Filter.Text := ''; CB_Schlaeuche.Text := ''; CB_Grungreinigung.Text := ''; L_Warungsarbeiten_ID.Caption := ''; L_Arbeiten_ID.Caption := ''; E_Bemerkungen.Text := ''; E_Reparaturzeit.Text := ''; E_Serviceberichtnr.Text := '2000'; B_Drucken.Enabled := True; end; end; Danke in voraus Mcop2001de |
Registriert seit: 24. Jan 2005 Ort: Karben 626 Beiträge Delphi XE7 Architect |
#2
Bitte hier weiterposten. Dort wurden schon antworten gegeben.
http://www.delphipraxis.net/internal...t.php?t=111302
Christian
|
Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.252 Beiträge Delphi 2006 Professional |
#3
Zitat von Cyberbob:
Bitte hier weiterposten. Dort wurden schon antworten gegeben. ...
Stephan B.
"Lasst den Gänsen ihre Füßchen" |
Ansicht |
Linear-Darstellung |
Zur Hybrid-Darstellung wechseln |
Zur Baum-Darstellung wechseln |
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Nützliche Links |
Heutige Beiträge |
Sitemap |
Suchen |
Code-Library |
Wer ist online |
Alle Foren als gelesen markieren |
Gehe zu... |
LinkBack |
LinkBack URL |
About LinkBacks |