Search  
Friday, May 25, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.

SearchForum Home
  Visual FoxPro  Form-uri si generatoare de form-uri  need help!!!!...
 need help!!!!
 
 12/2/2007 12:23:26 PM
User is offlinenucleo
18 posts


need help!!!!
 (N/A)

Am o mica problema.Ideea este foarte simpla dar am incercat prin muuuulte metode si nu am reusit.

Am un form legat la tabela furnizori(denumire,cui,adresa) si am bonul ADD.De fircare data cand vreau sa aduaug un furnizor nou il modifica pe primul pe care il am,si imi ramane si ultimul furnizor adaugat in textbox. ce fac????

plsssss.Multumesc anticipat

 12/2/2007 2:07:53 PM
User is offlinecostin_mentor
492 posts
www.accessoft.ro
2nd




Re: need help!!!!
 (Romania)
Cred ca ai un grid legat la o tabela .
Solutia:
in comanda click de la butonul ADD folosesti:
1. comanda INSERT into tabelata .......
2. Recreez cursorul (daca este cazul) la care este legat gridul meu astfel
thisform.gridulmeu.recordsource='';
recreez cursorul
thisform.gridul.recordsoure='tabelamea'
si atribui pentru fiecare coloana un controlsource
3. apelez thisform.gridumeu.afterrowcolchange , in interiorul careia am un cod de genul
thisform.textdenumire.value=tabelamea.denumire
thisform.textcui.value=tabelamea.cui
.............

 12/7/2007 1:55:19 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

 Tot nu merge. Deci...am un form in care am un grid legat la o tabela(dor pentru interfata l-am folosit sa dea mai bn), si un buton adauga care imi descide un alt form in care am 3 textbox-uri(denumire,cui,adresa). Teoretic trebuie sa fie simplu dar nu imi dau seama cum sa fac. Vreau sa adaug un furnizor nou si de fiecare data cand intru in formul pt adugare sa am textbox-urile goale(acum imi ramane primul furnizor).

Am nevoie de o idee!!!! multumesc

 12/7/2007 3:09:05 PM
User is offlineoviciandrus
762 posts
www.comptech.ro
1st




Re: need help!!!!
 (N/A)
in metoda Init a formului de adaugare baga SELECT "furnizori" apoi APPEND BLANK
 12/7/2007 4:31:50 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)
am mers. multumesc
 12/7/2007 4:43:14 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

am mai rezolvat o problema, dar am dat de alta. Cum as putea face o adaugare corecta, mereu omodifica pe prima.as vrea sa adauge in continuare.

mai puteti sa ma ajutati??? multumesc

 12/7/2007 8:10:28 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

Am reusit sa fac adaugarea, dar dupa ce adaug imi dispare gridul. de ce?

 

 12/9/2007 3:39:38 PM
User is offlinejustalex
126 posts
alexandru360.blogspot.com/
5th




Re: need help!!!!
 (N/A)
incearca sa folosesti cursoare mapate pe tabela respectiva 2 cursoare 1 care sa zici brows only si altul care sa selecteze o inregistrare si o modifici
uite un exemplu l-am facut cam repede daca nu intelegi imi spui si detaliez ... spor !
 12/10/2007 6:49:06 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

 justalex wrote
incearca sa folosesti cursoare mapate pe tabela respectiva 2 cursoare 1 care sa zici brows only si altul care sa selecteze o inregistrare si o modifici
uite un exemplu l-am facut cam repede daca nu intelegi imi spui si detaliez ... spor !

 

si care era exemplul???

 12/11/2007 8:11:38 AM
User is offlineoviciandrus
762 posts
www.comptech.ro
1st




Re: need help!!!!
 (Romania)
Dispar datele din grid? Dispare gridul de pe formular???!!!!
 12/11/2007 6:32:25 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

 oviciandrus wrote
Dispar datele din grid? Dispare gridul de pe formular???!!!!

 

da. dupa ce dau add dispare gridu!!!

 12/11/2007 6:50:24 PM
User is offlinedni
420 posts
2nd


Re: need help!!!!
 (N/A)

..incearca inainte de acel ADD sa pui:

thisform.grid.ControlSource = ""

iar dupa revii cu

thisform.grid.ControlSource = "CursorulTau"

 12/11/2007 7:42:46 PM
