Klasse TFMitglieder

Beschreibung

Hierarchie

Felder

Methoden

Eigenschaften

Unit

uFMitglieder

Deklaration

type TFMitglieder = class(TForm)

Beschreibung

Hierarchie

TForm
TFMitglieder

Übersicht

Felder

	`PanelButtons: TPanel;`
	`PageControl: TPageControl;`
	`PersDaten: TTabSheet;`
	`ZusatzDaten: TTabSheet;`
	`GroupBox1: TGroupBox;`
	`GroupBox2: TGroupBox;`
	`GroupBox3: TGroupBox;`
	`GrpBoxBank: TGroupBox;`
	`EditVorname: TLabeledEdit;`
	`EditNachname: TLabeledEdit;`
	`EditStrasse: TLabeledEdit;`
	`EditPlz: TLabeledEdit;`
	`EditOrt: TLabeledEdit;`
	`EditTelefonFestnetz: TLabeledEdit;`
	`EditTelefonMobil: TLabeledEdit;`
	`EditFax: TLabeledEdit;`
	`EditEmail: TLabeledEdit;`
	`CBGeburtTag: TComboBox;`
	`CBGeburtMonat: TComboBox;`
	`CBGeburtJahr: TComboBox;`
	`Label1: TLabel;`
	`BtOk: TButton;`
	`BtAbbrechen: TButton;`
	`BtHilfe: TButton;`
	`CBAnrede: TComboBox;`
	`Label3: TLabel;`
	`CBMitgliedsnummer: TComboBox;`
	`Label7: TLabel;`
	`EditKontonummer: TLabeledEdit;`
	`EditBlz: TLabeledEdit;`
	`EditBIC: TLabeledEdit;`
	`EditIBAN: TLabeledEdit;`
	`EditHomepage: TLabeledEdit;`
	`Foto: TTabSheet;`
	`BtLaden: TButton;`
	`PageControlVerein: TPageControl;`
	`Eintritt: TTabSheet;`
	`Vereinsaemter: TTabSheet;`
	`Vorstand: TTabSheet;`
	`Sonstiges: TTabSheet;`
	`Label2: TLabel;`
	`Label4: TLabel;`
	`CBEintrittTag: TComboBox;`
	`CBEintrittMonat: TComboBox;`
	`CBEintrittJahr: TComboBox;`
	`CBAustrittTag: TComboBox;`
	`CBAustrittMonat: TComboBox;`
	`CBAustrittJahr: TComboBox;`
	`BtnAustrittHinzufuegen: TButton;`
	`PLstAustritt: TPieList;`
	`Label5: TLabel;`
	`BtnAustrittLoeschen: TButton;`
	`CBAmtTagv: TComboBox;`
	`CBAmtMonatv: TComboBox;`
	`CBAmtJahrv: TComboBox;`
	`CBAmtTagb: TComboBox;`
	`CBAmtMonatb: TComboBox;`
	`CBAmtJahrb: TComboBox;`
	`PLstAmt: TPieList;`
	`CBAmtHinzufuegen: TButton;`
	`CBAmtLoeschen: TButton;`
	`CBAmt: TComboBox;`
	`Label6: TLabel;`
	`Label8: TLabel;`
	`Label11: TLabel;`
	`Label9: TLabel;`
	`CBPosition: TComboBox;`
	`Label10: TLabel;`
	`Label12: TLabel;`
	`BtnPositionHinzufuegen: TButton;`
	`BtnPositionLoeschen: TButton;`
	`PLstPosition: TPieList;`
	`CBGruendungsmitglied: TCheckBox;`
	`CBEhrenmitglied: TCheckBox;`
	`Label13: TLabel;`
	`CBEhrenmitgliedTag: TComboBox;`
	`CBEhrenmitgliedMonat: TComboBox;`
	`CBEhrenmitgliedJahr: TComboBox;`
	`Bemerkungen: TLabel;`
	`MemBemerkung: TMemo;`
	`ScrollBoxFoto: TScrollBox;`
	`ImgFoto: TImage;`
	`BtnLoeschen: TButton;`
	`EditSpitzname: TLabeledEdit;`
	`CBBemerkung: TComboBox;`
	`CBVorstandTagv: TComboBox;`
	`CBVorstandMonatv: TComboBox;`
	`CBVorstandJahrv: TComboBox;`
	`CBVorstandTagb: TComboBox;`
	`CBVorstandMonatb: TComboBox;`
	`CBVorstandJahrb: TComboBox;`
	`CBStatus: TComboBox;`
	`Label14: TLabel;`
	`BtnExportieren: TButton;`
	`SavDlgFoto: TSaveDialog;`
	`OpDlgFoto: TOpenPictureDialog;`
	`Label15: TLabel;`
	`CBKontoinhaber: TComboBox;`
	`Label17: TLabel;`
	`RBBarzahlung: TRadioButton;`
	`RBUeberweisung: TRadioButton;`
	`RBLastschrift: TRadioButton;`
	`DatePickLastschrift: TDateTimePicker;`
	`LabLastschriftDatum: TLabel;`
	`BtImport: TButton;`
	`OpenImportDlg: TOpenDialog;`
	`PLstWarteschlange: TPieList;`
	`BtHinzu: TButton;`
	`BtAnwenden: TButton;`
	`Kontakt: TTabSheet;`
	`Bank: TTabSheet;`
	`BtLoeschen: TButton;`
	`ActionList1: TActionList;`
	`ActEingabenpruefen: TAction;`
	`ActMitgliedEinfuegen: TAction;`
	`BtLeeren: TButton;`
	`GrpBoxZahlungsweise: TGroupBox;`
	`ActMitgliedLoeschen: TAction;`
	`BtGoogleMaps: TButton;`
	`ActFensterSchliessen: TAction;`
	`Mitgliederbemerkungen: TTabSheet;`
	`CBAusweis: TCheckBox;`
	`ActBanknamenAendern: TAction;`
	`EdtBankname: TEdit;`
	`CBBankennamen: TComboBox;`

