⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 checkoutform.~dfm

📁 其实学Delphi并不难
💻 ~DFM
字号:
inherited CheckOut: TCheckOut
  Left = 462
  Top = 181
  Caption = #25910#38134#36864#25151
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited Label3: TLabel
      Caption = #20837#20303#21333#21495
    end
    inherited Label4: TLabel
      Caption = #23458#25151#32534#21495
    end
    inherited Label5: TLabel
      Visible = False
    end
    inherited Edit3: TEdit
      Visible = False
    end
  end
  inherited ToolBar1: TToolBar
    inherited ToolButton6: TToolButton
      Visible = False
    end
    inherited ToolButton7: TToolButton
      Visible = False
    end
    inherited ToolButton8: TToolButton
      Visible = False
    end
    inherited ToolButton10: TToolButton
      Visible = False
    end
    inherited ToolButton11: TToolButton
      Visible = False
    end
  end
  inherited DBGrid1: TDBGrid
    Height = 137
    Columns = <
      item
        Expanded = False
        FieldName = #20837#20303#21333#21495
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23458#25151#31867#22411
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23458#25151#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25269#24215#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31163#24215#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20837#20303#20215#26684
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21152#24202#20215#26684
        Visible = True
      end
      item
        Expanded = False
        FieldName = #39044#25910#27454
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24212#25910#24080#27454
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32467#24080#37329#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26159#21542#32467#24080
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32467#24080#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20184#27454#26041#24335
        Visible = True
      end>
  end
  inherited Panel2: TPanel
    Top = 384
    Height = 106
    Enabled = True
    object Label6: TLabel
      Left = 176
      Top = 24
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #32467#24080#37329#39069
    end
    object Label7: TLabel
      Left = 280
      Top = 24
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #20184#27454#26041#24335
    end
    object BitBtn2: TBitBtn
      Left = 32
      Top = 40
      Width = 129
      Height = 25
      Cancel = True
      Caption = #35745#31639#24212#25910#36134#27454
      ModalResult = 7
      TabOrder = 0
      OnClick = BitBtn2Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00887000000000
        7888880888888888088888080808999808888808888888880888880808080808
        0888880888888888088888080808080808888808888888880888880808080808
        0888880888888888088888080000000808888808000E0E080888880800000008
        0888880888888888088888088888888808888870000000007888}
    end
    object BitBtn3: TBitBtn
      Left = 416
      Top = 40
      Width = 129
      Height = 25
      Caption = #25910#38134#32467#24080#36864#25151
      TabOrder = 1
      OnClick = BitBtn3Click
      Kind = bkYes
    end
    object DBEdit1: TDBEdit
      Left = 176
      Top = 40
      Width = 81
      Height = 21
      DataField = #32467#24080#37329#39069
      DataSource = DataSource1
      TabOrder = 2
    end
    object ComboBox1: TComboBox
      Left = 280
      Top = 40
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        #29616#37329
        #25903#31080
        #20449#29992#21345
        #20195#37329#21048
        #20854#20182)
    end
  end
  object DBGrid2: TDBGrid [4]
    Left = 0
    Top = 236
    Width = 689
    Height = 145
    DataSource = DataSource2
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #24080#21333#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20837#20303#21333#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #28040#36153#20869#23481
        Visible = True
      end
      item
        Expanded = False
        FieldName = #28040#36153#37329#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = #28040#36153#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Visible = True
      end>
  end
  inherited ADOTable1: TADOTable
    Active = True
    AutoCalcFields = False
    TableName = #20837#20303#21333
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    OnDataChange = DataSource2DataChange
    Left = 560
    Top = 8
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=$%*^@;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=hotelbook'
    CursorType = ctStatic
    TableName = #24080#21333#26126#32454
    Left = 592
    Top = 8
  end
  object ADOCommand1: TADOCommand
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=$%*^@;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=hotelbook'
    Parameters = <>
    Left = 624
    Top = 8
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -