Kaip įrašyti pasirinktinio įvedimo lauką, Visual FoxPro įvesties


Santrauka


Microsoft Visual FoxPro leidžia naudoti pasirinktinio įvedimo laukai formų pasirinkti arba įvesties duomenų formą. Pasirinktinio įvedimo laukai leidžia duomenis galima gauti iš šių šaltinių:
  • Reikšmė
  • Pseudonimas
  • SQL sakinių
  • Užklausos
  • Masyvai
  • Laukai
  • Failai
  • Struktūros
  • Iššokantys langai
Šiame straipsnyje aprašoma, kaip įvesti informaciją, kuri nėra nurodyta pasirinktinio įvedimo lauko valdiklis išplečiamojo sąrašo ir tada pakeiskite lauko reikšmė lentelėje reikšmę, kurią įvedėte pasirinktinio įvedimo lauke.

Daugiau informacijos


Norėdami įvesti duomenis į pasirinktinio įvedimo lauko valdiklį ir saugokite jį į lentelę lauką pakeitus reikšmę, atlikite šiuos veiksmus:
  1. Sukurti naują formą, ir įkelti įvykio procedūros įdėti šį kodą:
          PUBLIC ARRAY aTitle(1)
    SELECT DISTINCT(customer.contact) FROM customer ;
    INTO ARRAY aTitle
  2. Lentelės ir klientų iš \Data katalogo duomenų aplinkai formos. \Data kataloge galite rasti vienoje iš šių vietų:
       Visual FoxPro 3.x: VFP\Samples\Mainsamp
    Visual FoxPro 5.x: VFP\Samples
    Visual FoxPro 6.0: \MSDN98\98VS\1033\Samples
    Visual FoxPro 7.0,8.0,9.0: \Samples\Data
  3. Vieta teksto lauką formoje, ir nustatykite jo valdiklio ypatybės:
          Customer.Contact
  4. Pasirinktinio įvedimo lauką formos vietoje. Nustatykite jos ypatybę aTitle ir jo RowSourceType ypatybė 5 - masyvas.
  5. InteractiveChange procedūros, įrašykite šias eilutes kodo:
          IF Customer.Contact != Thisform.combo1.DisplayValue
    REPLACE Customer.Contact WITH Thisform.combo1.DisplayValue
    Thisform.Text1.Refresh
    SELECT DISTINCT(customer.contact) FROM customer ;
    INTO ARRAY aTitle
    ENDIF
  6. LostFocus procedūros, įrašykite šias eilutes kodo:
          IF Customer.Contact != Thisform.combo1.DisplayValue
    REPLACE Customer.Contact WITH Thisform.combo1.DisplayValue
    Thisform.Text1.Refresh
    SELECT DISTINCT(customer.contact) FROM customer ;
    INTO ARRAY aTitle
    ENDIF
    thisform.combo1.displayvalue=""
  7. Formoje pridėti mygtuką ir įveskite šį kodą į savo
    Spustelėkite įvykio procedūrą:
          SKIP
    ThisForm.Combo1.DisplayValue=Customer.Contact
    ThisForm.Refresh
  8. Įtraukti kitą komandos mygtuką į formą, ir spustelėkite įvykio procedūros įdėti šį kodą:
          SKIP -1
    ThisForm.Combo1.DisplayValue=Customer.Contact
    ThisForm.Refresh
  9. Įrašyti ir paleisti formą. Pasirinktinio įvedimo lauke reikšmę ir pereiti per lentelę naudodami komandų mygtukus. Uždarykite formą, ir ieškoti klientų lentelėje. Ieškoti kontakto lauką. Pasirinktinio įvedimo lauke pakeitimai bus pateikti lauke.

Nuorodos


Norėdami gauti daugiau informacijos, spustelėkite toliau pateiktą straipsnio numerį ir peržiūrėkite „Microsoft Knowledge Base“ žinių bazės straipsnį:

139769 kaip įtraukti naują reikšmę į sąrašą reikšmes, pasirinktinio įvedimo lauką