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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
139
if sStatus='Закрыта' then
begin
ADOQuery3.First;
ADOQuery3.Locate('kod_sotr',
ADOQuery1.FieldByName('kod_sotr_support').AsInteger,[]);
txtFIOSupportClose.caption:=ADOQuery3.fieldbyname('fio').asString;
end else
begin
txtFIOSupportClose.caption:='Не закрыта';
end;
end;
procedure TfrmSupport.DBGrid1CellClick(Column: TColumn);
begin
ADOQuery2.Last;
end;
procedure TfrmSupport.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
// Красим нечетные строки
IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1
Then TDBGrid(Sender).Canvas.Brush.Color:=clGradientInactiveCaption;
// Восстанавливаем выделение текущей позиции курсора
IF gdSelected IN State
Then Begin
TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
140
TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
End;
//Если в столбце important записано 1, то красим строку в красный цвет
if ADOQuery1.FieldByName('status').AsString='Открыта' then
DBGrid1.canvas.Font.Color := clRed;
//Если в столбце important записано 1, то красим строку в зеленый цвет
if ADOQuery1.FieldByName('status').AsString='В работе' then
DBGrid1.Canvas.Font.Color := clGreen;
//Если в столбце important записано 1, то красим строку в черный цвет
if ADOQuery1.FieldByName('status').AsString='Закрыта' then
DBGrid1.Canvas.Font.Color := clBlack;
// Просим GRID перерисоваться самому
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
procedure TfrmSupport.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ADOQuery2.Last;
end;
procedure TfrmSupport.DBGrid2CellClick(Column: TColumn);
var
zaklad: TBookmark;
begin
141
zaklad:=ADOQuery2.GetBookmark;
ADOCommand2.CommandText:='UPDATE chat SET status_operat="1"';
//Меняем во всех записях статус на 1, то есть прочитано
ADOCommand2.execute;
ADOQuery2.Requery(); //Обновляем измененный набор
ADOQuery2.GotoBookmark(zaklad);
end;
procedure TfrmSupport.DBGrid2DrawColumnCell(Sender: TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//Если в столбце status_operat записано 0, то красим строку в зеленый цвет
if ADOQuery2.FieldByName('status_operat').AsString='0' then
DBGrid2.Canvas.Font.Color := clGreen
else DBGrid2.Canvas.Font.Color := clBlack; //иначе в черный
// Просим GRID перерисоваться самому
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
procedure TfrmSupport.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmMDI.mnuLKtehsupport.Enabled:=true;
ADOQuery1.Close;
ADOQuery2.Close;
ADOQuery3.Close;
action:=caFree;
end;
142
procedure TfrmSupport.Label10Click(Sender: TObject);
begin
RadioButton2.Checked:=true;
end;
procedure TfrmSupport.Label11Click(Sender: TObject);
begin
RadioButton3.Checked:=true;
end;
procedure TfrmSupport.Label12Click(Sender: TObject);
var
Date1: string; //Начальная дата
Date2: string; //Конечная дата
str: string;
//Объектные переменные
txtDate: TfrxMemoView;
begin
{Date1:=DateToStr(DateTimePicker1.date);//FormatDateTime('dd.mm.yyyy',
MaskEditDate1.Text);
Date2:=DateToStr(DateTimePicker2.date);//FormatDateTime('dd.mm.yyyy',
MaskEditDate2.Text);
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('SELECT zaiavki.date_open, zaiavki.krat_name, sotr.fio,
otdel.name_otdela, ');
143
ADOQuery4.SQL.Add('zaiavki.status, zaiavki.date_close, zaiavki.kod_sotr,
zaiavki.kod_sotr_support, ');
ADOQuery4.SQL.Add('zaiavki.kod_zaiavki, zaiavki.opis, zaiavki.job ');
ADOQuery4.SQL.Add('FROM zaiavki INNER JOIN sotr ON zaiavki.kod_sotr =
sotr.kod_sotr INNER JOIN otdel ');
//ADOQuery4.SQL.Add('ON sotr.kod_otdela = otdel.kod_otdela where
zaiavki.status="Открыта" and date_open>=:pDate1 and date_open>=:pDate2');
ADOQuery4.SQL.Add('ON sotr.kod_otdela = otdel.kod_otdela where
zaiavki.status="Открыта" and date_open between :pDate1 and :pDate2');
ADOQuery4.Parameters.ParamByName('pDate1').Value:=Date1;
ADOQuery4.Parameters.ParamByName('pDate2').Value:=Date2;
ADOQuery4.Open;}
Date1:=DateToStr(DateTimePicker1.date);//FormatDateTime('dd.mm.yyyy',
MaskEditDate1.Text);
Date2:=DateToStr(DateTimePicker2.date);//FormatDateTime('dd.mm.yyyy',
MaskEditDate2.Text);
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('SELECT zaiavki.date_open, zaiavki.krat_name, sotr.fio,
otdel.name_otdela, ');
ADOQuery4.SQL.Add('zaiavki.status, zaiavki.date_close, zaiavki.kod_sotr,
zaiavki.kod_sotr_support, ');
ADOQuery4.SQL.Add('zaiavki.kod_zaiavki, zaiavki.opis, zaiavki.job ');
ADOQuery4.SQL.Add('FROM zaiavki INNER JOIN sotr ON zaiavki.kod_sotr =
sotr.kod_sotr INNER JOIN otdel ');
ADOQuery4.SQL.Add('ON sotr.kod_otdela = otdel.kod_otdela where
zaiavki.status="Закрыта" ');
ADOQuery4.SQL.Add('ORDER BY zaiavki.date_open');
ADOQuery4.Open;
Источник: https://baza.diplomsite.ru/previewfile/8703

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

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