kq_qqdj.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit Kq_Qqdj;

interface

uses Kq_QqdjE,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, MyGrid, FormStore, TimeIntField,
  ComCtrls, AdoCodeEd, MacroQuery, StoreForm, ADOQry, ADODB, AdoMacroQry;

type
  TfrmKq_Qqdj = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdQianKa9: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    cmdQianKa1: TBitBtn;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    Label3: TLabel;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cedDept: TAdoCodeEd;
    cmdQuery: TBitBtn;
    Label5: TLabel;
    cedEmp: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryBrowseID: TIntegerField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    cmdEdit: TBitBtn;
    cmdDel: TBitBtn;
    qryBrowseEmpID: TIntegerField;
    qryEmpState: TSmallintField;
    qryBrowsesQqType: TStringField;
    qryBrowseQ0Date: TDateTimeField;
    qryBrowseQqType: TStringField;
    qryBrowseQ1Date: TDateTimeField;
    qryBrowseQqDays: TIntegerField;
    qryBrowseQqHours: TFloatField;
    qryBrowseWjbh: TStringField;
    qryBrowseQsr: TStringField;
    qryBrowseCzy: TStringField;
    qryBrowseNote: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowseQ0Time: TTimeIntField;
    qryBrowseQ1Time: TTimeIntField;
    panQqSj: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    qryBrowsePyDate: TDateTimeField;
    qryBrowsesZhiWu: TStringField;
    RadioButton4: TRadioButton;
    edDays: TEdit;
    Label4: TLabel;
    cboQqType: TDBLookupComboBox;
    qryQqType: TADOQry;
    DataSource2: TDataSource;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdQianKa9Click(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQianKa1Click(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cedEmpCodeChange(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure edDaysEnter(Sender: TObject);
  private
    { Private declarations }
    dlgKq_QqdjE :TfrmKq_QqdjE;
  public
    { Public declarations }
  end;

var
  frmKq_Qqdj: TfrmKq_Qqdj;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

procedure TfrmKq_Qqdj.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmKq_Qqdj.cmdQianKa9Click(Sender: TObject);
begin
	if dlgKq_QqdjE.QkByBacth() then
    	RefreshQuery(qryBrowse);
end;

procedure TfrmKq_Qqdj.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt('叫安癘魁', qryBrowse
    	,['癬﹍ら戳', dpDate0.Date
         ,'沧ゎら戳', dpDate1.Date]);
end;

procedure TfrmKq_Qqdj.cmdEditClick(Sender: TObject);
begin
	if qryBrowse.IsEmpty then MessageBeep(0)
	else if dlgKq_QqdjE.Edit(qryBrowseID.Value)
    	then RefreshQuery(qryBrowse);
end;

procedure TfrmKq_Qqdj.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

	dlgKq_QqdjE :=TfrmKq_QqdjE.Create(Self);

    dpDate0.Date :=Date() -10;
    dpDate1.Date :=Date() +1;
    qryQqType.Open;
    cboQqType.KeyValue :='__';
    cmdQuery.OnClick(nil);
end;

procedure TfrmKq_Qqdj.cmdQianKa1Click(Sender: TObject);
begin
	if dlgKq_QqdjE.QkByEmp() then
    	RefreshQuery(qryBrowse);
end;

procedure TfrmKq_Qqdj.cmdQueryClick(Sender: TObject);
var tsWhere :string;
begin
	tsWhere :=Format('( (Q.Q0Date BETWEEN ''%s'' AND ''%s'')'
    			+' or (''%s'' BETWEEN Q.Q0Date AND Q.Q1Date) )',
    	[DateToStr(dpDate0.Date), DateToStr(dpDate1.Date)
        ,DateToStr(dpDate0.Date)]);
    if cedEmp.CodeText <>'' then tsWhere :=tsWhere +' AND '
    	+Format('Q.EmpID =%d', [qryEmpID.Value])
    else if cedDept.CodeText <>'' then tsWhere :=tsWhere +' AND '
    	+Format('E.Dept LIKE ''%s%%''', [cedDept.CodeText])
    else if frmMain.czyQxDept <>'' then tsWhere :=tsWhere +' AND ' //场