Methoden

	`procedure FormActivate(Sender: TObject);`
	`procedure FormCreate(Sender: TObject);`
	`procedure CBMitgliedsnummerChange(Sender: TObject);`
	`procedure CBGeburtJahrChange(Sender: TObject);`
	`procedure EditPlzChange(Sender: TObject);`
	`procedure EditTelefonFestnetzChange(Sender: TObject);`
	`procedure EditTelefonMobilChange(Sender: TObject);`
	`procedure EditFaxChange(Sender: TObject);`
	`procedure CBEintrittJahrChange(Sender: TObject);`
	`procedure CBAustrittJahrChange(Sender: TObject);`
	`procedure EditKontonummerChange(Sender: TObject);`
	`procedure EditBlzChange(Sender: TObject);`
	`procedure BtLadenClick(Sender: TObject);`
	`procedure CBEhrenmitgliedClick(Sender: TObject);`
	`procedure BtnLoeschenClick(Sender: TObject);`
	`procedure FormDestroy(Sender: TObject);`
	`procedure BtOkClick(Sender: TObject);`
	`procedure BtnAustrittHinzufuegenClick(Sender: TObject);`
	`procedure BtnAustrittLoeschenClick(Sender: TObject);`
	`procedure CBAmtHinzufuegenClick(Sender: TObject);`
	`procedure CBAmtLoeschenClick(Sender: TObject);`
	`procedure BtnPositionHinzufuegenClick(Sender: TObject);`
	`procedure BtnPositionLoeschenClick(Sender: TObject);`
	`procedure BtAbbrechenClick(Sender: TObject);`
	`procedure BtnExportierenClick(Sender: TObject);`
	`procedure CBAmtJahrvChange(Sender: TObject);`
	`procedure CBAmtJahrbChange(Sender: TObject);`
	`procedure CBVorstandJahrvChange(Sender: TObject);`
	`procedure CBVorstandJahrbChange(Sender: TObject);`
	`procedure CBEhrenmitgliedJahrChange(Sender: TObject);`
	`procedure BtHilfeClick(Sender: TObject);`
	`procedure CBBanknameChange(Sender: TObject);`
	`procedure RBBarzahlungClick(Sender: TObject);`
	`procedure RBUeberweisungClick(Sender: TObject);`
	`procedure RBLastschriftClick(Sender: TObject);`
	`procedure BtImportClick(Sender: TObject);`
	`procedure BtHinzuClick(Sender: TObject);`
	`procedure PLstWarteschlangeDblClick(Sender: TObject);`
	`procedure BtAnwendenClick(Sender: TObject);`
	`procedure ActEingabenpruefenExecute(Sender: TObject);`
	`procedure ActMitgliedEinfuegenExecute(Sender: TObject);`
	`procedure BtLoeschenClick(Sender: TObject);`
	`procedure BtLeerenClick(Sender: TObject);`
	`procedure PLstWarteschlangeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`
	`procedure ActMitgliedLoeschenExecute(Sender: TObject);`
	`procedure BtGoogleMapsClick(Sender: TObject);`
	`procedure FormClose(Sender: TObject; var Action: TCloseAction);`
	`procedure ActFensterSchliessenExecute(Sender: TObject);`
	`procedure SetComboDropDownWidth(ComboBox: TComboBox; Width: Integer = -1);`
	`procedure ActBanknamenAendernExecute(Sender: TObject);`
	`procedure CBBankennamenSelect(Sender: TObject);`
	`procedure SetProjEinstDatei(p_strDateiname : string);`
	`procedure SetProjAnsDatei(p_strDateiname : string);`
	`procedure SetMitgliederliste(var p_pMitgliedLst : pMitgliedCollection; p_pMitglied : pMitgliedCollectionItem; p_iModus : integer);`
	`function GetEmailadresse : string;`

