datam.dfm

delphi和SQL做的超市管理系统

object dm: Tdm
  OldCreateOrder = False
  Left = 297
  Top = 298
  Height = 236
  Width = 406
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=Market_manage;Data Source=127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 16
  end
  object ADO_product: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 't_prod'
    Left = 136
    Top = 16
  end
  object ADO_lb: TADOTable
    Connection = ADOConnection1
    TableName = 't_producttype'
    Left = 224
    Top = 16
  end
  object ADOQ_tmpsell: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 40
    Top = 80
  end
  object ADO_tmpsell: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADO_tmpsellCalcFields
    TableName = 'tmpsell'
    Left = 136
    Top = 80
    object ADO_tmpsellsum: TFloatField
      FieldKind = fkCalculated
      FieldName = 'sum'
      Calculated = True
    end
    object ADO_tmpsellsell_id: TAutoIncField
      DisplayWidth = 5
      FieldName = 'sell_id'
      ReadOnly = True
    end
    object ADO_tmpsellsell_prod_id: TWideStringField
      DisplayWidth = 4
      FieldName = 'sell_prod_id'
      Size = 12
    end
    object ADO_tmpsellsell_prod_name: TWideStringField
      DisplayWidth = 10
      FieldName = 'sell_prod_name'
      Size = 50
    end
    object ADO_tmpsellsell_prod_price: TBCDField
      DisplayWidth = 5
      FieldName = 'sell_prod_price'
      Precision = 19
    end
    object ADO_tmpsellsell_number: TIntegerField
      DisplayWidth = 5
      FieldName = 'sell_number'
    end
    object ADO_tmpsellseller_name: TWideStringField
      DisplayWidth = 10
      FieldName = 'seller_name'
      Size = 30
    end
    object ADO_tmpsellsell_time: TDateTimeField
      FieldName = 'sell_time'
    end
  end
  object ADO_user: TADOTable
    Connection = ADOConnection1
    TableName = 't_user'
    Left = 224
    Top = 80
  end
  object ADO_sell: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADO_sellCalcFields
    TableName = 't_sell'
    Left = 40
    Top = 136
    object ADO_sellsell_prod_id: TWideStringField
      FieldName = 'sell_prod_id'
      Size = 12
    end
    object ADO_sellsell_prod_name: TWideStringField
      FieldName = 'sell_prod_name'
      Size = 50
    end
    object ADO_sellsell_prod_price: TBCDField
      FieldName = 'sell_prod_price'
      Precision = 19
    end
    object ADO_sellsell_number: TIntegerField
      FieldName = 'sell_number'
    end
    object ADO_sellseller_name: TWideStringField
      FieldName = 'seller_name'
      Size = 30
    end
    object ADO_sellsell_time: TDateTimeField
      FieldName = 'sell_time'
    end
    object ADO_sellsum: TFloatField
      FieldKind = fkCalculated
      FieldName = 'sum'
      Calculated = True
    end
    object ADO_sellsell_id: TAutoIncField
      FieldName = 'sell_id'
      ReadOnly = True
    end
  end
  object ADOQ_cx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 128
    Top = 136
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_product
    Left = 224
    Top = 136
  end
  object RvDataSetConnection2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_sell
    Left = 320
    Top = 80
  end
end