Vorfahr-Formular Fehlermeldung

[Snyderburn]

Zitat von mkinzler:

Zeig mal die Klassendeklaration

Ich bin gerade nicht sicher, was die Klassendeklaration ist, aber ich denke, dass es die folgende sein müsste.

Delphi-Quellcode:

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Datenbank1: TMenuItem;
    UserDatenbankanzeigen1: TMenuItem;
    Antragstypenanzeigen1: TMenuItem;
    DBGrid1: TDBGrid;
    FilterGroupBox: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FilterCombo: TComboBox;
    FromToRadio: TRadioButton;
    ExactRadio: TRadioButton;
    MinFilter: TEdit;
    ExactFilter: TEdit;
    MaxFilter: TEdit;
    FilterActive: TCheckBox;
    OnlyFinishedRadio: TRadioButton;
    OnlyOpenRadio: TRadioButton;
    SearchGroupBox: TGroupBox;
    Label3: TLabel;
    Label7: TLabel;
    SearchCombo: TComboBox;
    SearchField: TEdit;
    SearchButtons: TButton;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    UserName: TEdit;
    AntragName: TEdit;
    SubmitChangesButton: TButton;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBEdit1: TDBEdit;
    InDate: TDateTimePicker;
    ToDate: TDateTimePicker;
    FinishedDate: TDateTimePicker;
    PrioCombo: TComboBox;
    AufwandCombo: TComboBox;
    ItemDone2Button: TButton;
    UACheckBox: TCheckBox;
    SoftwareCheckBox: TCheckBox;
    CitrixCheckBox: TCheckBox;
    DBComboBox1: TDBComboBox;
    TypeGroupBox: TGroupBox;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    NewCitrixButton: TToolButton;
    NewSoftwareButton: TToolButton;
    NewUserButton: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Label16: TLabel;
    GroupBox1: TGroupBox;
    AllItemsRadio: TRadioButton;
    ShowUserButton: TToolButton;
    ShowDetailsButton: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Neu1: TMenuItem;
    UserAntrag1: TMenuItem;
    OverRadio: TRadioButton;
    Days_over: TSpinEdit;
    Label17: TLabel;
    ExcelFileerzeugen1: TMenuItem;
    SaveDialog1: TSaveDialog;
    Label18: TLabel;
    PDFShowButton: TBitBtn;
    PDFChangeButton: TBitBtn;
    MitDatenbankverbinden1: TMenuItem;
    Datenbanktrennen1: TMenuItem;
    StatusBar1: TStatusBar;
    CloseDetails: TBitBtn;
    DBComboBox2: TDBComboBox;
    BitBtn1: TBitBtn;
    PDFLink: TMemo;
    AntragDetails: TPanel;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    ReportButton: TToolButton;
    ToolButton7: TToolButton;
    ToolButton10: TToolButton;
    ImageList2: TImageList;
    ImageList3: TImageList;
    Label19: TLabel;
    ErfasstEdit: TEdit;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    U1: TMenuItem;
    User1: TMenuItem;
    ListBox1: TListBox;
    StatusBar2: TStatusBar;
    PopupMenu1: TPopupMenu;
    Kopieren1: TMenuItem;
    sendMailButton: TButton;
    PageControl1: TPageControl;
    TabelleTab: TTabSheet;
    DetailsTab: TTabSheet;
    eMailTab: TTabSheet;
    eMailForm1: TeMailForm;
    Panel1: TPanel;
    NewItemTab: TTabSheet;
    Panel2: TPanel;
    RightsTab: TTabSheet;
    BerechtigungenForm1: TBerechtigungenForm;
    Panel3: TPanel;
    ItemFrame1: TItemFrame;
    UserTab: TTabSheet;
    Panel4: TPanel;
    UserForm1: TUserForm;
    AntragstypenTab: TTabSheet;
    Panel5: TPanel;
    AntragstypenForm1: TAntragstypenForm;
    procedure Beenden1Click(Sender: TObject);
    procedure NewUserButtonClick(Sender: TObject);
    procedure UserDatenbankanzeigen1Click(Sender: TObject);
    procedure FilterActiveClick(Sender: TObject);
    procedure SearchButtonsClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ShowUserButtonClick(Sender: TObject);
    procedure CloseDetailsClick(Sender: TObject);
    procedure ShowDetailsButtonClick(Sender: TObject);
    procedure UACheckBoxClick(Sender: TObject);
    procedure ItemDoneButtonClick(Sender: TObject);
    procedure Antragstypenanzeigen1Click(Sender: TObject);
    procedure ExcelFileerzeugen1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure PDFChangeButtonClick(Sender: TObject);
    procedure PDFShowButtonClick(Sender: TObject);
    procedure MitDatenbankverbinden1Click(Sender: TObject);
    procedure Datenbanktrennen1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SubmitChangesButtonClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure User1Click(Sender: TObject);
    procedure Kopieren1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure sendMailButtonClick(Sender: TObject);
    procedure ItemFrame1Button4Click(Sender: TObject);
    procedure ItemFrame1SubmitButtonClick(Sender: TObject);
    procedure ItemFrame1ASFromDBButtonClick(Sender: TObject);
    procedure ItemFrame1UserFromDBButtonClick(Sender: TObject);
    procedure ItemFrame1NewUserButton1Click(Sender: TObject);
    procedure ItemFrame1PDFLinkButtonClick(Sender: TObject);
    procedure ItemFrame1SpeedButton1Click(Sender: TObject);
    procedure ItemFrame1SpeedButton2Click(Sender: TObject);
    procedure ItemFrame1StandardsBoxClickCheck(Sender: TObject);
    procedure eMailForm1SendMailButtonClick(Sender: TObject);
    procedure eMailForm1Button1Click(Sender: TObject);
    procedure eMailForm1Button2Click(Sender: TObject);
    procedure ReportButtonClick(Sender: TObject);
  private
    { Private-Deklarationen }
    function StatistikAktualisieren(Typ,Status:Integer): Integer;
    function IsDate(str: string): Boolean;
    function Rights(account:string):Integer;
    function GetBearbeitungszeit(Typ:Integer):Double;
    procedure DetailsAktualisieren;
    procedure SendEmail;
  public
    { Public-Deklarationen }
    RightManagement : Integer;
    user : Array[0..127] of Char;
    procedure FussZeileEditieren;
    procedure MouseWheelHandler(var Message : TMessage); override;
    procedure StatistikZeileAktualisieren;
    procedure AntragQueryRenew;
  end;

var
  MainForm: TMainForm;