kq_banzhi.pas

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

unit Kq_BanZhi;

interface

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

type
  TfrmKq_BanZhi = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdDel: TBitBtn;
    cmdEdit: TBitBtn;
    cmdAdd: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TADOQry;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    cmdSysSet: TBitBtn;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseZsj: TIntegerField;
    qryBrowseD: TADOQry;
    DataSource2: TDataSource;
    Label3: TLabel;
    cmdCopyAdd: TBitBtn;
    DBCtrlGrid1: TDBCtrlGrid;
    qryBrowseDRptColXh: TSmallintField;
    qryBrowseDSbMinTime: TTimeIntField;
    qryBrowseDSbTime: TTimeIntField;
    qryBrowseDXbTime: TTimeIntField;
    qryBrowseDXbMaxTime: TTimeIntField;
    qryBrowseDZsj: TIntegerField;
    qryBrowseDXiuXi: TIntegerField;
    qryBrowseDJiaBan: TIntegerField;
    qryBrowseDSjSj: TIntegerField;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    Label13: TLabel;
    DBEdit11: TDBEdit;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    Label15: TLabel;
    DBEdit13: TDBEdit;
    Label16: TLabel;
    DBEdit14: TDBEdit;
    qryBrowseDBanCiXh: TSmallintField;
    qryBrowseBanCiCount: TSmallintField;
    qryBrowseDIfTqjb: TSmallintField;
    qryBrowseDIfChiDao: TSmallintField;
    qryBrowseDIfTcjb: TSmallintField;
    qryBrowseDIfZaoTui: TSmallintField;
    qryBrowseDIfKg: TSmallintField;
    qryBrowseDIfJbkh: TSmallintField;
    qryBrowseDIfJbkq: TSmallintField;
    qryBrowseIfFdJcsj: TBooleanField;
    cmdPrint: TBitBtn;
    qryPrint: TADOQry;
    qryPrintCode: TStringField;
    qryPrintName: TStringField;
    qryPrintBanCiCount: TSmallintField;
    qryPrintIfFdJcsj: TBooleanField;
    qryPrintRptColXh: TSmallintField;
    qryPrintSbMinTime: TTimeIntField;
    qryPrintSbTime: TTimeIntField;
    qryPrintXbTime: TTimeIntField;
    qryPrintXbMaxTime: TTimeIntField;
    qryPrintZsj: TIntegerField;
    qryPrintXiuXi: TIntegerField;
    qryPrintJiaBan: TIntegerField;
    qryPrintSjSj: TIntegerField;
    qryPrintBanCiXh: TSmallintField;
    qryPrintIfTqjb: TSmallintField;
    qryPrintIfChiDao: TSmallintField;
    qryPrintIfTcjb: TSmallintField;
    qryPrintIfZaoTui: TSmallintField;
    qryPrintIfKg: TSmallintField;
    qryPrintIfJbkh: TSmallintField;
    qryPrintIfJbkq: TSmallintField;
    qryBrowseDSbMaxTime: TTimeIntField;
    qryBrowseDXbMinTime: TTimeIntField;
    qryBrowseDIfXbbdk: TSmallintField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdSysSetClick(Sender: TObject);
    procedure cmdCopyAddClick(Sender: TObject);
    procedure qryBrowseAfterScroll(DataSet: TDataSet);
    procedure cmdPrintClick(Sender: TObject);
  private
    { Private declarations }
    dlgKq_BanZhiE :TfrmKq_BanZhiE;
  public
    { Public declarations }
  end;

var
  frmKq_BanZhi: TfrmKq_BanZhi;

implementation

uses RptExcel, SelfFunc, Main, Kq_BanZhiSet;

{$R *.DFM}

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

procedure TfrmKq_BanZhi.cmdAddClick(Sender: TObject);
begin
	if dlgKq_BanZhiE.Add() then
    	RefreshQuery(qryBrowse);
end;

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