sal_qry_saleplanofitemanalyse.pas

一个MRPII系统源代码版本

unit Sal_Qry_SalePlanOfItemAnalyse;

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_SalePlanOfItemAnalyse = Class(TFrm_Base_Qry)
    AdoQry_MaInPlanYear: TIntegerField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainItemflag: TStringField;
    AdoQry_MaInPlansum_Year: TFloatField;
    AdoQry_Mainrationsum_Year: TFloatField;
    AdoQry_MainrealSaleqty: TFloatField;
    AdoQry_MainrealSaleAmount: TFloatField;
    AdoQry_MainDiffrationAmount: TFloatField;
    AdoQry_Mainrateration: TFloatField;
    AdoQry_MainDiffAmount: TFloatField;
    AdoQry_MainratePlan: TFloatField;
    AdoQry_MaInPlansum_1: TFloatField;
    AdoQry_Mainrationsum_1: TFloatField;
    AdoQry_MainrealSaleAmount1: TFloatField;
    AdoQry_MainrealSaleqty1: TFloatField;
    AdoQry_MainDiffAmount1: TFloatField;
    AdoQry_MainratePlan1: TFloatField;
    AdoQry_MainDiffrationAmount1: TFloatField;
    AdoQry_Mainrateration1: TFloatField;
    AdoQry_MaInPlansum_2: TFloatField;
    AdoQry_Mainrationsum_2: TFloatField;
    AdoQry_MainrealSaleAmount2: TFloatField;
    AdoQry_MainrealSaleqty2: TFloatField;
    AdoQry_MainDiffAmount2: TFloatField;
    AdoQry_MainratePlan2: TFloatField;
    AdoQry_MainDiffrationAmount2: TFloatField;
    AdoQry_Mainrateration2: TFloatField;
    AdoQry_MaInPlansum_3: TFloatField;
    AdoQry_Mainrationsum_3: TFloatField;
    AdoQry_MainrealSaleAmount3: TFloatField;
    AdoQry_MainrealSaleqty3: TFloatField;
    AdoQry_MainDiffAmount3: TFloatField;
    AdoQry_MainratePlan3: TFloatField;
    AdoQry_MainDiffrationAmount3: TFloatField;
    AdoQry_Mainrateration3: TFloatField;
    AdoQry_MaInPlansum_4: TFloatField;
    AdoQry_Mainrationsum_4: TFloatField;
    AdoQry_MainrealSaleAmount4: TFloatField;
    AdoQry_MainrealSaleqty4: TFloatField;
    AdoQry_MainDiffAmount4: TFloatField;
    AdoQry_MainratePlan4: TFloatField;
    AdoQry_MainDiffrationAmount4: TFloatField;
    AdoQry_Mainrateration4: TFloatField;
    AdoQry_MaInPlansum_5: TFloatField;
    AdoQry_Mainrationsum_5: TFloatField;
    AdoQry_MainrealSaleAmount5: TFloatField;
    AdoQry_MainrealSaleqty5: TFloatField;
    AdoQry_MainDiffAmount5: TFloatField;
    AdoQry_MainratePlan5: TFloatField;
    AdoQry_MainDiffrationAmount5: TFloatField;
    AdoQry_Mainrateration5: TFloatField;
    AdoQry_MaInPlansum_6: TFloatField;
    AdoQry_Mainrationsum_6: TFloatField;
    AdoQry_MainrealSaleAmount6: TFloatField;
    AdoQry_MainrealSaleqty6: TFloatField;
    AdoQry_MainDiffAmount6: TFloatField;
    AdoQry_MainratePlan6: TFloatField;
    AdoQry_MainDiffrationAmount6: TFloatField;
    AdoQry_Mainrateration6: TFloatField;
    AdoQry_MaInPlansum_7: TFloatField;
    AdoQry_Mainrationsum_7: TFloatField;
    AdoQry_MainrealSaleAmount7: TFloatField;
    AdoQry_MainrealSaleqty7: TFloatField;
    AdoQry_MainDiffAmount7: TFloatField;
    AdoQry_MainratePlan7: TFloatField;
    AdoQry_MainDiffrationAmount7: TFloatField;
    AdoQry_Mainrateration7: TFloatField;
    AdoQry_MaInPlansum_8: TFloatField;
    AdoQry_Mainrationsum_8: TFloatField;
    AdoQry_MainrealSaleAmount8: TFloatField;
    AdoQry_MainrealSaleqty8: TFloatField;
    AdoQry_MainDiffAmount8: TFloatField;
    AdoQry_MainratePlan8: TFloatField;
    AdoQry_MainDiffrationAmount8: TFloatField;
    AdoQry_Mainrateration8: TFloatField;
    AdoQry_MaInPlansum_9: TFloatField;
    AdoQry_Mainrationsum_9: TFloatField;
    AdoQry_MainrealSaleAmount9: TFloatField;
    AdoQry_MainrealSaleqty9: TFloatField;
    AdoQry_MainDiffAmount9: TFloatField;
    AdoQry_MainratePlan9: TFloatField;
    AdoQry_MainDiffrationAmount9: TFloatField;
    AdoQry_Mainrateration9: TFloatField;
    AdoQry_MaInPlansum_10: TFloatField;
    AdoQry_Mainrationsum_10: TFloatField;
    AdoQry_MainrealSaleAmount10: TFloatField;
    AdoQry_MainrealSaleqty10: TFloatField;
    AdoQry_MainDiffAmount10: TFloatField;
    AdoQry_MainratePlan10: TFloatField;
    AdoQry_MainDiffrationAmount10: TFloatField;
    AdoQry_Mainrateration10: TFloatField;
    AdoQry_MaInPlansum_11: TFloatField;
    AdoQry_Mainrationsum_11: TFloatField;
    AdoQry_MainrealSaleAmount11: TFloatField;
    AdoQry_MainrealSaleqty11: TFloatField;
    AdoQry_MainDiffAmount11: TFloatField;
    AdoQry_MainratePlan11: TFloatField;
    AdoQry_MainDiffrationAmount11: TFloatField;
    AdoQry_Mainrateration11: TFloatField;
    AdoQry_MaInPlansum_12: TFloatField;
    AdoQry_Mainrationsum_12: TFloatField;
    AdoQry_MainrealSaleAmount12: TFloatField;
    AdoQry_MainrealSaleqty12: TFloatField;
    AdoQry_MainDiffAmount12: TFloatField;
    AdoQry_MainratePlan12: TFloatField;
    AdoQry_MainDiffrationAmount12: TFloatField;
    AdoQry_Mainrateration12: TFloatField;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;