Beschreibung

Felder

	`PanelButtons: TPanel;`

	`PageControl: TPageControl;`

	`PersDaten: TTabSheet;`

	`ZusatzDaten: TTabSheet;`

	`GroupBox1: TGroupBox;`

	`GroupBox2: TGroupBox;`

	`GroupBox3: TGroupBox;`

	`GrpBoxBank: TGroupBox;`

	`EditVorname: TLabeledEdit;`

	`EditNachname: TLabeledEdit;`

	`EditStrasse: TLabeledEdit;`

	`EditPlz: TLabeledEdit;`

	`EditOrt: TLabeledEdit;`

	`EditTelefonFestnetz: TLabeledEdit;`

	`EditTelefonMobil: TLabeledEdit;`

	`EditFax: TLabeledEdit;`

	`EditEmail: TLabeledEdit;`

	`CBGeburtTag: TComboBox;`

	`CBGeburtMonat: TComboBox;`

	`CBGeburtJahr: TComboBox;`

	`Label1: TLabel;`

	`BtOk: TButton;`

	`BtAbbrechen: TButton;`

	`BtHilfe: TButton;`

	`CBAnrede: TComboBox;`

	`Label3: TLabel;`

	`CBMitgliedsnummer: TComboBox;`

	`Label7: TLabel;`

	`EditKontonummer: TLabeledEdit;`

	`EditBlz: TLabeledEdit;`

	`EditBIC: TLabeledEdit;`

	`EditIBAN: TLabeledEdit;`

	`EditHomepage: TLabeledEdit;`

	`Foto: TTabSheet;`

	`BtLaden: TButton;`

	`PageControlVerein: TPageControl;`

	`Eintritt: TTabSheet;`

	`Vereinsaemter: TTabSheet;`

	`Vorstand: TTabSheet;`

	`Sonstiges: TTabSheet;`

	`Label2: TLabel;`

	`Label4: TLabel;`

	`CBEintrittTag: TComboBox;`

	`CBEintrittMonat: TComboBox;`

	`CBEintrittJahr: TComboBox;`

	`CBAustrittTag: TComboBox;`

	`CBAustrittMonat: TComboBox;`

	`CBAustrittJahr: TComboBox;`

	`BtnAustrittHinzufuegen: TButton;`

	`PLstAustritt: TPieList;`

	`Label5: TLabel;`

	`BtnAustrittLoeschen: TButton;`

	`CBAmtTagv: TComboBox;`

	`CBAmtMonatv: TComboBox;`

	`CBAmtJahrv: TComboBox;`

	`CBAmtTagb: TComboBox;`

	`CBAmtMonatb: TComboBox;`

	`CBAmtJahrb: TComboBox;`

	`PLstAmt: TPieList;`

	`CBAmtHinzufuegen: TButton;`

	`CBAmtLoeschen: TButton;`

	`CBAmt: TComboBox;`

	`Label6: TLabel;`

	`Label8: TLabel;`

	`Label11: TLabel;`

	`Label9: TLabel;`

	`CBPosition: TComboBox;`

	`Label10: TLabel;`

	`Label12: TLabel;`

	`BtnPositionHinzufuegen: TButton;`

	`BtnPositionLoeschen: TButton;`

	`PLstPosition: TPieList;`

	`CBGruendungsmitglied: TCheckBox;`

	`CBEhrenmitglied: TCheckBox;`

	`Label13: TLabel;`

	`CBEhrenmitgliedTag: TComboBox;`

	`CBEhrenmitgliedMonat: TComboBox;`

	`CBEhrenmitgliedJahr: TComboBox;`

	`Bemerkungen: TLabel;`

	`MemBemerkung: TMemo;`

	`ScrollBoxFoto: TScrollBox;`

	`ImgFoto: TImage;`

	`BtnLoeschen: TButton;`

	`EditSpitzname: TLabeledEdit;`

	`CBBemerkung: TComboBox;`

	`CBVorstandTagv: TComboBox;`

	`CBVorstandMonatv: TComboBox;`

	`CBVorstandJahrv: TComboBox;`

	`CBVorstandTagb: TComboBox;`

	`CBVorstandMonatb: TComboBox;`

	`CBVorstandJahrb: TComboBox;`

	`CBStatus: TComboBox;`

	`Label14: TLabel;`

	`BtnExportieren: TButton;`

	`SavDlgFoto: TSaveDialog;`

	`OpDlgFoto: TOpenPictureDialog;`

	`Label15: TLabel;`

	`CBKontoinhaber: TComboBox;`

	`Label17: TLabel;`

	`RBBarzahlung: TRadioButton;`

	`RBUeberweisung: TRadioButton;`

	`RBLastschrift: TRadioButton;`

	`DatePickLastschrift: TDateTimePicker;`

	`LabLastschriftDatum: TLabel;`

	`BtImport: TButton;`

	`OpenImportDlg: TOpenDialog;`

	`PLstWarteschlange: TPieList;`

	`BtHinzu: TButton;`

	`BtAnwenden: TButton;`

	`Kontakt: TTabSheet;`

	`Bank: TTabSheet;`

	`BtLoeschen: TButton;`

	`ActionList1: TActionList;`

	`ActEingabenpruefen: TAction;`

	`ActMitgliedEinfuegen: TAction;`

	`BtLeeren: TButton;`

	`GrpBoxZahlungsweise: TGroupBox;`

	`ActMitgliedLoeschen: TAction;`

	`BtGoogleMaps: TButton;`

	`ActFensterSchliessen: TAction;`

	`Mitgliederbemerkungen: TTabSheet;`

	`CBAusweis: TCheckBox;`

	`ActBanknamenAendern: TAction;`

	`EdtBankname: TEdit;`

	`CBBankennamen: TComboBox;`