User is offlinedni
420 posts
2nd


Re: need help!!!!
 (N/A)
...sau repeta comanda cu SELECT dupa ADD...se mai intimpla sa faca niste mici figuri ...
 12/27/2007 3:39:56 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

tot nu am rezolvat problema...dispare gridu dupa ce adaug ceva... CE POT FACE????

 12/28/2007 7:43:14 AM
User is offlineGrigore Dolghin
3592 posts
www.class-software.eu
1st






Re: need help!!!!
 (Slovakia)

Ia fa tu un zip cu fisierele alea (inclusiv dbf-uri, vcx-uri, etc) si ataseaza-l aici sa vedem si noi care-i treaba...


Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 1/2/2008 5:28:30 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

Am rezolvat.

Trecem mai departe.Am formul cu gridul (il folosesc mai mult de interfata, sa arate bine) si un buton (stergere) care ma duce intr-un alt form(am un combobox si 2 textbox) si am urm  secventa de cod:

#define CMSG "esti sigur ca vresi sa stergi ["+ALLTRIM(furnizori.denumire)+"]?"

#define MB_YESNO 4

#define IDYES 6

#define MB_QUESTION 32

#define IDNO 7

IF MESSAGEBOX(CMSG,MB_YESNO+MB_QUESTION, "Stergere furnizor")=IDYES

DELETE

SKIP

IF EOF()

GO bottom

ENDIF

thisform.Refresh()

ENDIF

Aceasta secventa nu imi sterge fizic, si in grid imi raman spatii goale. am incercat cu pack (deschid tabela exclusiv) si tot nu merge. O alta idee cum mai pot face?

 1/3/2008 7:36:08 AM
User is offlineoviciandrus
762 posts
www.comptech.ro
1st




Re: need help!!!!
 (N/A)

Studiaza un pic comanda SET DELETED!

PS. Nu-mi prea vine sa cred ca ai rânduri goale într-un grid.

 1/3/2008 2:39:28 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

Am facut o mica arhiva cu o parte din programelu pe care incerc sa-l fac pt atestat (pe care cred ca nu o sa-l fac niciodata)

Daca sunt amabili sa mai imi dati si mie cateva sfaturi o sa va fiu recunoscator (dau o bere dupa atestat) :))

Va multumesc

o parte.zip 
 1/3/2008 6:33:18 PM
User is offlineoviciandrus
762 posts
www.comptech.ro
1st




Re: need help!!!!
 (N/A)

M-am uitat peste munca ta.

1) tabela FURNIZORI face parte din baza de date GESTIUNE. Fisierele bazei de date nu le-ai bagat in arhiva

2) randurile goale din grid sunt de fapt randuri goale in tabela FURNIZORI; trebuie sa faci cumva sa nu permiti sa ajunga in tabela asta vreo inregistrare fara completarea denumirii (cel putin)

 1/4/2008 3:59:37 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

Ceva imi lipseste...am facit o stergere(sterge si fizic) si dau tot tot de acea problema ca si la adaugare ...... dispare gridu

private valcui

private pozitie

set talk off

valcui = val(alltrim(thisform.txtcui.text))

locate for cui = valcui

if eof() = .T. AND found() = .F.

messagebox("Inregistrarea de sters nu exista.")

else

pozitie = recno()

close all

use furnizori

goto pozitie

delete

pack

messagebox("Stergerea a reusit.")

ENDIF

thisform.Release .........acesta este codul pe care il folosesc

????  

atest1.zip 
 1/4/2008 4:45:54 PM
User is offlinecostin_mentor
492 posts
www.accessoft.ro
2nd




Re: need help!!!!
 (Romania)
1 .nu am reusit sa deschid decat forma legata de stergere , celelalte forme atasate obtin eroare desi am incercat si cu VFP7 si VFP9 ???

2. mai sus dni ti-a sugerat o posibila solutie : pe undeva inainte de adaugare(stergere )
thisform.gridultau.rowsource=''

adaugi(stergi)

apoi thisform.gridultau.rowsource='tabelata'

3. Grig ti-a sugerat mai sus sa atasezi tot proiectul , dar fiecare decide pentru el . Tu cum pornesti proiectul ?

4. in forma pentru stergere nu am vazut nici un grid .

