Klasse TFlexiAdmin

Unit

IBP_AccountManager

Deklaration

type TFlexiAdmin = class(TMdiChildForm)

Beschreibung

Hierarchie

• TMdiChildForm
• TFlexiAdmin

Übersicht

Felder

	ToolPanel: TToolBar;
	Panel1: TPanel;
	ToolButton2: TToolButton;
	ToolButton3: TToolButton;
	Edit1: TEditEnh;
	ToolButton1: TToolButton;
	GroundPanel: TIBP_Panel;
	Panel2: TPanel;
	GroundPanel1: TPanel;
	IBP_Query1: TIBP_Query;
	IBP_DataSource1: TIBP_DataSource;
	IB_Transaction1: TIB_Transaction;
	RxSplitter1: TRxSplitter;
	IBP_Query2: TIBP_Query;
	IBP_DataSource2: TIBP_DataSource;
	IBP_Query3: TIBP_Query;
	IBP_DataSource3: TIBP_DataSource;
	FormStorage1: TFormStorage;
	MainMenu1: TMainMenu;
	Kunden1: TMenuItem;
	IB_Script1: TIB_Script;
	Userbernehmen1: TMenuItem;
	IBP_Query4: TIBP_Query;
	IBP_DataSource4: TIBP_DataSource;
	Policiesbernehmen1: TMenuItem;
	Panel4: TPanel;
	IBP_Grid2: TIBP_Grid;
	IB_EditAcc_master: TIB_Edit;
	IBP_SearchPanel2: TIBP_SearchPanel;
	RxSplitter2: TRxSplitter;
	IBP_SearchPanel3: TIBP_SearchPanel;
	IBP_Grid3: TIBP_Grid;
	IB_EditAcc_Child: TIB_Edit;
	RxSplitter3: TRxSplitter;
	IBP_Query44: TIBP_Query;
	IBP_DataSource44: TIBP_DataSource;
	BackPanel4: TPanel;
	BackPanel1: TPanel;
	IBP_Grid1: TIBP_Grid;
	IBP_SearchPanel1: TIBP_SearchPanel;
	BackPanel2: TPanel;
	BackPanel3: TPanel;
	Panel3: TPanel;
	OBBtn: TSpeedButton;
	EBBtn: TSpeedButton;
	GBBtn: TSpeedButton;
	RM: TIBP_RightManager;
	Profiles: TIBP_Profiles;
	TestLMS: TIBP_LMS;
	N1: TMenuItem;
	Reportsbernehmen1: TMenuItem;
	IBP_Query5: TIBP_Query;
	IBP_DataSource5: TIBP_DataSource;
	ImageList2: TImageList;
	IBP_Query55: TIBP_Query;
	IBP_DataSource55: TIBP_DataSource;
	Reportberechtigungenbernehmen1: TMenuItem;
	ToolButton5: TToolButton;
	TestBtn: TToolButton;
	OpenDialog1: TOpenDialog;
	PopupMenu1: TPopupMenu;
	dr1: TMenuItem;
	dr2: TMenuItem;
	ReportListe1: TMenuItem;
	IB_Connection4: TIB_Connection;
	FormStorage2: TFormStorage;
	IB_Transaction4: TIB_Transaction;
	N2: TMenuItem;
	Berechtigungenvergeben1: TMenuItem;
	PWumstellen1: TMenuItem;
	N3: TMenuItem;
	N4: TMenuItem;
	EinzelBerechtigung1: TMenuItem;
	ToolButton6: TToolButton;
	IB_TransactionBar1: TIB_TransactionBar;
	Page95Control1: TJvPageControl;
	Tab95Sheet1: TTabSheet;
	Tab95Sheet2: TTabSheet;
	ReportBackPanel: TPanel;
	IBP_SearchPanel5: TIBP_SearchPanel;
	IBP_Grid5: TIBP_Grid;
	AdminPanel_1: TPanel;
	SpeedButton1: TSpeedButton;
	RefreshAllReportsFromFile: TSpeedButton;
	TransferReports: TSpeedButton;
	SaveReportButton: TSpeedButton;
	AdminMode1: TCheckBox;
	Panel6: TPanel;
	PolicyBackPanel: TPanel;
	IBP_SearchPanel4: TIBP_SearchPanel;
	Panel5: TPanel;
	Tab95Sheet3: TTabSheet;
	MsgBackPanel: TPanel;
	IBP_SearchPanel6: TIBP_SearchPanel;
	IBP_Grid6: TIBP_Grid;
	Panel8: TPanel;
	IBP_Query6: TIBP_Query;
	IBP_DataSource6: TIBP_DataSource;
	IBP_Query66: TIBP_Query;
	IBP_DataSource66: TIBP_DataSource;
	AdminPanel_2: TPanel;
	SpeedButton2: TSpeedButton;
	SpeedButton3: TSpeedButton;
	AdminMode2: TCheckBox;
	Drucken: TRxSpeedButton;
	AccountPopup: TPopupMenu;
	accpopup: TMenuItem;
	PngImageList1: TPngImageList;
	RxSplitter4: TRxSplitter;
	Panel7: TPanel;
	IBP_Grid4: TIBP_Grid;
	JvNavPanelHeader1: TJvNavPanelHeader;
	JvBevel4: TJvBevel;
	BereichBox: TJvComboBox;
	JvPanel1: TJvPanel;
	ObjectHeaderPanel: TJvNavPanelHeader;
	JvBevel1: TJvBevel;
	ObjectBackPanel: TJvScrollBox;
	ObjectImageLabel: TJvLabel;
	JvScrollBox1: TJvScrollBox;
	JvPanel2: TJvPanel;
	JvLabel1: TJvLabel;
	SaveDialog1: TSaveDialog;
	ObjektFilter: TJvComboEdit;
	ACCFilter: TJvComboEdit;
	ActiveUserList: TStringList;
	FFieldsVisible: string;
	LastObjectNr: Integer;
	LastReportNr: Integer;
	LastMsgNr: Integer;
	adminmode: Boolean;
	update_run: Boolean;

