datam.dfm

图书影碟租赁管理系统

object dm: Tdm
  OldCreateOrder = False
  Left = 398
  Top = 138
  Height = 337
  Width = 374
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\rtdata.mdb;Per' +
      'sist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 16
  end
  object ADO_lb: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'lb'
    Left = 184
    Top = 88
  end
  object ADO_vcd: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'tsvcd'
    Left = 240
    Top = 16
  end
  object ADOQ_cx: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 280
    Top = 160
  end
  object ADO_user: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'user'
    Left = 120
    Top = 16
  end
  object ADO_czbtmp: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'czbtmp'
    Left = 304
    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 ADOQuery: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select count(*) from vip where '#35777#31867#22411'='#39#24180#35777#39
      ''
      '')
    Left = 184
    Top = 16
  end
  object ADO_vip: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'vip'
    Left = 48
    Top = 80
    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 ADO_czdt: TADOTable
    Connection = ADOConnection1
    TableDirect = True
    TableName = 'czdt'
    Left = 112
    Top = 88
  end
  object ADOQ_czbtmp: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 249
    Top = 88
    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_cash: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'cashbook'
    Left = 40
    Top = 152
  end
  object ADO_qk: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'qkb'
    Left = 112
    Top = 160
    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 = 192
    Top = 160
  end
  object ADOQ_prt: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select '#32534#21495','#22823#31867','#23567#31867','#21517#31216','#36141#20837#26085#26399','#20316#32773#23548#28436','#20027#28436','#20215#26684','#24180#35777#31199#37329','#26376#35777#31199#37329','#38646#31199#31199#37329','#36135#20301#21495' from tsvcd')
    Left = 40
    Top = 216
  end
  object ADOQ_qphz: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 120
    Top = 216
  end
end