DatEdit - polecenie - Język raportów Symfonia AM Basic

Polecenie umieszcza w oknie dialogowym pole edycyjne daty. Wartość pola może być przekazywana w trakcie obsługi okna dialogowego do i z pola edycyjnego daty przy pomocy poleceń Load i Save.

Składnia

Int DatEdit String nazwa, String zmienna, Int x0, Int y0, Int dx, Int dy [, test [, String msg]]

Argumenty

Typ	Nazwa	Opis
String	nazwa	Nazwa umieszczana z lewej strony pola edycyjnego daty. Możliwe jest wymuszone łamanie tekstu przez umieszczenie w miejscu łamania symbolu \n.
String	zmienna	Nazwa zmiennej, z/do której zostanie pobrana/przekazana wartość pola edycyjnego daty. Zmienna zawiera datę w formacie RRRR-MM-DD. Przycisk na końcu pola otwiera kalendarz, w którym można wskazać odpowiednią datę.
Int	x0	Odległość lewej krawędzi pola edycyjnego daty od lewej krawędzi okna dialogowego, liczona w pikselach.
Int	y0	Odległość górnej krawędzi pola edycyjnego daty od górnej krawędzi okna dialogowego, liczona w pikselach.
Int	dx	Szerokość pola edycyjnego daty, liczona w pikselach.
Int	dy	Wysokość pola edycyjnego daty, liczona w pikselach.
	test	Dowolne wyrażenie, wykonywane dopiero przy próbie zamknięcia okna lub podczas wywołania funkcji Valid, którego wartość niezerowa informuje o prawidłowej zawartości pola edycyjnego daty. Aktualna zawartość pola jest dostępna poprzez zmienną Buf. Wyrażenie to może nie być podane, wówczas nie będzie przeprowadzana kontrola poprawności wprowadzonych danych.
String	msg	Komunikat wyświetlany w przypadku, gdy zawartość pola jest niewłaściwa. Ten parametr może nie być podany, wówczas wyświetlany jest standardowy komunikat "wartość pola jest niewłaściwa".

Wartość zwracana

Identyfikator pola edycyjnego.

Przykład

Int id1, id2
String twz="2006-04-01", aktualna_data = Data()
//Zdefiniowanie podprogramu OnCommand z poleceniami Save i Valid
Int Sub OnCommand(int id, int msg)
If id == id1 Then Valid
//Zapisanie do zmiennej zawartości pola edycyjnego daty
If id == id2 Then Save
EndSub
//Wyświetlenie dialogu z prezentacją działania poleceń
Form "Zastosowanie polecenia DatEdit", 380, 230
DatEdit "Pole daty", aktualna_data, 150, 20, 190, 24, aktualna_data==twz, "Zmienna powinna zawierać 1 kwietnia 2006 roku"
//Przycisk uruchamiający zapisanie do zmiennej zawartości pola edycyjnego
id2 = Button "&Zapisz zawartość pola edycyjnego do zmiennej", 40, 50, 300, 24, 1
//Przycisk uruchamiający porównanie zawartości zmiennej z tekstem wzorcowum
id1 = Button "&Porównaj zawartość zmiennej z wzorcem", 40, 80, 300, 24, 1
Button "&Anuluj", 220, 140, 100, 24, -1
Button "O&K", 60, 140, 100, 24, 2
ExecForm OnCommand
Error ""