c_ydhccx.dfm

经典的酒店管理系统

          Expanded = False
          FieldName = 'D_DWMC'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#20154
          Width = 80
          Visible = True
        end
        item
          Color = clSkyBlue
          Expanded = False
          FieldName = 'D_BZNR'
          Title.Caption = #22791#27880
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_LXR'
          Title.Alignment = taCenter
          Title.Caption = #23486#39302#32852#31995#20154
          Width = 80
          Visible = True
        end
        item
          Color = clSkyBlue
          Expanded = False
          FieldName = 'D_JSBZ'
          Title.Caption = #26159#21542#32467#31639
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_YDRQ'
          Title.Caption = #39044#23450#26085#26399
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_CZYXM'
          Title.Caption = #25805#20316#21592
          Width = 60
          Visible = True
        end>
    end
  end
  inherited Panel3: TPanel
    Top = 438
    Width = 612
    inherited btnHelp: TBitBtn
      Left = 452
    end
    inherited btnClose: TBitBtn
      Left = 532
    end
    inherited btnPrint: TBitBtn
      Left = 372
      OnClick = btnPrintClick
    end
  end
  inherited qryWork: TQuery
    OnCalcFields = qryWorkCalcFields
    DatabaseName = 'LfHotelUser'
    SQL.Strings = (
      'select * from YDHC where D_JSBZ="1" order by D_SYRQ,D_SYSJ')
    object qryWorkD_YDBH: TStringField
      FieldName = 'D_YDBH'
      Origin = 'LFHOTELUSER.YDHC.D_YDBH'
      Size = 12
    end
    object qryWorkD_KRBH: TStringField
      FieldName = 'D_KRBH'
      Origin = 'LFHOTELUSER.YDHC.D_KRBH'
      Size = 12
    end
    object qryWorkD_KRXM: TStringField
      FieldName = 'D_KRXM'
      Origin = 'LFHOTELUSER.YDHC.D_KRXM'
      Size = 30
    end
    object qryWorkD_YDRQ: TDateTimeField
      FieldName = 'D_YDRQ'
      Origin = 'LFHOTELUSER.YDHC.D_YDRQ'
    end
    object qryWorkD_SYRQ: TDateTimeField
      FieldName = 'D_SYRQ'
      Origin = 'LFHOTELUSER.YDHC.D_SYRQ'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object qryWorkD_SYSJ: TDateTimeField
      FieldName = 'D_SYSJ'
      Origin = 'LFHOTELUSER.YDHC.D_SYSJ'
      DisplayFormat = 'hh:mm'
    end
    object qryWorkD_SJDM: TStringField
      FieldName = 'D_SJDM'
      Origin = 'LFHOTELUSER.YDHC.D_SJDM'
      FixedChar = True
      Size = 4
    end
    object qryWorkD_HCBH: TStringField
      FieldName = 'D_HCBH'
      Origin = 'LFHOTELUSER.YDHC.D_HCBH'
      Size = 5
    end
    object qryWorkD_HCMC: TStringField
      FieldName = 'D_HCMC'
      Origin = 'LFHOTELUSER.YDHC.D_HCMC'
      Size = 10
    end
    object qryWorkD_HCZJ: TFloatField
      FieldName = 'D_HCZJ'
      Origin = 'LFHOTELUSER.YDHC.D_HCZJ'
    end
    object qryWorkD_HCRS: TIntegerField
      FieldName = 'D_HCRS'
      Origin = 'LFHOTELUSER.YDHC.D_HCRS'
    end
    object qryWorkD_HCRS1: TIntegerField
      FieldName = 'D_HCRS1'
      Origin = 'LFHOTELUSER.YDHC.D_HCRS1'
    end
    object qryWorkD_HFSL: TFloatField
      FieldName = 'D_HFSL'
      Origin = 'LFHOTELUSER.YDHC.D_HFSL'
    end
    object qryWorkD_HFJE: TFloatField
      FieldName = 'D_HFJE'
      Origin = 'LFHOTELUSER.YDHC.D_HFJE'
    end
    object qryWorkD_HFBZ: TStringField
      FieldName = 'D_HFBZ'
      Origin = 'LFHOTELUSER.YDHC.D_HFBZ'
      Size = 30
    end
    object qryWorkD_XHSL: TFloatField
      FieldName = 'D_XHSL'
      Origin = 'LFHOTELUSER.YDHC.D_XHSL'
    end
    object qryWorkD_XHJE: TFloatField
      FieldName = 'D_XHJE'
      Origin = 'LFHOTELUSER.YDHC.D_XHJE'
    end
    object qryWorkD_XHBZ: TStringField
      FieldName = 'D_XHBZ'
      Origin = 'LFHOTELUSER.YDHC.D_XHBZ'
      Size = 30
    end
    object qryWorkD_SGSL: TFloatField
      FieldName = 'D_SGSL'
      Origin = 'LFHOTELUSER.YDHC.D_SGSL'
    end
    object qryWorkD_SGJE: TFloatField
      FieldName = 'D_SGJE'
      Origin = 'LFHOTELUSER.YDHC.D_SGJE'
    end
    object qryWorkD_SGBZ: TStringField
      FieldName = 'D_SGBZ'
      Origin = 'LFHOTELUSER.YDHC.D_SGBZ'
      Size = 30
    end
    object qryWorkD_QTJE: TFloatField
      FieldName = 'D_QTJE'
      Origin = 'LFHOTELUSER.YDHC.D_QTJE'
    end
    object qryWorkD_QTBZ: TStringField
      FieldName = 'D_QTBZ'
      Origin = 'LFHOTELUSER.YDHC.D_QTBZ'
      Size = 30
    end
    object qryWorkD_HTSL: TFloatField
      FieldName = 'D_HTSL'
      Origin = 'LFHOTELUSER.YDHC.D_HTSL'
    end
    object qryWorkD_HTBZ: TStringField
      FieldName = 'D_HTBZ'
      Origin = 'LFHOTELUSER.YDHC.D_HTBZ'
      Size = 30
    end
    object qryWorkD_RZBZ: TStringField
      FieldName = 'D_RZBZ'
      Origin = 'LFHOTELUSER.YDHC.D_RZBZ'
      OnGetText = qryWorkD_RZBZGetText
      FixedChar = True
      Size = 1
    end
    object qryWorkD_JSBZ: TStringField
      FieldName = 'D_JSBZ'
      Origin = 'LFHOTELUSER.YDHC.D_JSBZ'
      OnGetText = qryWorkD_JSBZGetText
      FixedChar = True
      Size = 1
    end
    object qryWorkD_CZYXM: TStringField
      FieldName = 'D_CZYXM'
      Origin = 'LFHOTELUSER.YDHC.D_CZYXM'
      Size = 8
    end
    object qryWorkD_BZ: TBlobField
      FieldName = 'D_BZ'
      Origin = 'LFHOTELUSER.YDHC.D_BZ'
      Size = 1
    end
    object qryWorkD_LXDH: TStringField
      FieldKind = fkLookup
      FieldName = 'D_LXDH'
      LookupDataSet = tblYdxx
      LookupKeyFields = 'D_KRBH'
      LookupResultField = 'D_LXDH'
      KeyFields = 'D_KRBH'
      Lookup = True
    end
    object qryWorkD_DWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_DWMC'
      LookupDataSet = tblYdxx
      LookupKeyFields = 'D_KRBH'
      LookupResultField = 'D_DWMC'
      KeyFields = 'D_KRBH'
      Lookup = True
    end
    object qryWorkD_LXR: TStringField
      FieldKind = fkLookup
      FieldName = 'D_LXR'
      LookupDataSet = tblYdxx
      LookupKeyFields = 'D_KRBH'
      LookupResultField = 'D_LXR'
      KeyFields = 'D_KRBH'
      Lookup = True
    end
    object qryWorkD_BZNR: TStringField
      FieldKind = fkCalculated
      FieldName = 'D_BZNR'
      Size = 80
      Calculated = True
    end
  end
  object tblYdxx: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'YDXX'
    Left = 296
    Top = 40
  end
end