unit_main_dm.dfm

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

object Main_DM: TMain_DM
  OldCreateOrder = False
  Left = 391
  Top = 205
  Height = 448
  Width = 633
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=coffe;Data Source=hero'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 88
    Top = 8
  end
  object ADO_CType: TADOTable
    Connection = ADOConn
    TableName = 'ms_customer_type'
    Left = 16
    Top = 64
  end
  object DS_CType: TDataSource
    DataSet = ADO_CType
    Left = 104
    Top = 64
  end
  object ADO_CLevel: TADOTable
    Connection = ADOConn
    TableName = 'ms_customer_level'
    Left = 24
    Top = 112
  end
  object DS_CLevel: TDataSource
    DataSet = ADO_CLevel
    Left = 104
    Top = 104
  end
  object ADO_CCredit: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'ms_customer_credit'
    Left = 24
    Top = 168
    object ADO_CCreditID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADO_CCreditCredit_No: TStringField
      FieldName = 'Credit_No'
      FixedChar = True
      Size = 6
    end
    object ADO_CCreditCredit_Des: TStringField
      FieldName = 'Credit_Des'
      Size = 50
    end
  end
  object DS_CCredit: TDataSource
    DataSet = ADO_CCredit
    Left = 64
    Top = 168
  end
end