Search options (Page 2 of 4)

if Form1.TableGrid1.Cells[4,i]>'0'

procedure Form1_Button7_OnClick (Sender: string; var Cancel: boolean);
var
   frxDBDataset1, frxDBDataset2: TfrxDBDataset;
   Results1, Results2: TDataSet;

begin
   SQLQuery('SELECT strftime(''%m.%Y'',skladDrawings.data),drawings.drawingsname,TOTAL(skladDrawings.amoutDrawings) '+
            'FROM skladDrawings LEFT OUTER JOIN drawings ON drawings.id=skladDrawings.id_drawings ' +
            'GROUP BY drawings.drawingsname ' , Results1);

   SQLQuery('SELECT strftime(''%m.%Y'', TestAstana.biletOperator.datatime), SUM(TestAstana.biletOperator.summa) '+
            'FROM TestAstana.biletOperator '+
            'WHERE strftime(''%m.%Y'', {DateTimePicker1}) = strftime(''%m.%Y'', TestAlmaty.biletOperator.datatime) ' , Results2);

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

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

             Form1.frxReport.Clear;
             Form1.frxReport.DataSets.Clear;
             Form1.frxReport.DataSets.Add(frxDBDataset1);
             Form1.frxReport.DataSets.Add(frxDBDataset2);

             Form1.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\Loto.fr3'+);
             Form1.frxReport.DesignReport;

             frxDBDataset1.Free;
             frxDBDataset2.Free;

end;