conut.~dfm

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

object confm: Tconfm
  Left = 248
  Top = 11
  ActiveControl = rzdh
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #28040#36153#35760#24080
  ClientHeight = 402
  ClientWidth = 602
  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 = 232
    Width = 602
    Height = 170
    Align = alBottom
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 264
      Top = 25
      Width = 24
      Height = 21
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 320
      Top = 22
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #28040#36153#26102#38388#65306' '
      Layout = tlCenter
    end
    object Label2: TLabel
      Left = 320
      Top = 54
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #28040#36153#20869#23481#65306' '
      Layout = tlCenter
    end
    object Label3: TLabel
      Left = 71
      Top = 86
      Width = 73
      Height = 25
      AutoSize = False
      Caption = #22791#27880#65306' '
      Layout = tlCenter
    end
    object rzdh: TLabeledEdit
      Left = 144
      Top = 24
      Width = 121
      Height = 21
      EditLabel.Width = 72
      EditLabel.Height = 13
      EditLabel.Caption = #20837#20303#21333#21495#65306'    '
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      ReadOnly = True
      TabOrder = 0
      OnKeyDown = rzdhKeyDown
    end
    object xfsj: TDateTimePicker
      Left = 392
      Top = 24
      Width = 121
      Height = 21
      Date = 38808.767629664350000000
      Time = 38808.767629664350000000
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
    end
    object xfje: TLabeledEdit
      Left = 144
      Top = 56
      Width = 121
      Height = 21
      EditLabel.Width = 72
      EditLabel.Height = 13
      EditLabel.Caption = #28040#36153#37329#39069#65306'    '
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      TabOrder = 2
      OnKeyDown = xfjeKeyDown
    end
    object xfnr: TComboBox
      Left = 392
      Top = 56
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 3
      OnKeyDown = xfnrKeyDown
      Items.Strings = (
        #21152#25910#25151#36153
        #21152#25910#27700#30005#36153
        #21830#21697#20351#29992#36153
        #20854#20182)
    end
    object bz: TEdit
      Left = 144
      Top = 92
      Width = 369
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 4
      OnKeyDown = bzKeyDown
    end
    object TPanel
      Left = 5
      Top = 120
      Width = 593
      Height = 49
      TabOrder = 5
      object qdbt: TBitBtn
        Left = 72
        Top = 16
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 0
        OnClick = qdbtClick
      end
      object sxbt: TBitBtn
        Left = 336
        Top = 16
        Width = 75
        Height = 25
        Caption = #21047#26032
        TabOrder = 1
        OnClick = FormCreate
      end
      object xgbt: TBitBtn
        Left = 160
        Top = 16
        Width = 75
        Height = 25
        Caption = #20462#25913
        TabOrder = 2
        OnClick = xgbtClick
      end
      object scbt: TBitBtn
        Left = 248
        Top = 16
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 3
        OnClick = scbtClick
      end
      object gbbt: TBitBtn
        Left = 424
        Top = 16
        Width = 75
        Height = 25
        Caption = #20851#38381
        TabOrder = 4
        OnClick = gbbtClick
      end
    end
    object zdbh: TEdit
      Left = 72
      Top = 0
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 6
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 602
    Height = 232
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 600
      Height = 230
      Align = alClient
      DataSource = DataSource1
      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 = []
      OnCellClick = DBGrid1CellClick
    end
  end
  object conado: TADOQuery
    Connection = DataFm.datacon
    Parameters = <>
    Left = 256
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = conado
    Left = 216
    Top = 96
  end
end