Черноусова А.М. Создание и использование баз данных

Подождите немного. Документ загружается.

211

Продолжение таблицы 13.3

1 2 3 4

5 24 А 2 Шлифование закаленных заготовок

6 25А 2

Скоростное шлифование, доводка стальных за-

каленных заготовок инструментом на керамиче-

ских связках

7 53C 3

Шлифование заготовок из чугуна, цветных ме-

таллов на всех связках

8 54C 3

Шлифование заготовок из чугуна, цветных ме-

таллов на всех связках

9 43А 4

Шлифование и заточка труднообрабатываемых

сталей и сплавов инструментом на керамических

связках

10 45А 4

Для абразивного прецизионного инструмента на

керамической связке. Отделка и доводка

Таблица 13.4 – Зернистость

Код записи Зернистость Рекомендации

1 F180 – F220

При отделочном шлифовании металлов, стекла, мрамора,

резьбошлифовании

2 F100 – F180 При отделочном шлифовании, доводке твердых сплавов

3 F54 – F90

При чистовом шлифовании, обработке профильных поверх-

ностей

4 F30 – F60 При предварительном и комбинированном шлифовании

5 F24 – F36

При плоском шлифовании, заточке средних и крупных рез-

цов

6 F16 – F24 При обдирочных операциях, при зачистке отливок, поковок

7 F12 – F4 При обдирочном силовом шлифовании

пользовать тип Paradox 7. Сохранить созданные структуры с заданным ранее

псевдонимом в соответствующих файлах.

13.2.3 Установить связь между таблицами «Физико-механические свой-

ства абразивных материалов» и «Марка абразивного материала» (рисунок 13.4).

13.2.4 Создать экранную форму Form1 для главной формы. На ней раз-

местить две кнопки Button ( ) со страницы Standart: для перехода на фор-

му

Form4 в режим «Справочники», для перехода на форму Form5 в режим

«Формирование обозначения круга». Со страницы Additional разместить две

кнопки с рисунком BitBtn (

): для перехода в информационное окно

AboutBox «О программе» и для выхода из приложения (Close).

Задать для формы значение свойства Caption, равное «Главная форма».

Для созданных на главной форме Form1 кнопок Button1, Button2, BitBtn1,

212

Рисунок 13.4 - Установление связи между таблицами «Физико-механические

свойства абразивных материалов» и «Марка абразивного материала»

BitBtn2 задать значения свойств в соответствии с таблицей 13.5 (программные

коды пока не задавать!). При необходимости для текста, размещаемого на

кнопках, изменить шрифт, размер и начертание. Пример вида главной формы

показан на рисунке 13.5.

13.2.5 Создать экранную форму

Form2 для заставки приложения, для

этого выполнить команду File => New => Form. Разместить на ней компонен-

ты Image (

), Label ( ), Memo ( ), Timer ( ) задать для них необхо-

димые свойства. Для главной формы Form1 и заставки Form2 задать значения

свойств и обработчиков событий в соответствии с этапами, описанными в

пункте 13.1.2.

Проверить, чтобы для формы Form2 программный код после задания

значений свойств и обработчиков событий имел вид:

«procedure TForm2.Timer1Timer(Sender: TObject);

begin

close;

end;

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);

begin

close;

end;

procedure TForm2.FormClick(Sender: TObject);

begin

close;

end;».

Сохранить изменения в

приложении, протестировать его работу. Пример

экранной формы заставки приложения приведен на рисунке 13.6.

213

Таблица 13.5 – Значения свойств и программные коды для кнопок на

главной форме Form1

Значение

свойства Name

Действие

Значение

свойств

Программный код

BitBtn1

Переход к форме

AboutBox, яв-

ляющейся ин-

формационным

окном «О про-

грамме»

Caption: О про-

грамме

Glyph: (указывается

путь к файлу с изо-

бражением, поме-

щаемым на кнопку)

Kind: bkCuston

procedure

TForm1.BitBtn1Click(Sender:

TObject);

