str
0

u

procedurę Tforma_ekr_powitalny.Button1 Click(Sender:

TObject);

var odp:boolean;

begin

odip:=MessageDlg(‘Czy napewno chcesz wyjść?\mtConfirmation,mbOKCancel,0)=mrOk;

if odp then close; end;

3. Dodawanie nowego klienta -formularz obsługujący tabelę

Utwórzmy nową formę:

Name    forma_dodanie_klienta

Caption Dodanie nowego klienta

' BorderStyle bsToolWindow Color    clTeal

iii Dodanie nowego klienta

Isonalne klienła^-

r Di#

gBpe pobytu^-

Identyfikałoc klienta Imię

Nazwisko PESEL Nr dowodu T elefon domowy Miejscowość Kod pocztowy Ulica i numer domu UWAGI

DBT ext1

DBEdit2

|DBEdit3

|DBEdit4

|DBEdit5

|DBEditS

jDBEditj

|DBEdit9

|'DBEdit1

Data przybycia fPBEditl 1~

Data wyjazdu    l^C'^BEdit12

Nr pokoju    |DBEdit13 J