e_pxjh.pas

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

unit E_Pxjh;

interface

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

type
  TfrmE_Pxjh = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    cmdQuery: TBitBtn;
    cmdEdit: TBitBtn;
    cmdDel: TBitBtn;
    qryBrowse: TADOQry;
    qryBrowseNote: TStringField;
    cmdAdd: TBitBtn;
    qryBrowseDate0: TDateTimeField;
    qryBrowseDate1: TDateTimeField;
    qryBrowsePxjc: TStringField;
    qryBrowseJiHuaRs: TIntegerField;
    qryBrowsesPxjc: TStringField;
    qryBrowseCode: TStringField;
    MyGrid1: TMyGrid;
    Splitter1: TSplitter;
    qryPxjhMx: TADOQry;
    DataSource2: TDataSource;
    qryPxjhMxEmpID: TIntegerField;
    qryPxjhMxCode: TStringField;
    qryPxjhMxName: TStringField;
    qryPxjhMxsDept: TStringField;
    qryPxjhMxZwName: TStringField;
    cmdAddMx: TBitBtn;
    cmdDelMx: TBitBtn;
    qryDelMx: TADOQry;
    qryAddMx: TAdoMacroQry;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdAddClick(Sender: TObject);
    procedure qryBrowseAfterScroll(DataSet: TDataSet);
    procedure cmdDelMxClick(Sender: TObject);
    procedure cmdAddMxClick(Sender: TObject);
  private
    { Private declarations }
    dlgE_PxjhE :TfrmE_PxjhE;
  public
    { Public declarations }
  end;

var
  frmE_Pxjh: TfrmE_Pxjh;

implementation

uses RptExcel, SelfFunc, Main, EmpChoice;

{$R *.DFM}

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

procedure TfrmE_Pxjh.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt(Self.Caption, qryBrowse
    	,['癬﹍ら戳', dpDate0.Date
         ,'沧ゎら戳', dpDate1.Date]);
end;

procedure TfrmE_Pxjh.cmdEditClick(Sender: TObject);
begin
	if qryBrowse.IsEmpty then MessageBeep(0)
	else if dlgE_PxjhE.Edit(qryBrowseCode.Value)
    	then RefreshQuery(qryBrowse);
end;

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

	dlgE_PxjhE :=TfrmE_PxjhE.Create(Self);

    dpDate0.Date :=Date() -10;
    dpDate1.Date :=Date() +1;
    cmdQuery.OnClick(nil);
end;

procedure TfrmE_Pxjh.cmdQueryClick(Sender: TObject);
begin
	qryPxjhMx.Close;
	with qryBrowse do
    begin
    	Close;
        Parameters[0].Value :=dpDate0.Date;
        Parameters[1].Value :=dpDate1.Date;
        Open;
    end;
end;

procedure TfrmE_Pxjh.cmdDelClick(Sender: TObject);
var i : Integer;
begin
	if qryBrowse.IsEmpty then
    begin
    	MessageBeep(0);
        Exit;
    end;
	if not MsgBoxSel('琌