sal_qry_chginfosaleorderh.pas

一个MRPII系统源代码版本

unit Sal_Qry_ChgInfoSaleOrderH;

Interface

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

Type
  TFrm_Sal_Qry_ChgInfoSaleOrderH = Class(TFrm_Base_Qry)
    AdoQry_MainCustomerCode: TStringField;
    AdoQry_MainCustomerName: TStringField;
    AdoQry_MainCustomerB: TStringField;
    AdoQry_MainCreateDate: TDateTimeField;
    AdoQry_MainSloNo: TStringField;
    AdoQry_MainSaleTypeCode: TStringField;
    AdoQry_MainSaleTypeName: TStringField;
    AdoQry_MainSaleTypeB: TStringField;
    AdoQry_MainSaleDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainDeptB: TStringField;
    AdoQry_MainSaleEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainEmployeeB: TStringField;
    AdoQry_MainCurrencyCode: TStringField;
    AdoQry_MainCurrencyName: TStringField;
    AdoQry_MainCurrencyB: TStringField;
    AdoQry_MainTaxRate_Percent: TFloatField;
    AdoQry_MainPayTermCode: TStringField;
    AdoQry_MainPayTermName: TStringField;
    AdoQry_MainPayTermB: TStringField;
    AdoQry_MainShipModeCode: TStringField;
    AdoQry_MainShipModeName: TStringField;
    AdoQry_MainShipModeB: TStringField;
    AdoQry_MainShipAddresSCode: TStringField;
    AdoQry_MainShipAddressName: TStringField;
    AdoQry_MainTotalNoTaxAmount: TFloatField;
    AdoQry_MainTotalTaxAmount: TFloatField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainRemArk1: TStringField;
    AdoQry_MainCreateEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_1: TStringField;
    AdoQry_MainCreateEmployeeCodeB: TStringField;
    AdoQry_MainEditDate: TDateTimeField;
    AdoQry_MainEdItEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_2: TStringField;
    AdoQry_MainEdItEmployeeCodeB: TStringField;
    AdoQry_MainChgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_3: TStringField;
    AdoQry_MainChgEmployeeCodeB: TStringField;
    AdoQry_MainChgType: TStringField;
    AdoQry_MainChgTime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Sal_Qry_ChgInfoSaleOrderH: TFrm_Sal_Qry_ChgInfoSaleOrderH;

implementation
uses Sal_Qry_ChgInfoSaleOrderH_C;
{$R *.DFM}
procedure TFrm_Sal_Qry_ChgInfoSaleOrderH.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Sa_SaleOrderHistory.CustomerCode,'+
                ' Customer.CustomerName,'+
                ' Sa_SaleOrderHistory.CustomerCode+'' ''+Customer.CustomerName As CustomerB,'+
                ' Sa_SaleOrderHistory .CreateDate,'+
                ' Sa_SaleOrderHistory.SloNo,'+
                ' Sa_SaleOrderHistory.SaleTypeCode,'+
                ' SaleType.SaleTypeName,'+
                ' Sa_SaleOrderHistory.SaleTypeCode+'' ''+SaleType.SaleTypeName as SaleTypeB,'+
                ' Sa_SaleOrderHistory.SaleDeptCode,'+
                ' Dept.DeptName,'+
                ' Sa_SaleOrderHistory.SaleDeptCode+'' ''+Dept.DeptName As DeptB,'+
                ' Sa_SaleOrderHistory.SaleEmployeeCode,'+
                ' Employee.EmployeeName,'+
                ' Sa_SaleOrderHistory.SaleEmployeeCode+'' ''+Employee.EmployeeName as EmployeeB,'+
                ' Sa_SaleOrderHistory.CurrencyCode,'+
                ' Currency.CurrencyName,'+
                ' Sa_SaleOrderHistory.CurrencyCode+'' ''+Currency.CurrencyName as CurrencyB,'+
                ' Sa_SaleOrderHistory.TaxRate_Percent,'+
                ' Sa_SaleOrderHistory.PayTermCode,'+
                ' PayTerm.PayTermName,'+
                ' Sa_SaleOrderHistory.PayTermCode+'' ''+PayTerm.PayTermName as PayTermB,'+
                ' Sa_SaleOrderHistory.ShipModeCode,'+
                ' ShipMode.ShipModeName,'+
                ' Sa_SaleOrderHistory.ShipModeCode+'' ''+ShipMode.ShipModeName as ShipModeB,'+
                ' Sa_SaleOrderHistory.ShipAddresSCode,'+
                ' CustomerShipAddress.ShipAddressName,'+
                ' Sa_SaleOrderHistory.TotalNoTaxAmount,'+
                ' Sa_SaleOrderHistory.TotalTaxAmount,'+
                ' Sa_SaleOrderHistory.RemArk,'+
                ' Sa_SaleOrderHistory.RemArk1,'+
                ' Sa_SaleOrderHistory.CreateEmployeeCode,'+
                ' E1.EmployeeName,'+
                ' Sa_SaleOrderHistory.CreateEmployeeCode+'' ''+E1.EmployeeName as CreateEmployeeCodeB,'+
                ' Sa_SaleOrderHistory.EditDate,'+
                ' Sa_SaleOrderHistory.EdItEmployeeCode,'+
                ' E2.EmployeeName,'+
                ' Sa_SaleOrderHistory.EdItEmployeeCode+'' ''+E2.EmployeeName as EdItEmployeeCodeB,'+
                ' Sa_SaleOrderHistory.ChgEmployeeCode,'+
                ' E3.EmployeeName,'+
                ' Sa_SaleOrderHistory.ChgEmployeeCode+'' ''+E3.EmployeeName As ChgEmployeeCodeB,'+
                ' Sa_SaleOrderHistory.ChgType,'+
                ' Sa_SaleOrderHistory.ChgTime'+
        ' from Sa_SaleOrderHistory'+
        ' left join Customer on Sa_SaleOrderHistory.CustomerCode=Customer.CustomerCode'+
        ' left join SaleType on Sa_SaleOrderHistory.SaleTypeCode=SaleType.SaleTypeCode'+
        ' left join Dept on Sa_SaleOrderHistory.SaleDeptCode=Dept.DeptCode'+
        ' left join Employee on Sa_SaleOrderHistory.SaleEmployeeCode=Employee.EmployeeCode'+
        ' left join Currency on Sa_SaleOrderHistory.CurrencyCode=Currency.CurrencyCode'+
        ' left join PayTerm on Sa_SaleOrderHistory.PayTermCode=PayTerm.PayTermCode'+
        ' left join ShipMode on Sa_SaleOrderHistory.ShipModeCode=ShipMode.ShipModeName'+
        ' left join CustomerShipAddress on Sa_SaleOrderHistory.ShipAddresSCode=CustomerShipAddress.ShipAddresSCode'+
        ' left join (select * from Employee )E1 on Sa_SaleOrderHistory.CreateEmployeeCode=E1.EmployeeCode'+
        ' left join (select * from Employee )E2 on Sa_SaleOrderHistory.EdItEmployeeCode=E2.EmployeeCode'+
        ' left join (select * from Employee )E3 on Sa_SaleOrderHistory.ChgEmployeeCode=E3.EmployeeCode';

  OrderByFields:=' chgtime,CustomerCode ';
  Frm_Sys_Condition:=TFrm_Sal_Qry_ChgInfoSaleOrderH_C.Create(self);
  Act_Filter.Execute;
  conditionuserDefine:=condition;
  Frm_Sys_Condition:=nil;
end;


end.