Hoi allemaal...
Het is niet echt een probleem maar ik wil graag weten hoe ik van deze edit boxen de waardes snel kan checken zonder er 16 if statements in te gooien. Deze editboxen worden gevult met waardes van een database maar als er een legewaarde wordt mee gegeven knal het proggie eruit met een error en dat is niet de bedoeling.
edtContractIDC.Text := (quContractSpecs.FieldValues['ContractID']);
edtContractDatumC.Text := (quContractSpecs.FieldValues['Contractdatum']);
edtKlantIDC.Text := (quContractSpecs.FieldValues['KlantID']);
edtVestIDC.Text := (quContractSpecs.FieldValues['VestID']);
edtKlantNaamC.Text := (quContractSpecs.FieldValues['Klantnaam']);
edtAdresC.Text := (quContractSpecs.FieldValues['Klantstr']);
edtAdresNrC.Text := (quContractSpecs.FieldValues['Klantstrnr']);
edtPostCNrC.Text := (quContractSpecs.FieldValues['KlantPostct']);
edtPostCLrC.Text := (quContractSpecs.FieldValues['Klantpostcalf']);
edtPlaatsC.Text := (quContractSpecs.FieldValues['KlantPlaats']);
edtTelNetC.Text := (quContractSpecs.FieldValues['KlantTelnet']);
edtTelNrC.Text := (quContractSpecs.FieldValues['KlantTelabo']);
edtBTWNrC.Text := (quContractSpecs.FieldValues['BTWnr']);
cbxKlantBlokkadeC.Checked := (quContractSpecs.FieldValues['Pesklant_Blokkande']);
cbxContractBlokkadeC.Checked := (quContractSpecs.FieldValues['Contract_Blokkade']);
edtLandC.Text := (quContractSpecs.FieldValues['KlantLand']);
Bedankt alvast....
Het is niet echt een probleem maar ik wil graag weten hoe ik van deze edit boxen de waardes snel kan checken zonder er 16 if statements in te gooien. Deze editboxen worden gevult met waardes van een database maar als er een legewaarde wordt mee gegeven knal het proggie eruit met een error en dat is niet de bedoeling.
edtContractIDC.Text := (quContractSpecs.FieldValues['ContractID']);
edtContractDatumC.Text := (quContractSpecs.FieldValues['Contractdatum']);
edtKlantIDC.Text := (quContractSpecs.FieldValues['KlantID']);
edtVestIDC.Text := (quContractSpecs.FieldValues['VestID']);
edtKlantNaamC.Text := (quContractSpecs.FieldValues['Klantnaam']);
edtAdresC.Text := (quContractSpecs.FieldValues['Klantstr']);
edtAdresNrC.Text := (quContractSpecs.FieldValues['Klantstrnr']);
edtPostCNrC.Text := (quContractSpecs.FieldValues['KlantPostct']);
edtPostCLrC.Text := (quContractSpecs.FieldValues['Klantpostcalf']);
edtPlaatsC.Text := (quContractSpecs.FieldValues['KlantPlaats']);
edtTelNetC.Text := (quContractSpecs.FieldValues['KlantTelnet']);
edtTelNrC.Text := (quContractSpecs.FieldValues['KlantTelabo']);
edtBTWNrC.Text := (quContractSpecs.FieldValues['BTWnr']);
cbxKlantBlokkadeC.Checked := (quContractSpecs.FieldValues['Pesklant_Blokkande']);
cbxContractBlokkadeC.Checked := (quContractSpecs.FieldValues['Contract_Blokkade']);
edtLandC.Text := (quContractSpecs.FieldValues['KlantLand']);
Bedankt alvast....