Код для события Click Компонента button7

procedure TForm2.Button7Click(Sender: TObject);

begin

if form1.edit1.text='' then

begin

showmessage('Заполните предыдущую форму!');

form1.show;

form2.hide;

exit;

end;

if form1.listbox1.itemindex=-1 then

begin

showmessage('Заполните предыдущую форму!');

form1.show;

form2.hide;

exit;

end;

if form1.combobox1.text='' then

begin

showmessage('Заполните предыдущую форму!');

form1.show;

form2.hide;

exit;

end;

tab1.rowcount:=tab1.rowcount+1;

r:=r+1;

tab1.cells[0,r]:=Edit1.text;

tab1.cells[1,r]:=Form1.Edit1.text;

tab1.cells[2,r]:=Form1.Listbox1.items[Form1.listbox1.itemindex];

tab1.cells[3,r]:=Form1.Combobox1.text;

tab1.cells[4,r]:=MaskEdit1.text;

tab1.cells[5,r]:=MaskEdit2.text;

end;

Добавлены компоненты Edit1 и EditMask1, 2. В них вводится информация сотрудника и заноситься в таблицу нажав на кнопку «Добавить данные в таблицу». (Смотреть Рисунок 2.1)

Рисунок 2.1

В программу добавлен поиск информации по таблице. Для этого взят компонент Memo, две кнопки button1,2 и Combobox1.

При выборе нужной строки в Combobox1 и нажатии на кнопку будет выведена в поле Memo информация, по отделу, которую мы выбрали. (Смотреть Рисунок 2.2)

Рисунок 2.2 – Поиск информации

Дата добавления: 2014-07-23; просмотров: 331; Нарушение авторских прав

Мы поможем в написании ваших работ!