begin

AboutBox.show;

end;

Button1

Переход к форме

Form4 для рабо-

ты со справоч-

никами

Caption: Справоч-

ники

procedure

TForm1.Button1Click(Sender:

TObject);

begin

form4.show;

end;

Button2

Переход к форме

Form5 для фор-

мирования обо-

значения круга

Caption: Формиро-

вание обозначения

круга

procedure

TForm1.Button2Click(Sender:

TObject);

begin

form5.show;

end;

BitBtn2

Закрытие при-

ложения

Caption: &Выход из

приложения

Kind: bkClose

Рисунок 13.5 - Пример вида главной формы

214

Рисунок 13.6 - Пример заставки

13.2.6 Создать экранную форму AboutBox для перехода в информацион-

ное окно «О программе», выполняя этапы в соответствии с пунктом 13.1.3,

ввести необходимые сведения о программе.

13.2.7 Создать командой File => New => Form экранные формы: Form4

для работы со справочниками, Form5 для формирования обозначения круга.

Задать для форм соответствующие значения свойства Caption.

13.2.8

Задать для созданных на главной форме Form1 кнопок Button1,

Button2, BitBtn1, BitBtn2 программные коды (таблица 13.5). Сохранить изме-

нения, протестировать работу приложения.

13.2.9 Поместить на форму Form4 «Справочники» многостраничный

блокнот PageControl (

) с закладками «Тип круга», «Абразивный матери-

ал», «Зернистость», аналогично показанному на рисунке 13.2. С помощью

свойства Font компонентов TabSheet изменить шрифт надписей, начертание,

размер, цвет и другие.

13.2.10 На закладке «Тип круга» разместить следующие компоненты:

- набор данных Table ( ) со страницы BDE для установления связи

приложения с таблицей базы данных «Тип круга» (задать

свойствам Data-

baseName псевдоним базы данных, TableName – имя таблицы, Active – значе-

ние True);

- источник данных DataSource ( ) со страницы Data Access для соеди-

нения компонента Table с компонентами, отображающими данные (свойству

DataSet задать значение Table1);

215

- четыре метки Label ( ) со страницы Standart для задания имен по-

лей таблицы «Тип круга» (свойству Caption компонентов присваиваются зна-

чения «Номер», «Тип», «Обозначение» или «Область применения»);

- пять полей редактирования DBEdit (

) со страницы Data Controls

для отображения значений полей «Номер», «Тип», «Номер типа», «Обозначе-

ние» и «Область применения» (свойству DataSourse задать значение Data-

Sourse1, для свойства DataField выбрать из раскрывающегося списка имя соот-

ветствующего поля);

- графическое изображение DBImage (

) со страницы Data Controls

для вывода графического изображения, содержащегося в графическом поле

«Форма» (свойству DataSourse задать значение DataSourse1; для свойства Da-

taField выбрать из раскрывающегося списка имя соответствующего поля; свой-

ству Stretch задать значение True, чтобы выводимый рисунок пропорционально

растягивался или уменьшался до размеров компонента);

- компонент OpenPictureDialog (

) со страницы Dialogs для появле-

ния окна диалога выбора файла с изображением для открытия (при работе при-

ложения после выбора нужного файла формата BMP, ICO, EMF, JPG, JPEG,

WMF содержащееся в нем изображение загружается в компонент DBImage);

- кнопку Button ( ) со страницы Standart для открытия окна диалога,

позволяющего вставлять изображение из файла (свойству Caption задать соот-

ветствующее значение

); программный код для кнопки должен содержать сле-

дующую процедуру

«procedure TForm4.Button1Click(Sender: TObject);

begin

if Form4.OpenPictureDialog1.Execute then

Form4.DBImage1.Picture.LoadFromFile(Form4.OpenPictureDialog1.FileName);

end;»;

- навигатор DBNavigator (

) со страницы Data Controls (задать зна-

чение свойства DataSourse, равное DataSourse1; для отображения подсказок

присвоить значение True свойству ShowHint; заменить текст подсказок с анг-

лийского языка на русский, вызвав Строковый редактор String list editor в свой-

стве Hints).

