datamodule.~dfm

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

object DM: TDM
  OldCreateOrder = True
  Left = 124
  Top = 164
  Height = 338
  Width = 565
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Scheme.mdb;Persis' +
      't Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 200
    Top = 8
  end
  object AQ_Department: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Department')
    Left = 264
    Top = 192
    object AQ_DepartmentDepartment_ID: TIntegerField
      FieldName = 'Department_ID'
    end
    object AQ_DepartmentDepartment_Name: TWideStringField
      FieldName = 'Department_Name'
      Size = 10
    end
    object AQ_DepartmentDepartment_Principal: TWideStringField
      FieldName = 'Department_Principal'
      Size = 10
    end
    object AQ_DepartmentDepartment_Num: TIntegerField
      FieldName = 'Department_Num'
    end
    object AQ_DepartmentDepartment_Throughput: TWideStringField
      FieldName = 'Department_Throughput'
      Size = 50
    end
    object AQ_DepartmentMemo: TMemoField
      FieldName = 'Memo'
      BlobType = ftMemo
    end
  end
  object DepartmentDS: TDataSource
    DataSet = AQ_Department
    Left = 264
    Top = 256
  end
  object AQ_Scheme: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Scheme')
    Left = 24
    Top = 192
    object AQ_SchemeScheme_No: TSmallintField
      FieldName = 'Scheme_No'
    end
    object AQ_SchemeScheme_Time: TDateTimeField
      FieldName = 'Scheme_Time'
    end
    object AQ_SchemeCredence_ID: TWideStringField
      FieldName = 'Credence_ID'
    end
    object AQ_SchemeCredence_OID: TWideStringField
      FieldName = 'Credence_OID'
      Size = 50
    end
    object AQ_SchemeDepartment_ID: TIntegerField
      FieldName = 'Department_ID'
    end
    object AQ_SchemeDepartment_Name: TWideStringField
      FieldName = 'Department_Name'
      Size = 10
    end
    object AQ_SchemeProduct_Name: TWideStringField
      FieldName = 'Product_Name'
      Size = 10
    end
    object AQ_SchemeProduct_ID: TIntegerField
      FieldName = 'Product_ID'
    end
    object AQ_SchemeProduct_Standard: TWideStringField
      FieldName = 'Product_Standard'
    end
    object AQ_SchemeProduct_Unit: TWideStringField
      FieldName = 'Product_Unit'
      Size = 10
    end
    object AQ_SchemeScheme_Num: TWideStringField
      FieldName = 'Scheme_Num'
      Size = 10
    end
    object AQ_SchemeScheme_Memo: TMemoField
      FieldName = 'Scheme_Memo'
      BlobType = ftMemo
    end
    object AQ_SchemeScheme_State: TWideStringField
      FieldName = 'Scheme_State'
      Size = 2
    end
    object AQ_SchemeScheme_ALLNum: TWideStringField
      FieldName = 'Scheme_ALLNum'
    end
  end
  object SchemeDS: TDataSource
    DataSet = AT_Scheme
    Left = 24
    Top = 136
  end
  object AQ_Product: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From Product')
    Left = 331
    Top = 192
    object AQ_ProductProduct_Name: TWideStringField
      FieldName = 'Product_Name'
    end
    object AQ_ProductProduct_ID: TIntegerField
      FieldName = 'Product_ID'
    end
    object AQ_ProductProduct_Standard: TWideStringField
      FieldName = 'Product_Standard'
    end
    object AQ_ProductProduct_Unit: TWideStringField
      FieldName = 'Product_Unit'
      Size = 10
    end
    object AQ_ProductProduct_Purchase: TWideStringField
      FieldName = 'Product_Purchase'
      Size = 10
    end
    object AQ_ProductProduct_Sell: TWideStringField
      FieldName = 'Product_Sell'
      Size = 10
    end
    object AQ_ProductProduct_Describe: TWideStringField
      FieldName = 'Product_Describe'
    end
    object AQ_ProductProduct_Memo: TWideStringField
      FieldName = 'Product_Memo'
      Size = 50
    end
    object AQ_ProductMateriel_Bill: TWideStringField
      FieldName = 'Materiel_Bill'
    end
    object AQ_ProductMateriel_No: TIntegerField
      FieldName = 'Materiel_No'
    end
  end
  object ProductDS: TDataSource
    DataSet = AQ_Product
    Left = 331
    Top = 256
  end
  object AT_Scheme: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Scheme'
    Left = 24
    Top = 72
    object AT_SchemeScheme_No: TSmallintField
      FieldName = 'Scheme_No'
    end
    object AT_SchemeScheme_Time: TDateTimeField
      FieldName = 'Scheme_Time'
    end
    object AT_SchemeCredence_ID: TWideStringField
      FieldName = 'Credence_ID'
    end
    object AT_SchemeCredence_OID: TWideStringField
      FieldName = 'Credence_OID'
      Size = 50
    end
    object AT_SchemeDepartment_ID: TIntegerField
      FieldName = 'Department_ID'
    end
    object AT_SchemeDepartment_Name: TWideStringField
      FieldName = 'Department_Name'
      Size = 10
    end
    object AT_SchemeProduct_Name: TWideStringField
      FieldName = 'Product_Name'
      Size = 10
    end
    object AT_SchemeProduct_ID: TIntegerField
      FieldName = 'Product_ID'
    end
    object AT_SchemeProduct_Standard: TWideStringField
      FieldName = 'Product_Standard'
    end
    object AT_SchemeProduct_Unit: TWideStringField
      FieldName = 'Product_Unit'
      Size = 10
    end
    object AT_SchemeScheme_Num: TWideStringField
      FieldName = 'Scheme_Num'
      Size = 10
    end
    object AT_SchemeScheme_Memo: TMemoField
      FieldName = 'Scheme_Memo'
      BlobType = ftMemo
    end
    object AT_SchemeScheme_State: TWideStringField
      FieldName = 'Scheme_State'
      Size = 2
    end
    object AT_SchemeScheme_ALLNum: TWideStringField
      FieldName = 'Scheme_ALLNum'
    end
  end
  object AQ_SchemeDS: TDataSource
    DataSet = AQ_Scheme
    Left = 24
    Top = 256
  end
  object Materiel_NeedDS: TDataSource
    DataSet = AT_Materiel_Need
    Left = 96
    Top = 136
  end
  object AT_Materiel_Need: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Materiel_Need'
    Left = 96
    Top = 72
    object AT_Materiel_NeedS_Materiel_No: TAutoIncField
      FieldName = 'S_Materiel_No'
      ReadOnly = True
    end
    object AT_Materiel_NeedS_Materiel_Time: TDateTimeField
      FieldName = 'S_Materiel_Time'
    end
    object AT_Materiel_NeedM_Credence_ID: TWideStringField
      FieldName = 'M_Credence_ID'
      Size = 15
    end
    object AT_Materiel_NeedM_Credence_OID: TWideStringField
      FieldName = 'M_Credence_OID'
      Size = 15
    end
    object AT_Materiel_NeedMateriel_Name: TWideStringField
      FieldName = 'Materiel_Name'
    end
    object AT_Materiel_NeedMateriel_Standard: TWideStringField
      FieldName = 'Materiel_Standard'
    end
    object AT_Materiel_NeedMateriel_ID: TIntegerField
      FieldName = 'Materiel_ID'
    end
    object AT_Materiel_NeedMateriel_Unit: TWideStringField
      FieldName = 'Materiel_Unit'
    end
    object AT_Materiel_NeedS_Materiel_Num: TIntegerField
      FieldName = 'S_Materiel_Num'
    end
    object AT_Materiel_NeedS_Materiel_Memo: TWideStringField
      FieldName = 'S_Materiel_Memo'
      Size = 50
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Materiel_Stock')
    Left = 392
    Top = 72
    object ADOQuery1S_Materiel_No: TAutoIncField
      FieldName = 'S_Materiel_No'
      ReadOnly = True
    end
    object ADOQuery1S_Materiel_Time: TDateTimeField
      FieldName = 'S_Materiel_Time'
    end
    object ADOQuery1S_Materiel_ID: TIntegerField
      FieldName = 'S_Materiel_ID'
    end
    object ADOQuery1S_Credence_ID: TWideStringField
      FieldName = 'S_Credence_ID'
      Size = 15
    end
    object ADOQuery1S_Credence_OID: TWideStringField
      FieldName = 'S_Credence_OID'
      Size = 15
    end
    object ADOQuery1Materiel_Name: TWideStringField
      FieldName = 'Materiel_Name'
    end
    object ADOQuery1Materiel_Standard: TWideStringField
      FieldName = 'Materiel_Standard'
    end
    object ADOQuery1Materiel_ID: TIntegerField
      FieldName = 'Materiel_ID'
    end
    object ADOQuery1Materiel_Unit: TWideStringField
      FieldName = 'Materiel_Unit'
    end
    object ADOQuery1Materiel_Price: TIntegerField
      FieldName = 'Materiel_Price'
    end