5. in locul codului tau eu as folosi urmatorul cod pentru stergere :
Varianta 1:
DELETE FROM furnizori WHERE ALLTRIM(UPPER(furnizori.denumire))==ALLTRIM(UPPER(thisform.cbodenumire.Value))

&& linia de mai sus presupune ca nu ai doi furnizori cu aceeasi denumire,adica trebuie sa ai grija la adaugare .
Varianta 2: modifici structura tabelei furnizori in care mai adaugi un camp COD , invizibil utilizatorului cu care identifici in mod unic un furnizor si stergerea o s-o faci dupa acest cod

DELETE FROM furnizori WHERe furnizori.cod=val(thisform.cbodenumire.tag)
la interactivechange de la combo ai in plus codul : this.tag=padl(furnizori.cod,8)

6. in init-ul formei vad ca mai pui inca o data "use furnizori" desi comanda asta o ai si in load-ul formei , de ce?
tot in init ai "appe blank" , de ce ? in tabela furnizori ai foarte multe inregistrari goale ,asta ar fi explicatia .



frmstergerenucleo.zip 
 1/4/2008 6:34:29 PM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

multumesc pt toate sfaturile........

am reusit sa mai adaug cate ceva ....

acum am atasat to proiectu...daca mai aveti sfaturi v-asi fi recunoscator

atestat.zip 
 1/4/2008 7:57:37 PM
User is offlineGrigore Dolghin
3592 posts
www.class-software.eu
1st






Re: need help!!!!
 (Slovakia)

Off.... nici nu stiu cu ce sa incep. Aproape nimic nu-i bine acolo.

Eu as zice sa o iei de la zero, intr-un proiect nou. Ca sa vezi cum se face un proiect nou, functional si corect, du-te la adresa http://www.class-software.ro/download/vfp-cum-sa-.-/0001-myapp-partea-1/details.html si descarca tutorialul de acolo. Fa aplicatia ta exact ca aia si dupa aia mai vorbim. Nu face mai mult decat zice la tutorial - concret - nu te apuca sa faci formuri si/sau baza de date (ca in proiectul atasat sunt complet varza). Fa atat cat e demonstrat in tutorial si incearca sa intelegi ce se intampla acolo.

Alternativa ar fi, la modul sincer si franc, sa scoti 150-200 RON din buzunar si sa platesti pe cineva sa-ti faca atestatul. Fara suparare. Mai ai mult de invatat pana sa faci o chestie coerenta acolo, asa ca s-ar putea sa-ti convina mai mult sa cumperi aplicatia gata facuta.


Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 1/6/2008 8:49:23 AM
User is offlinenucleo
18 posts


Re: need help!!!!
 (N/A)

sunt de acord cu tine...in ale foxului sunt un novice, am muuuuult de invatat.

la inceput chiar m-am gandit sa platesc pe cine ca sa-mi faca atestatul (scap mai repede), dar nu stiu pe nimeni care stie visual fox si e dispus sa-l faca cum vreau eu (adica ce incerc eu acum sa fac). Oricum mai ma chinui un pic si daca vad ca bat campii fac o pagina web si gata.

 1/16/2008 12:47:49 PM
User is offlineleonicii
3 posts




Re: need help!!!!
 (N/A)
nu numai tu
un sut in fund un pas inainte sau sari pe loc
 1/16/2008 1:51:44 PM
User is offlineleonicii
3 posts




Re: need help!!!!
 (N/A)

am creat un form si i-am pus un gril

am urmatorul cod pentru adaugarea inregistrarilor in gril

Scan

If anexa1a.tarla = " "

DELETE

pack in anexa1a   (aici e problema ca imi dispare grilul din form)

Else

Endif

Endscan

APPEND BLANK IN anexa1a

REPLACE anexa1a.nr WITH proprietar.nr

ThisForm.grdAnexa1a.Refresh

 

 


un sut in fund un pas inainte sau sari pe loc
 1/16/2008 3:24:29 PM
User is offlineleonicii
3 posts




Re: need help!!!!
 (N/A)
lucrezi in visual fox pro 9.0
un sut in fund un pas inainte sau sari pe loc
  Visual FoxPro  Form-uri si generatoare de form-uri  need help!!!!...

Search  Forum Home         

 Google Ads Minimize

    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement