datamodule.~pas

该系统主要用于生产采购系统

unit DataModule;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB, RpConBDE, RpCon, RpConDS, RpDefine, RpRave,
  RpBase, RpSystem;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    AQ_Department: TADOQuery;
    DepartmentDS: TDataSource;
    AQ_Scheme: TADOQuery;
    SchemeDS: TDataSource;
    AQ_Product: TADOQuery;
    ProductDS: TDataSource;
    AT_Scheme: TADOTable;
    AQ_SchemeDS: TDataSource;
    Materiel_NeedDS: TDataSource;
    AT_Materiel_Need: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    AT_Materiel_Stock: TADOTable;
    Materiel_StockDS: TDataSource;
    AQ_Materiel: TADOQuery;
    MaterialDS: TDataSource;
    RP_Scheme: TRvProject;
    SchemeRDS: TRvDataSetConnection;
    UserDS: TDataSource;
    AQ_User: TADOQuery;
    AQ_Materiel_Need: TADOQuery;
    AQ_Materiel_NeedDS: TDataSource;
    AQ_Materiel_StockDS: TDataSource;
    AQ_Materiel_Stock: TADOQuery;
    RvSystem1: TRvSystem;
    ADOQuery1S_Materiel_No: TAutoIncField;
    ADOQuery1S_Materiel_Time: TDateTimeField;
    ADOQuery1S_Materiel_ID: TIntegerField;
    ADOQuery1S_Credence_ID: TWideStringField;
    ADOQuery1S_Credence_OID: TWideStringField;
    ADOQuery1Materiel_Name: TWideStringField;
    ADOQuery1Materiel_Standard: TWideStringField;
    ADOQuery1Materiel_ID: TIntegerField;
    ADOQuery1Materiel_Unit: TWideStringField;
    ADOQuery1Materiel_Price: TIntegerField;
    ADOQuery1S_Materiel_Num: TIntegerField;
    ADOQuery1S_Materiel_Price: TIntegerField;
    ADOQuery1S_Materiel_Memo: TWideStringField;
    AT_SchemeScheme_No: TSmallintField;
    AT_SchemeScheme_Time: TDateTimeField;
    AT_SchemeCredence_ID: TWideStringField;
    AT_SchemeCredence_OID: TWideStringField;
    AT_SchemeDepartment_ID: TIntegerField;
    AT_SchemeDepartment_Name: TWideStringField;
    AT_SchemeProduct_Name: TWideStringField;
    AT_SchemeProduct_ID: TIntegerField;
    AT_SchemeProduct_Standard: TWideStringField;
    AT_SchemeProduct_Unit: TWideStringField;
    AT_SchemeScheme_Num: TWideStringField;
    AT_SchemeScheme_Memo: TMemoField;
    AT_SchemeScheme_State: TWideStringField;
    AT_SchemeScheme_ALLNum: TWideStringField;
    AT_Materiel_NeedS_Materiel_No: TAutoIncField;
    AT_Materiel_NeedS_Materiel_Time: TDateTimeField;
    AT_Materiel_NeedM_Credence_ID: TWideStringField;
    AT_Materiel_NeedM_Credence_OID: TWideStringField;
    AT_Materiel_NeedMateriel_Name: TWideStringField;
    AT_Materiel_NeedMateriel_Standard: TWideStringField;
    AT_Materiel_NeedMateriel_ID: TIntegerField;
    AT_Materiel_NeedMateriel_Unit: TWideStringField;
    AT_Materiel_NeedS_Materiel_Num: TIntegerField;
    AT_Materiel_NeedS_Materiel_Memo: TWideStringField;
    AT_Materiel_StockS_Materiel_No: TAutoIncField;
    AT_Materiel_StockS_Materiel_Time: TDateTimeField;
    AT_Materiel_StockS_Materiel_ID: TIntegerField;
    AT_Materiel_StockS_Credence_ID: TWideStringField;
    AT_Materiel_StockS_Credence_OID: TWideStringField;
    AT_Materiel_StockMateriel_Name: TWideStringField;
    AT_Materiel_StockMateriel_Standard: TWideStringField;
    AT_Materiel_StockMateriel_ID: TIntegerField;
    AT_Materiel_StockMateriel_Unit: TWideStringField;
    AT_Materiel_StockMateriel_Price: TIntegerField;
    AT_Materiel_StockS_Materiel_Num: TIntegerField;
    AT_Materiel_StockS_Materiel_Price: TIntegerField;
    AT_Materiel_StockS_Materiel_Memo: TWideStringField;
    AQ_UserUser_ID: TIntegerField;
    AQ_UserUser_Name: TWideStringField;
    AQ_UserUser_Password: TWideStringField;
    AQ_UserUser_Popedom: TWideStringField;
    AQ_MaterielMateriel_ID: TIntegerField;
    AQ_MaterielMateriel_Name: TWideStringField;
    AQ_MaterielMateriel_Class: TWideStringField;
    AQ_MaterielMateriel_Standard: TWideStringField;
    AQ_MaterielMateriel_Pirce: TIntegerField;
    AQ_MaterielMateriel_Unit: TWideStringField;
    AQ_MaterielMateriel_Describe: TWideStringField;
    AQ_MaterielMateriel_Memo: TMemoField;
    AQ_MaterielMateriel_Bill: TWideStringField;
    AQ_MaterielMateriel_No: TIntegerField;
    AQ_DepartmentDepartment_ID: TIntegerField;
    AQ_DepartmentDepartment_Name: TWideStringField;
    AQ_DepartmentDepartment_Principal: TWideStringField;
    AQ_DepartmentDepartment_Num: TIntegerField;
    AQ_DepartmentDepartment_Throughput: TWideStringField;
    AQ_DepartmentMemo: TMemoField;
    AQ_ProductProduct_Name: TWideStringField;
    AQ_ProductProduct_ID: TIntegerField;
    AQ_ProductProduct_Standard: TWideStringField;
    AQ_ProductProduct_Unit: TWideStringField;
    AQ_ProductProduct_Purchase: TWideStringField;
    AQ_ProductProduct_Sell: TWideStringField;
    AQ_ProductProduct_Describe: TWideStringField;
    AQ_ProductProduct_Memo: TWideStringField;
    AQ_ProductMateriel_Bill: TWideStringField;
    AQ_ProductMateriel_No: TIntegerField;
    AQ_SchemeScheme_No: TSmallintField;
    AQ_SchemeScheme_Time: TDateTimeField;
    AQ_SchemeCredence_ID: TWideStringField;
    AQ_SchemeCredence_OID: TWideStringField;
    AQ_SchemeDepartment_ID: TIntegerField;
    AQ_SchemeDepartment_Name: TWideStringField;
    AQ_SchemeProduct_Name: TWideStringField;
    AQ_SchemeProduct_ID: TIntegerField;
    AQ_SchemeProduct_Standard: TWideStringField;
    AQ_SchemeProduct_Unit: TWideStringField;
    AQ_SchemeScheme_Num: TWideStringField;
    AQ_SchemeScheme_Memo: TMemoField;
    AQ_SchemeScheme_State: TWideStringField;
    AQ_SchemeScheme_ALLNum: TWideStringField;
    AQ_Materiel_NeedS_Materiel_No: TAutoIncField;
    AQ_Materiel_NeedS_Materiel_Time: TDateTimeField;
    AQ_Materiel_NeedM_Credence_ID: TWideStringField;
    AQ_Materiel_NeedM_Credence_OID: TWideStringField;
    AQ_Materiel_NeedMateriel_Name: TWideStringField;
    AQ_Materiel_NeedMateriel_Standard: TWideStringField;
    AQ_Materiel_NeedMateriel_ID: TIntegerField;
    AQ_Materiel_NeedMateriel_Unit: TWideStringField;
    AQ_Materiel_NeedS_Materiel_Num: TIntegerField;
    AQ_Materiel_NeedS_Materiel_Memo: TWideStringField;
    AQ_Materiel_StockS_Materiel_No: TAutoIncField;
    AQ_Materiel_StockS_Materiel_Time: TDateTimeField;
    AQ_Materiel_StockS_Materiel_ID: TIntegerField;
    AQ_Materiel_StockS_Credence_ID: TWideStringField;
    AQ_Materiel_StockS_Credence_OID: TWideStringField;
    AQ_Materiel_StockMateriel_Name: TWideStringField;
    AQ_Materiel_StockMateriel_Standard: TWideStringField;
    AQ_Materiel_StockMateriel_ID: TIntegerField;
    AQ_Materiel_StockMateriel_Unit: TWideStringField;
    AQ_Materiel_StockMateriel_Price: TIntegerField;
    AQ_Materiel_StockS_Materiel_Num: TIntegerField;
    AQ_Materiel_StockS_Materiel_Price: TIntegerField;
    AQ_Materiel_StockS_Materiel_Memo: TWideStringField;
    RP_Material_Need: TRvProject;
    RP_Material_NeedRDS: TRvDataSetConnection;
    RP_Material_Stock: TRvProject;
    Material_StockRDS: TRvDataSetConnection;
    AQ_Materiel_StockS_Materiel_ALLPrice: TFloatField;
    AT_Materiel_StockS_Materiel_ALLPrice: TFloatField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.