Студопедия

Главная страница Случайная лекция


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

Порталы:

БиологияВойнаГеографияИнформатикаИскусствоИсторияКультураЛингвистикаМатематикаМедицинаОхрана трудаПолитикаПравоПсихологияРелигияТехникаФизикаФилософияЭкономика



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




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

Читайте также:
  1. Вероятность случайного события
  2. Дефекты и уязвимости в программных компонентах
  3. Жизненный путь: события жизни, психологическая биография. Стили жизни. Жизненное пространство личности.
  4. Зависимые и независимые события.
  5. Зависимые и независимые события. Условная вероятность события
  6. Код для события Click Компонента button1.
  7. Код для события Click Компонента button10
  8. Код для события Click Компонента button4
  9. Код для события Click Компонента button5
  10. Код для события Click Компонента button5

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 – Поиск информации

 

 


<== предыдущая страница | следующая страница ==>
Код для события Click Компонента button8 | Код для события Click Компонента button10

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




Мы поможем в написании ваших работ!
lektsiopedia.org - Лекциопедия - 2013 год. | Страница сгенерирована за: 0.004 сек.