global.pas

来自「DBchart的高级使用」· PAS 代码 · 共 53 行

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.