Курсовая работа: Разработка приложения, представляющего собой базу данных о сотрудниках

OnClick - Button2Click

31

Button4

Caption - Очистить

OnClick - Button4Click

32

Button1

Caption - Поиск

OnClick - Button1Click

33

Edit7

Text - очистить.

OnKeyPress - Edit7KeyPress;

Обработчик Form2. Button5Click.

var

spisok: string;

begin

if (Dbedit1. text='') or (Dbedit2. text='') or (Dbedit3. text='') or (DblookupCombobox1. text='') or (DblookupCombobox2. text='') or (Dbedit5. text='') or (