Delphi. Страница Additional. Васильев В.В - 15 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

15
alTab
StringGrid1.ColWidths[3]:=100;
StringGrid1.ColWidths[4]:=50;
StringGrid1.ColWidths[5]:=70;
{Задание данных фиксированной зоны таблицы StringGrid1}
StringGrid1.Cells[0,0]:='Фамилия И.О.';
StringGrid1.Cells[1,0]:='Должность';
StringGrid1.Cells[2,0]:='Отдел';
StringGrid1.Cells[3,0]:='Филиал';
StringGrid1.Cells[4,0]:='Телефон';
StringGrid1.Cells[5,0]:='Зар.плата,р.';
end;
Сделанные установки начнут действовать сразу по открытию окна
формы AdditionalTab. Положим ниже сетки строк две кнопки BitBtn – Вве-
сти данные и Очистить сетку.
17. Положите ниже сетки строк
кнопку BitBtn3
Страница Additional
18. Сделайте на кнопке надпись
Ввести данные
Свойство Caption
19. Положите на кнопку стан-
дартную гравировку -
Свойство Glyph. Кнопка Load. Файл
edit.bmp. Кнопки Open и ОК
20. Положите ниже сетки строк кнопку BitBtn4
Страница Additional
21. Сделайте на кнопке надпись
Очистить сетку
Свойство Caption
22. Положите на кнопку стан-
дартную гравировку
Свойство Glyph. Кнопка Load. Файл
sort.bmp. Кнопки Open и ОК
Нажатие на кнопку Ввести данные переводит содержимое полей Фа-
милия И.О., Должность, Отдел, Филиал, Телефон, Заработная плата в сетку
строк. Для этого напишем обработчик события OnClick кнопки BitBtn3. В
рабочей зоне таблицы StringGrid1 три строки. Информация о сотруднике
будет выводиться во вторую строку рабочей зоны.
В двухмерном массиве StringGrid1.Cells первый индекс определяет но-
мер столбца, а второй номер строки.
23. На-
пишите
обработ-
чик со-
бытия
OnClick
кнопки
BitBtn3
- Вве-
сти
данные
procedure TAdditionalTab.BitBtn3Click(Sender:
TObject);
begin
{Копирование в ячейки таблицы StringGrid1 содержимого по-
лей}
StringGrid1.Cells[0,2]:=Edit1.Text;
String-
Grid1.Cells[1,2]:=StandardTab.Edit1.Text;
String-
Grid1.Cells[2,2]:=StandardTab.ListBox1.Items
[Standard-
Tab.ListBox1.ItemIndex];

Страницы