c_yskzd.dfm

经典的酒店管理系统

      Left = 256
      Top = 190
      Width = 120
      Height = 20
      CalAlignment = dtaLeft
      Date = 37389.1276260417
      Time = 37389.1276260417
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
    end
    object btnSele: TBitBtn
      Left = 386
      Top = 188
      Width = 75
      Height = 25
      Caption = #36873#25321
      TabOrder = 6
      OnClick = btnSeleClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888800000888880000080F000888880F00080F000888880F
        0008000000080000000800F000000F00000800F000800F00000800F000800F00
        00088000000000000088880F00080F0008888800000800000888888000888000
        88888880F08880F0888888800088800088888888888888888888}
    end
    object CheckBox1: TCheckBox
      Left = 584
      Top = 194
      Width = 97
      Height = 17
      Caption = #20840#37096#32467#24080
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      Visible = False
      OnClick = CheckBox1Click
    end
    object radJzfs: TRadioGroup
      Left = 478
      Top = 48
      Width = 203
      Height = 37
      Caption = ' '#32467' '#24080' '#26041' '#24335' '
      Columns = 3
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'System'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        #20154#27665#24065
        #20449#29992#21345
        #25903#31080)
      ParentFont = False
      TabOrder = 8
      OnClick = radJzfsClick
    end
    object cmbJz: TComboBox
      Left = 479
      Top = 104
      Width = 203
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'System'
      Font.Style = [fsBold]
      ItemHeight = 16
      ParentFont = False
      TabOrder = 9
    end
    object edtKhmc: TEdit
      Left = 16
      Top = 63
      Width = 209
      Height = 24
      Color = clMoneyGreen
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 10
    end
  end
  inherited Panel2: TPanel
    Top = 218
    Width = 692
    Height = 300
    inherited Bevel1: TBevel
      Width = 682
      Height = 290
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 5
      Width = 682
      Height = 290
      Align = alClient
      DataSource = dsYskjzls
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'System'
      Font.Style = [fsBold]
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'System'
      TitleFont.Style = [fsBold]
      OnDrawColumnCell = DBGrid1DrawColumnCell
      OnDblClick = DBGrid1DblClick
      OnKeyUp = DBGrid1KeyUp
      Columns = <
        item
          Alignment = taRightJustify
          Color = clWhite
          Expanded = False
          FieldName = 'D_JZBZ'
          Title.Alignment = taCenter
          Title.Caption = #26159#21542#32467#24080
          Width = 50
          Visible = True
        end
        item
          Alignment = taRightJustify
          Color = clSkyBlue
          Expanded = False
          FieldName = 'D_XFRQ'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#26085#26399
          Width = 90
          Visible = True
        end
        item
          Alignment = taRightJustify
          Color = clSkyBlue
          Expanded = False
          FieldName = 'D_XFXM'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#39033#30446
          Width = 90
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = 'D_XFJE'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = #28040#36153#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_YHJE'
          Title.Alignment = taCenter
          Title.Caption = #20248#24800#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_JZJE'
          Title.Alignment = taCenter
          Title.Caption = #26412#27425#32467#24080
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = 'D_JSJE'
          Title.Alignment = taCenter
          Title.Caption = #23454#32467#37329#39069
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = 'D_YE'
          Title.Alignment = taCenter
          Title.Caption = #20313#39069
          Visible = True
        end>
    end
  end
  inherited Panel3: TPanel
    Top = 518
    Width = 692
    object Label10: TLabel [0]
      Left = 8
      Top = 12
      Width = 270
      Height = 12
      Caption = #24110#21161':'#25353'F5'#21487#20197#32467#24080#20010#21035#39033#30446#65292#25110#29992#40736#26631#21452#20987#35813#39033#30446
    end
    inherited btnOK: TBitBtn
      Left = 532
      Caption = #32467#24080'(&J)'
      OnClick = btnOKClick
    end
    inherited btnCanc: TBitBtn
      Left = 612
    end
    object btnPrint: TBitBtn
      Left = 452
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #25171#21360#24080#21333
      TabOrder = 2
      OnClick = btnPrintClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888F8800000000000888808888888880808800000000000008080888888BBB88
        0008088888877788080800000000000008800888888888808080800000000008
        0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
        088888880FFFFFFFF08888888000000000888888888888888888}
    end
  end
  object qryYsk: TQuery
    DatabaseName = 'LfHotelUser'
    Left = 424
    Top = 8
  end
  object tblYskjzls: TTable
    BeforeInsert = tblYskjzlsBeforeInsert
    BeforeEdit = tblYskjzlsBeforeEdit
    AfterPost = tblYskjzlsAfterPost
    BeforeDelete = tblYskjzlsBeforeDelete
    OnCalcFields = tblYskjzlsCalcFields
    DatabaseName = 'LfHotelUser'
    TableName = 'YSKJZLS'
    Left = 456
    Top = 8
    object tblYskjzlsD_XFXM: TStringField
      FieldKind = fkLookup
      FieldName = 'D_XFXM'
      LookupDataSet = HotelData.tblXMDM
      LookupKeyFields = 'D_XMBH'
      LookupResultField = 'D_XMMC'
      KeyFields = 'D_XMBH'
      Lookup = True
    end
    object tblYskjzlsD_JSJE: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'D_JSJE'
      DisplayFormat = '#.##'
      Currency = False
      Calculated = True
    end
    object tblYskjzlsD_YE: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'D_YE'
      DisplayFormat = '#.##'
      Currency = False
      Calculated = True
    end
    object tblYskjzlsD_KHBH: TStringField
      FieldName = 'D_KHBH'
      Required = True
      Size = 5
    end
    object tblYskjzlsD_ZDBH: TStringField
      FieldName = 'D_ZDBH'
      Required = True
      Size = 12
    end
    object tblYskjzlsD_HH: TIntegerField
      FieldName = 'D_HH'
    end
    object tblYskjzlsD_XMBH: TStringField
      FieldName = 'D_XMBH'
      Size = 5
    end
    object tblYskjzlsD_XFJE: TFloatField
      FieldName = 'D_XFJE'
      DisplayFormat = '#.##'
    end
    object tblYskjzlsD_YJJE: TFloatField
      FieldName = 'D_YJJE'
      DisplayFormat = '#.##'
    end
    object tblYskjzlsD_YHJE: TFloatField
      FieldName = 'D_YHJE'
      OnValidate = tblYskjzlsD_YHJEValidate
      DisplayFormat = '#.##'
    end
    object tblYskjzlsD_JZJE: TFloatField
      FieldName = 'D_JZJE'
      OnValidate = tblYskjzlsD_JZJEValidate
      DisplayFormat = '#.##'
    end
    object tblYskjzlsD_XFRQ: TDateTimeField
      FieldName = 'D_XFRQ'
    end
    object tblYskjzlsD_XFSJ: TDateTimeField
      FieldName = 'D_XFSJ'
      DisplayFormat = 'hh:nn'
    end
    object tblYskjzlsD_JZBZ: TStringField
      FieldName = 'D_JZBZ'
      FixedChar = True
      Size = 1
    end
  end
  object dsYskjzls: TDataSource
    DataSet = tblYskjzls
    Left = 488
    Top = 8
  end
  object tblKrjz: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'KRJZ'
    Left = 32
    Top = 8
  end
  object tblYsk: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'YSK'
    Left = 64
    Top = 8
  end
  object tblYskjz: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'YSKJZ'
    Left = 136
    Top = 8
  end
  object tblKrzd: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'KRZD'
    Left = 168
    Top = 8
  end
end