uorderbrowserqrydlg.pas

来自「简单易用的按件按时计工资管理系统」· PAS 代码 · 共 51 行

unit uOrderBrowserQryDlg;

interface

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

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

var
  OrderBrowserQryDlg: TOrderBrowserQryDlg;

implementation

{$R *.dfm}

{ TOrderBrowserQryDlg }

function TOrderBrowserQryDlg.CheckValidate: Boolean;
begin
  Result:= inherited CheckValidate;
end;

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

procedure TOrderBrowserQryDlg.InitVars;
begin
  
end;

end.