Запустить приложение. Заполнить записями из таблицы 13.1 «Тип круга».

Посмотреть работу навигатора. Пример вида справочника «Тип круга» показан

на рисунке

13.7.

13.2.11 На закладке «Абразивный материал» разместить компоненты Ta-

ble2, DataSource2, DBGrid1 (

), DBNavigator2, задать значения их свойств

для отображения таблицы «Физико-механические свойства абразивных мате-

риалов» и ее управления. Используя Editing DBGrid1.Columns, изменить имена

столбцов на русские названия (для этого для каждого столбца раскрыть свойст-

во Title, заменить значение в строке Caption), расположение значений полей и

имен полей (свойству Alignment задать значение taCenter, если требуется

рас-

положение по центру). Запустить приложение. Заполнить записями из таблицы

216

Рисунок 13.7 – Пример вида справочника «Тип круга»

13.2 «Физико-механические свойства абразивных материалов».

13.2.12 На закладке «Абразивный материал» разместить компоненты Ta-

ble3, DataSource3, DBCtrlGrid1 (

), задать значения их свойств для работы

с данными из таблицы «Марка абразивного материала».

Чтобы содержимое подчиненного набора соответствовало выбору записи

в главном наборе, дочернюю таблицу «Марка абразивного материала» нужно

связать с родительской «Физико-механические свойства абразивных материа-

лов». Для этого выполнить следующие действия:

- активизировать компонент Table3;

- в окне Инспектора

Объектов раскрыть список выбора в свойстве Mas-

terSource, выбрать имеющееся в нем значение DataSource2;

- щелкнуть по правой части строки MasterFields, затем по появившейся в

ней кнопке с тремя точками, чтобы раскрыть окно редактора связей;

- раскрыть список Available Indexes в верхней части окна и выбрать ин-

декс, соответствующий внешнему ключу дочерней таблицы, в

результате в

окошке Detail Fields появится имя этого поля связи, щелкнуть по нему;

- выбрать это же поле в окошке Master Fields, щелкнуть по нему;

- нажать кнопку Add, связь между таблицами будет установлена, в окош-

ке Joined Fields появится схема связи по имени поля;

- закрыть окно редактора связей кнопкой OK.

13.2.13 На

компоненте DBCtrlGrid1 разместить необходимые визуаль-

