2020-01-14
99
Для начала расположим на форме компонент «Main Menu», расположенные на вкладке «Standard» (рисунок 16).
Рисунок 16 компонент «Main Menu»
Компонент Menu предназначен для отображения трех вкладок меню «Файл», «Настройки» и «Помощь». После вызова пункта меню «О программе» вкладки «Помощь» будет отображена вторая форма и для невозможности изменения ее размеров и отображения в заголовке окна только его названия и кнопки «Закрыть» необходимо в свойстве формы «Border Style» выбрать значение «bsDialog» (рис.17)
Рисунок 17 Свойство Border Style
Далее кликнем по значку 
два раза, и откроется окно (рисунок 18).
Рисунок 18 Окно Main Menu
Затем заполняем меню (рисунок 19).
Рисунок 19 Заполненное меню
Потом добавляем на форму «Color Dialog» расположенный на вкладке «Dialogs» (рисунок 20).
Рисунок 20 Расположение компонента «Color Dialog».
Этот компонент «Color Dialog» предназначен для определения цвета.
С этой же вкладке добавим на форму «font dialog» (рисунок 21).
Рисунок 21 Расположение компонента «Font Dialog»
«Print Dialog».Он отображает стандартное окно печати Windows. (рис.22)
|
|
|
Рисунок 22 Компонент «Font Dialog».
Далее на вкладке «System» добавим на форму «Timer» (рисунок 23).
Рисунок 23 Расположение компонента «Timer»
Компонент «Timer» предназначен для показания времени в программе.
Добавляем на форму три «Data Source» (рисунок 24).
Рисунок 24 Расположение компонента «Data Source»
Этот компонент служит посредником между таблицами СУБД и экранными элементами управления.
Далее на вкладке «ADO» располагаем компонент «ADO Connection» (рисунок 25).
Рисунок 25 Расположение компонента «ADO Connection»
Компонент «ADO Connection» предназначен для соединения с БД.
Добавим компонент «TADO Table» располагаемый на вкладке «ADO» (рисунок 26).
Рисунок 26 Расположение компонента «ADO Table»
И последние четыре компонента добавляем на форму это «Radio Group» и «Label» (расположенный на вкладке Standart), а так же «DB Navigator» на вкладке «Data Controls» и на этой же вкладке «DB Grid».
Теперь перейдём к нашей базе данных и её процедурам:
Процедуры пунктов меню «Файл»:
procedure TForm1.N3Click(Sender: TObject);
begin
PrintDialog1.Execute;
end;
Выход:
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Close;
end;
Процедуры пунктов меню «Настройки»:
Шрифт:
procedure TForm1.N6Click(Sender: TObject);
begin
FontDialog1.Execute;
DBGrid2.Font:=FontDialog1.Font;
end;
Цвет:
procedure TForm1.N7Click(Sender: TObject);
begin
ColorDialog1.Execute;
DBGrid2.Color:=ColorDialog1.Color;
end;
Процедуры пунктов меню «Помощь»:
О программе:
procedure TForm1.N9Click(Sender: TObject);
begin
Form2.showmodal;
end;
О создателе:
procedure TForm1.N10Click(Sender: TObject);
begin
ShowMessage('ñîçäàë Ñàõàðîâ Àíäðåé Íèêîëàåâè÷');
end;
Руководство пользоваетля:
procedure TForm1.N11Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'Ðóêîâîäñòâî ïîëüçîâàòåëÿ ÁÄ.docx', nil, nil, SW_SHOW);
|
|
|
Процедура «RadioGroup»:
if RadioGroup1.ItemIndex=0 then
begin
DBGrid1.Visible:=True;
DBGrid2.Visible:=False;
DBGrid3.Visible:=False;
DBNavigator1.DataSource:=DataSource1;
end;
if RadioGroup1.ItemIndex=1 then
begin
DBGrid1.Visible:=False;
DBGrid2.Visible:=True;
DBGrid3.Visible:=False;
DBNavigator1.DataSource:=DataSource2;
end;
if RadioGroup1.ItemIndex=2 then
begin
DBGrid1.Visible:=False;
DBGrid2.Visible:=False;
DBGrid3.Visible:=True;
DBNavigator1.DataSource:=DataSource3;
end;