Methoden

	`procedure FormActivate(Sender: TObject);`

	`procedure FormCreate(Sender: TObject);`

	`procedure CBMitgliedsnummerChange(Sender: TObject);`

	`procedure CBGeburtJahrChange(Sender: TObject);`

	`procedure EditPlzChange(Sender: TObject);`

	`procedure EditTelefonFestnetzChange(Sender: TObject);`

	`procedure EditTelefonMobilChange(Sender: TObject);`

	`procedure EditFaxChange(Sender: TObject);`

	`procedure CBEintrittJahrChange(Sender: TObject);`

	`procedure CBAustrittJahrChange(Sender: TObject);`

	`procedure EditKontonummerChange(Sender: TObject);`

	`procedure EditBlzChange(Sender: TObject);`

	`procedure BtLadenClick(Sender: TObject);`

	`procedure CBEhrenmitgliedClick(Sender: TObject);`

	`procedure BtnLoeschenClick(Sender: TObject);`

	`procedure FormDestroy(Sender: TObject);`

	`procedure BtOkClick(Sender: TObject);`

	`procedure BtnAustrittHinzufuegenClick(Sender: TObject);`

	`procedure BtnAustrittLoeschenClick(Sender: TObject);`

	`procedure CBAmtHinzufuegenClick(Sender: TObject);`

	`procedure CBAmtLoeschenClick(Sender: TObject);`

	`procedure BtnPositionHinzufuegenClick(Sender: TObject);`

	`procedure BtnPositionLoeschenClick(Sender: TObject);`

	`procedure BtAbbrechenClick(Sender: TObject);`

	`procedure BtnExportierenClick(Sender: TObject);`

	`procedure CBAmtJahrvChange(Sender: TObject);`

	`procedure CBAmtJahrbChange(Sender: TObject);`

	`procedure CBVorstandJahrvChange(Sender: TObject);`

	`procedure CBVorstandJahrbChange(Sender: TObject);`

	`procedure CBEhrenmitgliedJahrChange(Sender: TObject);`

	`procedure BtHilfeClick(Sender: TObject);`

	`procedure CBBanknameChange(Sender: TObject);`

	`procedure RBBarzahlungClick(Sender: TObject);`

	`procedure RBUeberweisungClick(Sender: TObject);`

	`procedure RBLastschriftClick(Sender: TObject);`

	`procedure BtImportClick(Sender: TObject);`

	`procedure BtHinzuClick(Sender: TObject);`

	`procedure PLstWarteschlangeDblClick(Sender: TObject);`

	`procedure BtAnwendenClick(Sender: TObject);`

	`procedure ActEingabenpruefenExecute(Sender: TObject);`

	`procedure ActMitgliedEinfuegenExecute(Sender: TObject);`

	`procedure BtLoeschenClick(Sender: TObject);`

	`procedure BtLeerenClick(Sender: TObject);`

	`procedure PLstWarteschlangeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`

	`procedure ActMitgliedLoeschenExecute(Sender: TObject);`

	`procedure BtGoogleMapsClick(Sender: TObject);`

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

	`procedure ActFensterSchliessenExecute(Sender: TObject);`

	`procedure SetComboDropDownWidth(ComboBox: TComboBox; Width: Integer = -1);`

	`procedure ActBanknamenAendernExecute(Sender: TObject);`

	`procedure CBBankennamenSelect(Sender: TObject);`

procedure SetProjEinstDatei(p_strDateiname : string);

Diese Methode weist den Dateinamen den Projekteinstellungen zu

Parameter

p_strDateiname: Dateiname der Projektansichtsdatei

procedure SetProjAnsDatei(p_strDateiname : string);

Diese Methode weist den Dateinamen der Projektansicht zu

Parameter

p_strDateiname: Dateiname der Projektansichtsdatei

procedure SetMitgliederliste(var p_pMitgliedLst : pMitgliedCollection; p_pMitglied : pMitgliedCollectionItem; p_iModus : integer);

Diese Methode weist die Mitgliederliste zu (p_pMitglied Referenz auf das Mitglied=

Parameter

p_pMitgliedLst: Referenz auf die Mitgliederliste

p_iModus: Wenn p_iModus = 0, dann sollen die Daten geändert werden. Wenn p_iModus = 1, dann wird ein neues Mitglied hinzugefügt

function GetEmailadresse : string;

Diese Methode gibt die E-Mail-Adresse zurück

Result

E-Mail-Adresse

Erstellt mit PasDoc 0.12.1 am 2011-02-19 10:02:37