procedure TfrmLogin.FormCreate(Sender: TObject);
begin
try
  Frmdmdb.DBKonek.Host:=frmMain.DBHOST;
  Frmdmdb.DBKonek.UserName:=frmMain.DBUSER;
  Frmdmdb.DBKonek.UserPassword:=frmMain.DBPASS;
  Frmdmdb.DBKonek.DatabaseName:=frmMain.DBNAME;
  //ShowMessage('berhasil konek 1');

  Frmdmdb.DBKonekBackUp.Host:=frmMain.DBHOST1;
  Frmdmdb.DBKonekBackUp.UserName:=frmMain.DBUSER1;
  Frmdmdb.DBKonekBackUp.UserPassword:=frmMain.DBPASS1;
  Frmdmdb.DBKonekBackUp.DatabaseName:=frmMain.DBNAME1;
  //ShowMessage('berhasil konek 2');

with Frmdmdb do
begin
  qrySearch.Close;
  qrySearch.SQL.Clear;
  qrySearch.SQL.Add('SELECT * FROM tb_user');
  qrySearch.Open;
end;
finally
    with frmMain do
    begin
      exSQLData.SQL.Clear;
      exSQLData.SQL.Add( 'CREATE DATABASE /*!32312 IF NOT EXISTS*/ `db_histori`;USE `db_histori`;'+
'DROP TABLE IF EXISTS `tb_user`;'+
'CREATE TABLE `tb_user` ('+
'  `id_user` int(11) NOT NULL AUTO_INCREMENT,'+
'  `user` text NOT NULL,'+
'  `namauser` text NOT NULL,'+
'  `password` text NOT NULL,'+
'  PRIMARY KEY (`id_user`)'+
') ENGINE=InnoDB AUTO_INCREMENT=4 DEFAULT CHARSET=latin1;'+
'INSERT INTO `tb_user` VALUES(1,"admin","admin","admin");'
     );
      exSQLData.ExecSQL;
    end;