ные компоненты для работы с полями базы данных – DBEdit, DBMemo (

Label, задать их значения. Пример работы с DBCtrlGrid на этапе конструиро-

вания приложения показан на рисунке 13.8.

Запустить приложение. Заполнить записями из таблицы 13.3 «Марка аб-

разивного материала». Для вставки новой записи достаточно нажать комбина-

цию клавиш Ctrl+Insert, при условии, что свойство AllowInsert находится в

состоянии True. Если свойство AllowDelete установлено в True, пользователь

может удалить текущую запись, нажав комбинацию клавиш Ctrl+Delete. Вид

компонента DBCtrlGrid при выполнении приложения приведен на рисунке

13.9.

217

Рисунок 13.8 - Пример работы с DBCtrlGrid на этапе конструирования

приложения

Рисунок 13.9 – Вид компонента DBCtrlGrid при выполнении

приложения

218

13.2.14 На закладке «Зернистость» разместить компоненты Table4, Data-

Source4, DBGrid2, DBNavigator3, задать значения их свойств для отображения

таблицы 13.4 «Зернистость» и ее управления. Запустить приложение. Заполнить

записями таблицу «Зернистость». Пример вида закладки «Зернистость» показан

на рисунке 13.10.

13.2.15 На форме Form5 разместить компоненты для ввода данных при

формировании обозначения шлифовального круга:

- четыре прямоугольные

рамки с заголовком GroupBox ( ) со страни-

цы Standart для объединения компонентов, относящихся к одному этапу про-

цесса формирования обозначения (задать значения свойств Caption и Font для

каждого компонента, аналогично тому, как показано на рисунке 13.11);

- на прямоугольной рамке GroupBox1 набор данных Table1, источник

данных DataSource1, сетку DBGrid1 (задать значения их свойств для отобра-

жения данных из таблицы «Тип круга

»);

- четыре метки Label1 – Label4 (задать значения их свойства Caption) и

три компонента редактирования Edit1 – Edit3 ( ) на прямоугольной рам-

ке GroupBox2 для ввода значений размеров круга;

- на прямоугольной рамке GroupBox3 метку Label5, набор данных

Table2, источник данных DataSource2, сетку DBGrid2 (задать значения их

свойств для отображения данных из таблицы «Физико-механические свойства

материалов»);

- на прямоугольной рамке GroupBox3 метку Label6, набор данных

Table3, источник данных DataSource3, модифицированную сетку DBCtrlGrid1

(задать значения их свойств для отображения данных из таблицы «Марка мате-

риала», связать с главной таблицей);

Рисунок 13.10 - Пример вида формы «Справочники» на закладке

«Зернистость»

219

Рисунок 13.11 - Пример вида формы Form5

- набор данных Table4, источник данных DataSource4, сетку DBGrid3

(задать значения их свойств для отображения данных из таблицы «Зерни-

стость»); метку Label7, компонент редактирования Edit4 на прямоугольной

рамке GroupBox4;

- кнопку Button1 или BitBtn1 для перехода на форму Form6, на которой

будет отображаться обозначение шлифовального круга.

Задать

запрет на редактирование записей в используемых на форме набо-

рах данных. Для этого изменить значения свойств компонентов Table1 -

Table4: свойству ReadOnly установить значение True, затем свойству Active

установить значение True. Запустить приложение.

13.2.16 Добавить в программный код кнопки Button2 «Формирование

обозначения круга», расположенной на главной форме Form1, следующий

текст:

«form5.DBGrid1.Columns[0].Visible:=False;

form5.DBGrid1.Columns[3].Visible:=False;

form5.DBGrid2.Columns[0].Visible:=False;

form5.DBGrid3.Columns[0].Visible:=False;».

При запуске приложения не

будут отображаться первое и пятое поле

компонента DBGrid1, первые поля компонентов DBGrid2 и DBGrid3. Запус-

220

тить приложение, протестировать его работу. Откорректировать, если требует-

ся, размеры визуальных компонентов.

13.2.17 Создать форму Form6. На ней разместить текстовые метки Label1

- Label19 и компоненты статического текста DBText1 – DBText6. Назначение

компонентов приведено в таблице 13.6.

Таблица 13.6 – Назначение компонентов на форме Form6

Имя компонента Назначение Значение свойства Caption

Label1

Заголовок

Условное обозначение шли-

фовального круга

DBText1

Значение номера типа круга

Label2

Label14

Значение наружного диаметра круга

Label3

Label5

Знак умножения х

Label4

Label15

Значение высоты круга

Label6

Label16

Значение диаметра насадного отверстия

DBText2

Значение марки абразивного материала

Label7

Label19

Значение зернистости

Label8

Заголовок

Расшифровка характеристик

круга

Label9

Имя параметра круга Тип:

DBText3

Значение типа круга

DBText4

Значение обозначения типа круга

Label10

Надпись Размеры:

Label11

Имя параметра круга - наружный диаметр, мм

Label12

Имя параметра круга - высота, мм

Label13

Имя параметра круга

- диаметр насадочного отвер-

стия, мм

Label17

Имя параметра круга Абразивный материал:

DBText5

Значение абразивного материала

DBText6

Значение марки абразивного материала

Label18

Имя параметра круга Зернистость:

Label19

Значение зернистости

13.2.18 Для кнопки BitBtn1 «Сформировать обозначение круга», разме-

щенной на форме Form5, задать следующий программный код:

«procedure TForm5.BitBtn1Click(Sender: TObject);