unit8.dfm

作者针对当前酒店客房管理的现状

object Form8: TForm8
  Left = 254
  Top = 221
  Width = 785
  Height = 509
  Caption = #22270#20070#20511#38405#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 793
    Height = 105
    TabOrder = 0
    object zh_Ledit: TLabeledEdit
      Left = 16
      Top = 32
      Width = 121
      Height = 21
      EditLabel.Width = 24
      EditLabel.Height = 13
      EditLabel.Caption = #35777#21495
      TabOrder = 0
    end
    object Button1: TButton
      Left = 240
      Top = 40
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 392
      Top = 40
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 112
    Width = 785
    Height = 113
    Caption = #35835#32773#20010#20154#20449#24687
    TabOrder = 1
    object xm_Ledit: TLabeledEdit
      Left = 8
      Top = 48
      Width = 121
      Height = 21
      EditLabel.Width = 30
      EditLabel.Height = 13
      EditLabel.Caption = #22995#21517'  '
      TabOrder = 0
    end
    object xb_Ledit: TLabeledEdit
      Left = 144
      Top = 48
      Width = 121
      Height = 21
      EditLabel.Width = 30
      EditLabel.Height = 13
      EditLabel.Caption = #24615#21035'  '
      TabOrder = 1
    end
    object lb_Ledit: TLabeledEdit
      Left = 288
      Top = 48
      Width = 121
      Height = 21
      EditLabel.Width = 33
      EditLabel.Height = 13
      EditLabel.Caption = #31867#21035'   '
      TabOrder = 2
    end
    object kjsl_Ledit: TLabeledEdit
      Left = 440
      Top = 48
      Width = 121
      Height = 21
      EditLabel.Width = 57
      EditLabel.Height = 13
      EditLabel.Caption = #21487#20511#25968#37327'   '
      TabOrder = 3
    end
    object yjsl_Ledit: TLabeledEdit
      Left = 592
      Top = 48
      Width = 121
      Height = 21
      EditLabel.Width = 54
      EditLabel.Height = 13
      EditLabel.Caption = #24050#20511#25968#37327'  '
      TabOrder = 4
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 248
    Width = 713
    Height = 169
    DataSource = DataSource1
    PopupMenu = PopupMenu1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Code'
        Title.Caption = #26465#30721
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookName'
        Title.Caption = #20070#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jsrq'
        Title.Caption = #20511#20070#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'hsrq'
        Title.Caption = #36824#20070#26085#26399
        Visible = True
      end>
  end
  object Button3: TButton
    Left = 688
    Top = 432
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = Button3Click
  end
  object Query1: TQuery
    DatabaseName = 'Gx'
    Constrained = True
    SQL.Strings = (
      
        'select jieyueb.Code,jsrq,hsrq ,cangshub.BookName from jieyueb cr' +
        'oss join cangshub'
      'where jieyueb.Code=cangshub.Code ')
    Left = 448
    Top = 320
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 440
    Top = 272
  end
  object PopupMenu1: TPopupMenu
    Left = 448
    Top = 376
    object N1: TMenuItem
      Caption = #36824#20070
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20511#20070
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #32493#20511
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #21024#38500
      OnClick = N4Click
    end
  end
end