procedure TfKoneksi.bacaFileIni;
begin
  _SQL           := ExtractFilePath(Application.ExeName)+ 'setting.ini';
  MyIniFile      := TIniFile.Create(_SQL);
  eHost.Text     := MyIniFile.ReadString('setting','hostname','Localhost');
  eUser.Text     := MyIniFile.ReadString('setting','user','root');
  edbase.Text    := MyIniFile.ReadString('setting','dbname','simdikdb');
  ePassword.Text := DecodePassword(MyIniFile.ReadString('setting','pass',''));
  ePort.Text     := MyIniFile.ReadString('setting','port','');
  MyIniFile.Free;
end;

function TfKoneksi.TesKoneksi: boolean;
begin
  with dm.dbKoneksi do
  begin
    HostName := eHost.Text;
    User := eUser.Text;
    Password := ePassword.Text;
    Database := edbase.Text;
    Port     := StrToInt(ePort.Text); 
    Disconnect;
    try
      Connect;
    except
    end;
    result := Connected;
  end;
end;