进度条来判断是否连上sql server？

Question

程序启动时想启动个进度条判断是否连通sql server数据库。
怎么办？
有没有原代码？谢谢。

Answer 1

program DL;uses
  Forms,
  Main in 'Main.pas' {Fmmain},
  Sxck in 'Sxck.pas' {Fmsx},
  Dlck in 'Dlck.pas' {Fmdl},
  DEMO in 'DEMO.pas' {DMO: TDataModule};{$R *.res}begin
  Application.Initialize;
  with TFmsx.Create(nil) do
  try
    ProgressBar1.Max := 100;
    Show;
    Update;
    ProgressBar1.StepBy(20);
    Application.CreateForm(TDMO, DMO);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFmdl, Fmdl);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFmmain, Fmmain);
    ProgressBar1.StepBy(60);
  finally
    Free;
  end;
  Application.Run;
end.

Answer 2

楼上的大哥，我没看懂，对不起，有点笨。。
TFmsx是什么？