sal_qry_chginfosalecontract.pas

一个MRPII系统源代码版本

unit Sal_Qry_ChgInfoSaleContract;

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_ChgInfoSaleContract = Class(TFrm_Base_Qry)
    AdoQry_MainCustomerCode: TStringField;
    AdoQry_MaincustomerName: TStringField;
    AdoQry_MainCustomerB: TStringField;
    AdoQry_MainSlcNo: TStringField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainStArtDate: TDateTimeField;
    AdoQry_MainendDate: TDateTimeField;
    AdoQry_MainStArtQty: TFloatField;
    AdoQry_MainendQty: TFloatField;
    AdoQry_MainNoTaxPrice: TFloatField;
    AdoQry_MainTaxPrice: TFloatField;
    AdoQry_MainReferencedPrice: TIntegerField;
    AdoQry_MainLinestatus: TIntegerField;
    AdoQry_MainSlcLineRemArk: TStringField;
    AdoQry_MainChgType: TStringField;
    AdoQry_MainchgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainEmployeeB: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainItemB: TStringField;
    AdoQry_MainChgtime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Sal_Qry_ChgInfoSaleContract: TFrm_Sal_Qry_ChgInfoSaleContract;

implementation
uses Sal_Qry_ChgInfoSaleContract_C;
{$R *.DFM}

procedure TFrm_Sal_Qry_ChgInfoSaleContract.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select  sa_SaleContractHistory.CustomerCode,'+
                ' customer.customerName,'+
                ' sa_SaleContractHistory.CustomerCode+'' ''+customer.customerName as CustomerB,'+
                ' sa_SaleContractLineHistory.SlcNo,'+
                ' sa_SaleContractLineHistory.ItemCode,'+
                ' Item.ItemName,'+
                ' sa_SaleContractLineHistory.ItemCode+'' ''+Item.ItemName as ItemB,'+
                ' sa_SaleContractLineHistory.StArtDate,'+
                ' sa_SaleContractLineHistory.endDate,'+
                ' sa_SaleContractLineHistory.StArtQty,'+
                ' sa_SaleContractLineHistory.endQty,'+
                ' sa_SaleContractLineHistory.NoTaxPrice,'+
                ' sa_SaleContractLineHistory.TaxPrice,'+
                ' sa_SaleContractLineHistory.ReferencedPrice,'+
                ' sa_SaleContractLineHistory.Linestatus,'+
                ' sa_SaleContractLineHistory.SlcLineRemArk,'+
                ' sa_SaleContractLineHistory.ChgType,'+
                ' sa_SaleContractLineHistory.chgEmployeeCode,'+
                ' Employee.EmployeeName,'+
                ' sa_SaleContractLineHistory.chgEmployeeCode+'' ''+Employee.EmployeeName as EmployeeB,'+
                ' sa_SaleContractLineHistory.Chgtime'+
        ' from sa_SaleContractLineHistory'+
        ' join sa_SaleContractHistory on sa_SaleContractLineHistory.SlcNo=sa_SaleContractHistory.SlcNo'+
        ' join customer on sa_SaleContractHistory.CustomerCode=customer.CustomerCode'+
        ' join Item on sa_SaleContractLineHistory.ItemCode=Item.ItemCode'+
        ' join Employee on sa_SaleContractLineHistory.chgEmployeeCode=Employee.EmployeeCode';
  OrderByFields:=' chgtime,CustomerCode ';
  Frm_Sys_Condition:=TFrm_Sal_Qry_ChgInfoSaleContract_C.Create(self);
  Act_Filter.Execute;
  conditionuserDefine:=condition;
  Frm_Sys_Condition:=nil;
end;

end.