gz_day.pas

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

unit Gz_Day;

interface

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

type
  TfrmGz_Day = 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;
    qryBrowseID: TIntegerField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    Label2: TLabel;
    cedDept: TAdoCodeEd;
    Label3: TLabel;
    dpDate: TDateTimePicker;
    Panel2: TPanel;
    rbOrderByID: TRadioButton;
    rbOrderByCode: TRadioButton;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    Label4: TLabel;
    cmdCalc: TBitBtn;
    qryG_Jsff: TADOQry;
    qryG_Jsffxh: TIntegerField;
    qryG_JsffCalcField: TStringField;
    qryG_JsffsExpr: TStringField;
    qryG_JsffsWhere: TStringField;
    qryG_JsffsNote: TStringField;
    qryG_JsffName: TStringField;
    qryCalc: TADOQry;
    qrySQL: TADOQry;
    BitBtn1: TBitBtn;
    qryG_HsxmXmType: TSmallintField;
    qrySession: TADOQry;
    qrySessionID: TIntegerField;
    qrySessionDate0: TDateTimeField;
    qrySessionDate1: TDateTimeField;
    qrySessionAllDays: TSmallintField;
    ADOConnection1: TADOConnection;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure rbOrderByIDClick(Sender: TObject);
    procedure dpDateExit(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdCalcClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    dlgGz_DayE :TfrmGz_DayE;
	procedure SetHsxmBrowse(oDataSet:TDataSet; oGrid:TDBGrid; oHsxmDs:TDataSet);
  public
    { Public declarations }
  end;

var
  frmGz_Day: TfrmGz_Day;

implementation

uses RptExcel, SelfFunc, Main, MainData;

{$R *.DFM}

procedure TfrmGz_Day.SetHsxmBrowse(oDataSet:TDataSet; oGrid:TDBGrid; oHsxmDs:TDataSet);
var oField :TField;
begin
	//砞竚