dm.dfm

酒店资源管理的软件

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 497
  Top = 148
  Height = 571
  Width = 222
  object ADOConnection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\'#20154#21147#36164 +
      #28304#31649#29702'.mdb;Mode=Share Deny None;Extended Properties="";Persist Secu' +
      'rity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry ' +
      'Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;J' +
      'et OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk O' +
      'ps=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database' +
      ' Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:En' +
      'crypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fals' +
      'e;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=F' +
      'alse'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 8
  end
  object ADODataSetGwBz: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select *  from  gwbz'
    FieldDefs = <
      item
        Name = 'GWBZ_ID'
        Attributes = [faReadonly, faFixed]
        DataType = ftAutoInc
      end
      item
        Name = 'GWBZ_BH'
        DataType = ftWideString
        Size = 10
      end
      item
        Name = 'GWBZ_BMDM'
        DataType = ftWideString
        Size = 6
      end
      item
        Name = 'GWBZ_GWDM'
        DataType = ftWideString
        Size = 6
      end
      item
        Name = 'GWBZ_RS'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'GWBZ_YQ'
        DataType = ftMemo
      end>
    Parameters = <>
    StoreDefs = True
    Left = 24
    Top = 56
    object ADODataSetGwBzGWBZ_ID: TAutoIncField
      DisplayLabel = #32534#21495
      DisplayWidth = 30
      FieldName = 'GWBZ_ID'
      ReadOnly = True
    end
    object ADODataSetGwBzGWBZ_BMDM: TWideStringField
      DisplayLabel = #37096#38376#20195#30721
      FieldName = 'GWBZ_BMDM'
      Size = 6
    end
    object ADODataSetGwBzGWBZ_GWDM: TWideStringField
      DisplayLabel = #23703#20301#20195#30721
      FieldName = 'GWBZ_GWDM'
      Size = 6
    end
    object ADODataSetGwBzGWBZ_RS: TFloatField
      DisplayLabel = #32534#21046#20154#25968
      FieldName = 'GWBZ_RS'
    end
    object ADODataSetGwBzGWBZ_BMMC: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldKind = fkLookup
      FieldName = 'GWBZ_BMMC'
      LookupDataSet = ADODataSetBmdm
      LookupKeyFields = 'BMDM_DM'
      LookupResultField = 'BMDM_MC'
      KeyFields = 'GWBZ_BMDM'
      Lookup = True
    end
    object ADODataSetGwBzGWBZ_GWMC: TStringField
      DisplayLabel = #23703#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'GWBZ_GWMC'
      LookupDataSet = ADODataSetGwdm
      LookupKeyFields = 'GWDM_DM'
      LookupResultField = 'GWDM_MC'
      KeyFields = 'GWBZ_GWDM'
      Lookup = True
    end
    object ADODataSetGwBzGWBZ_BH: TWideStringField
      DisplayLabel = #23703#20301#32534#21495
      FieldName = 'GWBZ_BH'
      Size = 10
    end
    object ADODataSetGwBzGWBZ_YQ: TMemoField
      DisplayLabel = #23703#20301#35201#27714
      FieldName = 'GWBZ_YQ'
      BlobType = ftMemo
    end
  end
  object DataSourceSzGwbz: TDataSource
    DataSet = ADODataSetGwBz
    Left = 120
    Top = 64
  end
  object ADODataSetXbdm: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select * from xbdm'
    Parameters = <>
    Left = 32
    Top = 280
  end
  object ADODataSetBmdm: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select * from bmdm'
    Parameters = <>
    Left = 24
    Top = 120
  end
  object ADODataSetGwdm: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select * from gwdm'
    Parameters = <>
    Left = 32
    Top = 224
  end
  object ADODataSetHyzkdm: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select * from hyzkdm'
    Parameters = <>
    Left = 32
    Top = 328
  end
  object ADODataSetJszcdm: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select * from jszcdm'
    Parameters = <>
    Left = 40
    Top = 376
  end
  object ADODataSetXldm: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    CommandText = 'select * from xldm'
    Parameters = <>
    Left = 40
    Top = 432
  end
  object DataSourceBmdm: TDataSource
    DataSet = ADODataSetBmdm
    Left = 120
    Top = 120
  end
  object DataSourceGwdm: TDataSource
    DataSet = ADODataSetGwdm
    Left = 128
    Top = 224
  end
  object DataSourceXbdm: TDataSource
    DataSet = ADODataSetXbdm
    Left = 128
    Top = 272
  end
  object DataSourceHyzkdm: TDataSource
    DataSet = ADODataSetHyzkdm
    Left = 136
    Top = 328
  end
  object DataSourceJszcdm: TDataSource
    DataSet = ADODataSetJszcdm
    Left = 136
    Top = 384
  end
  object DataSourceXldm: TDataSource
    DataSet = ADODataSetXldm
    Left = 136
    Top = 432
  end
  object ADODataSetJbzl: TADODataSet
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    BeforePost = ADODataSetJbzlBeforePost
    CommandText = 'select * from jbzl where JBZL_LKBDWSJ is  null'
    Parameters = <>
    Left = 40
    Top = 480
    object ADODataSetJbzlJBZL_GH: TWideStringField
      DisplayLabel = #24037#21495
      DisplayWidth = 6
      FieldName = 'JBZL_GH'
      Size = 10
    end
    object ADODataSetJbzlJBZL_XM: TWideStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 11
      FieldName = 'JBZL_XM'
      Size = 10
    end
    object ADODataSetJbzlJBZL_CYM: TWideStringField
      DisplayLabel = #26366#29992#21517
      DisplayWidth = 15
      FieldName = 'JBZL_CYM'
      Size = 10
    end
    object ADODataSetJbzlJBZL_XB: TWideStringField
      DisplayLabel = #24615#21035#20195#30721
      DisplayWidth = 13
      FieldName = 'JBZL_XB'
      Size = 2
    end
    object ADODataSetJbzlJBZL_CSRQ: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      DisplayWidth = 22
      FieldName = 'JBZL_CSRQ'
    end
    object ADODataSetJbzlJBZL_SFZH: TWideStringField
      DisplayLabel = #36523#20221#35777#21495
      DisplayWidth = 22
      FieldName = 'JBZL_SFZH'
      Size = 18
    end
    object ADODataSetJbzlJBZL_JG: TWideStringField
      DisplayLabel = #31821#36143
      DisplayWidth = 48
      FieldName = 'JBZL_JG'
      Size = 40
    end
    object ADODataSetJbzlJBZL_CJHGZSJ: TDateTimeField
      DisplayLabel = #21442#21152#24037#20316#26102#38388
      DisplayWidth = 22
      FieldName = 'JBZL_CJGZSJ'
    end
    object ADODataSetJbzlJBZL_JBDWRQ: TDateTimeField
      DisplayLabel = #36827#20837#21333#20301#26102#38388
      DisplayWidth = 22
      FieldName = 'JBZL_JBDWRQ'
    end
    object ADODataSetJbzlJBZL_JTZZ: TWideStringField
      DisplayLabel = #23478#24237#20303#22336
      DisplayWidth = 120
      FieldName = 'JBZL_JTZZ'
      Size = 100
    end
    object ADODataSetJbzlJBZL_BMDM: TWideStringField
      DisplayLabel = #37096#38376#20195#30721
      DisplayWidth = 10
      FieldName = 'JBZL_BMDM'
      Size = 6
    end
    object ADODataSetJbzlJBZL_GWDM: TWideStringField
      DisplayLabel = #23703#20301#20195#30721
      DisplayWidth = 10
      FieldName = 'JBZL_GWDM'
      Size = 6
    end
    object ADODataSetJbzlJBZL_HYZKDM: TWideStringField
      DisplayLabel = #23130#23035#29366#20917#20195#30721
      DisplayWidth = 15
      FieldName = 'JBZL_HYZKDM'
      Size = 4
    end
    object ADODataSetJbzlJBZL_XLDM: TWideStringField
      DisplayLabel = #23398#21382#20195#30721
      DisplayWidth = 10
      FieldName = 'JBZL_XLDM'
      Size = 4
    end
    object ADODataSetJbzlJBZL_JSZCDM: TWideStringField
      DisplayLabel = #25216#26415#32844#31216#20195#30721
      DisplayWidth = 15
      FieldName = 'JBZL_JSZCDM'
      Size = 4
    end
    object ADODataSetJbzlJBZL_ZP: TBlobField
      DisplayLabel = #29031#29255
      DisplayWidth = 12
      FieldName = 'JBZL_ZP'
    end
    object ADODataSetJbzlJBZL_LKBDWSJ: TDateTimeField
      DisplayLabel = #31163#24320#21333#20301#26102#38388
      DisplayWidth = 22
      FieldName = 'JBZL_LKBDWSJ'
    end
    object ADODataSetJbzlJBZL_LKBDWYY: TWideStringField
      DisplayLabel = #31163#24320#21333#20301#21407#22240
      DisplayWidth = 60
      FieldName = 'JBZL_LKBDWYY'
      Size = 50
    end
    object ADODataSetJbzlJBZL_XBMC: TWideStringField
      DisplayLabel = #24615#21035
      DisplayWidth = 24
      FieldKind = fkLookup
      FieldName = 'JBZL_XBMC'
      LookupDataSet = ADODataSetXbdm
      LookupKeyFields = 'XBDM_DM'
      LookupResultField = 'XBDM_MC'
      KeyFields = 'JBZL_XB'
      Lookup = True
    end
    object ADODataSetJbzlJBZL_BMMC: TStringField
      DisplayLabel = #37096#38376
      DisplayWidth = 24
      FieldKind = fkLookup
      FieldName = 'JBZL_BMMC'
      LookupDataSet = ADODataSetBmdm
      LookupKeyFields = 'BMDM_DM'
      LookupResultField = 'BMDM_MC'
      KeyFields = 'JBZL_BMDM'
      Lookup = True
    end
    object ADODataSetJbzlJBZL_GWMC: TStringField
      DisplayLabel = #23703#20301
      DisplayWidth = 24
      FieldKind = fkLookup
      FieldName = 'JBZL_GWMC'
      LookupDataSet = ADODataSetGwdm
      LookupKeyFields = 'GWDM_DM'
      LookupResultField = 'GWDM_MC'
      KeyFields = 'JBZL_GWDM'
      Lookup = True
    end
    object ADODataSetJbzlJBZL_HYZK: TStringField
      DisplayLabel = #23130#23035#29366#20917
      DisplayWidth = 24
      FieldKind = fkLookup
      FieldName = 'JBZL_HYZK'
      LookupDataSet = ADODataSetHyzkdm
      LookupKeyFields = 'HYZKDM_DM'
      LookupResultField = 'HYZKDM_MC'
      KeyFields = 'JBZL_HYZKDM'
      Lookup = True
    end
    object ADODataSetJbzlJBZL_XL: TStringField
      DisplayLabel = #23398#21382
      DisplayWidth = 24
      FieldKind = fkLookup
      FieldName = 'JBZL_XL'
      LookupDataSet = ADODataSetXldm
      LookupKeyFields = 'XLDM_DM'
      LookupResultField = 'XLDM_MC'
      KeyFields = 'JBZL_XLDM'
      Lookup = True
    end
    object ADODataSetJbzlJBZL_JSZC: TStringField
      DisplayLabel = #25216#26415#32844#31216
      DisplayWidth = 24
      FieldKind = fkLookup
      FieldName = 'JBZL_JSZC'
      LookupDataSet = ADODataSetJszcdm
      LookupKeyFields = 'JSZCDM_DM'
      LookupResultField = 'JSZCDM_MC'
      KeyFields = 'JBZL_JSZCDM'
      Lookup = True
    end
  end
  object DataSourceJbzl: TDataSource
    DataSet = ADODataSetJbzl
    Left = 128
    Top = 480
  end
  object DataSourceSzdmb: TDataSource
    Left = 136
    Top = 16
  end
end