c_tdjd.dfm

经典的酒店管理系统

inherited TdjdForm: TTdjdForm
  Left = 137
  Top = 74
  Width = 600
  Height = 443
  ActiveControl = dbcJzyxm
  Caption = #25509#24453
  Font.Name = 'System'
  Font.Style = [fsBold]
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel1: TPanel
    Width = 592
    Height = 58
    inherited lblTitile: TLabel
      Left = 231
      Width = 125
      Caption = #22242#38431#25509#24453
    end
    object lblInfo: TLabel
      Left = 8
      Top = 41
      Width = 60
      Height = 12
      Caption = #21451#24773#25552#37266#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  inherited Panel2: TPanel
    Top = 58
    Width = 592
    Height = 323
    inherited Bevel1: TBevel
      Width = 331
      Height = 313
    end
    object Label24: TLabel
      Left = 14
      Top = 22
      Width = 48
      Height = 16
      Caption = #25805#20316#21592
    end
    object Label25: TLabel
      Left = 174
      Top = 22
      Width = 48
      Height = 16
      Caption = #32467#24080#21592
    end
    object Label4: TLabel
      Left = 13
      Top = 62
      Width = 64
      Height = 16
      Caption = #22242#38431#21517#31216
      FocusControl = dbeKrxm
    end
    object Label7: TLabel
      Left = 173
      Top = 62
      Width = 64
      Height = 16
      Caption = #39044#20184#26041#24335
      FocusControl = dbcFkfs
    end
    object lblYfje: TLabel
      Left = 13
      Top = 102
      Width = 64
      Height = 16
      Caption = #39044#20184#37329#39069
      FocusControl = dbeYfje
    end
    object Label5: TLabel
      Left = 13
      Top = 142
      Width = 64
      Height = 16
      Caption = #21040#24215#26085#26399
      FocusControl = dbeDdrq
    end
    object Label6: TLabel
      Left = 88
      Top = 142
      Width = 64
      Height = 16
      Caption = #21040#24215#26102#38388
      FocusControl = dbeDdsj
    end
    object Label17: TLabel
      Left = 173
      Top = 142
      Width = 48
      Height = 16
      Caption = #25509#24453#20154
      FocusControl = dbeJdr
    end
    object Label1: TLabel
      Left = 13
      Top = 184
      Width = 64
      Height = 16
      Caption = #25509#24453#21333#20301
      FocusControl = dbeJddw
    end
    object Label2: TLabel
      Left = 173
      Top = 184
      Width = 64
      Height = 16
      Caption = #21333#20301#22320#22336
      FocusControl = dbeDwdz
    end
    object Label3: TLabel
      Left = 13
      Top = 224
      Width = 64
      Height = 16
      Caption = #32852#31995#30005#35805
      FocusControl = dbeLxdh
    end
    object Label11: TLabel
      Left = 173
      Top = 224
      Width = 32
      Height = 16
      Caption = #22791#27880
      FocusControl = dbeBz
    end
    object Label12: TLabel
      Left = 13
      Top = 264
      Width = 64
      Height = 16
      Caption = #31614#21333#20154#19968
      FocusControl = dbeQdr1
    end
    object Label13: TLabel
      Left = 88
      Top = 264
      Width = 64
      Height = 16
      Caption = #31614#21333#20154#20108
      FocusControl = dbeQdr2
    end
    object Label14: TLabel
      Left = 173
      Top = 264
      Width = 64
      Height = 16
      Caption = #31614#21333#20154#19977
      FocusControl = dbeQdr3
    end
    object Label15: TLabel
      Left = 248
      Top = 264
      Width = 64
      Height = 16
      Caption = #31614#21333#20154#22235
      FocusControl = dbeQdr4
    end
    object lblMc: TLabel
      Left = 168
      Top = 125
      Width = 30
      Height = 12
      Caption = 'lblMc'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object dbeKrxm: TDBEdit
      Left = 13
      Top = 78
      Width = 150
      Height = 24
      DataField = 'D_KRXM'
      DataSource = dsKrxx
      TabOrder = 2
      OnExit = dbeKrxmExit
    end
    object dbcFkfs: TDBComboBox
      Left = 172
      Top = 78
      Width = 150
      Height = 24
      Style = csDropDownList
      DataField = 'D_FKFS'
      DataSource = dsKryj
      ItemHeight = 16
      Items.Strings = (
        #20154#27665#24065
        #20449#29992#21345
        #25903#31080
        #35760#24080)
      TabOrder = 3
      OnKeyPress = dbcFkfsKeyPress
    end
    object dbeYfje: TDBEdit
      Left = 13
      Top = 118
      Width = 150
      Height = 24
      DataField = 'D_YFJE'
      DataSource = dsKryj
      TabOrder = 4
      OnExit = dbeYfjeExit
    end
    object dbeDdrq: TDBEdit
      Left = 13
      Top = 158
      Width = 75
      Height = 24
      DataField = 'D_DDRQ'
      DataSource = dsKrxx
      TabOrder = 7
    end
    object dbeDdsj: TDBEdit
      Left = 88
      Top = 158
      Width = 75
      Height = 24
      DataField = 'D_DDSJ'
      DataSource = dsKrxx
      MaxLength = 5
      TabOrder = 8
    end
    object dbeJdr: TDBEdit
      Left = 173
      Top = 158
      Width = 150
      Height = 24
      DataField = 'D_JDR'
      DataSource = dsKrxx
      TabOrder = 9
    end
    object dbeJddw: TDBEdit
      Left = 13
      Top = 200
      Width = 150
      Height = 24
      DataField = 'D_JDDW'
      DataSource = dsKrxx
      TabOrder = 10
    end
    object dbeDwdz: TDBEdit
      Left = 173
      Top = 200
      Width = 150
      Height = 24
      DataField = 'D_JTDZ'
      DataSource = dsKrxx
      TabOrder = 11
    end
    object dbeLxdh: TDBEdit
      Left = 13
      Top = 240
      Width = 150
      Height = 24
      DataField = 'D_LXDH'
      DataSource = dsKrxx
      TabOrder = 12
    end
    object dbeBz: TDBEdit
      Left = 173
      Top = 240
      Width = 150
      Height = 24
      DataField = 'D_BZ'
      DataSource = dsKrxx
      TabOrder = 13
    end
    object dbeQdr1: TDBEdit
      Left = 13
      Top = 280
      Width = 75
      Height = 24
      DataField = 'D_QDR1'
      DataSource = dsKrxx
      TabOrder = 14
    end
    object dbeQdr2: TDBEdit
      Left = 88
      Top = 280
      Width = 75
      Height = 24
      DataField = 'D_QDR2'
      DataSource = dsKrxx
      TabOrder = 15
    end
    object dbeQdr3: TDBEdit
      Left = 173
      Top = 280
      Width = 75
      Height = 24
      DataField = 'D_QDR3'
      DataSource = dsKrxx
      TabOrder = 16
    end
    object dbeQdr4: TDBEdit
      Left = 248
      Top = 280
      Width = 75
      Height = 24
      DataField = 'D_QDR4'
      DataSource = dsKrxx
      TabOrder = 17
    end
    object Panel4: TPanel
      Left = 336
      Top = 5
      Width = 251
      Height = 313
      Align = alRight
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 18
      object Panel5: TPanel
        Left = 2
        Top = 2
        Width = 247
        Height = 45
        Align = alTop
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        object lblBfh: TLabeledEdit
          Left = 0
          Top = 22
          Width = 50
          Height = 24
          EditLabel.Width = 32
          EditLabel.Height = 16
          EditLabel.Caption = #36215#22987
          LabelPosition = lpAbove
          LabelSpacing = 3
          TabOrder = 0
          OnKeyPress = vleKfKeyPress
        end
        object lblEfh: TLabeledEdit
          Left = 50
          Top = 22
          Width = 50
          Height = 24
          EditLabel.Width = 32
          EditLabel.Height = 16
          EditLabel.Caption = #32456#27490
          LabelPosition = lpAbove
          LabelSpacing = 3
          TabOrder = 1
          OnKeyPress = vleKfKeyPress
        end
        object lblFj: TLabeledEdit
          Left = 104
          Top = 22
          Width = 60
          Height = 24
          EditLabel.Width = 32
          EditLabel.Height = 16
          EditLabel.Caption = #25151#20215
          LabelPosition = lpAbove
          LabelSpacing = 3
          TabOrder = 2
          OnKeyPress = vleKfKeyPress
        end
        object btnInsert: TBitBtn
          Left = 165
          Top = 19
          Width = 75
          Height = 25
          Caption = #28155#21152
          TabOrder = 3
          OnClick = btnInsertClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            888888888888888888888800000000000888880FFFFFFFFF0888880FFFFFFFFF
            0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF
            0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F0
            8888880FFFFFF008888888000000008888888888888888888888}
        end
      end
      object vleKf: TValueListEditor
        Left = 2
        Top = 47
        Width = 247
        Height = 264
        Align = alClient
        DefaultColWidth = 120
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'System'
        Font.Style = [fsBold]
        KeyOptions = [keyDelete, keyUnique]
        ParentFont = False
        TabOrder = 1
        TitleCaptions.Strings = (
          #25151#38388#21495
          #25151#20215)
        OnKeyPress = vleKfKeyPress
        ColWidths = (
          120
          121)
      end
    end
    object dbcCzyxm: TDBComboBox