?? global.pas
字號:
unit Global;
interface
uses
SysUtils, Forms, Messages, Windows, Classes, Controls, StdCtrls, ExtCtrls
,DBTables;
var
readertype:integer;
procedure InfoMessage(msg : String);
procedure ErrorMessage(msg : String);
Function TableExist(TableName:string):boolean;
implementation
Function TableExist(TableName:string):boolean;
var
aQuery:TQuery;
begin
Result:=true;
aQuery:=TQuery.Create(nil);
aQuery.DatabaseName:= 'electionprj';
aQuery.SQL.Clear;
aQuery.SQL.add('Select * from '+TableName);
try
aQuery.Open;
except
Result:=false;
end;
aQuery.Close;
aQuery.Free;
end;
procedure InfoMessage(msg : String);
var
tmp_pstr : array[0..254] of Char;
begin
StrPCopy(tmp_pstr, msg);
Application.MessageBox(tmp_pstr, '提示', MB_ICONINFORMATION);
end;
procedure ErrorMessage(msg : String);
var
tmp_pstr : array[0..254] of Char;
begin
StrPCopy(tmp_pstr, msg);
Application.MessageBox(tmp_pstr, '警告', MB_ICONINFORMATION);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -