Results 1 to 11 of 11

Thread: hoe controleren of gebruiker alles ingevuld heeft ?

  1. #1

    hoe controleren of gebruiker alles ingevuld heeft ?

    hoi


    een formulierke met daarop onder elkaar 3 dblookupcomboboxen en 1 editveld.

    In elk van de drie dblookupcombobox moet de gebruiker een selectie maken en het edit veld moet ingevuld.

    Hoe controleer ik dat op een efficiënte wijze.


    Marc

  2. #2
    Zo toch?

    Code:
    if (Combo1.KeyValue = null) or (Combo2.KeyValue = null) or
      (Combo3.KeyValue = null) or (Edit1.Text = '') then
      //oops, een foutje
    
    Marcel

  3. #3
    Als het data-aware componenten zijn kan je gewoon de "Required" property van de betreffende velden in je dataset op "True" zetten.
    *Er bestaat geen bugs, alleen leerpunten*

  4. #4

    hoe

    hoi


    ja dat is één mogelijkheid.

    maar ik wil de gebruiker erop attent maken wat hij juist vergeten is in te vullen.
    Was ik even vergeten te vermelden.

    Ik heb het voor mekaar met if's maar ik meen dat er misschien een andere en meer overzichtelijke manier moet zijn.

    Ik leer nog steeds bij.

    Ik zie wel of nog iemand een idee heeft ?

    Bedankt alvast voor de snelle respons


    Vriendelijke groeten


    Marc

  5. #5

    Re: hoe

    Originally posted by marcus aurelius

    maar ik wil de gebruiker erop attent maken wat hij juist vergeten is in te vullen.
    Was ik even vergeten te vermelden.
    Als je de required zet geeft Delphi een foutmelding : "Field X must have a value".
    In die X zet hij de displaylabel van dat veld. Dus heet je veld KLANTNAAM en de displaylabel is "Naam" (Als je het netjes doet hetzelfde als de label bij je DbEdit/Edit component die aan dit veld hangt) wordt de foutmelding :

    "Field 'Naam' must have a value".

    Is toch perfect (Volgens mij zet hij ook nog de focus naar dat veld, maar dat weet ik niet zeker)
    *Er bestaat geen bugs, alleen leerpunten*

  6. #6

    hoe

    een editveld heeft volgens mij geen required property
    Of ben ik verkeerd ?!

    Vriendelijke groeten


    Marc

  7. #7
    Nee, maar we waren inmiddels naar de DBEdit componenten toch? Die zijn gekoppeld aan een TField en bij de TField zet je dan de required op True.
    Marcel

  8. #8
    Registered User
    Join Date
    Jul 2002
    Location
    Rotterdam
    Posts
    16
    [quote]
    Nee, maar we waren inmiddels naar de DBEdit componenten toch? Die zijn gekoppeld aan een TField en bij de TField zet je dan de required op True.
    [quote]

    Een beetje late reactie misschien maar als beginner (nog steeds ja) is het mij nog niet gelukt om de property 'required' te vinden. Ben dus wel bezig met data-aware componenten maar ben niet alleen bij machte om dit te vinden. Kan iemand mij verder op weg helpen?

    MarcoS
    "De oplossing van een probleem veranderd de aard van het probleem"
    ================

    Sommige koeien zijn vergeten dat zij zelf ook een kalf geweest zijn!!

  9. #9
    1. Ga naar de dataset waaraan het veld is gekoppeld
    2. Dubbelklik erop (Of rechtermuisknop->Fields editor...)
    3. Rechtermuisknop->Add all fields (Je hebt nu persistend fields (TField) aangemaakt)
    4. Selecteer het veld dat aan je edit is gekoppeld
    5. Zet de property "Required" op True


    Dit zou moeten lukken....
    *Er bestaat geen bugs, alleen leerpunten*

  10. #10
    Registered User
    Join Date
    Jul 2002
    Location
    Rotterdam
    Posts
    16
    Dit lukt dus. Top, bedankt.

    Nu zit ik alleen nog even met het toewijzen van een procedure wanneer ik op een van de DBNavigator buttons druk.

    Bijv de nbInsert button, hoe kan er dan een procedure gestart worden welke niet start na het clicken van de nbEdit Button?

    MarcoS
    "De oplossing van een probleem veranderd de aard van het probleem"
    ================

    Sommige koeien zijn vergeten dat zij zelf ook een kalf geweest zijn!!

  11. #11
    Member
    Join Date
    May 2002
    Location
    Groningen
    Posts
    93
    Op deze manier :

    Code:
    procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    begin
       case button of
         nbInsert : showmessage('insert') ;
         nbDelete : showmessage('delete') ;
         // etc
       end
    end;

    Rat

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. ADO / SQL Server: gebruiker controleren
    By Ruben in forum Databases
    Replies: 3
    Last Post: 05-Apr-04, 23:29
  2. Replies: 16
    Last Post: 03-Nov-03, 15:48
  3. Replies: 2
    Last Post: 25-Jul-02, 11:42

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •