chadoutils.pas

定时提醒程序

unit CHADOUtils;

interface
uses Windows, Messages, SysUtils, Forms, Variants, Classes, ADODB, DB;

function OpenSQL(query: TADOQuery; sql: string): Boolean;
function ExecSQL(query: TADOQuery; sql: string): Integer;
procedure SetFloatFormat(query: TADOQuery; format: string);
procedure RefreshQuery(query: TADOQuery);


implementation

function OpenSQL(query: TADOQuery; sql: string): Boolean;
begin
  query.DisableControls;
  query.Close;
  query.SQL.Text := sql;
  query.Open;
  query.EnableControls;
  result := query.Eof;
end;

function ExecSQL(query: TADOQuery; sql: string): Integer;
begin
  query.Close;
  query.SQL.Text := sql;
  Result := query.ExecSQL;
end;

procedure SetFloatFormat(query: TADOQuery; format: string);
var i:Integer;
begin
  for i:=0 to query.FieldCount-1 do begin
    if query.Fields[i].DataType = ftFloat then
      TFloatField(query.Fields[i]).DisplayFormat := format;
  end;
end;

procedure RefreshQuery(query: TADOQuery);
begin
  query.Close;
  query.Open;
end;
end.