empdiaozhiq.pas

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

unit EmpDiaoZhiQ;

interface

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

type
  TfrmEmpDiaoZhiQ = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    cmdQuery: TBitBtn;
    qryBrowse: TAdoMacroQry;
    qryBrowseID: TIntegerField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseFDate: TDateTimeField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseOldDept: TStringField;
    qryBrowseOldCode: TStringField;
    qryBrowseNewDept: TStringField;
    qryBrowseNewCode: TStringField;
    qryBrowseNote: TStringField;
    qryBrowseOldZhiWu: TStringField;
    qryBrowseNewZhiWu: TStringField;
    qryBrowseNewZhiJi: TStringField;
    qryBrowseOldZhiJi: TStringField;
    qryBrowsesOldDept: TStringField;
    qryBrowsesNewDept: TStringField;
    qryBrowsesOldZhiWu: TStringField;
    qryBrowsesNewZhiWu: TStringField;
    qryBrowsesOldZhiJi: TStringField;
    qryBrowsesNewZhiJi: TStringField;
    qryBrowseOldJxfs: TStringField;
    qryBrowseNewJxfs: TStringField;
    qryBrowsesOldJxfs: TStringField;
    qryBrowsesNewJxfs: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEmpDiaoZhiQ: TfrmEmpDiaoZhiQ;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

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

procedure TfrmEmpDiaoZhiQ.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

    dpDate0.Date :=Date() -30;
    dpDate1.Date :=Date() +1;
    cmdQuery.OnClick(nil);
end;

procedure TfrmEmpDiaoZhiQ.cmdQueryClick(Sender: TObject);
var tsWhere :string;
begin
	tsWhere :=Format('(Q.FDate BETWEEN ''%s'' AND ''%s'')',
    	[DateToStr(dpDate0.Date)
        ,DateToStr(dpDate1.Date)]);
	with qryBrowse do
    begin
    	Close;
        ParamByN('sWhere').Value :=tsWhere;
        Open;
    end;
end;

procedure TfrmEmpDiaoZhiQ.FormKeyPress(Sender: TObject; var Key: Char);
begin
	if Key =#13 then
    begin
    	Key :=#0;
        Self.SelectNext(Self.ActiveControl, True,True);
    end;
end;

end.