kq_outin.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 109 行

unit Kq_OutIn;

interface

uses MultiFilter, 
  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, ADOQry, StoreForm, ADODB, AdoMacroQry;

type
  TfrmKq_OutIn = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cmdQuery: TBitBtn;
    Label5: TLabel;
    cedEmpCode: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryEmpState: TSmallintField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseOutTime: TDateTimeField;
    qryBrowseInTime: TDateTimeField;
    qryBrowseWaiChuSj: TIntegerField;
    qryBrowseDept: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowsesZhiWu: TStringField;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TMyGrid;
    MyGrid1: TMyGrid;
    qrySum: TAdoMacroQry;
    DataSource2: TDataSource;
    qrySumEmpID: TIntegerField;
    qrySumCode: TStringField;
    qrySumName: TStringField;
    qrySumWaiChuSj: TIntegerField;
    qrySumDept: TStringField;
    qrySumDeptName: TStringField;
    qrySumsZhiWu: TStringField;
    qrySumOutCs: TIntegerField;
    qrySumInCs: TIntegerField;
    panState: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    cmdFilter: TBitBtn;
    qryFOutIn: TADOQry;
    qryFOutInOutTime: TTimeIntField;
    qryFOutInInTime: TTimeIntField;
    qryFOutInWaiChuSj: TIntegerField;
    qryFOutInDept: TStringField;
    Label3: TLabel;
    cedDept: TAdoCodeEd;
    RadioButton3: TRadioButton;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cedEmpCodeGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure oPagesChange(Sender: TObject);
    procedure cedEmpCodeCodeChange(Sender: TObject);
    procedure cmdFilterClick(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
    dlgMultiFilter :TfrmMultiFilter;
  public
    { Public declarations }
  end;

var
  frmKq_OutIn: TfrmKq_OutIn;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmKq_OutIn.cmdPrintClick(Sender: TObject);
begin
	if oPages.ActivePageIndex =0 then
	  frmRptExcel.PrintRpt(Self.Caption+'-