ufrmqdshow.~pas

一个会议签到系统

unit uFrmQDShow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB;

type
  TFrmQDShow = class(TForm)
    Panel8: TPanel;
    Image6: TImage;
    Label6: TLabel;
    Shape20: TShape;
    Shape21: TShape;
    Shape24: TShape;
    Image7: TImage;
    Panel1: TPanel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Panel2: TPanel;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    DBImage1: TDBImage;
    Shape14: TShape;
    Label7: TLabel;
    Panel4: TPanel;
    LblBT: TLabel;
    FontDialog1: TFontDialog;
    Shape15: TShape;
    Label8: TLabel;
    Shape16: TShape;
    Label9: TLabel;
    Shape17: TShape;
    Timer1: TTimer;
    Label10: TLabel;
    Shape18: TShape;
    EdtKH: TEdit;
    LblCtRenA: TLabel;
    LblCtRenB: TLabel;
    Timer2: TTimer;
    LblRenA: TLabel;
    LblRenB: TLabel;
    LblRenC: TLabel;
    LblRenD: TLabel;
    LblRenE: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label11: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure LblBTDblClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure EdtKHKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private

    { Private declarations }
  public
    sSYSHYBM,sSYSHYMC:String;
     Procedure PRenInit();
     Procedure PcountQDRS();
    { Public declarations }
  end;

var
  FrmQDShow: TFrmQDShow;

implementation

uses uDMOA, uDataOA, uFunSys;
{$R *.dfm}

procedure TFrmQDShow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  FrmQDShow:=nil;  
end;

procedure TFrmQDShow.LblBTDblClick(Sender: TObject);
begin
  FontDialog1.Font:=LblBT.Font;
  if FontDialog1.Execute then LblBT.Font:=FontDialog1.Font;     
end;

procedure TFrmQDShow.PRenInit;
var
  Str:String;
begin
  Str:='Select * from TAD03_HYCJR Where sHYBM ='+''''+sSYSHYBM+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  LblCtRenA.Caption:=IntToStr(DMOA.ADOQry.RecordCount);
end;

procedure TFrmQDShow.Timer1Timer(Sender: TObject);
begin
  if EdtKH.CanFocus then begin
     EdtKH.SetFocus;
  end;
end;

procedure TFrmQDShow.Timer2Timer(Sender: TObject);
begin
  PcountQDRS();
end;

procedure TFrmQDShow.EdtKHKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Str,SV,sID,sDateYMD,sDateHMS:String;  
begin
  if Key <> 13 then Exit;
  SV:='Select B.*,A.sFZ,A.sHYBM,A.sCHLB,A.sZC from TAD03_HYCJR A,TBD01_RYXX B Where A.ID = B.sFZID';
  Str:='Select * from ('+sV+') A  Where A.sHYBM = '+''''+sSYSHYBM+''''
      +' And sKH ='+''''+EdtKH.Text+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  LblRenA.Caption:=Trim(DMOA.ADOQry.FieldByName('sMC').AsString);
  LblRenB.Caption:=Trim(DMOA.ADOQry.FieldByName('sJB').AsString);
  LblRenC.Caption:=Trim(DMOA.ADOQry.FieldByName('sCHLB').AsString);
  LblRenD.Caption:=Trim(DMOA.ADOQry.FieldByName('sFZ').AsString);
  LblRenE.Caption:=Trim(DMOA.ADOQry.FieldByName('sZC').AsString);

  sID:=Trim(DMOA.ADOQry.FieldByName('sFZID').AsString);
  if sID = '' then begin
     EdtKH.Text:=''; 
     Exit;
  end;
  Str:=Trim(DMOA.ADOQry.FieldByName('sZT').AsString);
  if Str <> '启用' then begin
     EdtKH.Text:='非法卡';
     Exit;  
  end;

  Str:='Select * from TBD01_RYTX Where FZID ='+''''+sID+'''';
  FCarryOutSQL(ADOQuery1,Str,True);
  Str:=FGetServerDateYMDHS();
  sDateYMD:=MyCutString(True,Str);
  sDateHMS:=MyCutString(False,Str);
  Str:='Select * from TAD01_KQJL Where sHYBM = '+''''+sSYSHYBM+''''
      +' And  FZID ='+''''+sID+''''
      +' And  sDateYMD IS not NULL';
  if FGetSQLRecordCount(Str) > 0 then begin
     Label11.Caption:=LblRenA.Caption+'  已经签到';
     EdtKH.Text:='';
     Exit;     
  end;       

  Str:='Update TAD01_KQJL Set '
      +'sDateYMD = '+''''+sDateYMD+''''
      +',sDateHMS = '+''''+sDateHMS+''''
      +',sSFQD =''是'''
      +' Where sHYBM = '+''''+sSYSHYBM+''''
      +' And  FZID ='+''''+sID+''''
      +' And  sDateYMD IS NULL';
  if FCarryOutSQL(nil,Str,False) then Label11.Caption:=LblRenA.Caption+'  签到成功';  
  EdtKH.Text:='';
  PcountQDRS();    
end;

procedure TFrmQDShow.PcountQDRS;
var
  Str:String;
  I:Integer;
begin
  Str:='Select *  from  TAD01_KQJL Where sDateYMD IS not NULL'
      +' And sHYBM = '+''''+sSYSHYBM+'''';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  I:=DMOA.ADOQry.RecordCount; 
  LblCtRenB.Caption:=IntToStr(I);   
end;

procedure TFrmQDShow.FormShow(Sender: TObject);
begin
  LblRenA.Caption:='';  LblRenB.Caption:='';  LblRenC.Caption:='';
  LblRenD.Caption:='';  LblRenE.Caption:='';
  Timer2.Enabled:=True;
  Timer1.Enabled:=True;     
end;

end.