c_khdasel.dfm

经典的酒店管理系统

object KhdaSelForm: TKhdaSelForm
  Left = 192
  Top = 107
  Width = 415
  Height = 375
  Caption = #23458#25143#26723#26696
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 407
    Height = 77
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    BorderWidth = 5
    ParentColor = True
    TabOrder = 0
    DesignSize = (
      407
      77)
    object lblTitle: TLabel
      Left = 130
      Top = 5
      Width = 187
      Height = 29
      Anchors = [akTop]
      Caption = #35760#24080#23458#25143#36873#25321
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -29
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Image1: TImage
      Left = 92
      Top = 5
      Width = 32
      Height = 32
      Anchors = [akTop]
      AutoSize = True
      Center = True
      Picture.Data = {
        055449636F6E0000010002002020100000000000E80200002600000010101000
        00000000280100000E0300002800000020000000400000000100040000000000
        8002000000000000000000000000000000000000000000000000800000800000
        0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000
        00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000009999990000000000000000000000000
        0999999000000000000000000000000000000000000000000000000000000000
        00FFF0000000000000000000000000000FFFF000000000000000000000000000
        FFFFF000000000000000000000000000FFFFF000000000000008080000000000
        FFFFF00000000000888000777777770FFFFFF00000000088800F0F00000000FF
        00FFF000008888000FFF0FFFFFFFF0F0F00FF000008000FFFFFF0FFFFFFFF00F
        F00F00000080FFFFFFF70FFF7F7F7F7FF00F00000080FFFFF7FF0FFFFFFFFFFF
        900000000090FFF7FFFF0FFF7F7F7F7FF0000000008097FFFFF70FFFFFFFFFFF
        F00000000080FFFFF7FF0FFF7F7F7F7FF00000000080FFF7FFFF0FFFFFFFFFFF
        F00000000080F7FFFFF70FFF7F7F7F7FF00000000080FFFFF7FF0FFFFFFFFFFF
        F00000000080FFF7FFFF0FFF7F7F7F7FF000000000F0F7FFFFF70FFFFFFFFFFF
        F000000000F0FFFFF7FF00FFFFFFFFFFF000000000F0FFF7FFFF000000000000
        0000000000F0F7FFFFF00000000000000000000000F0FFFFF000000000000000
        000000000000FF00000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF00
        FFFFFF00FFFFFF00FFFFFF00FFFFFF83FFFFFF03FFFFFE03FFE3FE03FF000003
        F8000003000000030000000300000007000000070000000F0000000F0000001F
        0000001F0000001F0000001F0000001F0000001F0000001F0000003F0004003F
        000FFFFF001FFFFF807FFFFFE3FFFFFFFFFFFFFF280000001000000020000000
        0100040000000000C00000000000000000000000000000000000000000000000
        00008000008000000080800080000000800080008080000080808000C0C0C000
        0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000
        00000990000000000000099000000000000000000000000000000F0000000000
        0000FF00000007000000FF0000877707770F0F00080FFF0FFF800F00080FFF0F
        FFFF0000080FFF0F7F7F0000080FFF0FFFFF00000F0FFF0F7F7F00000F0FFF0F
        FFFF00000F0FF0000000000000000000000000000000000000000000FFF00000
        FFF00000FFF00000FFF10000F9E10000C0010000000100000001000000030000
        000300000003000000030000000300000007000003FF0000DFFF0000}
    end
    object cmbOption: TComboBox
      Left = 10
      Top = 50
      Width = 100
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 0
      Text = #23458#25143#32534#21495
      Items.Strings = (
        #23458#25143#32534#21495
        #23458#25143#21517#31216)
    end
    object cmbExpress: TComboBox
      Left = 114
      Top = 50
      Width = 65
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 1
      Text = #31561#20110
      Items.Strings = (
        #31561#20110)
    end
    object edtValue: TEdit
      Left = 183
      Top = 50
      Width = 138
      Height = 20
      TabOrder = 2
    end
    object btnLoca: TBitBtn
      Left = 324
      Top = 47
      Width = 75
      Height = 25
      Caption = #26597#25214'(&L)'
      TabOrder = 3
      OnClick = btnLocaClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888800000888880000080F000888880F00080F000888880F
        0008000000080000000800F000000F00000800F000800F00000800F000800F00
        00088000000000000088880F00080F0008888800000800000888888000888000
        88888880F08880F0888888800088800088888888888888888888}
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 313
    Width = 407
    Height = 35
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    BorderWidth = 5
    ParentColor = True
    TabOrder = 1
    DesignSize = (
      407
      35)
    object btnOK: TBitBtn
      Left = 242
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #30830#23450'(&O)'
      Default = True
      ModalResult = 1
      TabOrder = 0
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnCanc: TBitBtn
      Left = 322
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = #21462#28040'(&C)'
      ModalResult = 2
      TabOrder = 1
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 77
    Width = 407
    Height = 236
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
    ParentColor = True
    TabOrder = 2
    object dbgSelect: TDBGrid
      Left = 10
      Top = 10
      Width = 387
      Height = 216
      Align = alClient
      DataSource = dsSelect
      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 = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'System'
      TitleFont.Style = [fsBold]
      OnDblClick = dbgSelectDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'D_KHBH'
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#32534#21495
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_FLMC'
          Title.Alignment = taCenter
          Title.Caption = #31867#21035
          Width = 60
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_KHMC'
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#21517#31216
          Width = 200
          Visible = True
        end>
    end
  end
  object qrySelect: TQuery
    DatabaseName = 'LfHotelUser'
    SQL.Strings = (
      'select * from KHDA order by D_KHBH')
    Left = 24
    Top = 8
    object qrySelectD_KHBH: TStringField
      FieldName = 'D_KHBH'
      Origin = 'LFHOTELSYS."KHDA.DB".D_KHBH'
      Size = 5
    end
    object qrySelectD_KHMC: TStringField
      FieldName = 'D_KHMC'
      Origin = 'LFHOTELSYS."KHDA.DB".D_KHMC'
    end
    object qrySelectD_FLBH: TStringField
      FieldName = 'D_FLBH'
      Origin = 'LFHOTELSYS."KHDA.DB".D_FLBH'
      Size = 5
    end
    object qrySelectD_DWDZ: TStringField
      FieldName = 'D_DWDZ'
      Origin = 'LFHOTELSYS."KHDA.DB".D_DWDZ'
      Size = 30
    end
    object qrySelectD_FR: TStringField
      FieldName = 'D_FR'
      Origin = 'LFHOTELSYS."KHDA.DB".D_FR'
      Size = 8
    end
    object qrySelectD_LXDH: TStringField
      FieldName = 'D_LXDH'
      Origin = 'LFHOTELSYS."KHDA.DB".D_LXDH'
      Size = 16
    end
    object qrySelectD_JDRQ: TDateField
      FieldName = 'D_JDRQ'
      Origin = 'LFHOTELSYS."KHDA.DB".D_JDRQ'
    end
    object qrySelectD_DM: TStringField
      FieldName = 'D_DM'
      Origin = 'LFHOTELSYS."KHDA.DB".D_DM'
      Size = 10
    end
    object qrySelectD_FLMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_FLMC'
      LookupDataSet = CtData.tblFldm
      LookupKeyFields = 'D_FLBH'
      LookupResultField = 'D_FLMC'
      KeyFields = 'D_FLBH'
      Lookup = True
    end
  end
  object dsSelect: TDataSource
    DataSet = qrySelect
    OnDataChange = dsSelectDataChange
    Left = 56
    Top = 8
  end
end