Графическое процентное отображение

Дмитрий, подскажите еще по такому вопросу.

С помощью этого скрипта добавляю две таблицы в отчет:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    frxDBDataset1, frxDBDataset2: TfrxDBDataset;
    Results1, Results2: TDataSet;
begin
    // Data for first dataset
    SQLQuery('SELECT * FROM employees,users', Results1);

    // Data for second dataset
    SQLQuery('SELECT * FROM employees,users', Results2);

    // 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;

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

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

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

    frxDBDataset1.Free;
    frxDBDataset2.Free;
end;

Пока делаю это на Вашем примере (в приложении, файл отчета print.fr3), описанным выше. Эти две таблицы будут потом отличаться запросом в скрипте (к примеру условие в 1-ой таблице А>100 и во 2-ой таблице А<100) .В самой программе каждый пользователь видит только свои записи и админ видит все записи. Когда же я перекидываю таблицу в отчет - там отображаются все записи, всех пользователей, независимо от того под каким пользователем я авторизовался. По сути в отчете должны отображаться только те записи, которые на данный момент отображаются в таблице самой программы,т.е зависеть от пользователя который зашел.

Про прогрессбар все понятно,спасибо. По поводу имени файла отчета и пути сохранения файла -у меня нет мыслей как это можно сделать,можно ли Вас попросить реализовать что - то похожее на примере,прикрепленном выше? Т.к пример может быть полезен не только мне. А что по поводу вопроса во втором посте?

Спасибо,что поправили. Работает.

По поводу имени отчета - сделал вот так:

// OPEN REPORT IN RTF
    Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\print.fr3');
    Form1.frxReport.PrepareReport();
    ///Form1.frxRTFExport1.FileName := ChangeFileExt(GetTempFileName, '.rtf');
    Form1.frxRTFExport1.FileName :=ChangeFileExt(sUser+' '+FormatDateTime('YYYY-MM-DD.', frmEmployee.dtDateOfBirth.Date), '.rtf') ;
    Form1.frxRTFExport1.ShowDialog := False;
    Form1.frxReport.Export(Form1.frxRTFexport1);

Файл открывается в нужном формате и с нужным именем, но сохраняется в папку с программой. Как задать пусть сохранения файла, опять же через переменные? Нужно что-то вроде R:\Report\Текущий_Месяц\Имя_пользователя(sUser)\

Если каких то папок не существует, то они должна создаваться. Также попробовал с диалогом:
Form1.frxRTFExport1.ShowDialog := True; В этом случае он предлагает место сохранения файла,но сам диалог совершенно не нужен.
Если можно как то убрать сам диалог, но оставить вопрос куда сохранить файл- так будет даже лучше.

Добрый день, Дмитрий. Маленький вопрос по поводу исправленного Вами выше SQL запроса:

// Data for first dataset
    if isAdmin then
            sql := 'SELECT employees.firstname, employees.lastname, users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users'
        else
            sql := 'SELECT employees.firstname, employees.lastname, 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.firstname, employees.lastname, users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users'
        else
            sql := 'SELECT employees.firstname, employees.lastname, users.login FROM employees LEFT OUTER JOIN users ON users.id=employees.id_users WHERE ' + 'id_users='+IntToStr(idUser);
    SQLQuery(sql, Results2);

Пытаюсь выбрать данные еще из другой таблицы,к примеру:

    if isAdmin then
            sql := 'SELECT Tema.Tema,Percent.Percent,employees.DATA, employees.lastname, users.login FROM employees,Percent,Tema LEFT OUTER JOIN users ON users.id=employees.id_users'

    В отчет начинается беда и очень много лишних записей. Не подскажите как поправить, чтобы можно было добавить в запрос еще данные из других таблиц БД.

Пробовать через Group BY? Или это может сказаться на быстродействии? Еще дата в данном запросе в отчете отображается как, Год-Месяц-День. Подскажите, как сделать ДД.ММ.ГГГГ. Пробовал заменить employees.DATA на strftime('%d.%m.%Y', employees.DATA) - не помогло.

Еще в моем случае, Tema.Tema- комбобокс. И когда в отчет вставляю данные из запроса, вставляется во все строки последняя запись в комбобоксе.-как на скрине. Почему?

UPD: Проблема дублирование записей в отчете,как я понял, связанно именно с комбобоксом. Он сопоставляет все варианты,присутствующие в комбобоксе с другими записями.

Дмитрий, вопрос по поводу прикрепленного Вами выше примера Report to File.

Если ставить открытие файла после сохранения: Form1.frxRTFExport1.OpenAfterExport := True;
Файл сохраняется, но открывается не тот файл, который был только что сохранен, а другой,во временном каталоге, с другим именем.

Можно ли как то реализовать открытие того файла, который был только что сохранен? т.е из каталога сохранения.