datamodule.~dfm

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

    object ADOQuery1S_Materiel_Num: TIntegerField
      FieldName = 'S_Materiel_Num'
    end
    object ADOQuery1S_Materiel_Price: TIntegerField
      FieldName = 'S_Materiel_Price'
    end
    object ADOQuery1S_Materiel_Memo: TWideStringField
      FieldName = 'S_Materiel_Memo'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 392
    Top = 136
  end
  object AT_Materiel_Stock: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Materiel_Stock'
    Left = 184
    Top = 72
    object AT_Materiel_StockS_Materiel_No: TAutoIncField
      FieldName = 'S_Materiel_No'
      ReadOnly = True
    end
    object AT_Materiel_StockS_Materiel_Time: TDateTimeField
      FieldName = 'S_Materiel_Time'
    end
    object AT_Materiel_StockS_Materiel_ID: TIntegerField
      FieldName = 'S_Materiel_ID'
    end
    object AT_Materiel_StockS_Credence_ID: TWideStringField
      FieldName = 'S_Credence_ID'
      Size = 15
    end
    object AT_Materiel_StockS_Credence_OID: TWideStringField
      FieldName = 'S_Credence_OID'
      Size = 15
    end
    object AT_Materiel_StockMateriel_Name: TWideStringField
      FieldName = 'Materiel_Name'
    end
    object AT_Materiel_StockMateriel_Standard: TWideStringField
      FieldName = 'Materiel_Standard'
    end
    object AT_Materiel_StockMateriel_ID: TIntegerField
      FieldName = 'Materiel_ID'
    end
    object AT_Materiel_StockMateriel_Unit: TWideStringField
      FieldName = 'Materiel_Unit'
    end
    object AT_Materiel_StockMateriel_Price: TIntegerField
      FieldName = 'Materiel_Price'
    end
    object AT_Materiel_StockS_Materiel_Num: TIntegerField
      FieldName = 'S_Materiel_Num'
    end
    object AT_Materiel_StockS_Materiel_Price: TIntegerField
      FieldName = 'S_Materiel_Price'
    end
    object AT_Materiel_StockS_Materiel_Memo: TWideStringField
      FieldName = 'S_Materiel_Memo'
      Size = 50
    end
    object AT_Materiel_StockS_Materiel_ALLPrice: TFloatField
      FieldName = 'S_Materiel_ALLPrice'
    end
  end
  object Materiel_StockDS: TDataSource
    DataSet = AT_Materiel_Stock
    Left = 184
    Top = 136
  end
  object AQ_Materiel: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Materiel')
    Left = 331
    Top = 72
    object AQ_MaterielMateriel_ID: TIntegerField
      FieldName = 'Materiel_ID'
    end
    object AQ_MaterielMateriel_Name: TWideStringField
      FieldName = 'Materiel_Name'
    end
    object AQ_MaterielMateriel_Class: TWideStringField
      FieldName = 'Materiel_Class'
      Size = 10
    end
    object AQ_MaterielMateriel_Standard: TWideStringField
      FieldName = 'Materiel_Standard'
      Size = 10
    end
    object AQ_MaterielMateriel_Pirce: TIntegerField
      FieldName = 'Materiel_Pirce'
    end
    object AQ_MaterielMateriel_Unit: TWideStringField
      FieldName = 'Materiel_Unit'
      Size = 10
    end
    object AQ_MaterielMateriel_Describe: TWideStringField
      FieldName = 'Materiel_Describe'
    end
    object AQ_MaterielMateriel_Memo: TMemoField
      FieldName = 'Materiel_Memo'
      BlobType = ftMemo
    end
    object AQ_MaterielMateriel_Bill: TWideStringField
      FieldName = 'Materiel_Bill'
    end
    object AQ_MaterielMateriel_No: TIntegerField
      FieldName = 'Materiel_No'
    end
  end
  object MaterialDS: TDataSource
    DataSet = AQ_Materiel
    Left = 331
    Top = 136
  end
  object RP_Scheme: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\Scheme.rav'
    Left = 392
    Top = 192
  end
  object SchemeRDS: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = AQ_Scheme
    Left = 392
    Top = 256
  end
  object UserDS: TDataSource
    DataSet = AQ_User
    Left = 264
    Top = 136
  end
  object AQ_User: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Scheme_User')
    Left = 264
    Top = 72
    object AQ_UserUser_ID: TIntegerField
      FieldName = 'User_ID'
    end
    object AQ_UserUser_Name: TWideStringField
      FieldName = 'User_Name'
      Size = 10
    end
    object AQ_UserUser_Password: TWideStringField
      FieldName = 'User_Password'
    end
    object AQ_UserUser_Popedom: TWideStringField
      FieldName = 'User_Popedom'
    end
  end
  object AQ_Materiel_Need: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Materiel_Need')
    Left = 96
    Top = 192
    object AQ_Materiel_NeedS_Materiel_No: TAutoIncField
      FieldName = 'S_Materiel_No'
      ReadOnly = True
    end
    object AQ_Materiel_NeedS_Materiel_Time: TDateTimeField
      FieldName = 'S_Materiel_Time'
    end
    object AQ_Materiel_NeedM_Credence_ID: TWideStringField
      FieldName = 'M_Credence_ID'
      Size = 15
    end
    object AQ_Materiel_NeedM_Credence_OID: TWideStringField
      FieldName = 'M_Credence_OID'
      Size = 15
    end
    object AQ_Materiel_NeedMateriel_Name: TWideStringField
      FieldName = 'Materiel_Name'
    end
    object AQ_Materiel_NeedMateriel_Standard: TWideStringField
      FieldName = 'Materiel_Standard'
    end
    object AQ_Materiel_NeedMateriel_ID: TIntegerField
      FieldName = 'Materiel_ID'
    end
    object AQ_Materiel_NeedMateriel_Unit: TWideStringField
      FieldName = 'Materiel_Unit'
    end
    object AQ_Materiel_NeedS_Materiel_Num: TIntegerField
      FieldName = 'S_Materiel_Num'
    end
    object AQ_Materiel_NeedS_Materiel_Memo: TWideStringField
      FieldName = 'S_Materiel_Memo'
      Size = 50
    end
  end
  object AQ_Materiel_NeedDS: TDataSource
    DataSet = AQ_Materiel_Need
    Left = 96
    Top = 256
  end
  object AQ_Materiel_StockDS: TDataSource
    DataSet = AQ_Materiel_Stock
    Left = 184
    Top = 256
  end
  object AQ_Materiel_Stock: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Materiel_Stock')
    Left = 184
    Top = 192
    object AQ_Materiel_StockS_Materiel_No: TAutoIncField
      FieldName = 'S_Materiel_No'
      ReadOnly = True
    end
    object AQ_Materiel_StockS_Materiel_Time: TDateTimeField
      FieldName = 'S_Materiel_Time'
    end
    object AQ_Materiel_StockS_Materiel_ID: TIntegerField
      FieldName = 'S_Materiel_ID'
    end
    object AQ_Materiel_StockS_Credence_ID: TWideStringField
      FieldName = 'S_Credence_ID'
      Size = 15
    end
    object AQ_Materiel_StockS_Credence_OID: TWideStringField
      FieldName = 'S_Credence_OID'
      Size = 15
    end
    object AQ_Materiel_StockMateriel_Name: TWideStringField
      FieldName = 'Materiel_Name'
    end
    object AQ_Materiel_StockMateriel_Standard: TWideStringField
      FieldName = 'Materiel_Standard'
    end
    object AQ_Materiel_StockMateriel_ID: TIntegerField
      FieldName = 'Materiel_ID'
    end
    object AQ_Materiel_StockMateriel_Unit: TWideStringField
      FieldName = 'Materiel_Unit'
    end
    object AQ_Materiel_StockMateriel_Price: TIntegerField
      FieldName = 'Materiel_Price'
    end
    object AQ_Materiel_StockS_Materiel_Num: TIntegerField
      FieldName = 'S_Materiel_Num'
    end
    object AQ_Materiel_StockS_Materiel_Price: TIntegerField
      FieldName = 'S_Materiel_Price'
    end
    object AQ_Materiel_StockS_Materiel_Memo: TWideStringField
      FieldName = 'S_Materiel_Memo'
      Size = 50
    end
    object AQ_Materiel_StockS_Materiel_ALLPrice: TFloatField
      FieldName = 'S_Materiel_ALLPrice'
    end
  end
  object RvSystem1: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = 'Report Preview'
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup]
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 320
    Top = 8
  end
  object RP_Material_Need: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\Materiel_need.rav'
    Left = 472
    Top = 72
  end
  object RP_Material_NeedRDS: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = AQ_Materiel_Need
    Left = 472
    Top = 136
  end
  object RP_Material_Stock: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\Materiel_Stock.rav'
    Left = 472
    Top = 192
  end
  object Material_StockRDS: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = AQ_Materiel_Stock
    Left = 472
    Top = 256
  end
end