Methoden

	procedure FormClose(Sender: TObject; var Action: TCloseAction);
	procedure GroundPanel1Resize(Sender: TObject);
	procedure IBP_DataSource1StateChanged(Sender: TIB_DataSource; ADataset: TIB_Dataset);
	procedure IBP_Grid3DblClick(Sender: TObject);
	procedure IBP_Grid2DblClick(Sender: TObject);
	procedure IBP_Grid1EditButtonClick(Sender: TObject);
	procedure Edit1KeyPress(Sender: TObject; var Key: Char);
	procedure IBP_DataSource1DataChange(Sender: TIB_StatementLink; Statement: TIB_Statement; Field: TIB_Column);
	procedure Edit1Button1(Sender: TObject);
	procedure IBP_Query2AfterInsert(IB_Dataset: TIB_Dataset);
	procedure IBP_Query3AfterInsert(IB_Dataset: TIB_Dataset);
	procedure Userbernehmen1Click(Sender: TObject);
	procedure IBP_SearchPanel2EditButtonClick(Sender: TObject);
	procedure IBP_SearchPanel3EditButtonClick(Sender: TObject);
	procedure Policiesbernehmen1Click(Sender: TObject);
	procedure IBP_Grid4DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);
	procedure FormCreate(Sender: TObject);
	procedure IBP_Query4GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);
	procedure IBP_Query4AfterInsert(IB_Dataset: TIB_Dataset);
	procedure IBP_Query4CalculateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
	procedure IBP_DataSource1GainFocus(Sender: TIB_DataSource; ADataset: TIB_Dataset);
	procedure IBP_Query1AfterScroll(IB_Dataset: TIB_Dataset);
	procedure IBP_Query4AfterScroll(IB_Dataset: TIB_Dataset);
	procedure IBP_Query4AfterDelete(IB_Dataset: TIB_Dataset);
	procedure IBP_Query4AfterCancel(IB_Dataset: TIB_Dataset);
	procedure OBBtnClick(Sender: TObject);
	procedure CheckBtnState;
	procedure TestBtnClick(Sender: TObject);
	procedure TestLMSClose(Sender: TObject);
	procedure IBP_Query2GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);
	procedure Kunden1Click(Sender: TObject);
	procedure Reportsbernehmen1Click(Sender: TObject);
	procedure IBP_Grid5DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);
	procedure Reportberechtigungenbernehmen1Click(Sender: TObject);
	procedure IBP_Grid5DblClick(Sender: TObject);
	procedure AnsichtChange(Sender: TObject);
	procedure SpeedButton1Click(Sender: TObject);
	procedure AdminMode1Click(Sender: TObject);
	procedure IBP_Query5BeforePost(IB_Dataset: TIB_Dataset);
	procedure DruckenClick(Sender: TObject);
	procedure TransferReportsClick(Sender: TObject);
	procedure Berechtigungenvergeben1Click(Sender: TObject);
	procedure TestLMSCheckLogin(sender: TObject; UserName, Password, DatabaseName, DBRealName, NewPassword1, NewPassword2: string; var LoggedIn: Boolean);
	procedure PWumstellen1Click(Sender: TObject);
	procedure IBP_Query1BeforePost(IB_Dataset: TIB_Dataset);
	procedure BerechtBtnClick(Sender: TObject);
	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
	procedure IBP_Query1AfterPost(IB_Dataset: TIB_Dataset);
	procedure RefreshAllReportsFromFileClick(Sender: TObject);
	procedure UpdateReportFromFile(s: string);
	procedure IBP_Query1AfterOpen(IB_Dataset: TIB_Dataset);
	procedure IBP_Grid1GetCellFont(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; AColor: TColor; const AFont: TFont);
	procedure AdminPanel_1DblClick(Sender: TObject);
	procedure AccountPopupPopup(Sender: TObject);
	procedure AccountPopupItemClick(Sender: TObject);
	procedure BereichBoxChange(Sender: TObject);
	procedure IBP_Query4FilterRecord(ARow: TIB_Row; var Accept: Boolean);
	procedure IBP_DataSource1LoseFocus(Sender: TIB_DataSource; ADataset: TIB_Dataset);
	procedure SaveReportButtonClick(Sender: TObject);
	procedure ACCFilterButtonClick(Sender: TObject);

