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

Скачать файл

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

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

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;

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;

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;

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

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



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