Дипломная работа: Исследование и разработка информационной системы приема и анализа заявок технической поддержки на примере Администрации г. Новый Уренгой
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
149
Y: Integer);
begin
Label17.Font.Color:=clAqua;
end;
procedure TfrmSupport.Label8Click(Sender: TObject);
begin
RadioButton4.Checked:=true;
end;
procedure TfrmSupport.Label9Click(Sender: TObject);
begin
RadioButton1.Checked:=true;
end;
procedure TfrmSupport.cmdCloseClick(Sender: TObject);
var
zaklad: TBookmark;
ID: integer; //Текущее значение автоинкрементного поля
sDateClose: String;
dDateClose: TDate;
begin
Application.CreateForm(TfrmClose,frmClose);
frmClose.Visible:=false;
frmClose.Left:=Round(frmSupport.Left +(frmSupport.Width-frmClose.Width)/2);
frmClose.Top:=Round(frmSupport.Top +(frmSupport.height-
frmClose.height)/2+20);
frmClose.ShowModal();
if BooleanModal=true then
150
begin
ID:=ADOQuery1.FieldByName('kod_zaiavki').AsInteger; //Получаем
уникальынй нмоер записи
ADOCommand1.CommandText:='UPDATE zaiavki SET status="Закрыта"
WHERE kod_zaiavki=:pID'; //Обновляем только эту запись
ADOCommand1.Parameters.ParamByName('pID').Value:=ID;
ADOCommand1.execute;
ADOCommand1.CommandText:='UPDATE zaiavki SET job=:sJob WHERE
kod_zaiavki=:pID'; //Обновляем только эту запись
ADOCommand1.Parameters.ParamByName('sJob').Value:=txtJob.Text;
ADOCommand1.Parameters.ParamByName('pID').Value:=ID;
ADOCommand1.execute;
ADOCommand1.CommandText:='UPDATE zaiavki SET
date_close=:pDateClose WHERE kod_zaiavki=:pID'; //Обновляем только эту
запись
sDateClose:=FormatDateTime('yyyy-mm-dd',Date);
// dDateClose:=StrToDate(sDateClose);
ADOCommand1.Parameters.ParamByName('pDateClose').Value:=sDateClose;
ADOCommand1.Parameters.ParamByName('pID').Value:=ID;
ADOCommand1.execute;
txtJob.Text:='';
zaklad:=ADOQuery1.GetBookmark; //Сначала устанавливаем закладку на
запись
ADOQuery1.Requery(); //Обновляем измененный набор
ADOQuery1.GotoBookmark(zaklad); //Переходим к рабочей записи
end else
begin
;
end;
151
end;
procedure TfrmSupport.cmdCloseKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (KEY = VK_DELETE) and (Shift=[ssCtrl]) then Key := 0;
end;
procedure TfrmSupport.cmdJobClick(Sender: TObject);
var
zaklad: TBookmark;
ID: integer; //Текущее значенеи автоинкрементного поля
begin
ID:=ADOQuery1.FieldByName('kod_zaiavki').AsInteger; //Получаем
уникальынй нмоер записи
ADOCommand1.CommandText:='UPDATE zaiavki SET status="В работе"
WHERE kod_zaiavki=:pID'; //Обновляем только эту запись
ADOCommand1.Parameters.ParamByName('pID').Value:=ID;
ADOCommand1.execute;
zaklad:=ADOQuery1.GetBookmark; //Сначала устанавливаем закладку на
запись
ADOQuery1.Requery(); //Обновляем измененный набор
ADOQuery1.GotoBookmark(zaklad); //Переходим к рабочей записи
end;
procedure TfrmSupport.cmdRefreshClick(Sender: TObject);
var
zaklad: TBookmark;
begin
152
zaklad:=ADOQuery1.GetBookmark; //Сначала устанавливаем закладку на
запись
ADOQuery1.Requery(); //Обновляем набор данных
ADOQuery1.GotoBookmark(zaklad);//Переходим к закладке
end;
procedure TfrmSupport.cmdSendClick(Sender: TObject);
begin
ADOCommandApend.CommandText:='insert into chat (kod_zaiavki, kod_sotr,
message_, Status_operat, status_tehsupport) VALUES
(:pKod_zaiavki, :pKod_sotr, :pMessage_, "1", "0")';
ADOCommandApend.Parameters.ParamByName('pkod_zaiavki').Value:=ADOQu
ery1.FieldByName('kod_zaiavki').AsInteger;
ADOCommandApend.Parameters.ParamByName('pKod_sotr').Value:=iKodSotr;
ADOCommandApend.Parameters.ParamByName('pMessage_').Value:=txtSend.T
ext ;
ADOCommandApend.Execute;
ADOQuery2.Requery();
ADOQuery2.Last;
txtSend.Text:='';
end;
end.
153
2.4.5. Апробация результатов исследования
Работа приложения начинается с запуска файла tehsupport.exe, после
чего на экран выходит окно авторизации:
Рисунок 15. Окно авторизации в системе
Первоначально в системе доступна только запись администратора с
паролем 123, который можно после начала эксплуатации заменить на более
сложный.
Учетная запись администратора позволяет вести осуществлять все виды
операций. Но основное ее предназначение заключается в добавлении отделов
и сотрудников организаций по отделам. Таким образом, войдя в систему под
учетной записью администратора, на экране появляется основное окно
программы.
После запуска администратор должен добавить Отделы и сотрудников
отделов, которые будут создавать заявки. Так же он может создавать учетные
записи с типом администратора.
Источник: https://baza.diplomsite.ru/previewfile/8703