datamodule.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

object DM: TDM
  OldCreateOrder = True
  Left = 285
  Top = 112
  Height = 394
  Width = 588
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\Qua' +
      'lity.mdb;Mode=Share Deny None;Extended Properties="";Persist Sec' +
      'urity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry' +
      ' Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;' +
      'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk ' +
      'Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Databas' +
      'e Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:E' +
      'ncrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fal' +
      'se;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=' +
      'False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 232
    Top = 16
  end
  object UserDS: TDataSource
    DataSet = AQ_User
    Left = 40
    Top = 120
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 280
    Top = 72
  end
  object AQDS: TDataSource
    DataSet = ADOQuery1
    Left = 280
    Top = 120
  end
  object AQ_Materials_QualityDS: TDataSource
    DataSet = AQ_Materials_Quality
    Left = 200
    Top = 120
  end
  object AQ_Supply: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Supply')
    Left = 200
    Top = 168
    object AQ_SupplySupply_ID: TWideStringField
      FieldName = 'Supply_ID'
      Size = 5
    end
    object AQ_SupplySupply_Name: TWideStringField
      FieldName = 'Supply_Name'
    end
  end
  object SupplyDS: TDataSource
    DataSet = AQ_Supply
    Left = 200
    Top = 216
  end
  object AQ_MaterialsDS: TDataSource
    DataSet = AQ_Materials
    Left = 120
    Top = 216
  end
  object AQ_Materials_Quality: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Materials_Check_Bill')
    Left = 200
    Top = 72
    object AQ_Materials_QualityBill_Time: TDateTimeField
      FieldName = 'Bill_Time'
    end
    object AQ_Materials_QualityUcheckBill_No: TWideStringField
      FieldName = 'UcheckBill_No'
    end
    object AQ_Materials_QualityOrder_form_No: TWideStringField
      FieldName = 'Order_form_No'
    end
    object AQ_Materials_QualitySupply_ID: TWideStringField
      FieldName = 'Supply_ID'
      Size = 5
    end
    object AQ_Materials_QualitySupply_Name: TWideStringField
      FieldName = 'Supply_Name'
    end
    object AQ_Materials_QualityDeliver_No: TWideStringField
      FieldName = 'Deliver_No'
    end
    object AQ_Materials_QualityAuditing: TWideStringField
      FieldName = 'Auditing'
      Size = 10
    end
    object AQ_Materials_QualityHandler: TWideStringField
      FieldName = 'Handler'
      Size = 10
    end
    object AQ_Materials_QualityConstitutor: TWideStringField
      FieldName = 'Constitutor'
    end
    object AQ_Materials_QualityState: TWideStringField
      FieldName = 'State'
      Size = 1
    end
  end
  object AQ_Materials: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Materials')
    Left = 120
    Top = 168
    object AQ_MaterialsMaterials_ID: TWideStringField
      DisplayWidth = 12
      FieldName = 'Materials_ID'
      Size = 10
    end
    object AQ_MaterialsMaterials_Name: TWideStringField
      DisplayWidth = 15
      FieldName = 'Materials_Name'
      Size = 10
    end
    object AQ_MaterialsMaterials_Class: TWideStringField
      DisplayWidth = 15
      FieldName = 'Materials_Class'
      Size = 10
    end
    object AQ_MaterialsMaterials_BatchNo: TWideStringField
      DisplayWidth = 9
      FieldName = 'Materials_BatchNo'
    end
    object AQ_MaterialsMaterials_MUnit: TWideStringField
      DisplayWidth = 15
      FieldName = 'Materials_MUnit'
      Size = 5
    end
    object AQ_MaterialsMaterials_AUnit: TWideStringField
      DisplayWidth = 15
      FieldName = 'Materials_AUnit'
      Size = 5
    end
    object AQ_MaterialsMaterials_Price: TFloatField
      DisplayWidth = 15
      FieldName = 'Materials_Price'
    end
    object AQ_MaterialsMaterials_Amount: TFloatField
      DisplayWidth = 17
      FieldName = 'Materials_Amount'
    end
    object AQ_MaterialsMaterials_SAmount: TFloatField
      DisplayWidth = 18
      FieldName = 'Materials_SAmount'
    end
    object AQ_MaterialsMaterials_AAmount: TFloatField
      DisplayWidth = 18
      FieldName = 'Materials_AAmount'
    end
    object AQ_MaterialsMaterials_Sum: TFloatField
      DisplayWidth = 14
      FieldName = 'Materials_Sum'
    end
    object AQ_MaterialsMaterials_Memo: TMemoField
      DisplayWidth = 16
      FieldName = 'Materials_Memo'
      BlobType = ftMemo
    end
  end
  object AT_Materials: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Materials'
    Left = 40
    Top = 168
    object AT_MaterialsMaterials_ID: TWideStringField
      FieldName = 'Materials_ID'
      Size = 10
    end
    object AT_MaterialsMaterials_Name: TWideStringField
      FieldName = 'Materials_Name'
      Size = 10
    end
    object AT_MaterialsMaterials_Class: TWideStringField
      FieldName = 'Materials_Class'
      Size = 10
    end
    object AT_MaterialsMaterials_BatchNo: TWideStringField
      FieldName = 'Materials_BatchNo'
    end
    object AT_MaterialsMaterials_MUnit: TWideStringField
      FieldName = 'Materials_MUnit'
      Size = 5
    end
    object AT_MaterialsMaterials_AUnit: TWideStringField
      FieldName = 'Materials_AUnit'
      Size = 5
    end
    object AT_MaterialsMaterials_Price: TFloatField
      FieldName = 'Materials_Price'
    end
    object AT_MaterialsMaterials_Amount: TFloatField
      FieldName = 'Materials_Amount'
    end
    object AT_MaterialsMaterials_SAmount: TFloatField
      FieldName = 'Materials_SAmount'
    end
    object AT_MaterialsMaterials_AAmount: TFloatField
      FieldName = 'Materials_AAmount'
    end
    object AT_MaterialsMaterials_Sum: TFloatField
      FieldName = 'Materials_Sum'
    end
    object AT_MaterialsMaterials_Memo: TMemoField
      FieldName = 'Materials_Memo'
      BlobType = ftMemo
    end
  end
  object AT_MaterialsDS: TDataSource
    DataSet = AT_Materials
    Left = 40
    Top = 216
  end
  object AT_Materials_Quality: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Materials_Check'
    Left = 120
    Top = 72
    object AT_Materials_QualityBill_No: TWideStringField
      FieldName = 'Bill_No'
      Size = 10
    end
    object AT_Materials_QualityBill_Time: TDateTimeField
      FieldName = 'Bill_Time'
    end
    object AT_Materials_QualityUcheckBill_No: TWideStringField
      FieldName = 'UcheckBill_No'
    end
    object AT_Materials_QualityOrder_form_No: TWideStringField
      FieldName = 'Order_form_No'
    end
    object AT_Materials_QualitySupply_ID: TWideStringField
      FieldName = 'Supply_ID'
      Size = 5
    end
    object AT_Materials_QualitySupply_Name: TWideStringField
      FieldName = 'Supply_Name'
    end
    object AT_Materials_QualityDeliver_No: TWideStringField
      FieldName = 'Deliver_No'
    end
    object AT_Materials_QualityAuditing: TWideStringField
      FieldName = 'Auditing'
      Size = 10
    end
    object AT_Materials_QualityHandler: TWideStringField
      FieldName = 'Handler'
      Size = 10
    end
    object AT_Materials_QualityConstitutor: TWideStringField
      FieldName = 'Constitutor'
    end
    object AT_Materials_QualityMaterials_ID: TWideStringField
      FieldName = 'Materials_ID'
      Size = 10
    end
    object AT_Materials_QualityMaterials_Name: TWideStringField
      FieldName = 'Materials_Name'
      Size = 10
    end
    object AT_Materials_QualityMaterials_BatchNo: TWideStringField
      FieldName = 'Materials_BatchNo'
    end
    object AT_Materials_QualityMaterials_MUnit: TWideStringField
      FieldName = 'Materials_MUnit'
      Size = 5
    end
    object AT_Materials_QualityMaterials_AUnit: TWideStringField
      FieldName = 'Materials_AUnit'
      Size = 5
    end
    object AT_Materials_QualityMaterials_Price: TFloatField
      FieldName = 'Materials_Price'
    end
    object AT_Materials_QualityMaterials_Amount: TFloatField
      FieldName = 'Materials_Amount'
    end
    object AT_Materials_QualityMaterials_SAmount: TFloatField
      FieldName = 'Materials_SAmount'
    end
    object AT_Materials_QualityMaterials_AAmount: TFloatField
      FieldName = 'Materials_AAmount'
    end
    object AT_Materials_QualityMaterials_Sum: TFloatField
      FieldName = 'Materials_Sum'
    end
    object AT_Materials_QualityMemo: TWideStringField
      FieldName = 'Memo'
      Size = 50
    end
  end
  object AT_Materials_QualityDS: TDataSource
    DataSet = AT_Materials_Quality