bookfindut.dfm

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

object bookfindfm: Tbookfindfm
  Left = 205
  Top = 159
  Width = 696
  Height = 480
  Caption = #39044#23450#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 81
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #26597#35810#26465#20214#65306
    end
    object Label2: TLabel
      Left = 248
      Top = 32
      Width = 57
      Height = 25
      AutoSize = False
      Caption = #20851#38190#23383#65306
    end
    object tj1: TComboBox
      Left = 96
      Top = 32
      Width = 121
      Height = 21
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 0
      OnChange = tj1Change
      Items.Strings = (
        #23458#25151#31867#22411
        #23458#25151#32534#21495
        #39044#23450#20154
        #39044#23450#26102#38388)
    end
    object gjz: TEdit
      Left = 304
      Top = 32
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
      OnKeyDown = gjzKeyDown
    end
    object cxbt: TBitBtn
      Left = 456
      Top = 32
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = cxbtClick
    end
    object gbbt: TBitBtn
      Left = 616
      Top = 32
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 3
      OnClick = gbbtClick
    end
    object sxbt: TBitBtn
      Left = 536
      Top = 32
      Width = 75
      Height = 25
      Caption = #21047#26032
      TabOrder = 4
      OnClick = FormCreate
    end
    object ydsj: TDateTimePicker
      Left = 304
      Top = 32
      Width = 121
      Height = 21
      Date = 38817.522954641200000000
      Time = 38817.522954641200000000
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 5
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 688
    Height = 365
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 686
      Height = 363
      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 = []
    end
  end
  object DataSource1: TDataSource
    DataSet = bfado
    Left = 200
    Top = 161
  end
  object bfado: TADOQuery
    Connection = DataFm.datacon
    Parameters = <>
    Left = 248
    Top = 169
  end
end