Delphi 7 - MSSQL - Progressbar

[onkel]

Hallo zusammen,
ich habe ein Datenbankmodul mit 5 Zugriffen auf verschiedene Tabellen innerhalb einer Datenbank, Zugriff erfolgt via ADODataSet.

Gibt es eine Möglichkeit nach dem Programmstart eine Progressbar einzublenden und dem User somit mitzuteilen, das die gesamten Datenbankinhalte erst gelesen werden.

Es dauert ungefähr 5-7 Sekunden, bis alle Datenbankzugriffe erfolgt sind, und sich dann das erste Formular öffnet.

Gruß
onkel

[Bernhard Geyer]

Such mal nach Splash-Screen Ich denke sowas war das passende.

[hoika]

Hallo,

ich habe dafür ein Form, welches von anderen Form benutzt werden kann.
Das Form hat ein paar public properties (sCaption, sInfo, ProgressBar)


Heiko

Delphi-Quellcode:

function TForm_Bla.LoadData(
  bReloadAllData: Boolean): Boolean;
var
  FrmStatus  : TForm_Status;
  WindowList : Pointer;
begin
  Result:= False;

  try
    FrmStatus:= CreateStatusForm;

    try
     { to make form "semimodal" }
      WindowList:= DisableTaskWindows(frmStatus.Handle);
      try
        // Formular anzeigen
        FrmStatus.Show;

        // Schleifenverarbeitung
        Repeat
         { 1, "Daten werden geladen"
           2, "Bitte haben Sie einen Moment Geduld" }
          FrmStatus.iCaption := 1;
          FrmStatus.iInfo    := 2;

          // Nachrichtenverarbeitung zulassen
          Application.ProcessMessages;

          Result:= InternalLoad(FrmStatus, bReloadAllData);

          break;
        // bis Verarbeitung fertig oder Benutzerabbruch
        until False;
      finally
        // Semi-Modalität aufheben
        EnableTaskWindows(WindowList);
        // Fenster verstecken
        FrmStatus.Hide;
      end;
    finally
      // Fenster wieder freigeben
      FrmStatus.Free;
    end;
  except
  end;
end;  { LoadData }

[onkel]

Danke für die Infos, werd mich mal dran probieren und mich wieder melden, falls ich noch Probleme habe!

Gruß
Onkel