Programmstart dauert lange

[Drumbo]

Moin

Ja war ein wenig dürftig die Erklärung. Sorry an dieser Stelle.
@ Perlsau: Also an zu aufwendigen Rechenoperationen oder an der Festplatte wird es nicht liegen. Aber ich Tippe darauf, dass ich zu viele Daten auf einmal aufrufe.

@dataspider:
Hier ist der Anfang meiner Main_form:

Delphi-Quellcode:

unit Main_form;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Data.DB, Data.Win.ADODB,
  Vcl.StdCtrls, AdvDBLookupComboBox, AdvGlassButton, AdvSmoothSplashScreen,
  Vcl.ComCtrls, AdvPicture, DBAdvPicture, Vcl.Mask,dateutils, Vcl.DBCtrls, Vcl.ExtCtrls,Vcl.DBGrids,
  Vcl.Grids, AdvObj, BaseGrid, AdvGrid, DBAdvGrid, Vcl.Buttons, TaskDialog,
  Planner, DBPlanner, PlanItemEdit, AdvMenus, AdvToolBar, AdvPanel;

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    Stammdaten1: TMenuItem;
    Kuned1: TMenuItem;
    ADOConnection1: TADOConnection;
    Lieferant1: TMenuItem;
    Auftrag1: TMenuItem;
    Auftragsuchenbearbeiten1: TMenuItem;
    Auftrag2: TMenuItem;
    Optionen_dataset: TADODataSet;
    echniker1: TMenuItem;
    K1: TMenuItem;
    Gertearten1: TMenuItem;
    Vorschriften1: TMenuItem;
    Ge1: TMenuItem;
    Artikel1: TMenuItem;
    Geraete1: TMenuItem;
    Panel1: TPanel;
    Techniker_pic: TDBAdvPicture;
    StatusBar1: TStatusBar;
    Techniker_Anmelde_dataset: TADODataSet;
    Techniker_Anmelde_Source: TDataSource;
    Label1: TLabel;
    Dokumente1: TMenuItem;
    tigkeiten1: TMenuItem;
    Bestellung1: TMenuItem;
    Warteschlange1: TMenuItem;
    Messmittel1: TMenuItem;
    KFZ1: TMenuItem;
    Optionen1: TMenuItem;
    Optionen_datasetnr: TGuidField;
    Optionen_datasetRechner: TWideStringField;
    Optionen_datasetrechnernr: TIntegerField;
    Optionen_datasetAuftrag_nr: TIntegerField;
    Optionen_datasetRechnung_nr: TIntegerField;
    Optionen_datasetBestell_nr: TIntegerField;
    Optionen_datasetmwst: TFloatField;
    Optionen_datasettest_nr: TIntegerField;
    Optionen_datasetpfad_zu_service50: TWideStringField;
    Optionen_datasetReparatur_nr: TIntegerField;
    Optionen_datasetHost: TWideStringField;
    Optionen_datasetLogin: TWideStringField;
    Optionen_datasetPasswort: TWideStringField;
    Optionen_datasetproject_nr: TIntegerField;
    Optionen2: TMenuItem;
    Berichtgenerator1: TMenuItem;
    Rechnng1: TMenuItem;
    optionen_source: TDataSource;
    Wareneingang1: TMenuItem;
    RechnungSchreiben1: TMenuItem;
    ErledigteBestellungen1: TMenuItem;
    AdvSmoothSplashScreen1: TAdvSmoothSplashScreen;
    RechnungExport1: TMenuItem;
    EMail1: TMenuItem;
    elektrischeSicherheit1: TMenuItem;
    Prfvorschriften1: TMenuItem;
    AdvInputTaskDialog1: TAdvInputTaskDialog;
    Planung1: TMenuItem;
    Techniker_Anmelde_datasetnr: TGuidField;
    Techniker_Anmelde_datasetName: TStringField;
    Techniker_Anmelde_datasetVorname: TStringField;
    Techniker_Anmelde_datasetOrt: TStringField;
    Techniker_Anmelde_datasettel: TStringField;
    Techniker_Anmelde_datasetFax: TStringField;
    Techniker_Anmelde_datasetemail: TStringField;
    Techniker_Anmelde_datasettelpriv: TStringField;
    Techniker_Anmelde_datasetbild: TBlobField;
    Techniker_Anmelde_datasetEmail_Handy: TStringField;
    Techniker_Anmelde_datasetDurchwahl: TStringField;
    Techniker_Anmelde_datasetFestnetz_Handy_Nr: TStringField;
    Techniker_Anmelde_datasetTankKarte: TStringField;
    Techniker_Anmelde_datasetHandy_Nr: TStringField;
    Techniker_Anmelde_datasetAnmeldename: TStringField;
    Techniker_Anmelde_datasetTitel: TStringField;
    DBEdit4: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    Techniker_Anmelde_datasetid: TIntegerField;
    DBPlanner1: TDBPlanner;
    Kalender_dataset: TADODataSet;
    Kalender_source: TDataSource;
    DBActiveDaySource1: TDBActiveDaySource;
    AdvPicture1: TAdvPicture;
    DefaultItemEditor1: TDefaultItemEditor;
    Kalender_datasetnr: TGuidField;
    Kalender_datasetStartzeit: TDateTimeField;
    Kalender_datasetendzeit: TDateTimeField;
    Kalender_datasetCaption: TStringField;
    Kalender_datasetcolor: TStringField;
    Kalender_datasetnotes: TStringField;
    Kalender_datasetsubject: TStringField;
    Kalender_datasetresource: TIntegerField;
    Kalender_datasetrep_nr: TStringField;
    Kalender1: TMenuItem;
    echnikerKalender1: TMenuItem;
    Kalender: TAdvPopupMenu;
    Reparaturauftrag: TMenuItem;
    DBTimeLineSource1: TDBTimeLineSource;
    AdvPanel1: TAdvPanel;
    AdvToolBar1: TAdvToolBar;
    AdvToolBarMenuButton1: TAdvToolBarMenuButton;
    AdvToolBarMenuButton2: TAdvToolBarMenuButton;
    auftra_log_dataset: TADODataSet;
    auftrag_log_source: TDataSource;
    AdvToolBarButton1: TAdvToolBarButton;
    PrinterSetupDialog1: TPrinterSetupDialog;
    AdvToolBarSeparator1: TAdvToolBarSeparator;
    AdvToolBarButton2: TAdvToolBarButton;
    AdvGlassButton1: TAdvGlassButton;
    e1: TMenuItem;
    auftra_log_datasetnr: TGuidField;
    auftra_log_datasetVorgang: TMemoField;
    auftra_log_datasetEmpfaenger: TStringField;
    auftra_log_datasetTechniker: TStringField;
    auftra_log_datasetrepnr: TGuidField;
    auftra_log_datasettimestamp: TDateTimeField;
    auftra_log_datasetRechner: TStringField;
    auftra_log_datasetTechnikerid: TIntegerField;
    Rechnungenbearbeiten1: TMenuItem;
    Passwort: TAdvInputTaskDialog;
    procedure Kuned1Click(Sender: TObject);
    procedure Lieferant1Click(Sender: TObject);
    procedure AdvGlassButton1Click(Sender: TObject);
    procedure Auftragsuchenbearbeiten1Click(Sender: TObject);
    procedure echniker1Click(Sender: TObject);
    procedure Gertearten1Click(Sender: TObject);
    procedure Auftragbersicht1Click(Sender: TObject);
    procedure Ge1Click(Sender: TObject);
    procedure Artikel1Click(Sender: TObject);
    procedure Geraete1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Dokumente1Click(Sender: TObject);
    procedure tigkeiten1Click(Sender: TObject);
    procedure Warteschlange1Click(Sender: TObject);
    procedure Messmittel1Click(Sender: TObject);
    procedure KFZ1Click(Sender: TObject);
    procedure Optionen2Click(Sender: TObject);
    procedure Berichtgenerator1Click(Sender: TObject);
    procedure Wareneingang1Click(Sender: TObject);
    procedure ErledigteBestellungen1Click(Sender: TObject);
    procedure RechnungSchreiben1Click(Sender: TObject);
    procedure Auftrag2Click(Sender: TObject);
    procedure RechnungExport1Click(Sender: TObject);
    procedure EMail1Click(Sender: TObject);
    procedure elektrischeSicherheit1Click(Sender: TObject);
    procedure Prfvorschriften1Click(Sender: TObject);
    procedure AdvInputTaskDialog1DialogButtonClick(Sender: TObject;
      ButtonID: Integer);
    procedure Planung1Click(Sender: TObject);
    procedure AdvInputTaskDialog1DialogClose(Sender: TObject;
      var CanClose: Boolean);
    procedure KalenderClick(Sender: TObject);
    procedure DBActiveDaySource1ItemToFields(Sender: TObject; Fields: TFields;
      Item: TPlannerItem);
    procedure echnikerKalender1Click(Sender: TObject);
    procedure ReparaturauftragClick(Sender: TObject);
    procedure AdvToolBarMenuButton1Click(Sender: TObject);
    procedure AdvToolBarMenuButton2Click(Sender: TObject);
    procedure AdvToolBarButton1Click(Sender: TObject);
    procedure AdvToolBarButton2Click(Sender: TObject);
    procedure e1Click(Sender: TObject);
    procedure Rechnungenbearbeiten1Click(Sender: TObject);
    procedure AdvPicture1Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
  public
  GlobalAdmin,autorisiert:Boolean;
  button:integer;

  end;

