datamodule.~dfm

来自「小型CRM客户关系管理」· ~DFM 代码 · 共 96 行

object DM: TDM
  OldCreateOrder = False
  Left = 279
  Top = 152
  Height = 300
  Width = 379
  object Database: TDatabase
    AliasName = 'Client'
    Connected = True
    DatabaseName = 'DB_Client'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 24
    Top = 8
  end
  object T_Customer: TTable
    DatabaseName = 'DB_Client'
    TableName = 'dbo.Client_Customer'
    Left = 24
    Top = 64
  end
  object T_Order: TTable
    DatabaseName = 'DB_Client'
    IndexFieldNames = 'Order_ID'
    MasterFields = 'Customer_ID'
    MasterSource = DS_Customer
    TableName = 'dbo.Client_Order'
    Left = 96
    Top = 65
  end
  object DS_Customer: TDataSource
    DataSet = T_Customer
    Left = 24
    Top = 112
  end
  object DS_Order: TDataSource
    DataSet = T_Order
    Left = 96
    Top = 112
  end
  object T_City: TTable
    DatabaseName = 'DB_Client'
    TableName = 'dbo.Client_City'
    Left = 24
    Top = 168
  end
  object DS_City: TDataSource
    DataSet = T_City
    Left = 24
    Top = 216
  end
  object T_State: TTable
    DatabaseName = 'DB_Client'
    TableName = 'dbo.Client_State'
    Left = 104
    Top = 168
  end
  object DS_State: TDataSource
    DataSet = T_State
    Left = 104
    Top = 216
  end
  object T_Country: TTable
    DatabaseName = 'DB_Client'
    TableName = 'dbo.Client_Country'
    Left = 176
    Top = 168
  end
  object DS_Country: TDataSource
    DataSet = T_Country
    Left = 176
    Top = 216
  end
  object T_Count: TTable
    Active = True
    DatabaseName = 'DB_Client'
    TableName = 'dbo.Client_Count'
    Left = 248
    Top = 168
    object T_CountCount_Name: TStringField
      FieldName = 'Count_Name'
      Required = True
      FixedChar = True
    end
    object T_CountCount_Value: TIntegerField
      FieldName = 'Count_Value'
      Required = True
    end
  end
  object DS_Count: TDataSource
    DataSet = T_Count
    Left = 248
    Top = 216
  end
end