datamodule.pas

随着计算机的日益普及

unit DataModule;

interface

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

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    UserDS: TDataSource;
    ADOQuery1: TADOQuery;
    AQDS: TDataSource;
    AQ_Materials_QualityDS: TDataSource;
    AQ_Supply: TADOQuery;
    SupplyDS: TDataSource;
    AQ_SupplySupply_ID: TWideStringField;
    AQ_SupplySupply_Name: TWideStringField;
    AQ_MaterialsDS: TDataSource;
    AQ_Materials_Quality: TADOQuery;
    AQ_Materials: TADOQuery;
    AQ_MaterialsMaterials_ID: TWideStringField;
    AQ_MaterialsMaterials_Name: TWideStringField;
    AQ_MaterialsMaterials_Class: TWideStringField;
    AQ_MaterialsMaterials_BatchNo: TWideStringField;
    AQ_MaterialsMaterials_MUnit: TWideStringField;
    AQ_MaterialsMaterials_AUnit: TWideStringField;
    AQ_MaterialsMaterials_Price: TFloatField;
    AQ_MaterialsMaterials_Amount: TFloatField;
    AQ_MaterialsMaterials_SAmount: TFloatField;
    AQ_MaterialsMaterials_AAmount: TFloatField;
    AQ_MaterialsMaterials_Sum: TFloatField;
    AQ_MaterialsMaterials_Memo: TMemoField;
    AT_Materials: TADOTable;
    AT_MaterialsDS: TDataSource;
    AT_Materials_Quality: TADOTable;
    AT_Materials_QualityDS: TDataSource;
    AQ_Materials_QualityBill_Time: TDateTimeField;
    AQ_Materials_QualityUcheckBill_No: TWideStringField;
    AQ_Materials_QualityOrder_form_No: TWideStringField;
    AQ_Materials_QualitySupply_ID: TWideStringField;
    AQ_Materials_QualitySupply_Name: TWideStringField;
    AQ_Materials_QualityDeliver_No: TWideStringField;
    AQ_Materials_QualityAuditing: TWideStringField;
    AQ_Materials_QualityHandler: TWideStringField;
    AQ_Materials_QualityConstitutor: TWideStringField;
    AQ_Materials_QualityState: TWideStringField;
    AQ_User: TADOQuery;
    AQ_UserUser_ID: TWideStringField;
    AQ_UserUser_Name: TWideStringField;
    AQ_UserUser_Password: TWideStringField;
    AT_MaterialsMaterials_ID: TWideStringField;
    AT_MaterialsMaterials_Name: TWideStringField;
    AT_MaterialsMaterials_Class: TWideStringField;
    AT_MaterialsMaterials_BatchNo: TWideStringField;
    AT_MaterialsMaterials_MUnit: TWideStringField;
    AT_MaterialsMaterials_AUnit: TWideStringField;
    AT_MaterialsMaterials_Price: TFloatField;
    AT_MaterialsMaterials_Amount: TFloatField;
    AT_MaterialsMaterials_SAmount: TFloatField;
    AT_MaterialsMaterials_AAmount: TFloatField;
    AT_MaterialsMaterials_Sum: TFloatField;
    AT_MaterialsMaterials_Memo: TMemoField;
    ProductDS: TDataSource;
    AT_Manufacture: TADOTable;
    ManufactureDS: TDataSource;
    AT_ManufactureManufacture_ID: TWideStringField;
    AT_ManufactureManufacture_Name: TWideStringField;
    AQ_Product_check: TADOQuery;
    Product_checkDS: TDataSource;
    AQ_Prodcut: TADOQuery;
    AQ_ProdcutProduce_No: TWideStringField;
    AQ_ProdcutProduct_ID: TWideStringField;
    AQ_ProdcutProduct_Name: TWideStringField;
    AQ_ProdcutProduct_Class: TWideStringField;
    AQ_ProdcutProduct_Unit: TWideStringField;
    AQ_ProdcutScheme_Num: TSmallintField;
    AQ_ProdcutComplete_Num: TSmallintField;
    AT_Product_check: TADOTable;
    AT_Product_checkDS: TDataSource;
    AQ_Product_checkQuality_check_No: TWideStringField;
    AQ_Product_checkQuality_check_Time: TDateTimeField;
    AQ_Product_checkBill_Time: TDateTimeField;
    AQ_Product_checkManufacture_Name: TWideStringField;
    AQ_Product_checkManufacture_ID: TWideStringField;
    AQ_Product_checkAuditing: TWideStringField;
    AQ_Product_checkHandler: TWideStringField;
    AQ_Product_checkConstitutor: TWideStringField;
    AQ_Product_checkState: TWideStringField;
    AT_Product_checkQuality_check_No: TWideStringField;
    AT_Product_checkQuality_check_Time: TDateTimeField;
    AT_Product_checkBill_Time: TDateTimeField;
    AT_Product_checkManufacture_Name: TWideStringField;
    AT_Product_checkManufacture_ID: TWideStringField;
    AT_Product_checkProduce_No: TWideStringField;
    AT_Product_checkProduct_ID: TWideStringField;
    AT_Product_checkProduct_Name: TWideStringField;
    AT_Product_checkProduct_Unit: TWideStringField;
    AT_Product_checkProduct_BatchNo: TWideStringField;
    AT_Product_checkComplete_Num: TSmallintField;
    AT_Product_checkQuality_goods: TSmallintField;
    AT_Product_checkInferior: TSmallintField;
    AT_Product_checkWaster: TSmallintField;
    AT_Product_checkAuditing: TWideStringField;
    AT_Product_checkHandler: TWideStringField;
    AT_Product_checkConstitutor: TWideStringField;
    AT_Product_checkMemo: TMemoField;
    AT_Product_checkState: TWideStringField;
    AT_Materials_QualityBill_No: TWideStringField;
    AT_Materials_QualityBill_Time: TDateTimeField;
    AT_Materials_QualityUcheckBill_No: TWideStringField;
    AT_Materials_QualityOrder_form_No: TWideStringField;
    AT_Materials_QualitySupply_ID: TWideStringField;
    AT_Materials_QualitySupply_Name: TWideStringField;
    AT_Materials_QualityDeliver_No: TWideStringField;
    AT_Materials_QualityAuditing: TWideStringField;
    AT_Materials_QualityHandler: TWideStringField;
    AT_Materials_QualityConstitutor: TWideStringField;
    AT_Materials_QualityMaterials_ID: TWideStringField;
    AT_Materials_QualityMaterials_Name: TWideStringField;
    AT_Materials_QualityMaterials_BatchNo: TWideStringField;
    AT_Materials_QualityMaterials_MUnit: TWideStringField;
    AT_Materials_QualityMaterials_AUnit: TWideStringField;
    AT_Materials_QualityMaterials_Price: TFloatField;
    AT_Materials_QualityMaterials_Amount: TFloatField;
    AT_Materials_QualityMaterials_SAmount: TFloatField;
    AT_Materials_QualityMaterials_AAmount: TFloatField;
    AT_Materials_QualityMaterials_Sum: TFloatField;
    AT_Materials_QualityMemo: TWideStringField;
    AQ_Product_Analyse: TADOQuery;
    AQ_Product_AnalyseQuality_check_No: TWideStringField;
    AQ_Product_AnalyseQuality_check_Time: TDateTimeField;
    AQ_Product_AnalyseBill_Time: TDateTimeField;
    AQ_Product_AnalyseManufacture_Name: TWideStringField;
    AQ_Product_AnalyseManufacture_ID: TWideStringField;
    AQ_Product_AnalyseProduce_No: TWideStringField;
    AQ_Product_AnalyseProduct_ID: TWideStringField;
    AQ_Product_AnalyseProduct_Name: TWideStringField;
    AQ_Product_AnalyseProduct_Unit: TWideStringField;
    AQ_Product_AnalyseProduct_BatchNo: TWideStringField;
    AQ_Product_AnalyseComplete_Num: TSmallintField;
    AQ_Product_AnalyseQuality_goods: TSmallintField;
    AQ_Product_AnalyseInferior: TSmallintField;
    AQ_Product_AnalyseWaster: TSmallintField;
    AQ_Product_AnalyseAuditing: TWideStringField;
    AQ_Product_AnalyseHandler: TWideStringField;
    AQ_Product_AnalyseConstitutor: TWideStringField;
    AQ_Product_AnalyseMemo: TMemoField;
    AQ_Product_AnalyseState: TWideStringField;
    AQ_Product_AnalyseDS: TDataSource;
    Product_QualityRV: TRvProject;
    RvSystem1: TRvSystem;
    Product_QualityRDS: TRvDataSetConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.