Profox > Forum

Forum Home

Visual FoxPro

Form-uri si generatoare de form-uri

PageFrame-uri s...

PageFrame-uri si manipularea datelor din textboxuri

3/27/2010 8:40:01 PM

LordVlad

53 posts

PageFrame-uri si manipularea datelor din textboxuri
(N/A)

Salutare, 1) Am pageframe in pageframe asa ca a lua valoarea unui element din pageframe este o adevarata linie de cod. Exista o metoda de a scrie asta: thisform.pageframe1.page1.pageframe2.page1.textfield.Value ? 2) Am urmatorul cod in cadrul unui buton: sele clienti go top LOCATE FOR clienti.ci = thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value IF FOUND( ) MESSAGEBOX(thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value+" exista") ELSE MESSAGEBOX(thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value+" nu exista. Valoarea a fost adaugata!") INSERT INTO clienti (ci) VALUES (thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value) ENDIF Problema e ca tot timpul imi face insert, chiar daca exista valoarea in tabela. Unde este problema? Va multumesc pentru ajutor! Cu stima, Vlad

3/27/2010 8:44:23 PM

LordVlad

53 posts

Re: PageFrame-uri si manipularea datelor din textboxuri
(N/A)

Imi cer scuze pentru "alinierea" din postul de mai sus, se pare ca a avut loc o eroare in cadrul browser-ului meu de a disparut orice urma de aliniere. Asa ca va postez mai jos acelasi post dar aliniat corect

1) Am pageframe in pageframe asa ca a lua valoarea unui element din pageframe este o adevarata linie de cod.
Exista o metoda de a scrie asta: thisform.pageframe1.page1.pageframe2.page1.textfield.Value mai compact?

2) Am urmatorul cod in cadrul unui buton:
sele clienti
go top
LOCATE FOR clienti.ci = thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value
IF FOUND( )
MESSAGEBOX(thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value+" exista")
ELSE
MESSAGEBOX(thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value+" nu exista. Valoarea a fost adaugata!")
INSERT INTO clienti (ci) VALUES (thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value)
ENDIF

Problema e ca tot timpul imi face insert, chiar daca exista valoarea in tabela. Unde este problema?

Va multumesc pentru ajutor!
Cu stima, Vlad

3/28/2010 10:32:36 AM

gldesign

400 posts

Re: PageFrame-uri si manipularea datelor din textboxuri
(N/A)

1 Poti face asa
tx1=thisform.pageframe1.page1.pageframe2.page1
si de acu incolo tx1.textfield1.value

2 Ce fel de cimp e clienti.ci (probabil text daca iti face adaugarea in conditiile spuse de tine)

3/28/2010 1:14:04 PM

LordVlad

53 posts

Re: PageFrame-uri si manipularea datelor din textboxuri
(N/A)

Campul ci este de tip char(9) (doresc sa pun in el seria si numarul de buletin sub forma "XX 123456").

In momentul in care introduc CI-ul intr-un formular, vreau sa imi verifice daca exista deja in baza de date , iar daca exista vreau sa extrag campul "id_client" corespunzator CI-ului introdus. Cum pot face corect acest lucru?

Va multumesc!

3/28/2010 1:29:19 PM

gldesign

400 posts

Re: PageFrame-uri si manipularea datelor din textboxuri
(N/A)

LordVlad wrote
Campul ci este de tip char(9) (doresc sa pun in el seria si numarul de buletin sub forma "XX 123456").

In momentul in care introduc CI-ul intr-un formular, vreau sa imi verifice daca exista deja in baza de date , iar daca exista vreau sa extrag campul "id_client" corespunzator CI-ului introdus. Cum pot face corect acest lucru?

Va multumesc!

LOCATE FOR upper(alltr(clienti.ci)) == upper(alltr(thisform.PFAdmin.imobile.PFImobile.adaugare.ci.Value))
atentie la == nu e greseala de scriere

3/28/2010 1:36:58 PM

LordVlad

53 posts

Re: PageFrame-uri si manipularea datelor din textboxuri
(N/A)

In cadrul conditiei de FOUND, cum iau valoarea campului id_client corespunzator CI-ului gasit?

Va multumesc!

3/28/2010 1:41:57 PM

gldesign

400 posts