kq_paiban.pas

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

unit Kq_PaiBan;

interface

uses Kq_PaiBanE,
  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, ADODB, AdoMacroQry;

type
  TfrmKq_PaiBan = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPaiBan9: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    cmdPaiBan1: TBitBtn;
    Label3: TLabel;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cedDept: TAdoCodeEd;
    cmdQuery: TBitBtn;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    cmdDel: TBitBtn;
    qryBrowseSessionID: TIntegerField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseB1: TStringField;
    qryBrowseB2: TStringField;
    qryBrowseB3: TStringField;
    qryBrowseB4: TStringField;
    qryBrowseB5: TStringField;
    qryBrowseB6: TStringField;
    qryBrowseB7: TStringField;
    qryBrowseB8: TStringField;
    qryBrowseB9: TStringField;
    qryBrowseB10: TStringField;
    qryBrowseB11: TStringField;
    qryBrowseB12: TStringField;
    qryBrowseB13: TStringField;
    qryBrowseB14: TStringField;
    qryBrowseB15: TStringField;
    qryBrowseB16: TStringField;
    qryBrowseB17: TStringField;
    qryBrowseB18: TStringField;
    qryBrowseB19: TStringField;
    qryBrowseB20: TStringField;
    qryBrowseB21: TStringField;
    qryBrowseB22: TStringField;
    qryBrowseB23: TStringField;
    qryBrowseB24: TStringField;
    qryBrowseB25: TStringField;
    qryBrowseB26: TStringField;
    qryBrowseB27: TStringField;
    qryBrowseB28: TStringField;
    qryBrowseB29: TStringField;
    qryBrowseB30: TStringField;
    qryBrowseB31: TStringField;
    qryBrowseCardNo: TStringField;
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    qrySessionMemo: TStringField;
    DataSource3: TDataSource;
    Label51: TLabel;
    cboSession: TDBLookupComboBox;
    qryCurSession: TADOQry;
    qryCurSessionCurID: TIntegerField;
    qrySessionDate0: TDateTimeField;
    qrySessionDate1: TDateTimeField;
    cmdLocate: TBitBtn;
    cmdPaiBan3: TBitBtn;
    cmdPrint: TBitBtn;
    lblCount: TStaticText;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPaiBan9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPaiBan1Click(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cboSessionExit(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdPaiBan3Click(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure qryBrowseAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
    sSQL :string;
    dlgKq_PaiBanE :TfrmKq_PaiBanE;
  public
    { Public declarations }
  end;

var
  frmKq_PaiBan: TfrmKq_PaiBan;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

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

procedure TfrmKq_PaiBan.cmdPaiBan9Click(Sender: TObject);
begin
	//if dlgKq_PaiBanE.PbByDept() then
	if dlgKq_PaiBanE.PbByBatch() then
    	RefreshQuery(qryBrowse);
end;

procedure TfrmKq_PaiBan.FormCreate(Sender: TObject);
var ts :string;
	n :integer;
begin
	if frmMain.czyQxDept <>'' then //场