stk_enter_checkinvbill_c.pas

一个MRPII系统源代码版本

unit Stk_Enter_CheckInvBill_C;

Interface

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

Type
  TFrm_Stk_Enter_CheckInvBill_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    LEdt_BegItemCode: TLinkEdit;
    LEdt_EndItemCode: TLinkEdit;
    LEdt_BegClassCode: TLinkEdit;
    LEdt_EndClassCode: TLinkEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edt_BegItemName: TEdit;
    Edt_EndItemName: TEdit;
    Edt_BegClassName: TEdit;
    Edt_EndClassName: TEdit;
    procedure LEdt_BegItemCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LEdt_BegItemCodeButtonClick(Sender: TObject);
    procedure LEdt_EndItemCodeButtonClick(Sender: TObject);
    procedure LEdt_EndItemCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LEdt_BegItemCodeExit(Sender: TObject);
    procedure LEdt_EndItemCodeExit(Sender: TObject);
    procedure LEdt_BegClassCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LEdt_EndClassCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LEdt_EndClassCodeButtonClick(Sender: TObject);
    procedure LEdt_BegClassCodeButtonClick(Sender: TObject);
    procedure LEdt_BegClassCodeExit(Sender: TObject);
    procedure LEdt_EndClassCodeExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FwhCode,FWhPositionCode:string;
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection);
    procedure SetFormParam(FrmParam1,FrmParam2,FrmParam3,FrmParam4,FrmParam5,
      FrmParam6:String);Override;

  end;

var
  Frm_Stk_Enter_CheckInvBill_C: TFrm_Stk_Enter_CheckInvBill_C;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_BegItemCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  AdoQry_tmp.Close;
  if(Key=120)then
  CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码',
             'Item','ItemUsable=1 and ItemCode in (select ItemCode from CurrentInv '+
                       ' where CurrentInv.WhPositionCode='''+FWhPositionCode+''''+
                             ' and CurrentInv.WHCode='''+FwhCode+''''+')');

end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_BegItemCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码',
             'Item','ItemUsable=1 and ItemCode in (select ItemCode from CurrentInv '+
                       ' where CurrentInv.WhPositionCode='''+FWhPositionCode+''''+
                             ' and CurrentInv.WHCode='''+FwhCode+''''+')');
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_EndItemCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码',
             'Item','ItemUsable=1 and ItemCode in (select ItemCode from CurrentInv '+
                       ' where CurrentInv.WhPositionCode='''+FWhPositionCode+''''+
                             ' and CurrentInv.WHCode='''+FwhCode+''''+')');

end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_EndItemCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
  CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码',
             'Item','ItemUsable=1 and ItemCode in (select ItemCode from CurrentInv '+
                       ' where CurrentInv.WhPositionCode='''+FWhPositionCode+''''+
                             ' and CurrentInv.WHCode='''+FwhCode+''''+')');
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_BegItemCodeExit(
  Sender: TObject);
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    sql.text:='select ItemName from Item where ItemCode='''+Trim(LEdt_BegItemCode.text)+'''';
    open;
    Edt_BegItemName.text:=fieldbyname('ItemName').asstring;
  end;
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_EndItemCodeExit(
  Sender: TObject);
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    sql.text:='select ItemName from Item where ItemCode='''+Trim(LEdt_EndItemCode.text)+'''';
    open;
    Edt_EndItemName.text:=fieldbyname('ItemName').asstring;
  end;
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_BegClassCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'ClassName','物料分类描述','ClassCode','物料分类代码',
               'ItemClass');
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_EndClassCodeKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'ClassName','物料分类描述','ClassCode','物料分类代码',
               'ItemClass');
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_EndClassCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'ClassName','物料分类描述','ClassCode','物料分类代码',
             'ItemClass');
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_BegClassCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'ClassName','物料分类描述','ClassCode','物料分类代码',
             'ItemClass');

end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_BegClassCodeExit(
  Sender: TObject);
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    sql.text:='select ClassName from ItemClass where ClassCode='''+Trim(LEdt_BegClassCode.text)+'''';
    open;
    Edt_BegClassName.text:=fieldbyname('ClassName').asstring;
  end;

end;

procedure TFrm_Stk_Enter_CheckInvBill_C.LEdt_EndClassCodeExit(
  Sender: TObject);
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    sql.text:='select ClassName from ItemClass where ClassCode='''+Trim(LEdt_EndClassCode.text)+'''';
    open;
    Edt_EndClassName.text:=fieldbyname('ClassName').asstring;
  end;
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  {if (Trim(LEdt_BegItemCode.text)<>'') and (Trim(LEdt_EndItemCode.text)='') then
  begin
    Condition:='( CurrentInv.ItemCode= '''+Trim(LEdt_BegItemCode.text)+''''+')';
  end;
  if (Trim(LEdt_BegItemCode.text)='') and (Trim(LEdt_EndItemCode.text)<>'') then
     Condition:='( CurrentInv.ItemCode= '''+Trim(LEdt_EndItemCode.text)+''''+')';

  if (Trim(LEdt_BegItemCode.text)<>'') and (Trim(LEdt_EndItemCode.text)<>'') then }
    Condition:=' ( CurrentInv.ItemCode between  '''+Trim(LEdt_BegItemCode.text)+''''+
                                   ' and '''+Trim(LEdt_EndItemCode.text)+''''+')';
  {if (Trim(LEdt_BegClassCode.text)<>'') and (Trim(LEdt_EndClassCode.text)='') then
  begin
    if Condition<>'' then
      Condition:=Condition+' and (Item.ClassCode = '''+Trim(LEdt_BegClassCode.text)+''''+')'
    else
      Condition:=' (Item.ClassCode='''+Trim(LEdt_BegClassCode.text)+''''+')';
  end;
  if (Trim(LEdt_BegClassCode.text)='') and (Trim(LEdt_EndClassCode.text)<>'') then
  begin
    if Condition<>'' then
      Condition:=Condition+' and (Item.ClassCode = '''+Trim(LEdt_EndClassCode.text)+''''+')'
    else
      Condition:=' (Item.ClassCode = '''+Trim(LEdt_EndClassCode.text)+''''+')';
  end;
  if (Trim(LEdt_BegClassCode.text)<>'') and (Trim(LEdt_EndClassCode.text)<>'') then
  begin
    if Condition<>'' then
      Condition:=Condition+' and ((Item.ClassCode between  '''+Trim(LEdt_BegClassCode.text)+ ''''+
                                ' and '''+Trim(LEdt_EndClassCode.text)+''''+')'+
                                ' or (Item.ClassCode is null)'+')'
    else}
      Condition:=Condition+' and ((Item.ClassCode between  '''+Trim(LEdt_BegClassCode.text)+ ''''+
                                ' and '''+Trim(LEdt_EndClassCode.text)+''''+')'+
                                ' or (Item.ClassCode is null)'+')';
  //end;
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.InitForm(
  AdOConnection: TAdOConnection);
begin
  SetDBConnect(AdOConnection);
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.FormCreate(Sender: TObject);
begin
  inherited;
  LEdt_EndItemCode.text:='ZZZZZ';
  LEdt_EndClassCode.text:='ZZZZZ';
end;

procedure TFrm_Stk_Enter_CheckInvBill_C.SetFormParam(FrmParam1, FrmParam2,
  FrmParam3, FrmParam4, FrmParam5, FrmParam6: String);
begin
  inherited;
  FwhCode:=FrmParam2;
  FWhPositionCode:=FrmParam1 ;
end;

end.