sal_qry_chginfoshiporderh.pas

一个MRPII系统源代码版本

unit Sal_Qry_ChgInfoShipOrderH;

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_ChgInfoShipOrderH = Class(TFrm_Base_Qry)
    AdoQry_MainCustomerCode: TStringField;
    AdoQry_MainCustomerName: TStringField;
    AdoQry_MainShipNo: TStringField;
    AdoQry_MainSaleTypeCode: TStringField;
    AdoQry_MainSaleTypeName: TStringField;
    AdoQry_MainSaleDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainSaleEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainCurrencyCode: TStringField;
    AdoQry_MainCurrencyName: TStringField;
    AdoQry_MainTaxRate_Percent: TFloatField;
    AdoQry_MainPayTermCode: TStringField;
    AdoQry_MainPayTermName: TStringField;
    AdoQry_MainAssess: TIntegerField;
    AdoQry_MainCreateEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_1: TStringField;
    AdoQry_MainShipModeCode: TStringField;
    AdoQry_MainShipModeName: TStringField;
    AdoQry_MainShipAddresSCode: TStringField;
    AdoQry_MainShipAddressName: TStringField;
    AdoQry_MainChgType: TStringField;
    AdoQry_MainChgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_2: TStringField;
    AdoQry_MainChgTime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Sal_Qry_ChgInfoShipOrderH: TFrm_Sal_Qry_ChgInfoShipOrderH;

implementation
uses Sal_Qry_ChgInfoShipOrderH_C;
{$R *.DFM}
procedure TFrm_Sal_Qry_ChgInfoShipOrderH.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Sa_ShipOrderHistory.CustomerCode,'+
                 ' Customer.CustomerName,'+
                 ' Sa_ShipOrderHistory.CustomerCode+'' ''+Customer.CustomerName as CustomerB,'+
                 ' Sa_ShipOrderHistory.ShipNo,'+
                 ' Sa_ShipOrderHistory.SaleTypeCode,'+
                 ' SaleType.SaleTypeName,'+
                 ' Sa_ShipOrderHistory.SaleTypeCode+'' ''+SaleType.SaleTypeName as SaleTypeB,'+
                 ' Sa_ShipOrderHistory.SaleDeptCode,'+
                 ' Dept.DeptName,'+
                 ' Sa_ShipOrderHistory.SaleDeptCode+'' ''+Dept.DeptName as DeptB,'+
                 ' Sa_ShipOrderHistory.SaleEmployeeCode,'+
                 ' Employee.EmployeeName,'+
                 ' Sa_ShipOrderHistory.SaleEmployeeCode+'' ''+Employee.EmployeeName as EmployeeB,'+
                 ' Sa_ShipOrderHistory.CurrencyCode,'+
                 ' Currency.CurrencyName,'+
                 ' Sa_ShipOrderHistory.CurrencyCode+'' ''+Currency.CurrencyName as CurrencyB,'+
                 ' Sa_ShipOrderHistory.TaxRate_Percent,'+
                 ' Sa_ShipOrderHistory.PayTermCode,'+
                 ' PayTerm.PayTermName,'+
                 ' Sa_ShipOrderHistory.PayTermCode+'' ''+PayTerm.PayTermName as PayTermB,'+
                 ' Sa_ShipOrderHistory.Assess,'+
                 ' Sa_ShipOrderHistory.CreateEmployeeCode,'+
                 ' e.EmployeeName,'+
                 ' Sa_ShipOrderHistory.CreateEmployeeCode+'' ''+e.EmployeeName as CreateEmployeeB,'+
                 ' Sa_ShipOrderHistory.ShipModeCode,'+
                 ' ShipMode.ShipModeName,'+
                 ' Sa_ShipOrderHistory.ShipModeCode+'' ''+ShipMode.ShipModeName as ShipModeB ,'+
                 ' Sa_ShipOrderHistory.ShipAddresSCode,'+
                 ' CustomerShipAddress.ShipAddressName,'+
                 ' Sa_ShipOrderHistory.ShipAddresSCode+'' ''+CustomerShipAddress.ShipAddressName as ShipAddressB,'+
                 ' Sa_ShipOrderHistory.RemArk,'+
                 ' Sa_ShipOrderHistory.RemArk1,'+
                 ' Sa_ShipOrderHistory.ChgType,'+
                 ' Sa_ShipOrderHistory.ChgEmployeeCode,'+
                 ' E1.EmployeeName,'+
                 ' Sa_ShipOrderHistory.ChgEmployeeCode+'' ''+E1.EmployeeName as ChgEmployeeB ,'+
                 ' Sa_ShipOrderHistory.ChgTime'+
         ' from Sa_ShipOrderHistory'+
         ' left join Customer on Sa_ShipOrderHistory.CustomerCode=Customer.CustomerCode'+
         ' left join SaleType on Sa_ShipOrderHistory.SaleTypeCode=SaleType.SaleTypeCode'+
         ' left join Dept on Sa_ShipOrderHistory.SaleDeptCode=Dept.DeptCode'+
         ' left join Employee on Sa_ShipOrderHistory.SaleEmployeeCode=Employee.EmployeeCode'+
         ' left join Currency on Sa_ShipOrderHistory.CurrencyCode=Currency.CurrencyCode'+
         ' left join PayTerm on Sa_ShipOrderHistory.PayTermCode=PayTerm.PayTermCode'+
         ' left join Employee E on Sa_ShipOrderHistory.CreateEmployeeCode=e.EmployeeCode'+
         ' left join ShipMode on Sa_ShipOrderHistory.ShipModeCode=ShipMode.ShipModeCode'+
         ' left join CustomerShipAddress on Sa_ShipOrderHistory.ShipAddresSCode=CustomerShipAddress.ShipAddresSCode'+
         ' left join Employee E1 on Sa_ShipOrderHistory.ChgEmployeeCode=E1.EmployeeCode';

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


end.