20090323201

PROJEKT 4

Edycja tabel zdefiniowanych w Interbase

Uw&ga: Projekt 4 iest kontynuacją zadań realizowanych w projekcie 3.

1 Dokonaj modyfikacji formatki Form2 odpowiedzialnej za wyświetlanie i edycję tabeli o nazwie Katalog (zawierającej opisy asortymentów towarów)

- Struktura: Kod - Numeric(4,0)

Nazwa - Varchar(20)

JM - Varchar(4)

Gat - Varchar(4)

Umieść bezpośrednio pod komponentem DBGrid 4 komponenty Edit do wprowadzania danych do tabeli Katalog oraz jeden komponent Button do zatwierdzania i przepisywania danych z komponentów Edit do pól edytowanej tabeli.

Dla komponentu DBGrid ustal własność Readonly na true.

W komponencie DBNavigator usuń przyciski edycyjne (pozostaw tylko przyciski nawigacyjne)

Procedura obsługi zdarzenia OnClick dla komponentu powinna mieć postać:

Tablel .Edit;    // Ustalenie trybu edycji tabeli

Tablel. Append,    // Dopisanie nowego rekordu

Tablel [KodT-⁼StrToInt(editl .Text); // Wpisanie wartości liczbowej do atrybutu Kod Tablel ['Nazwa*] :=edit2.Text;

Tablel [^,JM^,]:=edit3.Text;

Tablel pGafl :=edit4.T ext;

Tablel .Post,    // Zatwierdzenie wprowadzanych danych

W ten sposób wprowadzane dane nie podlegają żadnej kontroli Kontrola wprowadzanych danych dla tej tabeli dotyczy atrybutu Kod Przed wpisaniem danych do tabeli należy sprawdzić:

a)    czy wprowadzony tekst do komponentu Edit (dotyczącego pola Kod) jest liczbą

b)    czy wartość atrybutu Kod jest wątłością unikalną

Warunek a) sprawdzić wykorzystując procedurę konwersji Val. Warunek b) można sprawdzić korzystając z metody Locate

W przypadku wystąpienia błędów wyświetlić odpowiedni komunikat (MessageDlg) w przeciwnym razie uruchomić instrukcje wyżej podane

2 Dokonaj modyfikacji w definicji tabeli Obroty wprowadzając więzy spójności dla pól:

Rodzaj _Tr    - Varchar( 1)    -

Kod Tow - Numeric(4,0) -Ilosc    -    Float

Cena    -    Float

Ksieg    *Varchar(l)    -

tylko znak ^łK’ lub ‘S’

tylko wartość występująca w tabeli Katalog

Wartość dodatnia

wartość dodatnia

tylko znak T* lub ‘N’