c_ctdc.dfm

经典的酒店管理系统

      Left = 0
      Top = 45
      Width = 527
      Height = 92
      Align = alTop
      Color = clMoneyGreen
      DataSource = dsCtdc
      FixedColor = clSkyBlue
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'System'
      Font.Style = [fsBold]
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'System'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_CTBH'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 40
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_CTMC'
          Title.Alignment = taCenter
          Title.Caption = #39184#21381#21517#31216
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_KRSL'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#25968#37327
          Width = 70
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_KRXM'
          Title.Alignment = taCenter
          Title.Caption = #23458#20154#22995#21517
          Width = 120
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_XFSJ'
          Title.Alignment = taCenter
          Title.Caption = #29992#39184#26102#38388
          Width = 70
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_CZYXM'
          Title.Alignment = taCenter
          Title.Caption = #25805#20316#21592
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 521
    Width = 527
    Height = 22
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    BorderWidth = 5
    ParentColor = True
    TabOrder = 2
    object lblHjje: TLabel
      Left = 8
      Top = 5
      Width = 60
      Height = 12
      Caption = #21512#35745#37329#39069#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  object dsDcmx: TDataSource
    DataSet = tblDcmx
    Left = 64
    Top = 184
  end
  object tblDcmx: TTable
    AfterPost = tblDcmxAfterPost
    OnCalcFields = tblDcmxCalcFields
    OnNewRecord = tblDcmxNewRecord
    DatabaseName = 'LfHotelUser'
    FieldDefs = <
      item
        Name = 'D_HH'
        Attributes = [faRequired]
        DataType = ftString
        Size = 12
      end
      item
        Name = 'D_DCBH'
        Attributes = [faRequired]
        DataType = ftString
        Size = 12
      end
      item
        Name = 'D_CTBH'
        Attributes = [faRequired]
        DataType = ftString
        Size = 5
      end
      item
        Name = 'D_CDBH'
        Attributes = [faRequired]
        DataType = ftString
        Size = 5
      end
      item
        Name = 'D_XMBH'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'D_CDMC'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'D_XFSL'
        DataType = ftFloat
      end
      item
        Name = 'D_THSL'
        DataType = ftFloat
      end
      item
        Name = 'D_DJ'
        DataType = ftFloat
      end
      item
        Name = 'D_XFRQ'
        DataType = ftDateTime
      end
      item
        Name = 'D_DEL'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'D_BZ'
        DataType = ftString
        Size = 30
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY84'
        Fields = 'D_HH'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'D_DCMX'
        Fields = 'D_HH'
      end>
    IndexFieldNames = 'D_DCBH;D_CTBH;D_HH'
    MasterFields = 'D_DCBH;D_CTBH'
    MasterSource = dsCtdc
    StoreDefs = True
    TableName = 'DCMX'
    Left = 32
    Top = 184
    object tblDcmxD_HH: TStringField
      FieldName = 'D_HH'
      Required = True
      Size = 12
    end
    object tblDcmxD_DCBH: TStringField
      FieldName = 'D_DCBH'
      Required = True
      Size = 12
    end
    object tblDcmxD_CTBH: TStringField
      FieldName = 'D_CTBH'
      Required = True
      Size = 5
    end
    object tblDcmxD_CDBH: TStringField
      FieldName = 'D_CDBH'
      Required = True
      Size = 5
    end
    object tblDcmxD_XMBH: TStringField
      FieldName = 'D_XMBH'
      Size = 5
    end
    object tblDcmxD_CDMC: TStringField
      FieldName = 'D_CDMC'
    end
    object tblDcmxD_XFSL: TFloatField
      FieldName = 'D_XFSL'
      DisplayFormat = '0.00'
    end
    object tblDcmxD_THSL: TFloatField
      FieldName = 'D_THSL'
      DisplayFormat = '0.00'
    end
    object tblDcmxD_DJ: TFloatField
      FieldName = 'D_DJ'
      DisplayFormat = '#.##'
    end
    object tblDcmxD_XFRQ: TDateTimeField
      FieldName = 'D_XFRQ'
    end
    object tblDcmxD_DEL: TStringField
      FieldName = 'D_DEL'
      FixedChar = True
      Size = 1
    end
    object tblDcmxD_BZ: TStringField
      FieldName = 'D_BZ'
      Size = 30
    end
    object tblDcmxD_XMMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_XMMC'
      LookupDataSet = CtData.tblCtxm
      LookupKeyFields = 'D_XMBH'
      LookupResultField = 'D_XMMC'
      KeyFields = 'D_XMBH'
      Lookup = True
    end
    object tblDcmxD_XJJE: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'D_XJJE'
      DisplayFormat = '#.##'
      Currency = False
      Calculated = True
    end
  end
  object tblCtdc: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'CTDC'
    Left = 96
    Top = 184
    object tblCtdcD_CTMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_CTMC'
      LookupDataSet = CtData.tblCtdm
      LookupKeyFields = 'D_CTBH'
      LookupResultField = 'D_CTMC'
      KeyFields = 'D_CTBH'
      Lookup = True
    end
    object tblCtdcD_DCBH: TStringField
      FieldName = 'D_DCBH'
      Required = True
      Size = 12
    end
    object tblCtdcD_CTBH: TStringField
      FieldName = 'D_CTBH'
      Required = True
      Size = 5
    end
    object tblCtdcD_XMBH: TStringField
      FieldName = 'D_XMBH'
      Required = True
      Size = 5
    end
    object tblCtdcD_DCLB: TStringField
      FieldName = 'D_DCLB'
      FixedChar = True
      Size = 1
    end
    object tblCtdcD_XFRQ: TDateTimeField
      FieldName = 'D_XFRQ'
    end
    object tblCtdcD_XFSJ: TDateTimeField
      FieldName = 'D_XFSJ'
      DisplayFormat = 'hh:mm:ss'
    end
    object tblCtdcD_SJDM: TStringField
      FieldName = 'D_SJDM'
      FixedChar = True
      Size = 4
    end
    object tblCtdcD_KRSL: TIntegerField
      FieldName = 'D_KRSL'
    end
    object tblCtdcD_YCBZ: TStringField
      FieldName = 'D_YCBZ'
      Size = 30
    end
    object tblCtdcD_KRXM: TStringField
      FieldName = 'D_KRXM'
      Size = 30
    end
    object tblCtdcD_JSBZ: TStringField
      FieldName = 'D_JSBZ'
      FixedChar = True
      Size = 1
    end
    object tblCtdcD_JZFS: TStringField
      FieldName = 'D_JZFS'
      Size = 10
    end
    object tblCtdcD_KHBH: TStringField
      FieldName = 'D_KHBH'
      Size = 5
    end
    object tblCtdcD_XYKBH: TStringField
      FieldName = 'D_XYKBH'
      Size = 5
    end
    object tblCtdcD_XFJE: TFloatField
      FieldName = 'D_XFJE'
      DisplayFormat = '#.##'
    end
    object tblCtdcD_YHJE: TFloatField
      FieldName = 'D_YHJE'
      DisplayFormat = '#.##'
    end
    object tblCtdcD_CZYXM: TStringField
      FieldName = 'D_CZYXM'
      Size = 8
    end
    object tblCtdcD_YDBH: TStringField
      FieldName = 'D_YDBH'
      Size = 12
    end
    object tblCtdcD_BZ: TStringField
      FieldName = 'D_BZ'
      Size = 30
    end
  end
  object dsCtdc: TDataSource
    DataSet = tblCtdc
    OnDataChange = dsCtdcDataChange
    Left = 128
    Top = 184
  end
  object DosMove1: TDosMove
    Active = True
    Options = [moUpDn]
    Left = 160
    Top = 184
  end
end