unit sys_dm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ADODB;

type
  TFrm_sys_dm = class(TDataModule)
    Qr_tmp1: TADOQuery;
    Qr_tmp2: TADOQuery;
    Qr_tmp3: TADOQuery;
    Qr_tmpp: TADOQuery;
    SP_tmp1: TADOStoredProc;
    ADOCNT1: TADOConnection;
    Qr_tmppTermName: TStringField;
    Qr_tmppICno: TIntegerField;
    Qr_tmppICtype: TStringField;
    Qr_tmppGname: TStringField;
    Qr_tmppPayment: TBCDField;
    Qr_tmppJsss: TBCDField;
    Qr_tmppSYSJ: TBCDField;
    Qr_tmppSYJE: TBCDField;
    Qr_tmppDeposit: TBCDField;
    Qr_tmppGift: TBCDField;
    Qr_tmppLogin: TStringField;
    Qr_tmppGstate: TStringField;
    Qr_tmppaaa: TStringField;
    Qr_tmppLDatetime: TDateTimeField;
    QXTCS: TADODataSet;
    QEXEC: TADOQuery;
    procedure Qr_tmppaaaGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_sys_dm: TFrm_sys_dm;

  FUNCTION MYEXECSQL(S:STRING):BOOLEAN;
  FUNCTION openquery(q:tadoquery;S:STRING):integer;overload;
  FUNCTION openquery(q:tadodataset;S:STRING):integer;overload;
  function padl(s1:string;len:integer;s:string):string;

implementation

{$R *.DFM}

function padl(s1:string;len:integer;s:string):string;
begin
     result:=trim(s1);
     while length(result)<len do
        result:=s+result;
end;

FUNCTION MYEXECSQL(S:STRING):BOOLEAN;
BEGIN
     RESULT:=FALSE;
     FRM_SYS_DM.QEXEC.Close;
     FRM_SYS_DM.QEXEC.SQL.Clear;
     FRM_SYS_DM.QEXEC.SQL.ADD(S);
     TRY
        FRM_SYS_DM.QEXEC.ExecSQL;
     EXCEPT
        EXIT;
     END;
     RESULT:=TRUE;
END;

FUNCTION openquery(q:tadoquery;S:STRING):integer;overload;
begin
     result:=-1;
     q.close;
     if trim(s)<>'' then begin
        q.SQL.clear;
        q.SQL.Add(s);
     end;
     try
        q.Open;
     except
        exit;
     end;
     result:=q.RecordCount;
end;
FUNCTION openquery(q:tadodataset;S:STRING):integer;overload;
begin
     result:=-1;
     q.close;
     if trim(s)<>'' then
        q.CommandText:=s;
     try
        q.Open;
     except
        exit;
     end;
     result:=q.RecordCount;
end;

procedure TFrm_sys_dm.Qr_tmppaaaGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if (trim(Qr_tmpp.FieldByName('Gstate').Asstring)='上機') and (now > (Qr_tmpp.FieldByName('Ldatetime').AsDateTime + 3/(24*60))) then
      text := '異常' ;
  if (trim(Qr_tmpp.FieldByName('Gstate').Asstring)='上機') and (now < (Qr_tmpp.FieldByName('Ldatetime').AsDateTime + 3/(24*60))) then
      text := '正常' ;

end;

end.