czy.pas

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

unit Czy;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, ComCtrls, menus, ActnList, ImgList, AdoCodeEd,
  dxTLClms, dxTL, dxCntner,Variants, ADODB, AdoObeyTbl, ADOQry;

type
  TfrmCzy = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    cmdAdd: TBitBtn;
    cmdDel: TBitBtn;
    cmdSave: TBitBtn;
    cmdPrint: TBitBtn;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Bevel1: TBevel;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    Label4: TLabel;
    dxTreeList1: TdxTreeList;
    dxTreeList1Column1: TdxTreeListColumn;
    dxTreeList1Column2: TdxTreeListCheckColumn;
    dxTreeList1Column3: TdxTreeListCheckColumn;
    dxTreeList1Column4: TdxTreeListCheckColumn;
    dxTreeList1Column5: TdxTreeListCheckColumn;
    dxTreeList1Column6: TdxTreeListCheckColumn;
    DBEdit3: TDBEdit;
    cmdQxCopy: TSpeedButton;
    qryCzy: TADOQry;
    qryCzyCode: TStringField;
    qryCzyName: TStringField;
    qryCzyQx: TStringField;
    DataSource2: TDataSource;
    cboQxCopy: TDBLookupComboBox;
    tblEdit: TAdoObeyTbl;
    tblEditCode: TStringField;
    tblEditName: TStringField;
    tblEditPassword: TStringField;
    tblEditQx: TStringField;
    tblEditQxDept: TStringField;
    tblEditZhiJi: TStringField;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label20: TLabel;
    cedZhiJi: TAdoCodeEd;
    qryE_ZhiJi: TADOQry;
    qryE_ZhiJiCode: TStringField;
    qryE_ZhiJiName: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure tblEditAfterEdit(DataSet: TDataSet);
    procedure tblEditAfterPost(DataSet: TDataSet);
    procedure tblEditNewRecord(DataSet: TDataSet);
    procedure tblEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure tblEditBeforePost(DataSet: TDataSet);
    procedure cmdSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tblEditAfterScroll(DataSet: TDataSet);
    procedure dxTreeList1Editing(Sender: TObject; Node: TdxTreeListNode;
      var Allow: Boolean);
    procedure cmdQxCopyClick(Sender: TObject);
    procedure cboQxCopyCloseUp(Sender: TObject);
    procedure cedZhiJiCodeChange(Sender: TObject);
    procedure cedZhiJiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
  	nCzyQxID :integer;
    procedure AddMenuNode(oParentNode:TdxTreeListNode; oMenuItem:TMenuItem);
    procedure AddActionNode();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCzy: TfrmCzy;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

{