urepbrowserqrydlg.pas

简单易用的按件按时计工资管理系统

unit uRepBrowserQryDlg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBaseQryDlg, ComCtrls, StdCtrls, ExtCtrls;

type
  TRepBrowserQryDlg = class(TBaseQryDlg)
    Label3: TLabel;
    edtEmpID: TEdit;
  private
    { Private declarations }
  protected
    procedure InitVars;override;
    function CheckValidate:Boolean;override;
    
  public
    { Public declarations }
    function GetCondition:string; override;
  end;

var
  RepBrowserQryDlg: TRepBrowserQryDlg;

implementation

{$R *.dfm}

{ TRepBrowserQryDlg }

function TRepBrowserQryDlg.CheckValidate: Boolean;
begin
  Result:=inherited CheckValidate;
  if not Result then exit;
  //
end;

function TRepBrowserQryDlg.GetCondition: string;
begin
  Result:='(Format$(单据日期,''YYYYMMDD'')>=''' + FormatDateTime('YYYYMMDD', dtStart.Date) + ''''
        + ' AND Format$(单据日期,''YYYYMMDD'')>=''' + FormatDateTime('YYYYMMDD', dtStart.Date) + ''')' ;
  if Trim(edtEmpID.Text) <>'' then
    Result:= Result + ' AND 员工.工号 LIKE ''%' + Trim(edtEmpID.Text) + '%''';
end;

procedure TRepBrowserQryDlg.InitVars;
var
  pDate:TDateTime;
  tTmp:SystemTime;
begin
  inherited;
  with tTmp do
  begin
    decodedate(dtStart.Date, wYear, wMonth, wDay) ;
    pDate:=encodedate(wYear, wMonth -1, wDay);
  end;
  dtStart.Date :=pDate +1;
end;

end.