Дипломная работа: Исследование и разработка информационной системы приема и анализа заявок технической поддержки на примере Администрации г. Новый Уренгой

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

134

Y: Integer);

procedure Label17Click(Sender: TObject);

procedure Label12Click(Sender: TObject);

procedure Label13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmSupport: TfrmSupport;

implementation

uses mdi, message_, delete, close_;

{$R *.dfm}

procedure TfrmSupport.Label_FindClick(Sender: TObject);

var

Date1: string; //Начальная дата

Date2: string; //Конечная дата

begin

if Label_Find.Caption='Найти' then

begin

if RadioButton1.Checked then

135

begin

Date1:=DateToStr(DateTimePicker1.date);//FormatDateTime('dd.mm.yyyy',

MaskEditDate1.Text);

Date2:=DateToStr(DateTimePicker2.date);//FormatDateTime('dd.mm.yyyy',

MaskEditDate2.Text);

ADOQuery1.Filtered:=false;

ADOQuery1.Filter:='date_open>='+Date1+' and '+'date_open<='+Date2;

ADOQuery1.Filtered:=true;

Label_Find.Caption:='Отключить фильтр';

end;

if RadioButton2.Checked then

if txtFind.Text<>'' then

begin

adoQuery1.Filtered:=false;

adoQuery1.Filter:='krat_name '+ ' LIKE ' + #39 + '%' + txtFind.Text + '%' + #39;

adoQuery1.Filtered:=true;

Label_Find.Caption:='Отключить фильтр';

end;

if RadioButton3.Checked then

if txtFind.Text<>'' then

begin

adoQuery1.Filtered:=false;

adoQuery1.Filter:='fio '+ ' LIKE ' + #39 + '%' + txtFind.Text + '%' + #39;

adoQuery1.Filtered:=true;

Label_Find.Caption:='Отключить фильтр';

end;

136

if RadioButton4.Checked then

if txtFind.Text<>'' then

begin

adoQuery1.Filtered:=false;

adoQuery1.Filter:='status '+ ' LIKE ' + #39 + '%' + txtFind.Text + '%' + #39;

adoQuery1.Filtered:=true;

Label_Find.Caption:='Отключить фильтр';

end;

end else

begin

adoQuery1.Filtered:=false;

Label_Find.Caption:='Найти';;

end;

procedure TfrmSupport.Label_FindMouseMove(Sender: TObject; Shift:

TShiftState;

X, Y: Integer);

begin

Label_Find.Font.Color:=clAqua;

end;

procedure TfrmSupport.Panel3MouseMove(Sender: TObject; Shift: TShiftState;

Y: Integer);

begin

Label_Find.Font.Color:=clBlue;

end;

137

procedure TfrmSupport.txtSendClick(Sender: TObject);

begin

ADOCommand2.CommandText:='UPDATE chat SET status_operat="1"';

//Меняем во всех записях статус на 1, то есть прочитано

ADOCommand2.execute;

ADOQuery2.Requery(); //Обновляем измененный набор

ADOQuery2.Last; //Переходим в конец сообщений

end;

procedure TfrmSupport.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label_Find.Font.Color:=clBlue;

Label12.Font.Color:=clwhite;

Label13.Font.Color:=clwhite;

Label17.Font.Color:=clwhite;

end;

procedure TfrmSupport.FormCreate(Sender: TObject);

begin

frmMDI.mnuLKtehsupport.Enabled:=false;

txtFind.Text:='';

//ADOQuery1.Parameters.ParamByName('kodsotr').Value:=ikodsotr;

ADOQuery3.Open;

ADOQuery1.Open;//Открываем набор данных

ADOQuery1.Last;

ADOQuery2.Open;

ADOQuery2.Last;

DateTimePicker1.Date:=Now;

138

DateTimePicker2.Date:=Now;

end;

procedure TfrmSupport.DataSource1DataChange(Sender: TObject; Field: TField);

var

sStatus: string;

begin

Label_Kol_Zap.Caption:='Запись '+inttostr(adoQuery1.Recno)+' из

'+inttostr(adoQuery1.RecordCount);

txtJob.Text:=ADOQuery1.FieldByName('job').AsString;

//Проверяем, если статус у записи "В работе", то переписка в чате доступная,

//иначе нет

sStatus:=ADOQuery1.FieldByName('status').AsString;

if sStatus='В работе' then

begin

txtSend.Enabled:=true;

cmdSend.Enabled:=true;

cmdClose.Enabled:=true;

cmdJob.Enabled:=false;

txtJob.ReadOnly:=true;

end else begin

txtSend.Enabled:=false;

cmdSend.Enabled:=false;

cmdClose.Enabled:=false;

if sStatus='Открыта' then cmdJob.Enabled:=true;

if sStatus='Закрыта' then cmdJob.Enabled:=false;

txtJob.ReadOnly:=false;

end;

//Ищем ФИО закрывшего заявку сотрудника

Источник: https://baza.diplomsite.ru/previewfile/8703

Смотрите также:



_Rezonans_napryazheniy
_Ugolov_Process_05
'Fratres' Арво Пярта - молитва в музыке
'Миссия университета' как научно-педагогический концепт эпохи постиндустриального развития
«Досрочные страховые пенсии»
«Характеристика объектов коммерческой деятельности в торговле»
(никита)KUL_T_KL_EKZAMEN
[1 курс] БЖД