datam.dfm

《delphi数据库设计与实例开发》随书光盘

object dm: Tdm
  OldCreateOrder = False
  Left = 266
  Top = 251
  Height = 256
  Width = 393
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=vcd_rate;Data Source=127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object ADO_user: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'cuser'
    Left = 120
    Top = 16
  end
  object ADO_dw: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'dw'
    Left = 32
    Top = 72
  end
  object ADO_lb: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'lb'
    Left = 96
    Top = 72
  end
  object ADO_vip: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'vip'
    Left = 160
    Top = 72
    object ADO_vipDSDesigner: TWideStringField
      FieldName = #35777#21495
      Size = 5
    end
    object ADO_vipDSDesigner2: TDateTimeField
      FieldName = #21150#35777#26085#26399
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADO_vipDSDesigner3: TWideStringField
      FieldName = #22995#21517
      Size = 8
    end
    object ADO_vipDSDesigner4: TWideStringField
      FieldName = #24615#21035
      Size = 2
    end
    object ADO_vipDSDesigner5: TWideStringField
      FieldName = #24180#40836
      Size = 3
    end
    object ADO_vipDSDesigner8: TWideStringField
      FieldName = #35777#31867#22411
      Size = 6
    end
    object ADO_vipDSDesigner9: TBCDField
      FieldName = #25276#37329
      DisplayFormat = '0.00'
      Precision = 19
    end
    object ADO_vipDSDesigner6: TWideStringField
      FieldName = #30005#35805
    end
    object ADO_vipDSDesigner7: TWideStringField
      FieldName = #22320#22336
      Size = 30
    end
    object ADO_vippass: TWideStringField
      FieldName = 'pass'
      Size = 10
    end
  end
  object ADOQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select count(*) from vip where '#35777#31867#22411'='#39#24180#35777#39
      ''
      '')
    Left = 200
    Top = 16
  end
  object ADO_vcd: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'tsvcd'
    Left = 256
    Top = 16
    object ADO_vcdDSDesigner: TWideStringField
      FieldName = #32534#21495
      Size = 12
    end
    object ADO_vcdDSDesigner2: TWideStringField
      FieldName = #22823#31867
      Size = 4
    end
    object ADO_vcdDSDesigner3: TWideStringField
      FieldName = #23567#31867
      Size = 10
    end
    object ADO_vcdDSDesigner4: TWideStringField
      FieldName = #21517#31216
      Size = 50
    end
    object ADO_vcdDSDesigner5: TDateTimeField
      FieldName = #36141#20837#26085#26399
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADO_vcdDSDesigner6: TWideStringField
      FieldName = #20316#32773#23548#28436
    end
    object ADO_vcdDSDesigner7: TWideStringField
      FieldName = #20027#28436
      Size = 50
    end
    object ADO_vcdDSDesigner8: TBCDField
      FieldName = #20215#26684
      DisplayFormat = '0.00'
      Precision = 19
    end
    object ADO_vcdDSDesigner9: TBCDField
      FieldName = #24180#35777#31199#37329
      DisplayFormat = '0.00'
      Precision = 19
    end
    object ADO_vcdDSDesigner10: TBCDField
      FieldName = #26376#35777#31199#37329
      DisplayFormat = '0.00'
      Precision = 19
    end
    object ADO_vcdDSDesigner11: TBCDField
      FieldName = #38646#31199#31199#37329
      DisplayFormat = '0.00'
      Precision = 19
    end
    object ADO_vcdDSDesigner12: TWideStringField
      FieldName = #36135#20301#21495
      Size = 6
    end
    object ADO_vcdDSDesigner13: TWideStringField
      FieldName = #29366#24577
      Size = 4
    end
  end
  object ADO_czdt: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'czdt'
    Left = 248
    Top = 72
  end
  object ADOQ_czbtmp: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 329
    Top = 72
    object ADOQ_czbtmpDSDesigner: TWideStringField
      Alignment = taCenter
      DisplayLabel = #35777'('#25276#37329#21333')'#21495
      DisplayWidth = 16
      FieldName = #35777#21495
      Size = 6
    end
    object ADOQ_czbtmpDSDesigner2: TWideStringField
      Alignment = taCenter
      DisplayLabel = #20070#12289#30879#32534#21495
      FieldName = #32534#21495
      Size = 12
    end
    object ADOQ_czbtmpDSDesigner3: TWideStringField
      DisplayLabel = #20070#12289#30879#21517#31216
      DisplayWidth = 20
      FieldName = #21517#31216
      Size = 50
    end
    object ADOQ_czbtmpDSDesigner4: TDateTimeField
      FieldName = #20986#31199#26085#26399
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQ_czbtmpDSDesigner5: TBCDField
      DisplayWidth = 10
      FieldName = #20986#31199#21333#20215
      DisplayFormat = '0.00'
      Precision = 19
    end
  end
  object ADO_czbtmp: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'czbtmp'
    Left = 328
    Top = 16
    object ADO_czbtmpDSDesigner: TWideStringField
      FieldName = #35777#21495
      Size = 6
    end
    object ADO_czbtmpDSDesigner2: TWideStringField
      FieldName = #32534#21495
      Size = 12
    end
    object ADO_czbtmpDSDesigner3: TWideStringField
      FieldName = #21517#31216
      Size = 50
    end
    object ADO_czbtmpDSDesigner4: TDateTimeField
      FieldName = #20986#31199#26085#26399
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADO_czbtmpDSDesigner5: TBCDField
      FieldName = #20986#31199#21333#20215
      DisplayFormat = '0.00'
      Precision = 19
    end
    object ADO_czbtmpDSDesigner6: TWideStringField
      FieldName = #29366#24577
      Size = 2
    end
  end
  object ADO_cash: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'cashbook'
    Left = 32
    Top = 136
  end
  object ADO_qk: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'qkb'
    Left = 88
    Top = 136
    object ADO_qkDSDesigner: TWideStringField
      FieldName = #35777#21495
      Size = 6
    end
    object ADO_qkDSDesigner2: TBCDField
      FieldName = #37329#39069
      DisplayFormat = '0.00'
      Precision = 19
    end
  end
  object ADO_czb: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'czb'
    Left = 152
    Top = 136
  end
  object ADOQ_cx: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 256
    Top = 136
  end
end