qc_checkresult_c1.pas

一个MRPII系统源代码版本

unit Qc_CheckResult_C1;

Interface

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

Type
  TFrm_Qc_CheckResult_C1 = Class(TFrm_Base_Condition)
    ExtEdt_VendorCode: TExtEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Lbl_VendorName: TLabel;
    Medt_CheckDate: TMaskEdit;
    Cmbx_QcStatus: TComboBox;
    Label6: TLabel;
    Label5: TLabel;
    edt_ItemCode: TExtEdit;
    Label7: TLabel;
    lbl_ItemName: TLabel;
    Label8: TLabel;
    cmbx_WhCode: TComboBox;
    procedure Medt_CheckDateExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ExtEdt_VendorCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetDBConnect(AdOConnection:TAdOConnection);Override;
  end;

var
  Frm_Qc_CheckResult_C1: TFrm_Qc_CheckResult_C1;

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

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

procedure TFrm_Qc_CheckResult_C1.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  ConditionHint:='';
  if ExtEdt_VendorCode.Text<>'' then
  begin
    Condition:=Condition+' (OnCheckBill.VendorCode='''+Trim(ExtEdt_VendorCode.Text)+''')';
    ConditionHint:=ConditionHint+'  供应商：'+Lbl_VendorName.Caption;
  end;
  if cmbx_WhCode.Text<>'' then
  begin
    if condition<>'' then
    condition:=condition+' and (Item.whCode='+QuotedStr(getCode(cmbx_WhCode.text))+')'
    else
    condition:=condition+' (Item.whCode='+QuotedStr(getCode(cmbx_WhCode.text))+')';
    conditionHint:=conditionHint+' 仓库：'+cmbx_WhCode.text;
  end;
//by johnson
  if edt_ItemCode.Text<>'' then
  begin
    if condition<>'' then
    condition:=condition+' and (OnCheckBillLine.ItemCode like '''+Trim(edt_ItemCode.text)+'%'+''')'
    else
    condition:=condition+' (OnCheckBillLine.ItemCode like '''+Trim(edt_ItemCode.text)+'%'+''')';
    conditionHint:=conditionHint+' 物料代码：'+lbl_ItemName.Caption;
  end;
  if condition<>'' then
  Condition:=Condition+' and (OnCheckBill.OnCheckDate>='''+Trim(Medt_CheckDate.Text)+''')'
  else
  Condition:=Condition+' (OnCheckBill.OnCheckDate>='''+Trim(Medt_CheckDate.Text)+''')';

  ConditionHint:=ConditionHint+'  到货日期起始于： '+Trim(Medt_CheckDate.Text);

  Condition:=Condition+' and (OnCheckBillLine.QcStatus='+GetCode(Cmbx_QcStatus.Text)+')';
  Condition:=Condition+' and (OnCheckBillLine.OnCheckStatus=''0'')';
  Condition:=Condition+' and Item.InspecTEmployeeCode='''+UserCode+'''';

  ConditionHint:=ConditionHint+' 质量状态： '+GetName(Cmbx_QcStatus.Text);

  ModalResult:=Mrok;
  Frm_Qc_CheckResult1.act_Save.Enabled:=True;
  Frm_Qc_CheckResult1.DBGridEh.ReadOnly:=False;
  Frm_Qc_CheckResult1.DBGridEh.Columns[0].ReadOnly:=True;
  Frm_Qc_CheckResult1.DBGridEh.Columns[1].ReadOnly:=True;
  Frm_Qc_CheckResult1.DBGridEh.Columns[2].ReadOnly:=True;
  Frm_Qc_CheckResult1.DBGridEh.Columns[3].ReadOnly:=True;
  Frm_Qc_CheckResult1.DBGridEh.Columns[4].ReadOnly:=True;
  Frm_Qc_CheckResult1.DBGridEh.Columns[5].ReadOnly:=True;
  Frm_Qc_CheckResult1.DBGridEh.Columns[6].ReadOnly:=False;
  Frm_Qc_CheckResult1.DBGridEh.Columns[7].ReadOnly:=False;
  Frm_Qc_CheckResult1.DBGridEh.Columns[8].ReadOnly:=False;
  Frm_Qc_CheckResult1.DBGridEh.Columns[9].ReadOnly:=False;
  Frm_Qc_CheckResult1.DBGridEh.Columns[10].ReadOnly:=True;
  Frm_Qc_CheckResult1.DBGridEh.Columns[11].ReadOnly:=False;
end;

procedure TFrm_Qc_CheckResult_C1.SetDBConnect(
  AdOConnection: TAdOConnection);
begin
  inherited;
  AdoQry_Tmp.Connection:=AdOConnection;
  CmBx_QcStatus.ItemIndex:=0;
  with AdoQry_tmp do
  begin
    Close;
    sql.text:='select whCode+'' ''+whName as whCodeName from Warehouse Order by whCode';
    open;
    cmbx_WhCode.Items.clear;
    cmbx_WhCode.Items.Add('');
    First;
    while not eof do
    begin
      cmbx_WhCode.Items.Add(fieldbyname('whCodeName').asstring);
      next;
    end;
  end;
end;

procedure TFrm_Qc_CheckResult_C1.FormActivate(Sender: TObject);
begin
  inherited;
  Medt_CheckDate.Text:=FormatDateTime('yyyy.mm.dd',Now);
  ExtEdt_VendorCode.SetFocus;
end;

procedure TFrm_Qc_CheckResult_C1.ExtEdt_VendorCodeExit(Sender: TObject);
begin
  inherited;
  if ExtEdt_VendorCode.text<>'' then
  GetVendorName(sender);
end;

end.