inv_vendorinsumqry_c.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 86 行

unit Inv_VendorInSumQry_C;
//供应商到货查询条件单元
Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Db, AdODB, StdCtrls, ExtEdit, Mask;

Type
  TFrm_Inv_VendorInSumQry_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    Label2: TLabel;
    MaskEdit2: TMaskEdit;
    Label3: TLabel;
    Label4: TLabel;
    lbl_VendorName: TLabel;
    Extedt_VendorCode: TExtEdit;
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    FUserCode:string;
    { Private declarations }
  public
  procedure Initform(AdoConnection:TAdOConnection;UserCode:string);
    { Public declarations }
  end;

var
  Frm_Inv_VendorInSumQry_C: TFrm_Inv_VendorInSumQry_C;

implementation
uses Inv_VendorInSumQry;
{$R *.DFM}

procedure TFrm_Inv_VendorInSumQry_C.btn_okClick(Sender: TObject);
begin
  //inherited;
  Frm_Inv_VendorInSumQry.Fcondition:='';
  Frm_Inv_VendorInSumQry.FconditionHint:='';
  //获取条件字符串
  with Frm_Inv_VendorInSumQry do
  begin
    Fcondition:=' (B.InvBillDate Between '''+MaskEdit1.Text+''' and '+
               '               '''+MaskEdit2.Text+''') ';
    FconditionHint:='日期从： '+MaskEdit1.Text+' 到 '+MaskEdit2.Text;
    If Extedt_VendorCode.text<>'' then
    begin
      Fcondition:=Fcondition+' and B.VendorCode='''+Extedt_VendorCode.text+'''';
      FVendor:=' 供应商： '+lbl_VendorName.Caption;
    end;
    Fcondition:=Fcondition+' and B.BillTypeCode not in (''1201'',''1202'') ';

    SendCondition:=' (B.InvBillDate Between '''+MaskEdit1.Text+''' and '+
               '               '''+MaskEdit2.Text+''') and B.BillTypeCode not in (''1201'',''1202'') ';
  end;
  self.ModalResult:=mrok;
  //Close;
end;

procedure TFrm_Inv_VendorInSumQry_C.FormActivate(Sender: TObject);
begin
  inherited;
  //日期初始化
  if Frm_Inv_VendorInSumQry.FconditionHint='' then
  begin
    MaskEdit2.text:=Formatdatetime('YYYY.MM.DD',date);
    MaskEdit1.Text:=Formatdatetime('YYYY.MM.DD',date-30);
  end
  else
  begin
  end;
  if maskedit1.CanFocus then
     maskedit1.SetFocus ;
end;

procedure TFrm_Inv_VendorInSumQry_C.Initform(AdoConnection: TAdOConnection;
  UserCode: string);
begin
  inherited;
  AdoQry_Tmp.Connection:=AdoConnection;
  FuserCode:=UserCode;
end;

end.