?? sqlbrowser10.dpr
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -