Результаты углубленной разработки отдельных модулей ПМК для автоматизации проектирования технологического процесса термообработки заготовок

Основным управляющим модулем является модуль TexPro.pas. Модуль techkart.pas отвечает за вывод формы для ввода и выбора необходимых данных для заполнения технологической карты. Модуль steel.pas отвечает за хранение и отображение данных о стали. Модуль avtor.pas отвечает за вывод справочной информации об авторе.

При загрузке ПМК происходит запрос авторизации пользователя, если авторизация прошла успешно – вход в программу, иначе – выдача сообщения об ошибке или выход из ПМК. При запуске приложения программа автоматически проверяет наличие баз данных и правильность пути к ним. Если базы данных не обнаружены, то выводиться сообщение об отсутствии баз данных и программа не загружается.

Когда программа подключена к БД, все сведения из базы выводятся на экран в таблицу. Для удобства редактирования данных программа выводит их на форму для работы с таблицами. По окончанию работы в таблицах все сведения сохраняются. После сохранения данных можно составить технологическую картудля термообработки заготовок.

Покажем с помощью блок-схем и программного кода реализацию модулей ПМК расчета автоматизации проектирования технологического процесса термообработки заготовок.

На рисунке 2.3 приведена блок-схема работы аутентификации пользователя.

Рисунок 2.3 – Блок-схема аутентификации пользователя

Реализация аутентификации пользователя представлена на рисунке 2.4

if login.Text='' then ShowMessage('Введите логин');

if pass.Text='' then ShowMessage('Введите пароль');

if (login.Text<>'') and (pass.Text<>'') then begin

Try

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select count(surname) as count');

ADOQuery1.SQL.Add('from workers');

ADOQuery1.SQL.Add('where login='+QuotedStr(login.Text));

ADOQuery1.SQL.Add('and password='+Quotedstr(pass.text));

ADOQuery1.ExecSQL;

DataSource1.DataSet:=ADOQuery1;

result:=DataSource1.DataSet.FieldList.Fields[0].Value;

if result=0 then

showmessage('неверный логин/пароль')

else frm_main.Show;

except

ShowMessage('error');

end;

Рисунок 2.4 – Аутентификация пользователя

Алгоритм расчета данных для графика представлен на рисунке 2.5.

Рисунок 2.5 – Алгоритм расчета данных для графика

Запрос для извлечения данных из БД, в зависимости от выбранного режима термообработки представлен на рисунке 2.6.

select a.temp_nach, a.temp_kon from norm_time a

where a.type_to= QuotedStr(CB_to);

Рисунок 2.6 – Пример запроса данных из БД