DB를 선택하면 그전에 선택했던 DB가 열릴까여...?

DB를 선택하면 레지스트리 값도 변하는데...왜 그전에 열었던 DB가 오픈되는쥐 궁굼합니다.



예를들어 test.mdb 오픈하고 들어가면 선택한 DB가 오픈되지 않고 프로그램을 종료한후 다시 선택하면 그때서야 DB가 오픈되는데...이유를 모르겠어여?

제 질문이 쩜 이상하져....ㅠ.ㅠ





procedure TfmMain.FormShow(Sender: TObject);

var

TheReg: TRegistry;

KeyName: String;

//ValueStr: String;

begin

if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then

begin

TheReg := TRegistry.Create;

try

TheReg.RootKey := HKEY_CURRENT_USER;

KeyName := 'SoftwareODBCODBC.INISiBeeODBC';

if TheReg.OpenKey(KeyName, False) then

begin

if OpenDialog1.Execute then

begin

TheReg.WriteString('DBQ',OpenDialog1.FileName);

TheReg.CloseKey;

end;

end;

finally

TheReg.Free;

end;

fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';

end;procedure TfmMain.FormShow(Sender: TObject);

var

TheReg: TRegistry;

KeyName: String;

//ValueStr: String;

begin

if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then

begin

TheReg := TRegistry.Create;

try

TheReg.RootKey := HKEY_CURRENT_USER;

KeyName := 'SoftwareODBCODBC.INISiBeeODBC';

if TheReg.OpenKey(KeyName, False) then

begin

if OpenDialog1.Execute then

begin

TheReg.WriteString('DBQ',OpenDialog1.FileName);

TheReg.CloseKey;

end;

end;

finally

TheReg.Free;

end;

fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';

end;procedure TfmMain.FormShow(Sender: TObject);

var

TheReg: TRegistry;

KeyName: String;

//ValueStr: String;

begin

if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then

begin

TheReg := TRegistry.Create;

try

TheReg.RootKey := HKEY_CURRENT_USER;

KeyName := 'SoftwareODBCODBC.INISiBeeODBC';

if TheReg.OpenKey(KeyName, False) then

begin

if OpenDialog1.Execute then

begin

TheReg.WriteString('DBQ',OpenDialog1.FileName);

TheReg.CloseKey;

end;

end;

finally

TheReg.Free;

end;

fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';

end;