SAY..GET
Ukážka konverzie SAY..GET
Je to jednoduché, doplnením jedného riadku DCDIALOG.CH a prefixov DC* vznikne pravá Windows aplikácia.
Pozrime sa na typický príklad, a to SAY..GET. Najskôr je ukážka Clipper-ovského kódu s obrazovkou a potom Xbase++ kódu s využitým knižnice eXpress++.
Clipper alebo Xbase++ v textovom režime
// BOF TEST.PRG
Main()
PROCEDURE Main()
Set Date To German
Set Color To 'N/BG'
Clear
Test()
RETURN
*
*************
Function Test()
*************
Local GetList := {}
*
Local cText := 'ľščlstĽŠČLSC '
Local nCislo := 12345
Local dDatum := CToD( '24.12.2000' )
Local lLogic := .T.
Local lPB := .T. // len pre Clipper 5.3
Local cColPB := 'W+/B,W+/R,GR+/R,GR+/B' // len pre Cl.5.3
@ 1, 1 SAY 'Text :' GET cText PICTURE '@K'
@ 2, 1 SAY 'Číslo:' GET nCislo PICTURE '9999999'
@ 3, 1 SAY 'Dátum:' GET dDatum PICTURE '99.99.9999'
@ 4, 1 SAY 'Logic:' GET lLogic PICTURE 'L'
// len pre Clipper 5.3
@ 6, 1 Get lPB PushButton Caption ' &Ok ' ;
State { || ReadKill(.T.) } Style '' Color cColPB
@ 6,10 Get lPB PushButton Caption ' &Storno ' ;
State { || ReadKill(.T.) } Style '' Color cColPB
//
READ
Return ( NIL )
*
// EOF TEST.PRG
 |
Xbase++ s eXpress++ v grafickom režime
// BOF TEST.PRG
#include "DCDIALOG.CH" // toto je čarovná formulka !!!
*
PROCEDURE Main()
Set Date To German
Test()
RETURN
*
**************
Procedure Test()
**************
Local GetList := {}
*
Local cText := 'ľščlstĽŠČLSC '
Local nCislo := 12345
Local dDatum := CToD( '24.12.2000' )
Local lLogic := .T.
@ 1, 1 DCSAY 'Text :' GET cText PICTURE '@K'
@ 2, 1 DCSAY 'Číslo:' GET nCislo PICTURE '9999999'
@ 3, 1 DCSAY 'Dátum:' GET dDatum PICTURE '99.99.9999'
@ 4, 1 DCSAY 'Logic:' GET lLogic PICTURE 'L'
DCREAD GUI TITLE 'Vstup údajov' FIT ADDBUTTONS
Return
*
// EOF TEST.PRG
 |
Štruktúra programu sa nezmenila, iba syntax niekoľkých príkazov si vyžiadal drobnú zmenu.
Nákupný košík
