| 2218 |
sbetterm |
1 |
//---------------------------------------------------------------------------
|
|
|
2 |
|
|
|
3 |
#ifndef TestDirectorLoginH
|
|
|
4 |
#define TestDirectorLoginH
|
|
|
5 |
//---------------------------------------------------------------------------
|
|
|
6 |
#include <Classes.hpp>
|
|
|
7 |
#include <Controls.hpp>
|
|
|
8 |
#include <StdCtrls.hpp>
|
|
|
9 |
#include <Forms.hpp>
|
|
|
10 |
#include <Buttons.hpp>
|
|
|
11 |
#include <ADODB.hpp>
|
|
|
12 |
//---------------------------------------------------------------------------
|
|
|
13 |
class TTestDirectorLoginForm : public TForm
|
|
|
14 |
{
|
|
|
15 |
__published: // IDE-managed Components
|
|
|
16 |
TBitBtn *LoginBtn;
|
|
|
17 |
TBitBtn *BitBtn2;
|
|
|
18 |
TLabel *Label1;
|
|
|
19 |
TCheckBox *UseDomainLogin;
|
|
|
20 |
TGroupBox *GroupBox1;
|
|
|
21 |
TLabel *Label2;
|
|
|
22 |
TLabel *Label3;
|
|
|
23 |
TComboBox *ServerComboBox;
|
|
|
24 |
TLabel *Label4;
|
|
|
25 |
TComboBox *DatabaseComboBox;
|
|
|
26 |
TEdit *Username;
|
|
|
27 |
TEdit *Password;
|
|
|
28 |
void __fastcall FormShow(TObject *Sender);
|
|
|
29 |
void __fastcall UseDomainLoginClick(TObject *Sender);
|
|
|
30 |
void __fastcall LoginBtnClick(TObject *Sender);
|
|
|
31 |
|
|
|
32 |
private: // User declarations
|
|
|
33 |
TADOConnection *m_connection;
|
|
|
34 |
|
|
|
35 |
public: // User declarations
|
|
|
36 |
__fastcall TTestDirectorLoginForm(TComponent* Owner);
|
|
|
37 |
|
|
|
38 |
bool Login( TADOConnection *connection );
|
|
|
39 |
};
|
|
|
40 |
//---------------------------------------------------------------------------
|
|
|
41 |
extern PACKAGE TTestDirectorLoginForm *TestDirectorLoginForm;
|
|
|
42 |
//---------------------------------------------------------------------------
|
|
|
43 |
#endif
|