gz_gxtj.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 88 行

unit Gz_GxTj;

interface

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

type
  TfrmGz_GxTj = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    Label3: TLabel;
    qryGxFl: TADOQry;
    cedDept: TAdoCodeEd;
    cmdQuery: TBitBtn;
    Label5: TLabel;
    cedEmpCode: TAdoCodeEd;
    qryGx: TADOQry;
    cmdEdit: TBitBtn;
    cmdDel: TBitBtn;
    qryBrowse: TAdoMacroQry;
    cmdAdd: TBitBtn;
    qryBrowseXuHao: TIntegerField;
    qryBrowseDate0: TDateTimeField;
    qryBrowseDate1: TDateTimeField;
    qryBrowseNote: TStringField;
    qryBrowseGxID: TIntegerField;
    qryBrowsePerCost: TFloatField;
    qryBrowsePerCost2: TFloatField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryGxFlCode: TStringField;
    qryGxFlName: TStringField;
    qryGxID: TIntegerField;
    qryGxCode: TStringField;
    qryGxName: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cedEmpCodeGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdAddClick(Sender: TObject);
  private
    { Private declarations }
    dlgGz_GxTjE :TfrmGz_GxTjE;
  public
    { Public declarations }
  end;

var
  frmGz_GxTj: TfrmGz_GxTj;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmGz_GxTj.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt(Self.Caption, qryBrowse
    	,['癬﹍ら戳', dpDate0.Date
         ,'沧ゎら戳', dpDate1.Date
         ,'摸