sqlbrowser10.dpr

很久以前用delphi写的一个SQLServer外部的企业管理器

program SQLBrowser10;

uses
  Forms,
  Windows,
  MainUnit in 'MainUnit.pas' {SQLBrowseManager},
  SQLEdit in 'SQLEdit.pas' {SQLEditForm},
  XADOEX in 'XADOEX.pas',
  ShowStruct in 'ShowStruct.pas' {TableStructForm},
  XString in '公共函数单元\XString.pas',
  ProcForm in 'ProcForm.pas' {ProcView},
  FlushUnit in 'FlushUnit.pas' {FlushForm},
  marquee in 'MARQUEE.PAS',
  xProcs in 'XPROCS.PAS';

{$R *.res}
procedure FlashLoop;
var
  StartTick: integer;
begin
  StartTick := GetTickCount;
  while true do
  begin
    if (GetTickCount-StartTick)>2000 then
    begin
      exit;
      StartTick := GetTickCount;
    end;
    Application.ProcessMessages;
  end;
end;


begin
  FlushForm:=TFlushForm.Create(nil);
  Flushform.Show;
  Flushform.Update;
  FlashLoop;
  
  Application.Initialize;
  Application.Title := 'SQLBrowser';
  Application.CreateForm(TSQLBrowseManager, SQLBrowseManager);
  Flushform.Free;
  Application.Run;
end.