Subversion Repositories DevTools

Rev

Rev 2265 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2265 Rev 2267
Line 256... Line 256...
256 
                                mtError, TMsgDlgButtons() << mbOK, 0);
 256 
                                mtError, TMsgDlgButtons() << mbOK, 0);
257 
                    retryLogin = true;
 257 
                    retryLogin = true;
258 
                }
 258 
                }
259 
                else
 259 
                else
260 
                {
 260 
                {
261 
                    // we have a databse connection so use it
 261 
                     // we have a databse connection so use it
- 
 
 262 
                     // but first display the database name on the bottom ight hand corner
- 
 
 263 
                     MainStatusBar->Panels->Items[ 2 ]->Alignment = taRightJustify ;
- 
 
 264 
                     MainStatusBar->Panels->Items[ 2 ]->Text =  LoginForm->DatabaseEdit->Text + "      ";
- 
 
 265 
 
262 
                    MASSTxnsQuery->Active = false;
 266 
                    MASSTxnsQuery->Active = false;
263 
                    TestCaseQuery->Active = false;
 267 
                    TestCaseQuery->Active = false;
264 
                    TxnSpecQuery->Active = false;
 268 
                    TxnSpecQuery->Active = false;
265 
                    TxnValuesQuery->Active = false;
 269 
                    TxnValuesQuery->Active = false;
266 
                    TxnHdrValuesQuery->Active = false;
 270 
                    TxnHdrValuesQuery->Active = false;