别人写的程序，我如何知道它的连接的数据库是什么？

unit fs_main;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Db, DBTables, ComCtrls;//tmm1 menu 琌癸莱 mm1 ┮璶type
  Tfm_main = class(TForm)
    mm1: TMainMenu;
    N3: TMenuItem;
    N5: TMenuItem;
    tmm1: TMainMenu;
    N31: TMenuItem;
    StatusBar1: TStatusBar;
    mm_rec101: TMenuItem;
    N000013: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N000011: TMenuItem;
    N000012: TMenuItem;
    N000014: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N000015: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure mm_rec101Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    _emp_no, _aut_secret,_delete,_update,_ComputerName,_emp_name : string ;
  end;var
  fm_main: Tfm_main;implementationuses fs_password, fs_rec101, fs_rec102, fs_rec103, fs_rec104 ;{$R *.DFM}procedure Tfm_main.FormShow(Sender: TObject);
begin
  {
  fm_password := Tfm_password.create(self) ;
  fm_password.ShowModal ;
  fm_password.free ;
  }
  StatusBar1.Panels.Items[0].Text:= '机器名:' +  _ComputerName ;
  StatusBar1.Panels.Items[1].Text:= '系统时间:' + DateTimeToStr(FileDateToDateTime(FileAge(Application.ExeName)));
end;procedure Tfm_main.N5Click(Sender: TObject);
begin
  close ;
end;procedure Tfm_main.mm_rec101Click(Sender: TObject);
begin
  if fm_rec101 = Nil then fm_rec101 := Tfm_rec101.Create(self) ;
  fm_rec101.Show ;
end;procedure Tfm_main.N1Click(Sender: TObject);
begin
  if fm_rec102 = Nil then fm_rec102 := Tfm_rec102.Create(self) ;
  fm_rec102.Show ;
end;procedure Tfm_main.N2Click(Sender: TObject);
begin
  if fm_rec103 = Nil then fm_rec103 := Tfm_rec103.Create(self) ;
  fm_rec103.Show ;
end;procedure Tfm_main.N4Click(Sender: TObject);
begin
  if fm_rec104 = Nil then fm_rec104 := Tfm_rec104.Create(self) ;
  fm_rec104.Show ;
end;procedure Tfm_main.N7Click(Sender: TObject);
begin
 // if fm_rec105 = Nil then fm_rec105 := Tfm_rec105.Create(self) ;
 // fm_rec105.Show ;
end;end.
--------------------------------------------
unit fs_dm;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ADODB;type
  Tfm_dm = class(TDataModule)
    db: TADOConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  fm_dm: Tfm_dm;implementation{$R *.DFM}end.
----------------------------
第一段是main，第二段是dm，似乎是用来连接数据库的