// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'ahmtdbpassworddlg.pas' rev: 6.00

#ifndef ahmtdbpassworddlgHPP
#define ahmtdbpassworddlgHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ahmtpassworddlg.hpp>	// Pascal unit
#include <ahmdialogclass.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <DBTables.hpp>	// Pascal unit
#include <DB.hpp>	// Pascal unit
#include <DBCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Ahmtdbpassworddlg
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAHMDataSourceLink;
class DELPHICLASS TAHMDBPasswordDlg;
class PASCALIMPLEMENTATION TAHMDBPasswordDlg : public Ahmdialogclass::TAHMAdvDialogComponent 
{
	typedef Ahmdialogclass::TAHMAdvDialogComponent inherited;
	
private:
	TAHMDataSourceLink* FDataLink;
	AnsiString FUserName;
	AnsiString FPassWord;
	Classes::TList* FListFields;
	Graphics::TFont* FFont;
	char FPasswordChar;
	Byte FNoOfRetries;
	Graphics::TBitmap* FGlyphCancel;
	Graphics::TBitmap* FGlyphOk;
	Classes::TNotifyEvent FOnRightPassword;
	Classes::TNotifyEvent FOnWrongPassword;
	Classes::TNotifyEvent FOnOk;
	Classes::TNotifyEvent FOnCancel;
	AnsiString FError;
	Classes::TNotifyEvent FAfterRetries;
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetFont(Graphics::TFont* Value);
	void __fastcall SetDataSource(Db::TDataSource* Value);
	void __fastcall SetUserName(const AnsiString Value);
	void __fastcall SetPassword(const AnsiString Value);
	void __fastcall setbm1(Graphics::TBitmap* value);
	void __fastcall Setbm2(Graphics::TBitmap* value);
	void __fastcall DoBitBtn2Click(System::TObject* Sender);
	void __fastcall DoBitBtn1Click(System::TObject* Sender);
	void __fastcall DoFormShow(System::TObject* Sender);
	bool __fastcall VerifyLogin(void);
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
public:
	__fastcall virtual TAHMDBPasswordDlg(Classes::TComponent* AOwner);
	__fastcall virtual ~TAHMDBPasswordDlg(void);
	virtual bool __fastcall Execute(void);
	
__published:
	__property AnsiString DataUserName = {read=FUserName, write=SetUserName};
	__property AnsiString DataPassword = {read=FPassWord, write=SetPassword};
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property Graphics::TFont* Fonts = {read=FFont, write=SetFont};
	__property char Passwordchar = {read=FPasswordChar, write=FPasswordChar, nodefault};
	__property Graphics::TBitmap* GlyphCancel = {read=FGlyphCancel, write=Setbm2};
	__property Graphics::TBitmap* GlyphOk = {read=FGlyphOk, write=setbm1};
	__property AnsiString ErrorMessage = {read=FError, write=FError};
	__property Classes::TNotifyEvent OnRightPassword = {read=FOnRightPassword, write=FOnRightPassword};
	__property Classes::TNotifyEvent OnWrongPassword = {read=FOnWrongPassword, write=FOnWrongPassword};
	__property Classes::TNotifyEvent OnOk = {read=FOnOk, write=FOnOk};
	__property Classes::TNotifyEvent OnCancel = {read=FOnCancel, write=FOnCancel};
	__property Byte NoOfRetries = {read=FNoOfRetries, write=FNoOfRetries, default=3};
	__property Classes::TNotifyEvent AfterRetries = {read=FAfterRetries, write=FAfterRetries};
};


class PASCALIMPLEMENTATION TAHMDataSourceLink : public Db::TDataLink 
{
	typedef Db::TDataLink inherited;
	
private:
	TAHMDBPasswordDlg* FDBPasswordDlg;
public:
	#pragma option push -w-inl
	/* TDataLink.Create */ inline __fastcall TAHMDataSourceLink(void) : Db::TDataLink() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDataLink.Destroy */ inline __fastcall virtual ~TAHMDataSourceLink(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Ahmtdbpassworddlg */
using namespace Ahmtdbpassworddlg;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// ahmtdbpassworddlg
