say and get
Posted: Sat Feb 23, 2008 4:48 pm
why say and get there aren'y in the same row ?
my source:
cNr = max( 1, Uczen->nr )
cNazwisko = Uczen->Nazwisko
cIMIE = uczen->Imie
cMiejsce_z = Uczen->Miejsce_z
cPesel = Uczen->Pesel
DEFINE DIALOG oDlg FROM 8, 2 TO 25, 65 ;
TITLE If( lAppend, "Nowy", "Modyfikacja" )
@ 1, 1 SAY "&Nazwisko:" OF oDlg
@ 1, 6 GET cNazwisko OF oDlg
@ 2, 1 SAY "&Imie:" OF oDlg
@ 2, 6 GET cImie OF oDlg
@ 3, 1 SAY "&Miejsce:" OF oDlg
@ 3, 6 GET cMiejsce_z OF oDlg
@ 4, 1 SAY "&Pesel:" OF oDlg
@ 4, 6 GET cPesel OF oDlg
@ 6, 9 BUTTON "&Zapis" OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )
@ 6, 19 BUTTON "&Rezygnacja" OF oDlg SIZE 50, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
regards
kajot
my source:
cNr = max( 1, Uczen->nr )
cNazwisko = Uczen->Nazwisko
cIMIE = uczen->Imie
cMiejsce_z = Uczen->Miejsce_z
cPesel = Uczen->Pesel
DEFINE DIALOG oDlg FROM 8, 2 TO 25, 65 ;
TITLE If( lAppend, "Nowy", "Modyfikacja" )
@ 1, 1 SAY "&Nazwisko:" OF oDlg
@ 1, 6 GET cNazwisko OF oDlg
@ 2, 1 SAY "&Imie:" OF oDlg
@ 2, 6 GET cImie OF oDlg
@ 3, 1 SAY "&Miejsce:" OF oDlg
@ 3, 6 GET cMiejsce_z OF oDlg
@ 4, 1 SAY "&Pesel:" OF oDlg
@ 4, 6 GET cPesel OF oDlg
@ 6, 9 BUTTON "&Zapis" OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )
@ 6, 19 BUTTON "&Rezygnacja" OF oDlg SIZE 50, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
regards
kajot