procedure TForm1.Button2Click(Sender: TObject);
var
    koneksi:TfrxDBXDatabase;
    hal:TfrxReportPage;
begin
    frxReport1.LoadFromFile('yes.fr3');
    hal:=frxReport1.findObject('Page1') as TfrxReportPage;
    koneksi:=frxReport1.findObject('dbxDatabase1') as TfrxDbxDatabase;
    koneksi.Connected:=false;
    koneksi.DriverName:='DBX4MySQL';
    koneksi.LoginPrompt:=false;
    koneksi.Params.Clear;
    koneksi.Params.Append('DriverName=DBX4Mysql');
    koneksi.Params.Append('Hostname=localhost');
    koneksi.Params.Append('Database=dbsimwajib');
    koneksi.Params.Append('User_Name=root');
    koneksi.Params.Append('Password=');
    koneksi.Params.Append('BlogSize=-1');
    koneksi.Connected:=true;