var
  Main: TMain;
  UserName,query1,query2,bestellstatus,bestellstatus2,FensterStat:string;
  function GetUsername: string;

implementation

{$R *.dfm}

uses Kunden, lieferant , Auftrag, Auftrag_uebersicht, Techniker, Geraeteart,
  vorschrift_formular,Artikel, Geraetetyp, Geraete, Dokumentation, Tätigkeiten,
  Warteschlange, Messmittel, KFZ, Options, Auftrag_liste, artikel_suchen,
  Rechnung, Geraet_suchen, Rechnung_export, Geraetetypen_suchen_form, Email,
  elektrischesicherheit,AuftragsDatenModul, Planung, Kalender, Gruppenkalender,
  vorschrift_elektrische_Sicherheit, rechnungen,Rechnungen_bearbeiten;

Ein Beispielhafter Aufruf:

Delphi-Quellcode:

procedure TMain.Auftrag2Click(Sender: TObject);
begin
Auftrag_form.show ;
end;

Die uses Klausel sorgt, meines Wissens nach dafür, dass die Units alle Erzeugt werden.
Das würde ja dann deine Vermutung stützen.
Das mache ich, weil aus dem Main_Form heraus alle anderen Units aufgerufen werden müssen.
Gibt es einen anderen Weg das Erzeugen zu einem späteren Zeitpunkt zu veranlassen?

@Bernhard Geyer:
Ne die Property Eigenschaft "Active" habe ich überall auf "False" gesetzt. Diese wird auf "True" geschaltet sobald das Formular in welcher die DataSet benötigt wird, geöffnet wird. Also sobald das Ereignis "OnShow" des Formulars angetriggert wird.


@Badenpower:
Ja ich habe eine AdoConnection welche sich auch beim Start verbindet. Die Datenbank und die zu Ihr gehörenden Tabellen werden jedoch faktisch in jedem Formular benötigt. Auch schon auf dem Main_form ist eine Dataset in Benutzung.

Hoffe die Informationen helfen weiter