gzryglut.dfm

宾馆客房管理系统,功能强大,界面美观,全部delphi源代码

object gzryglfm: Tgzryglfm
  Left = 293
  Top = 268
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #24037#20316#20154#21592#31649#29702
  ClientHeight = 314
  ClientWidth = 477
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 477
    Height = 314
    ActivePage = gzygl
    Align = alClient
    TabOrder = 0
    object gzygl: TTabSheet
      Caption = #24037#20316#21592#31649#29702
      object Panel1: TPanel
        Left = 0
        Top = 185
        Width = 469
        Height = 101
        Align = alBottom
        TabOrder = 0
        object Label1: TLabel
          Left = 256
          Top = 24
          Width = 49
          Height = 25
          AutoSize = False
          Caption = #24037#31181#65306
          Layout = tlCenter
        end
        object xm: TLabeledEdit
          Left = 88
          Top = 24
          Width = 121
          Height = 21
          EditLabel.Width = 39
          EditLabel.Height = 13
          EditLabel.Caption = #22995#21517#65306' '
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          LabelPosition = lpLeft
          TabOrder = 0
        end
        object gz: TComboBox
          Left = 296
          Top = 24
          Width = 113
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ItemHeight = 13
          TabOrder = 1
          Items.Strings = (
            #19994#21153#21592
            #28165#27905#24037
            #25509#24453)
        end
        object zjbt: TBitBtn
          Left = 48
          Top = 56
          Width = 75
          Height = 25
          Caption = #22686#21152
          TabOrder = 2
          OnClick = zjbtClick
        end
        object xgbt: TBitBtn
          Left = 120
          Top = 56
          Width = 75
          Height = 25
          Caption = #20462#25913
          TabOrder = 3
          OnClick = xgbtClick
        end
        object scbt: TBitBtn
          Left = 192
          Top = 56
          Width = 75
          Height = 25
          Caption = #21024#38500
          TabOrder = 4
          OnClick = scbtClick
        end
        object sxbt: TBitBtn
          Left = 264
          Top = 56
          Width = 75
          Height = 25
          Caption = #21047#26032
          TabOrder = 5
          OnClick = FormCreate
        end
        object gbbt: TBitBtn
          Left = 336
          Top = 56
          Width = 75
          Height = 25
          Caption = #20851#38381
          TabOrder = 6
          OnClick = gbbtClick
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 469
        Height = 185
        Align = alClient
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 1
          Top = 1
          Width = 467
          Height = 183
          Align = alClient
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid1CellClick
        end
      end
    end
    object czygl: TTabSheet
      Caption = #25805#20316#21592#31649#29702
      ImageIndex = 1
      object Panel3: TPanel
        Left = 0
        Top = 216
        Width = 469
        Height = 70
        Align = alBottom
        TabOrder = 0
        object DBNavigator1: TDBNavigator
          Left = 40
          Top = 16
          Width = 400
          Height = 41
          DataSource = DataSource2
          Flat = True
          TabOrder = 0
        end
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 469
        Height = 216
        Align = alClient
        TabOrder = 1
        object DBGrid2: TDBGrid
          Left = 1
          Top = 1
          Width = 467
          Height = 214
          Align = alClient
          DataSource = DataSource2
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #22995#21517
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23494#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = #39044#23450#31649#29702
              PickList.Strings = (
                'true'
                'false')
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25509#24453#31649#29702
              PickList.Strings = (
                'true'
                'false')
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25910#38134#31649#29702
              PickList.Strings = (
                'true'
                'false')
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25253#34920#31649#29702
              PickList.Strings = (
                'true'
                'false')
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22522#30784#35774#32622
              PickList.Strings = (
                'true'
                'false')
              Visible = True
            end>
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = gzyado
    Left = 32
    Top = 24
  end
  object gzyado: TADOQuery
    Connection = DataFm.datacon
    Parameters = <>
    Left = 8
    Top = 24
  end
  object czyado: TADOQuery
    Connection = DataFm.datacon
    Parameters = <>
    Left = 212
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = czyado
    Left = 148
    Top = 120
  end
end