Search options (Page 228 of 400)

SELECT
employees.lastname
,employees.firstname
,groups.groupname
,employees.id

FROM
employees

LEFT OUTER JOIN groups ON groups.id=employees.id_groups

WHERE
(employees.lastname LIKE '%{edSearch}%') OR
(employees.firstname LIKE '%{edSearch}%')  OR
(employees.phone LIKE '%{edSearch}%') OR
(groups.groupname LIKE '%{edSearch}%');

procedure Form1_bReport_OnClick (Sender: string; var Cancel: boolean);
var
    frxDBDataset1, frxDBDataset2,frxDBDataset3: TfrxDBDataset;
    Results1,Otchet, Results2: TDataSet;
    sql: string;
    sFile: string;
    sDest: string;


begin
 //Data for first dataset
 if isAdmin then
            sql := 'SELECT employees.Формулировка,employees.id,employees.Начало, employees.Изменение, employees.Срок,users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users ORDER BY employees.id'
        else
            sql := 'SELECT employees.Формулировка, employees.Начало, employees.Изменение, employees.Срок, users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users WHERE ' + 'id_users='+IntToStr(idUser);
    SQLQuery(sql, Results1);


    // Data for second dataset
    if isAdmin then
            sql := 'SELECT employees.Формулировка, employees.Начало, employees.Изменение, employees.Срок, users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users'
        else
            sql := 'SELECT employees.Формулировка, employees.Начало, employees.Изменение, employees.Срок, users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users WHERE ' + 'id_users='+IntToStr(idUser);
    SQLQuery(sql, Results2);

                     // Data for 3 datase


  SQLQuery('SELECT '+Form1.Date_report.sqlDateTime+' as DateField,'+Form1.Report_memo.sqlValue + ' as TextField', Otchet);
    //SQLQuery('SELECT '+Form1.DateTimePicker1+','+Form1.Memo1.sqlValue, Results);

    // create first DataSet
    frxDBDataset1 := TfrxDBDataset.Create(Form1);
    frxDBDataset1.UserName := 'Report1';
    frxDBDataset1.CloseDataSource := True;
    frxDBDataset1.OpenDataSource := True;
    frxDBDataset1.DataSet := Results1;

    // create second DataSet
    frxDBDataset2 := TfrxDBDataset.Create(Form1);
    frxDBDataset2.UserName := 'Report2';
    frxDBDataset2.CloseDataSource := True;
    frxDBDataset2.OpenDataSource := True;
    frxDBDataset2.DataSet := Results2;

     // create 3 DataSet
    frxDBDataset3 := TfrxDBDataset.Create(Otchet);
    frxDBDataset3.UserName        := 'Otchet';
    frxDBDataset3.CloseDataSource := True;
    frxDBDataset3.OpenDataSource  := True;
    frxDBDataset3.DataSet         := Otchet;

    // set up report
    Form1.frxReport.Clear;
    Form1.frxReport.DataSets.Clear;
    Form1.frxReport.DataSets.Add(frxDBDataset1);
    Form1.frxReport.DataSets.Add(frxDBDataset2);
    Form1.frxReport.DataSets.Add(frxDBDataset3);

    // DESIGN MODE
    Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\print.fr3');
    Form1.frxReport.DesignReport;


    // OPEN REPORT IN PDF
    Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\print.fr3');
    Form1.frxReport.PrepareReport();
    Form1.frxRTFExport1.FileName := ChangeFileExt(GetTempFileName+'32', '.rtf');
    Form1.frxRTFExport1.ShowDialog := False;
    Form1.frxReport.Export(Form1.frxRTFexport1);


    // PREVIEW MODE
    //frxDBDataset1.DataSet.Close;
    //frxDBDataset2.DataSet.Close;
    //frxDBDataset3.DataSet.Close;
    //Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\print.fr3');
    //Form1.frxReport.ShowReport;


                                            
    frxDBDataset1.Free;
    frxDBDataset2.Free;
    frxDBDataset3.Free;

    sFile := Form1.frxRTFExport1.FileName;
    //Form1.frxRTFExport1.FileName:=ChangeFileExt(sUser+' '+FormatDateTime('YYYY-MM-DD.', frmEmployee.dtDateOfBirth.Date), '.rtf');
       sDest := 'R:\Report4\'+FormatDateTime('YYYY', now)+'\'+FormatDateTime('MM-MMMM', now)+'\'+sUser+'\';
    if ForceDirectories(sDest) then
    begin
        CopyFile(sFile, sDest+sUser+' '+FormatDateTime('YYYY-MM-DD.', Form1.Date_report.Date)+'rtf');
    end;
    ShowMessage('Файл отчета сохранен по адресу:'#13'Free/qq/'+FormatDateTime('YYYY-MM-DD', now)+'\'+sUser+'\'+#13+'Под именем:'+' '+sUser+' '+FormatDateTime('YYYY-MM-DD.', Form1.Date_report.Date)+'rtf' );

    DeleteFile(sFile);
end;

sql := 'SELECT Combb.combb,employees.firstname, employees.lastname, strftime(''%d.%m.%Y'', employees.dateofbirth) as dateofbirth, users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users LEFT OUTER JOIN Combb ON Combb.id=employees.id_Combb'