Курсовая работа: Разработка базы данных флагов мира

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses About, Main;

{$R *.DFM}

procedure TDM.DataModuleCreate(Sender: TObject);

begin

try

tbLanguage.Open;

except

MessageDlg('Îøèáêà îòêðûòèÿ òàáëèöû Language.db', mtError, [mbOk],0)

end;

try

tbCountry.Open;

except

MessageDlg('Îøèáêà îòêðûòèÿ òàáëèöû Country.db', mtError, [mbOk],0)

end;

try

tbKontinent.Open;

except

MessageDlg('Îøèáêà îòêðûòèÿ òàáëèöû Kontinent.db', mtError, [mbOk],0)

end;

try

tbMain.Open;

except

MessageDlg('Îøèáêà îòêðûòèÿ òàáëèöû Main.db', mtError, [mbOk],0)

К-во Просмотров: 764
Бесплатно скачать Курсовая работа: Разработка базы данных флагов мира