Beschreibung

Felder

	ToolPanel: TToolBar;

	Panel1: TPanel;

	ToolButton2: TToolButton;

	ToolButton3: TToolButton;

	Edit1: TEditEnh;

	ToolButton1: TToolButton;

	GroundPanel: TIBP_Panel;

	Panel2: TPanel;

	GroundPanel1: TPanel;

	IBP_Query1: TIBP_Query;

	IBP_DataSource1: TIBP_DataSource;

	IB_Transaction1: TIB_Transaction;

	RxSplitter1: TRxSplitter;

	IBP_Query2: TIBP_Query;

	IBP_DataSource2: TIBP_DataSource;

	IBP_Query3: TIBP_Query;

	IBP_DataSource3: TIBP_DataSource;

	FormStorage1: TFormStorage;

	MainMenu1: TMainMenu;

	Kunden1: TMenuItem;

	IB_Script1: TIB_Script;

	Userbernehmen1: TMenuItem;

	IBP_Query4: TIBP_Query;

	IBP_DataSource4: TIBP_DataSource;

	Policiesbernehmen1: TMenuItem;

	Panel4: TPanel;

	IBP_Grid2: TIBP_Grid;

	IB_EditAcc_master: TIB_Edit;

	IBP_SearchPanel2: TIBP_SearchPanel;

	RxSplitter2: TRxSplitter;

	IBP_SearchPanel3: TIBP_SearchPanel;

	IBP_Grid3: TIBP_Grid;

	IB_EditAcc_Child: TIB_Edit;

	RxSplitter3: TRxSplitter;

	IBP_Query44: TIBP_Query;

	IBP_DataSource44: TIBP_DataSource;

	BackPanel4: TPanel;

	BackPanel1: TPanel;

	IBP_Grid1: TIBP_Grid;

	IBP_SearchPanel1: TIBP_SearchPanel;

	BackPanel2: TPanel;

	BackPanel3: TPanel;

	Panel3: TPanel;

	OBBtn: TSpeedButton;

	EBBtn: TSpeedButton;

	GBBtn: TSpeedButton;

	RM: TIBP_RightManager;

	Profiles: TIBP_Profiles;

	TestLMS: TIBP_LMS;

	N1: TMenuItem;

	Reportsbernehmen1: TMenuItem;

	IBP_Query5: TIBP_Query;

	IBP_DataSource5: TIBP_DataSource;

	ImageList2: TImageList;

	IBP_Query55: TIBP_Query;

	IBP_DataSource55: TIBP_DataSource;

	Reportberechtigungenbernehmen1: TMenuItem;

	ToolButton5: TToolButton;

	TestBtn: TToolButton;

	OpenDialog1: TOpenDialog;

	PopupMenu1: TPopupMenu;

	dr1: TMenuItem;

	dr2: TMenuItem;

	ReportListe1: TMenuItem;

	IB_Connection4: TIB_Connection;

	FormStorage2: TFormStorage;

	IB_Transaction4: TIB_Transaction;

	N2: TMenuItem;

	Berechtigungenvergeben1: TMenuItem;

	PWumstellen1: TMenuItem;

	N3: TMenuItem;

	N4: TMenuItem;

	EinzelBerechtigung1: TMenuItem;

	ToolButton6: TToolButton;

	IB_TransactionBar1: TIB_TransactionBar;

	Page95Control1: TJvPageControl;

	Tab95Sheet1: TTabSheet;

	Tab95Sheet2: TTabSheet;

	ReportBackPanel: TPanel;

	IBP_SearchPanel5: TIBP_SearchPanel;

	IBP_Grid5: TIBP_Grid;

	AdminPanel_1: TPanel;

	SpeedButton1: TSpeedButton;

	RefreshAllReportsFromFile: TSpeedButton;

	TransferReports: TSpeedButton;

	SaveReportButton: TSpeedButton;

	AdminMode1: TCheckBox;

	Panel6: TPanel;

	PolicyBackPanel: TPanel;

	IBP_SearchPanel4: TIBP_SearchPanel;

	Panel5: TPanel;

	Tab95Sheet3: TTabSheet;

	MsgBackPanel: TPanel;

	IBP_SearchPanel6: TIBP_SearchPanel;

	IBP_Grid6: TIBP_Grid;

	Panel8: TPanel;

	IBP_Query6: TIBP_Query;

	IBP_DataSource6: TIBP_DataSource;

	IBP_Query66: TIBP_Query;

	IBP_DataSource66: TIBP_DataSource;

	AdminPanel_2: TPanel;

	SpeedButton2: TSpeedButton;

	SpeedButton3: TSpeedButton;

	AdminMode2: TCheckBox;

	Drucken: TRxSpeedButton;

	AccountPopup: TPopupMenu;

	accpopup: TMenuItem;

	PngImageList1: TPngImageList;

	RxSplitter4: TRxSplitter;

	Panel7: TPanel;

	IBP_Grid4: TIBP_Grid;

	JvNavPanelHeader1: TJvNavPanelHeader;

	JvBevel4: TJvBevel;

	BereichBox: TJvComboBox;

	JvPanel1: TJvPanel;

	ObjectHeaderPanel: TJvNavPanelHeader;

	JvBevel1: TJvBevel;

	ObjectBackPanel: TJvScrollBox;

	ObjectImageLabel: TJvLabel;

	JvScrollBox1: TJvScrollBox;

	JvPanel2: TJvPanel;

	JvLabel1: TJvLabel;

	SaveDialog1: TSaveDialog;

	ObjektFilter: TJvComboEdit;

	ACCFilter: TJvComboEdit;

	ActiveUserList: TStringList;

	FFieldsVisible: string;

	LastObjectNr: Integer;

	LastReportNr: Integer;

	LastMsgNr: Integer;

	adminmode: Boolean;

	update_run: Boolean;

