inv_enter_whtowhh.pas

一个MRPII系统源代码版本

unit Inv_Enter_WhToWhH;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Entry_Head, Menus, Db, ActnList, AdODB, Grids, DBGridEh, StdCtrls,
  ExtCtrls, ComCtrls, ToolWin, jpeg, ExtPrintReport;

Type
  TFrm_Inv_Enter_WhToWhH = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadBillID: TAutoIncField;
    AdoQry_HeadBillDate: TDateTimeField;
    AdoQry_HeadBillNo: TStringField;
    AdoQry_HeadWHCode: TStringField;
    AdoQry_HeadWHName: TStringField;
    AdoQry_HeadWhPositionCode: TStringField;
    AdoQry_HeadWhPositionName: TStringField;
    AdoQry_HeadToWHCode: TStringField;
    AdoQry_HeadToWHName: TStringField;
    AdoQry_HeadToWhPositionCode: TStringField;
    AdoQry_HeadToWhPositionName: TStringField;
    AdoQry_HeadInvInBillNo: TStringField;
    AdoQry_HeadInvOutBillNo: TStringField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadCreate_Date: TStringField;
    AdoQry_HeadDeptCode: TStringField;
    AdoQry_HeadDeptName: TStringField;
    AdoQry_HeadToDeptCode: TStringField;
    AdoQry_HeadtoDeptName: TStringField;
    AdoQry_HeadCreate_EmployeeCodeName: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Inv_Enter_WhToWhH: TFrm_Inv_Enter_WhToWhH;

implementation

uses Inv_Enter_WhToWh;

{$R *.DFM}

procedure TFrm_Inv_Enter_WhToWhH.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Inv_Enter_WhToWhH:=nil;
end;

procedure TFrm_Inv_Enter_WhToWhH.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:=' select Inv_WhToWh.BillID,'+
                        ' Inv_WhToWh.BillDate,'+
                        ' Inv_WhToWh.BillNo,'+
                        ' Inv_WhToWh.WHCode as WHCode,'+
                        //' Inv_WhToWh.WHCode+'' ''+Warehouse.WHName as WHCodeName,'+
                        ' Warehouse.WHName as WHName, '+
                        ' Inv_WhToWh.WhPositionCode,'+
                        //' Inv_WhToWh.WhPositionCode+'' ''+ WhPosition.WhPositionName  as WhPositionCodeName,'+
                        ' WhPosition.WhPositionName  as WhPositionName,'+
                        ' Warehouse1.WHCode as ToWHCode,'+
                        //' Inv_WhToWh.ToWHCode+'' ''+Warehouse1.WHName as ToWHCodeName,'+
                        ' Warehouse1.WHName as ToWHName, '+
                        ' Inv_WhToWh.ToWhPositionCode,'+
                        //' Inv_WhToWh.ToWhPositionCode+'' ''+ WhPosition.WhPositionName  as ToWhPositionCodeName,'+
                        ' WhPosition1.WhPositionName  as ToWhPositionName,'+
                        ' Inv_WhToWh.InvInBillNo,'+
                        ' Inv_WhToWh.InvOutBillNo,'+
                        ' Inv_WhToWh.DeptCode,'+
                        ' Dept.DeptName as  DeptName,'+
                        ' Inv_WhToWh.ToDeptCode,'+
                        ' Dept1.DeptName as toDeptName,'+
                        ' Inv_WhToWh.Create_EmployeeCode+'' ''+Employee.EmployeeName  as Create_EmployeeCodeName,'+
                        ' Inv_WhToWh.RemArk,'+
                        ' Inv_WhToWh.Create_Date'+
                 ' from Inv_WhToWh'+
                 ' left join Warehouse on  Inv_WhToWh.WHCode=Warehouse.WHCode'+
                 ' left join Warehouse Warehouse1  on  Inv_WhToWh.ToWHCode=Warehouse1.WHCode'+
                 ' left join WhPosition  on Inv_WhToWh.WhPositionCode= WhPosition.WhPositionCode'+
                 ' left join (select * from  WhPosition ) WhPosition1 on Inv_WhToWh.ToWhPositionCode= WhPosition1.WhPositionCode'+
                 //' and  Inv_WhToWh.ToWHCode<>Warehouse1.WHCode '+
                 ' left join Dept on Inv_WhToWh.DeptCode=Dept.DeptCode '+
                 ' left join (select * from Dept) Dept1 on Inv_WhToWh.ToDeptCode=Dept1.DeptCode '+
                 ' left join Employee on Inv_WhToWh.Create_EmployeeCode=Employee.EmployeeCode';
  OrderByFields:='BillDate,WHCode,WhPositionCode';
  GetData;
  Frm_Entry_Body:=TFrm_Inv_Enter_WhToWh.Create(Self);
end;

end.