qc_checkresultqry_c.pas

一个MRPII系统源代码版本

unit Qc_CheckResultQry_C;

Interface

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

Type
  TFrm_Qc_CheckResultQry_C = Class(TFrm_Base_Condition)
    ExtEdt_VendorCode: TExtEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Lbl_VendorName: TLabel;
    Cmbx_QcStatus: TComboBox;
    MEdt_EndDate: TMaskEdit;
    MEdt_StArtDate: TMaskEdit;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    lbl_ItemName: TLabel;
    ExtEdt_ItemCode: TExtEdit;
    procedure MEdt_StArtDateExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure MEdt_EndDateExit(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetDBConnect(AdOConnection:TAdOConnection);Override;
  end;

var
  Frm_Qc_CheckResultQry_C: TFrm_Qc_CheckResultQry_C;

implementation
uses Sys_Global,Qc_CheckResultQry;
{$R *.DFM}


procedure TFrm_Qc_CheckResultQry_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  ConditionHint:='';
  if Trim(ExtEdt_VendorCode.Text)<>'' then
  Condition:=Condition+' (OnCheckBill.VendorCode='''+Trim(ExtEdt_VendorCode.Text)+''')';

  if Trim(ExtEdt_ItemCode.Text)<>'' then
     if condition<>'' then
     condition:=condition+' and (OnCheckBillLine.ItemCode='''+Trim(ExtEdt_ItemCode.Text)+''')'
     else
     condition:=' (OnCheckBillLine.ItemCode='''+Trim(ExtEdt_ItemCode.Text)+''')';

  if condition<>'' then
  Condition:=Condition+' and (OnCheckBill.OnCheckDate Between '''+Trim(MEdt_StArtDate.text)+''''
  else
  Condition:=Condition+' (OnCheckBill.OnCheckDate Between '''+Trim(MEdt_StArtDate.text)+'''';
  Condition:=Condition+'                                  and '''+Trim(MEdt_EndDate.text)+''')';

  ConditionHint:=ConditionHint+'  到货日期从: '+Trim(MEdt_StArtDate.text);
  ConditionHint:=ConditionHint+' 到:'+Trim(MEdt_EndDate.text);
  if getName(Cmbx_QcStatus.Text)='未处理' then
  condition:=condition+' and (OnCheckBillLine.QcStatus=0) '
  else if GetName(Cmbx_QcStatus.Text)='全部' then
    Condition:=Condition+' and (OnCheckBillLine.QcStatus<>0 )'
  else
  Condition:=Condition+' and (OnCheckBillLine.QcStatus='+GetCode(Cmbx_QcStatus.Text)+')';
  ConditionHint:=ConditionHint+' 质量状态： '+GetName(Cmbx_QcStatus.Text);
  //condition:=condition+' and InvBillWHChck=1 and WH_EmployeeCode='''+UserCode+''' ';
  ModalResult:=Mrok;
end;

procedure TFrm_Qc_CheckResultQry_C.SetDBConnect(
  AdOConnection: TAdOConnection);
begin
  inherited;
  CmBx_QcStatus.ItemIndex:=0;
end;

procedure TFrm_Qc_CheckResultQry_C.FormActivate(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day: Word;
  stArtdate:string;
begin
  inherited;
  Present:= Now;
  DeCodeDate(Present,Year,Month,Day);
  StArtDate:=IntToStr(Year)+'.'+IntToStr(Month)+'.'+'01';
  MEdt_StArtDate.Text:=FormatDateTime('yyyy.mm.dd',StrToDate(StArtDate));
  MEdt_EndDate.Text:=FormatDateTime('yyyy.mm.dd',now);
  Cmbx_QcStatus.Items.clear;
  if Frm_Qc_CheckResultQry.ShowFlag then
  begin
    Cmbx_QcStatus.Items.Add('0 未处理');
    //若初始值为True,则锁定质量状态。
    Cmbx_QcStatus.ItemIndex:=0;
    Cmbx_QcStatus.Enabled:=False;
  end
  else
  begin
    Cmbx_QcStatus.Items.Add('0 全部');
    Cmbx_QcStatus.Items.Add('1 正常');
    Cmbx_QcStatus.Items.Add('2 拒收');
    Cmbx_QcStatus.Items.Add('3 让步');
    Cmbx_QcStatus.Items.Add('4 挑选');
    Cmbx_QcStatus.Items.Add('5 试用');
    Cmbx_QcStatus.Items.Add('6 特采');
    Cmbx_QcStatus.ItemIndex:=0;
    Cmbx_QcStatus.Enabled:=True;
  end;
  ExtEdt_VendorCode.SetFocus;
end;

procedure TFrm_Qc_CheckResultQry_C.MEdt_StArtDateExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
  Exit;
  DateCheck(Sender);
end;



procedure TFrm_Qc_CheckResultQry_C.MEdt_EndDateExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
  Exit;
  DateCheck(Sender);
  if StrToDateTime(MEdt_EndDate.Text)<StrToDateTime(MEdt_StArtDate.Text) then
  begin
    DispInfo('结束时间不能小于开始时间',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;  
end;



end.