kq_daoban.pas

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

unit Kq_DaoBan;

interface

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

type
  TfrmKq_DaoBan = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    qryDaoBanD: TADOQry;
    Label1: TLabel;
    Image1: TImage;
    qryDeleteD: TADOQry;
    StoreForm1: TStoreForm;
    cmdQuery: TBitBtn;
    cmdDel: TBitBtn;
    qryDaoBanDSessionID: TIntegerField;
    qryDaoBanDB1: TStringField;
    qryDaoBanDB2: TStringField;
    qryDaoBanDB3: TStringField;
    qryDaoBanDB4: TStringField;
    qryDaoBanDB5: TStringField;
    qryDaoBanDB6: TStringField;
    qryDaoBanDB7: TStringField;
    qryDaoBanDB8: TStringField;
    qryDaoBanDB9: TStringField;
    qryDaoBanDB10: TStringField;
    qryDaoBanDB11: TStringField;
    qryDaoBanDB12: TStringField;
    qryDaoBanDB13: TStringField;
    qryDaoBanDB14: TStringField;
    qryDaoBanDB15: TStringField;
    qryDaoBanDB16: TStringField;
    qryDaoBanDB17: TStringField;
    qryDaoBanDB18: TStringField;
    qryDaoBanDB19: TStringField;
    qryDaoBanDB20: TStringField;
    qryDaoBanDB21: TStringField;
    qryDaoBanDB22: TStringField;
    qryDaoBanDB23: TStringField;
    qryDaoBanDB24: TStringField;
    qryDaoBanDB25: TStringField;
    qryDaoBanDB26: TStringField;
    qryDaoBanDB27: TStringField;
    qryDaoBanDB28: TStringField;
    qryDaoBanDB29: TStringField;
    qryDaoBanDB30: TStringField;
    qryDaoBanDB31: TStringField;
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    qrySessionMemo: TStringField;
    DataSource3: TDataSource;
    Label51: TLabel;
    cboSession: TDBLookupComboBox;
    qryCurSession: TADOQry;
    qryCurSessionCurID: TIntegerField;
    qrySessionDate0: TDateTimeField;
    qrySessionDate1: TDateTimeField;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TMyGrid;
    DBGrid2: TMyGrid;
    qryDaoBanE: TADOQry;
    DataSource2: TDataSource;
    qryDaoBanDDept: TStringField;
    qryDaoBanDCycle: TIntegerField;
    qryDaoBanDLongName: TStringField;
    qryDaoBanECode: TStringField;
    qryDaoBanEName: TStringField;
    qryDaoBanECardNo: TStringField;
    qryDaoBanESessionID: TIntegerField;
    qryDaoBanEEmpID: TIntegerField;
    qryDaoBanECycle: TIntegerField;
    qryDaoBanEB1: TStringField;
    qryDaoBanEB2: TStringField;
    qryDaoBanEB3: TStringField;
    qryDaoBanEB4: TStringField;
    qryDaoBanEB5: TStringField;
    qryDaoBanEB6: TStringField;
    qryDaoBanEB7: TStringField;
    qryDaoBanEB8: TStringField;
    qryDaoBanEB9: TStringField;
    qryDaoBanEB10: TStringField;
    qryDaoBanEB11: TStringField;
    qryDaoBanEB12: TStringField;
    qryDaoBanEB13: TStringField;
    qryDaoBanEB14: TStringField;
    qryDaoBanEB15: TStringField;
    qryDaoBanEB16: TStringField;
    qryDaoBanEB17: TStringField;
    qryDaoBanEB18: TStringField;
    qryDaoBanEB19: TStringField;
    qryDaoBanEB20: TStringField;
    qryDaoBanEB21: TStringField;
    qryDaoBanEB22: TStringField;
    qryDaoBanEB23: TStringField;
    qryDaoBanEB24: TStringField;
    qryDaoBanEB25: TStringField;
    qryDaoBanEB26: TStringField;
    qryDaoBanEB27: TStringField;
    qryDaoBanEB28: TStringField;
    qryDaoBanEB29: TStringField;
    qryDaoBanEB30: TStringField;
    qryDaoBanEB31: TStringField;
    cmdEdit: TBitBtn;
    cmdAdd: TBitBtn;
    cmdCopy: TBitBtn;
    cmdGenAll: TBitBtn;
    cmdGen: TBitBtn;
    Panel2: TPanel;
    cmdLocate: TBitBtn;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cedDept: TAdoCodeEd;
    Label3: TLabel;
    qryDeleteE: TADOQry;
    qryGenAllE: TADOQry;
    qryGenAllD: TADOQry;
    qryGenD: TADOQry;
    qryExec: TADOQry;
    qrySnDays: TADOQry;
    qrySnDaysSnDays: TIntegerField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryDaoBanDBeforeInsert(DataSet: TDataSet);
    procedure qryDaoBanDBeforeDelete(DataSet: TDataSet);
    procedure cboSessionExit(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure oPagesChanging(Sender: TObject; var AllowChange: Boolean);
    procedure cmdAddClick(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cmdGenAllClick(Sender: TObject);
    procedure cmdGenClick(Sender: TObject);
    procedure cmdCopyClick(Sender: TObject);
  private
    { Private declarations }
    dlgKq_DaoBanE :TfrmKq_DaoBanE;
  public
    { Public declarations }
  end;

var
  frmKq_DaoBan: TfrmKq_DaoBan;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

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

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