datam.dfm

一个关于VCD销售的系统

object dm: Tdm
  OldCreateOrder = False
  Left = 244
  Top = 206
  Height = 256
  Width = 393
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=data\' +
      'rtdata.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
      'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
      'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
      '5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
      'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
      'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
      ':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
      'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
      'P=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object ADO_user: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'user'
    Left = 96
    Top = 16
  end
  object ADO_dw: TADOTable
    Connection = ADOConnection1
    TableDirect = True
    TableName = 'dw'
    Left = 32
    Top = 72
  end
  object ADO_lb: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'lb'
    Left = 80
    Top = 72
  end
  object ADO_vip: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'vip'
    Left = 128
    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 = 168
    Top = 16
  end
  object ADO_vcd: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableDirect = True
    TableName = 'tsvcd'
    Left = 232
    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
    TableDirect = True
    TableName = 'czdt'
    Left = 184
    Top = 72
  end
  object ADOQ_czbtmp: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 257
    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 = 296
    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 = 216
    Top = 136
  end
end