c_tdjd.dfm

经典的酒店管理系统

      Left = 14
      Top = 38
      Width = 150
      Height = 24
      DataField = 'D_CZYXM'
      DataSource = dsKrzd
      ItemHeight = 16
      TabOrder = 0
      OnExit = dbcCzyxmExit
    end
    object dbcJzyxm: TDBComboBox
      Left = 171
      Top = 38
      Width = 150
      Height = 24
      DataField = 'D_JZYXM'
      DataSource = dsKrzd
      ItemHeight = 16
      TabOrder = 1
      OnExit = dbcJzyxmExit
    end
    object dbcXykbh: TDBComboBox
      Left = 203
      Top = 102
      Width = 150
      Height = 24
      DataField = 'D_XYKBH'
      DataSource = dsKryj
      ItemHeight = 16
      TabOrder = 5
      OnExit = dbcXykbhExit
    end
    object dbcKhbh: TDBComboBox
      Left = 203
      Top = 119
      Width = 150
      Height = 24
      DataField = 'D_KHBH'
      DataSource = dsKryj
      ItemHeight = 16
      TabOrder = 6
      OnExit = dbcKhbhExit
    end
  end
  inherited Panel3: TPanel
    Top = 381
    Width = 592
    inherited btnOK: TBitBtn
      Left = 431
      OnClick = btnOKClick
    end
    inherited btnCanc: TBitBtn
      Left = 510
      OnClick = btnCancClick
    end
  end
  object tblKrzd: TTable
    CachedUpdates = True
    BeforeOpen = tblKrzdBeforeOpen
    BeforeClose = tblKrzdBeforeClose
    BeforePost = tblKrzdBeforePost
    AfterCancel = tblKrzdAfterCancel
    OnNewRecord = tblKrzdNewRecord
    DatabaseName = 'LfHotelUser'
    TableName = 'KRZD'
    Left = 8
    object tblKrzdD_ZDBH: TStringField
      FieldName = 'D_ZDBH'
      Required = True
      Size = 12
    end
    object tblKrzdD_HH: TIntegerField
      FieldName = 'D_HH'
    end
    object tblKrzdD_ZDLB: TStringField
      FieldName = 'D_ZDLB'
      FixedChar = True
      Size = 1
    end
    object tblKrzdD_KRBH: TStringField
      FieldName = 'D_KRBH'
      Size = 12
    end
    object tblKrzdD_YJBH: TStringField
      FieldName = 'D_YJBH'
      Size = 12
    end
    object tblKrzdD_KFBH: TStringField
      FieldName = 'D_KFBH'
      Size = 5
    end
    object tblKrzdD_SJFJ: TFloatField
      FieldName = 'D_SJFJ'
    end
    object tblKrzdD_XMBH: TStringField
      FieldName = 'D_XMBH'
      Size = 5
    end
    object tblKrzdD_XFDJ: TFloatField
      FieldName = 'D_XFDJ'
    end
    object tblKrzdD_XFSL: TFloatField
      FieldName = 'D_XFSL'
    end
    object tblKrzdD_XFJE: TFloatField
      FieldName = 'D_XFJE'
    end
    object tblKrzdD_XFRQ: TDateTimeField
      FieldName = 'D_XFRQ'
    end
    object tblKrzdD_XFSJ: TDateTimeField
      FieldName = 'D_XFSJ'
    end
    object tblKrzdD_YHJE: TFloatField
      FieldName = 'D_YHJE'
    end
    object tblKrzdD_JZRQ: TDateTimeField
      FieldName = 'D_JZRQ'
    end
    object tblKrzdD_JZSJ: TDateTimeField
      FieldName = 'D_JZSJ'
    end
    object tblKrzdD_JZBZ: TStringField
      FieldName = 'D_JZBZ'
      FixedChar = True
      Size = 1
    end
    object tblKrzdD_JSBZ: TStringField
      FieldName = 'D_JSBZ'
      FixedChar = True
      Size = 1
    end
    object tblKrzdD_DLR1: TStringField
      FieldName = 'D_DLR1'
      Size = 8
    end
    object tblKrzdD_DLR2: TStringField
      FieldName = 'D_DLR2'
      Size = 8
    end
    object tblKrzdD_DLR3: TStringField
      FieldName = 'D_DLR3'
      Size = 8
    end
    object tblKrzdD_DLR4: TStringField
      FieldName = 'D_DLR4'
      Size = 8
    end
    object tblKrzdD_CZYXM: TStringField
      FieldName = 'D_CZYXM'
      OnChange = tblKrzdD_CZYXMChange
      Size = 8
    end
    object tblKrzdD_JZYXM: TStringField
      FieldName = 'D_JZYXM'
      OnChange = tblKrzdD_JZYXMChange
      Size = 8
    end
    object tblKrzdD_TYR: TStringField
      FieldName = 'D_TYR'
      Size = 8
    end
    object tblKrzdD_BZ: TStringField
      FieldName = 'D_BZ'
      Size = 30
    end
    object tblKrzdD_YSRQ: TStringField
      FieldName = 'D_YSRQ'
      Size = 8
    end
    object tblKrzdD_JZBH: TStringField
      FieldName = 'D_JZBH'
      Size = 12
    end
    object tblKrzdD_BMBH: TStringField
      FieldName = 'D_BMBH'
      Size = 5
    end
  end
  object dsKrzd: TDataSource
    DataSet = tblKrzd
    Left = 8
    Top = 32
  end
  object tblKrxx: TTable
    CachedUpdates = True
    OnNewRecord = tblKrxxNewRecord
    DatabaseName = 'LfHotelUser'
    TableName = 'KRXX'
    Left = 40
    object tblKrxxD_KRBH: TStringField
      FieldName = 'D_KRBH'
      Required = True
      Size = 12
    end
    object tblKrxxD_KRXM: TStringField
      FieldName = 'D_KRXM'
      Size = 30
    end
    object tblKrxxD_KRLX: TStringField
      FieldName = 'D_KRLX'
      FixedChar = True
      Size = 1
    end
    object tblKrxxD_DDRQ: TDateTimeField
      FieldName = 'D_DDRQ'
    end
    object tblKrxxD_DDSJ: TDateTimeField
      FieldName = 'D_DDSJ'
      DisplayFormat = 'hh:nn:ss'
      EditMask = '!90:00:00;1; '
    end
    object tblKrxxD_LDRQ: TDateTimeField
      FieldName = 'D_LDRQ'
    end
    object tblKrxxD_LDSJ: TDateTimeField
      FieldName = 'D_LDSJ'
    end
    object tblKrxxD_YWX: TStringField
      FieldName = 'D_YWX'
      Size = 8
    end
    object tblKrxxD_YWM: TStringField
      FieldName = 'D_YWM'
      Size = 8
    end
    object tblKrxxD_XB: TStringField
      FieldName = 'D_XB'
      Size = 2
    end
    object tblKrxxD_MZBH: TStringField
      FieldName = 'D_MZBH'
      Size = 5
    end
    object tblKrxxD_DQBH: TStringField
      FieldName = 'D_DQBH'
      Size = 5
    end
    object tblKrxxD_GBBH: TStringField
      FieldName = 'D_GBBH'
      Size = 5
    end
    object tblKrxxD_NZTS: TIntegerField
      FieldName = 'D_NZTS'
    end
    object tblKrxxD_TLSY: TStringField
      FieldName = 'D_TLSY'
      Size = 10
    end
    object tblKrxxD_ZJBH: TStringField
      FieldName = 'D_ZJBH'
      Size = 5
    end
    object tblKrxxD_ZJHM: TStringField
      FieldName = 'D_ZJHM'
      Size = 18
    end
    object tblKrxxD_CSNY: TDateTimeField
      FieldName = 'D_CSNY'
    end
    object tblKrxxD_HCL: TStringField
      FieldName = 'D_HCL'
      Size = 10
    end
    object tblKrxxD_HCQ: TStringField
      FieldName = 'D_HCQ'
      Size = 10
    end
    object tblKrxxD_QZBH: TStringField
      FieldName = 'D_QZBH'
      Size = 5
    end
    object tblKrxxD_QZYXQ: TDateTimeField
      FieldName = 'D_QZYXQ'
    end
    object tblKrxxD_ZY: TStringField
      FieldName = 'D_ZY'
      Size = 10
    end
    object tblKrxxD_LXDH: TStringField
      FieldName = 'D_LXDH'
      Size = 16
    end
    object tblKrxxD_DWMC: TStringField
      FieldName = 'D_DWMC'
      Size = 30
    end
    object tblKrxxD_JTDZ: TStringField
      FieldName = 'D_JTDZ'
      Size = 30
    end
    object tblKrxxD_JDR: TStringField
      FieldName = 'D_JDR'
      Size = 8
    end
    object tblKrxxD_JDDW: TStringField
      FieldName = 'D_JDDW'
      Size = 30
    end
    object tblKrxxD_BZ: TStringField
      FieldName = 'D_BZ'
      Size = 30
    end
    object tblKrxxD_QDR1: TStringField
      FieldName = 'D_QDR1'
      Size = 8
    end
    object tblKrxxD_QDR2: TStringField
      FieldName = 'D_QDR2'
      Size = 8
    end
    object tblKrxxD_QDR3: TStringField
      FieldName = 'D_QDR3'
      Size = 8
    end
    object tblKrxxD_QDR4: TStringField
      FieldName = 'D_QDR4'
      Size = 8
    end
  end
  object dsKrxx: TDataSource
    DataSet = tblKrxx
    Left = 40
    Top = 32
  end
  object tblKryj: TTable
    CachedUpdates = True
    OnNewRecord = tblKryjNewRecord
    DatabaseName = 'LfHotelUser'
    FieldDefs = <
      item
        Name = 'D_YJBH'
        Attributes = [faRequired]
        DataType = ftString
        Size = 12
      end
      item
        Name = 'D_HH'
        DataType = ftInteger
      end
      item
        Name = 'D_FKFS'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'D_XYKBH'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'D_KHBH'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'D_YFJE'
        DataType = ftFloat
      end
      item
        Name = 'D_YFRQ'
        DataType = ftDateTime
      end
      item
        Name = 'D_YFSJ'
        DataType = ftDateTime
      end
      item
        Name = 'D_BZ'
        DataType = ftString
        Size = 30
      end>
    StoreDefs = True
    TableName = 'KRYJ'
    Left = 72
    object tblKryjD_YJBH: TStringField
      FieldName = 'D_YJBH'
      Required = True
      Size = 12
    end
    object tblKryjD_HH: TIntegerField
      FieldName = 'D_HH'
    end
    object tblKryjD_FKFS: TStringField
      FieldName = 'D_FKFS'
      OnChange = tblKryjD_FKFSChange
      Size = 10
    end
    object tblKryjD_XYKBH: TStringField
      FieldName = 'D_XYKBH'
      Size = 5
    end
    object tblKryjD_KHBH: TStringField
      FieldName = 'D_KHBH'
      Size = 5
    end
    object tblKryjD_YFJE: TFloatField
      FieldName = 'D_YFJE'
      OnValidate = tblKryjD_YFJEValidate
    end
    object tblKryjD_YFRQ: TDateTimeField
      FieldName = 'D_YFRQ'
    end
    object tblKryjD_YFSJ: TDateTimeField
      FieldName = 'D_YFSJ'
    end
    object tblKryjD_BZ: TStringField
      FieldName = 'D_BZ'
      Size = 30
    end
  end
  object dsKryj: TDataSource
    DataSet = tblKryj
    Left = 72
    Top = 32
  end
end