posut.dfm

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

object posfm: Tposfm
  Left = 130
  Top = -13
  ActiveControl = sszk
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25910#38134#36864#25151
  ClientHeight = 446
  ClientWidth = 688
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 257
    Align = alTop
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 686
      Height = 255
      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
      OnDblClick = DBGrid1DblClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 336
    Width = 688
    Height = 110
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 280
      Top = 48
      Width = 60
      Height = 13
      Caption = #20184#27454#26041#24335#65306
    end
    object yszk: TLabeledEdit
      Left = 136
      Top = 24
      Width = 121
      Height = 21
      EditLabel.Width = 60
      EditLabel.Height = 13
      EditLabel.Caption = #24212#25910#24080#27454#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 0
    end
    object sszk: TLabeledEdit
      Left = 280
      Top = 24
      Width = 121
      Height = 21
      EditLabel.Width = 60
      EditLabel.Height = 13
      EditLabel.Caption = #23454#25910#24080#27454#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
      OnChange = sszkChange
    end
    object zl: TLabeledEdit
      Left = 136
      Top = 64
      Width = 121
      Height = 21
      EditLabel.Width = 36
      EditLabel.Height = 13
      EditLabel.Caption = #25214#38646#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 2
    end
    object fkfs: TComboBox
      Left = 280
      Top = 64
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        #29616#37329
        #25903#31080
        #20449#29992#21345
        #20195#37329#21048
        #20854#20182)
    end
    object sybt: TBitBtn
      Left = 472
      Top = 24
      Width = 81
      Height = 25
      Caption = #25910#38134#36864#25151
      TabOrder = 4
      OnClick = sybtClick
    end
    object gbbt: TBitBtn
      Left = 568
      Top = 64
      Width = 81
      Height = 25
      Caption = #20851#38381
      TabOrder = 5
      OnClick = gbbtClick
    end
    object dybt: TBitBtn
      Left = 568
      Top = 24
      Width = 81
      Height = 25
      Caption = #25171#21360
      TabOrder = 6
    end
    object qxbt: TBitBtn
      Left = 472
      Top = 64
      Width = 81
      Height = 25
      Caption = #21047#26032
      TabOrder = 7
      OnClick = FormCreate
    end
    object rzdh: TEdit
      Left = 16
      Top = 8
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 8
      Visible = False
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 257
    Width = 688
    Height = 79
    Align = alClient
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 686
      Height = 77
      Align = alClient
      DataSource = DataSource2
      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 = []
    end
  end
  object posado: TADOQuery
    Connection = DataFm.datacon
    Parameters = <>
    Left = 232
    Top = 200
  end
  object pos1ado: TADOQuery
    Connection = DataFm.datacon
    Parameters = <>
    Left = 304
    Top = 208
  end
  object DataSource1: TDataSource
    DataSet = posado
    Left = 136
    Top = 80
  end
  object DataSource2: TDataSource
    DataSet = pos1ado
    Left = 336
    Top = 217
  end
end