unit_data.~pas

用友ERP功能扩展

unit Unit_Data;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TForm_Data = class(TDataModule)
    Conn_UF: TADOConnection;
    Table__Inventory: TADOTable;
    SQL: TADOQuery;
    Table__ProductLable: TADOTable;
    DS_ProductLabel: TDataSource;
    DS_Supply: TDataSource;
    Table__ProductType: TADOTable;
    DS_ProductType: TDataSource;
    Table__ProductSupply: TADOTable;
    Table__SA_CusUPrice: TADOTable;
    Table__ComputationGroup: TADOTable;
    Table__ComputationUnit: TADOTable;
    DS_ComputationUnit: TDataSource;
    DS_ComputationGroup: TDataSource;
    DS_Inventory: TDataSource;
    DS_SA_CusUPrice: TDataSource;
    Table__Plan: TADOTable;
    DS_Plan: TDataSource;
    Table__Plans: TADOTable;
    DS_Plans: TDataSource;
    DS_SQL_Plan: TDataSource;
    SQL_Plan: TADOTable;
    SQL_Plans: TADOTable;
    DS_SQL_Plans: TDataSource;
    DS_SQL_Person: TDataSource;
    SQL_Person: TADOTable;
    Table__WeiSDJs: TADOTable;
    Table__WeiSDJ: TADOTable;
    DS_WeiSDJs: TDataSource;
    DS_WeiSDJ: TDataSource;
    Table__WeiSRD: TADOTable;
    DS_WeiSRD: TDataSource;
    Table__WeiSRDs: TADOTable;
    DS_WeiSRDs: TDataSource;
    Table__PlanPerson: TADOTable;
    DS_PlanPerson: TDataSource;
    Table__PlanCustLevel: TADOTable;
    DS_PlanCustLevel: TDataSource;
    SQL_PlanCustList: TADOTable;
    DS_PlanCustList: TDataSource;
    SQL_PlanCustLists: TADOTable;
    DS_PlanCustLists: TDataSource;
    Table__ProductForCust: TADOTable;
    DS_ProductForCust: TDataSource;
    Table__SaleSUM: TADOTable;
    DS_SaleSUM: TDataSource;
    Table__ListType: TADOTable;
    DS_ListType: TDataSource;
    Table_SalePrint: TADOTable;
    Table_SalePrints: TADOTable;
    DS_SalePrint: TDataSource;
    DS_SalePrints: TDataSource;
    Table__InventoryForCust: TADOTable;
    SQL_Price: TADOTable;
    Table__Price: TADOTable;
    DS_InventoryForCust: TDataSource;
    DS_SQL_Price: TDataSource;
    DS_Manage: TDataSource;
    Table__Prices: TADOTable;
    tSQL: TADOQuery;
    Table_Manage: TADOTable;
    Table_User: TADOTable;
    DS_User: TDataSource;
    Table_ManageID: TAutoIncField;
    Table_ManageMCode: TWideStringField;
    Table_ManageMName: TWideStringField;
    Table_ManageM000: TBooleanField;
    Table_ManageM001: TBooleanField;
    Table_ManageM002: TBooleanField;
    Table_ManageM003: TBooleanField;
    Table_ManageM004: TBooleanField;
    Table_ManageM005: TBooleanField;
    Table_ManageM006: TBooleanField;
    Table_ManageM007: TBooleanField;
    Table_ManageM008: TBooleanField;
    Table_ManageM009: TBooleanField;
    Table_ManageM010: TBooleanField;
    Table_ManageM011: TBooleanField;
    Table_ManageM012: TBooleanField;
    Table_ManageM013: TBooleanField;
    Table_ManageM014: TBooleanField;
    Table_ManageM015: TBooleanField;
    Table_ManageM016: TBooleanField;
    Table_ManageM017: TBooleanField;
    Table_ManageM018: TBooleanField;
    Table_ManageM019: TBooleanField;
    Table_ManageM020: TBooleanField;
    Table_ManageM021: TBooleanField;
    Table_ManageM022: TBooleanField;
    Table_ManageM023: TBooleanField;
    Table_ManageM024: TBooleanField;
    Table_ManageM025: TBooleanField;
    Table_ManageM026: TBooleanField;
    Table_ManageM027: TBooleanField;
    Table_ManageM028: TBooleanField;
    Table_ManageM029: TBooleanField;
    Table_ManageM030: TBooleanField;
    Table_ManageM031: TBooleanField;
    Table_ManageM032: TBooleanField;
    Table_ManageM033: TBooleanField;
    Table_ManageM034: TBooleanField;
    Table_ManageM035: TBooleanField;
    Table_ManageM036: TBooleanField;
    Table_ManageM037: TBooleanField;
    Table_ManageM038: TBooleanField;
    Table_ManageM039: TBooleanField;
    Table_ManageM040: TBooleanField;
    Table_ManageM041: TBooleanField;
    Table_ManageM042: TBooleanField;
    Table_ManageM043: TBooleanField;
    Table_ManageM044: TBooleanField;
    Table_ManageM045: TBooleanField;
    Table_ManageM046: TBooleanField;
    Table_ManageM047: TBooleanField;
    Table_ManageM048: TBooleanField;
    tPriceType: TADOTable;
    dsPriceType: TDataSource;
    tPlanType: TADOTable;
    dsPlanType: TDataSource;
    tPlanTypePTCode: TIntegerField;
    tPlanTypePTName: TStringField;
    SQL_PlanDSDesigner: TStringField;
    SQL_PlanDSDesigner2: TIntegerField;
    SQL_PlanDSDesigner3: TStringField;
    SQL_PlanDSDesigner4: TStringField;
    SQL_PlanDSDesigner5: TWideStringField;
    SQL_PlanDSDesigner6: TIntegerField;
    SQL_PlanDSDesigner7: TStringField;
    SQL_PlanDSDesigner8: TStringField;
    SQL_PlanDSDesigner9: TStringField;
    SQL_PlanDSDesigner10: TIntegerField;
    SQL_PlanDSDesigner11: TIntegerField;
    SQL_PlanDSDesigner13: TIntegerField;
    SQL_PlanDSDesigner14: TIntegerField;
    SQL_PlanDSDesigner15: TIntegerField;
    SQL_PlanDSDesigner16: TIntegerField;
    SQL_PlanDSDesigner17: TIntegerField;
    SQL_PlanDSDesigner18: TIntegerField;
    SQL_PlanDSDesigner19: TStringField;
    SQL_PlanDSDesigner20: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Data: TForm_Data;
  YBsCusCode,WXsCusCode,LHsCusCode,TSsCusCode,UserName: String;
implementation


{$R *.dfm}

end.