Methoden

	procedure FormClose(Sender: TObject; var Action: TCloseAction);

	procedure GroundPanel1Resize(Sender: TObject);

	procedure IBP_DataSource1StateChanged(Sender: TIB_DataSource; ADataset: TIB_Dataset);

	procedure IBP_Grid3DblClick(Sender: TObject);

	procedure IBP_Grid2DblClick(Sender: TObject);

	procedure IBP_Grid1EditButtonClick(Sender: TObject);

	procedure Edit1KeyPress(Sender: TObject; var Key: Char);

	procedure IBP_DataSource1DataChange(Sender: TIB_StatementLink; Statement: TIB_Statement; Field: TIB_Column);

	procedure Edit1Button1(Sender: TObject);

	procedure IBP_Query2AfterInsert(IB_Dataset: TIB_Dataset);

	procedure IBP_Query3AfterInsert(IB_Dataset: TIB_Dataset);

	procedure Userbernehmen1Click(Sender: TObject);

	procedure IBP_SearchPanel2EditButtonClick(Sender: TObject);

	procedure IBP_SearchPanel3EditButtonClick(Sender: TObject);

	procedure Policiesbernehmen1Click(Sender: TObject);

	procedure IBP_Grid4DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);

	procedure FormCreate(Sender: TObject);

	procedure IBP_Query4GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);

	procedure IBP_Query4AfterInsert(IB_Dataset: TIB_Dataset);

	procedure IBP_Query4CalculateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);

	procedure IBP_DataSource1GainFocus(Sender: TIB_DataSource; ADataset: TIB_Dataset);

	procedure IBP_Query1AfterScroll(IB_Dataset: TIB_Dataset);

	procedure IBP_Query4AfterScroll(IB_Dataset: TIB_Dataset);

	procedure IBP_Query4AfterDelete(IB_Dataset: TIB_Dataset);

	procedure IBP_Query4AfterCancel(IB_Dataset: TIB_Dataset);

	procedure OBBtnClick(Sender: TObject);

	procedure CheckBtnState;

	procedure TestBtnClick(Sender: TObject);

	procedure TestLMSClose(Sender: TObject);

	procedure IBP_Query2GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);

	procedure Kunden1Click(Sender: TObject);

	procedure Reportsbernehmen1Click(Sender: TObject);

	procedure IBP_Grid5DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);

	procedure Reportberechtigungenbernehmen1Click(Sender: TObject);

	procedure IBP_Grid5DblClick(Sender: TObject);

	procedure AnsichtChange(Sender: TObject);

	procedure SpeedButton1Click(Sender: TObject);

	procedure AdminMode1Click(Sender: TObject);

	procedure IBP_Query5BeforePost(IB_Dataset: TIB_Dataset);

	procedure DruckenClick(Sender: TObject);

	procedure TransferReportsClick(Sender: TObject);

	procedure Berechtigungenvergeben1Click(Sender: TObject);

	procedure TestLMSCheckLogin(sender: TObject; UserName, Password, DatabaseName, DBRealName, NewPassword1, NewPassword2: string; var LoggedIn: Boolean);

	procedure PWumstellen1Click(Sender: TObject);

	procedure IBP_Query1BeforePost(IB_Dataset: TIB_Dataset);

	procedure BerechtBtnClick(Sender: TObject);

	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

	procedure IBP_Query1AfterPost(IB_Dataset: TIB_Dataset);

	procedure RefreshAllReportsFromFileClick(Sender: TObject);

	procedure UpdateReportFromFile(s: string);

	procedure IBP_Query1AfterOpen(IB_Dataset: TIB_Dataset);

	procedure IBP_Grid1GetCellFont(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; AColor: TColor; const AFont: TFont);

	procedure AdminPanel_1DblClick(Sender: TObject);

	procedure AccountPopupPopup(Sender: TObject);

	procedure AccountPopupItemClick(Sender: TObject);

	procedure BereichBoxChange(Sender: TObject);

	procedure IBP_Query4FilterRecord(ARow: TIB_Row; var Accept: Boolean);

	procedure IBP_DataSource1LoseFocus(Sender: TIB_DataSource; ADataset: TIB_Dataset);

	procedure SaveReportButtonClick(Sender: TObject);

	procedure ACCFilterButtonClick(Sender: TObject);

---

Erstellt mit PasDoc 0.16.0.