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;
144
ADOQuery4.Filtered:=false;
ADOQuery4.Filter:='date_open>='+Date1+' and '+'date_open<='+Date2;
ADOQuery4.Filtered:=true;
Str:= TekPapka+'\Reports\zClose.fr3';
frxReport1.LoadFromFile(Str);
txtDate:=frxReport1.FindObject('txtDate') as TfrxMemoView;
txtDate.Memo.Text:='за период (по дате создания) с '+Date1+' по '+Date2;
frxReport1.ShowReport(true);//Показываем отчет
ADOQuery4.Close;
end;
procedure TfrmSupport.Label12MouseMove(Sender: TObject; Shift: TShiftState;
X,
Y: Integer);
begin
Label12.Font.Color:=clAqua;
end;
procedure TfrmSupport.Label13Click(Sender: TObject);
var
Date1: string; //Начальная дата
Date2: string; //Конечная дата
str: string;
//Объектные переменные
txtDate: TfrxMemoView;
begin
145
{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="Открыта" 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, ');
146
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 ');
ADOQuery4.SQL.Add('ORDER BY zaiavki.date_open');
ADOQuery4.Open;
ADOQuery4.Filtered:=false;
ADOQuery4.Filter:='date_open>='+Date1+' and '+'date_open<='+Date2;
ADOQuery4.Filtered:=true;
Str:= TekPapka+'\Reports\zFull.fr3';
frxReport1.LoadFromFile(Str);
txtDate:=frxReport1.FindObject('txtDate') as TfrxMemoView;
txtDate.Memo.Text:='за период (по дате создания) с '+Date1+' по '+Date2;
frxReport1.ShowReport(true);//Показываем отчет
ADOQuery4.Close;
end;
procedure TfrmSupport.Label13MouseMove(Sender: TObject; Shift: TShiftState;
X,
Y: Integer);
begin
Label13.Font.Color:=clAqua;
end;
procedure TfrmSupport.Label17Click(Sender: TObject);
var
147
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, ');
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);
148
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;
ADOQuery4.Filtered:=false;
ADOQuery4.Filter:='date_open>='+Date1+' and '+'date_open<='+Date2;
ADOQuery4.Filtered:=true;
Str:= TekPapka+'\Reports\zOpen.fr3';
frxReport1.LoadFromFile(Str);
txtDate:=frxReport1.FindObject('txtDate') as TfrxMemoView;
txtDate.Memo.Text:='за период (по дате создания) с '+Date1+' по '+Date2;
frxReport1.ShowReport(true);//Показываем отчет
ADOQuery4.Close;
end;
procedure TfrmSupport.Label17MouseMove(Sender: TObject; Shift: TShiftState;
X,