lyplog.pas

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

unit LypLog;

interface

uses LypLogE,
  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
  TfrmLypLog = 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;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cedDept: TAdoCodeEd;
    cmdQuery: TBitBtn;
    Label5: TLabel;
    cedEmpCode: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    cmdEdit: TBitBtn;
    cmdDel: TBitBtn;
    qryEmpState: TSmallintField;
    Label4: TLabel;
    cedPeiXun: TAdoCodeEd;
    qryLypFl: TADOQry;
    qryBrowse: TAdoMacroQry;
    qryBrowseID: TIntegerField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseEmpCode: TStringField;
    qryBrowseEmpName: TStringField;
    qryBrowseZwName: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowseDept: TStringField;
    qryBrowseLyDate: TDateTimeField;
    qryBrowseLyType: TSmallintField;
    qryBrowseLypCode: TStringField;
    qryBrowseYaJin: TFloatField;
    qryBrowseGhDate: TDateTimeField;
    qryBrowseNote: TStringField;
    qryBrowseName: TStringField;
    qryBrowseUnit: TStringField;
    qryBrowsesLyType: TStringField;
    qryBrowseQty: TFloatField;
    qryLypFlCode: TStringField;
    qryLypFlName: TStringField;
    cmdAdd: TBitBtn;
    cmdGuiHuan: TBitBtn;
    qryBrowseKouKuan: TFloatField;
    qryBrowseCzy: 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 cedPeiXunGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdGuiHuanClick(Sender: TObject);
  private
    { Private declarations }
    dlgLypLogE :TfrmLypLogE;
  public
    { Public declarations }
  end;

var
  frmLypLog: TfrmLypLog;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

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