dataunit.pas

晋业ERP扩展模块 独立的商品铺货计划及后确认进度

unit DataUnit;

interface

uses
  SysUtils, Classes, DB, ADODB, DBTables;

type
  TDataForm = class(TDataModule)
    Conn: TADOConnection;
    DS_PB: TDataSource;
    DS_T_PB: TDataSource;
    V_PROD: TADOTable;
    DS_PBALL: TDataSource;
    T_PB: TADOTable;
    SQL: TADOQuery;
    SQL_PB: TADOQuery;
    DS_SP: TDataSource;
    T_PL: TADOTable;
    DS_PL: TDataSource;
    T_PBPBNO: TAutoIncField;
    T_PBPlanType: TStringField;
    T_PBPSDate: TDateTimeField;
    T_PBPEDate: TDateTimeField;
    T_PBPBProd: TStringField;
    T_PBPBName: TStringField;
    T_PBPBCust: TIntegerField;
    T_PBPBPQty: TIntegerField;
    T_PBPBTQty: TIntegerField;
    T_PBPBCheck: TStringField;
    T_PBPBMemo: TStringField;
    V_CUST: TADOTable;
    SQL_CUST: TADOQuery;
    V_PL: TADOTable;
    V_PT: TADOTable;
    SQL_AREA: TADOQuery;
    SQL_TEMP: TADOQuery;
    SQL_TEMPA: TADOQuery;
    DS_TEMPA: TDataSource;
    DS_SQL_PL: TDataSource;
    SQL_PL: TADOQuery;
    SQL_PBDSDesigner: TIntegerField;
    SQL_PBDSDesigner2: TStringField;
    SQL_PBDSDesigner3: TStringField;
    SQL_PBDSDesigner4: TStringField;
    SQL_PBDSDesigner5: TIntegerField;
    SQL_PBDSDesigner6: TDateTimeField;
    SQL_PBDSDesigner7: TDateTimeField;
    SQL_PBDSDesigner8: TIntegerField;
    SQL_PBDSDesigner9: TIntegerField;
    SQL_PBDSDesigner10: TIntegerField;
    SQL_PBDSDesigner11: TIntegerField;
    SQL_PBDSDesigner12: TStringField;
    SQL_PBDSDesigner13: TStringField;
    SQL_AC: TADOQuery;
    DS_AC: TDataSource;
    SQL_CM: TADOQuery;
    DS_CM: TDataSource;
    SQL_CMM: TADOQuery;
    DS_CMM: TDataSource;
    SQL_ACDSDesigner: TStringField;
    SQL_PLDSDesigner: TIntegerField;
    SQL_PLDSDesigner2: TStringField;
    SQL_PLDSDesigner3: TStringField;
    SQL_PLDSDesigner4: TStringField;
    SQL_PLDSDesigner5: TStringField;
    SQL_PLDSDesigner6: TStringField;
    SQL_PLDSDesigner7: TStringField;
    SQL_CMMDSDesigner: TAutoIncField;
    SQL_CMMDSDesigner2: TStringField;
    SQL_CMMDSDesigner3: TStringField;
    SQL_CMMDSDesigner4: TDateTimeField;
    SQL_CMMDSDesigner5: TDateTimeField;
    SQL_CMMDSDesigner6: TStringField;
    SQL_CMMDSDesigner7: TStringField;
    SQL_CMMDSDesigner8: TStringField;
    SQL_CMMDSDesigner9: TStringField;
    V_PRODDSDesigner: TStringField;
    V_PRODDSDesigner2: TStringField;
    V_PRODDSDesigner3: TStringField;
    V_PRODDSDesigner4: TStringField;
    V_PRODDSDesigner5: TStringField;
    V_PRODDSDesigner6: TStringField;
    V_PRODDSDesigner7: TBCDField;
    V_PRODDSDesigner8: TBCDField;
    V_PRODDSDesigner9: TStringField;
    V_PRODDSDesigner10: TMemoField;
    V_CUSTDSDesigner: TStringField;
    V_CUSTDSDesigner2: TStringField;
    V_CUSTDSDesigner3: TStringField;
    V_CUSTDSDesigner4: TStringField;
    V_CUSTDSDesigner5: TStringField;
    SQL_AREADSDesigner: TStringField;
    SQL_AREADSDesigner2: TIntegerField;
    SQL_AREADSDesigner3: TIntegerField;
    SQL_PBDSDesigner14: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataForm: TDataForm;

implementation

{$R *.dfm}

end.