Delphi - 手把手教你基于D7+Access常用管理系统架构的设计与实现 （更新中） (2)

1 procedure TMainFrm.FormShow(Sender: TObject); 2 begin 3 // 动态连接Access数据库 4 try 5 Screen.Cursor := crSQLWait; 6 ChDir(ExtractFilePath(Application.ExeName)); 7 ChDir('..'); 8 try //动态加载数据库 9 conMain.Connected := False; 10 conMain.ConnectionString := 'Provider=Microsoft.Jet.OlEDB.4.0;Data Source=' + GetCurrentDir + '\DataX\DataX.mdb' + ';User ID=admin;Password=;Persist security Info=False'; 11 conMain.Connected := True; 12 conMain.LoginPrompt := False; 13 statusPaneAccess.Caption := '数据库已连接';//状态栏控件statusPane 14 Screen.Cursor := crDefault; 15 except 16 Screen.Cursor := crDefault; 17 statusPaneAccess.Caption := '数据库未连接'; 18 MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], 0); 19 end; 20 Screen.Cursor := crDefault; 21 except 22 statusPaneAccess.Caption := '数据库未连接'; 23 MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], 0); 24 end; 25 end;