Search options (Page 229 of 400)

Form1.EditCounter1.NumbersOnly := True;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    frmpelatis.ComboBox1.dbSQLExecute ('SELECT DISTINCT name.name, name.id FROM name GROUP BY name.name');
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    frxDBDataset1, frxDBDataset2: TfrxDBDataset;
    Results1, Results2: TDataSet;
    sql: string;
begin
    // 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);


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