pas_house.dfm

比较详细的功能

object Form_house: TForm_house
  Left = 184
  Top = 120
  Width = 952
  Height = 594
  Caption = #25151#23376#31649#29702
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 152
    Width = 89
    Height = 13
    AutoSize = False
    Caption = '* '#25151#23376#32534#21495
  end
  object Label2: TLabel
    Left = 16
    Top = 184
    Width = 89
    Height = 17
    AutoSize = False
    Caption = '* '#22320#22336
  end
  object Label3: TLabel
    Left = 8
    Top = 288
    Width = 81
    Height = 13
    AutoSize = False
    Caption = '*'#25151#19996#32534#21495
  end
  object Label4: TLabel
    Left = 8
    Top = 352
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #25151#38388#30005#35805
  end
  object Label5: TLabel
    Left = 8
    Top = 384
    Width = 73
    Height = 25
    AutoSize = False
    Caption = '*'#21442#32771#25151#31199
  end
  object Label6: TLabel
    Left = 8
    Top = 416
    Width = 81
    Height = 13
    AutoSize = False
    Caption = '*'#20184#27454#26102#38388
  end
  object Label10: TLabel
    Left = 16
    Top = 440
    Width = 81
    Height = 25
    AutoSize = False
    Caption = #22791#27880
  end
  object Label7: TLabel
    Left = 16
    Top = 216
    Width = 73
    Height = 13
    AutoSize = False
    Caption = '*'#25152#23646#21306#22495
  end
  object Label8: TLabel
    Left = 16
    Top = 248
    Width = 73
    Height = 17
    AutoSize = False
    Caption = '*'#25143#22411
  end
  object SpeedButton1: TSpeedButton
    Left = 216
    Top = 224
    Width = 73
    Height = 25
    Caption = #36755#20837#21306#22495
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 216
    Top = 256
    Width = 73
    Height = 25
    Caption = #36755#20837#25143#22411
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 216
    Top = 288
    Width = 73
    Height = 25
    Caption = #36755#20837#25151#19996
    OnClick = SpeedButton3Click
  end
  object Edit_no: TEdit
    Left = 88
    Top = 152
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object Edit_addr: TEdit
    Left = 88
    Top = 184
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Edit_tel: TEdit
    Left = 88
    Top = 352
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object Edit_rent: TEdit
    Left = 88
    Top = 384
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object Edit_remarks: TEdit
    Left = 88
    Top = 448
    Width = 121
    Height = 21
    TabOrder = 4
  end
  object Cb_rentunit: TComboBox
    Left = 88
    Top = 416
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    OnDropDown = Cb_rentunitDropDown
  end
  object cb_landlord: TComboBox
    Left = 88
    Top = 288
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    OnDropDown = n
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 944
    Height = 33
    ButtonHeight = 31
    ButtonWidth = 57
    Caption = 'ToolBar1'
    Color = clGreen
    ParentColor = False
    TabOrder = 7
    object select: TSpeedButton
      Left = 0
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Hint = #21487#20197#27169#31946#26597#35810#21517#23383
      Caption = #26597#35810#25151#23376'(F1)'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = selectClick
    end
    object ToolButton5: TToolButton
      Left = 96
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object add: TSpeedButton
      Left = 104
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #28155#21152#25151#23376'(F4)'
      Flat = True
      OnClick = addClick
    end
    object ToolButton3: TToolButton
      Left = 200
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object selecteveryth: TSpeedButton
      Left = 208
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #25152#26377#25151#23376
      Flat = True
      OnClick = selecteverythClick
    end
    object ToolButton7: TToolButton
      Left = 304
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object valid: TSpeedButton
      Left = 312
      Top = 2
      Width = 81
      Height = 31
      Cursor = crHandPoint
      Caption = #26377#25928#25151#23376
      Flat = True
      OnClick = validClick
    end
    object ToolButton1: TToolButton
      Left = 393
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object unValid: TSpeedButton
      Left = 401
      Top = 2
      Width = 72
      Height = 31
      Cursor = crHandPoint
      Caption = #26080#25928#25151#23376
      Flat = True
      OnClick = unValidClick
    end
    object ToolButton2: TToolButton
      Left = 473
      Top = 2
      Width = 8
      ImageIndex = 0
      Style = tbsSeparator
    end
    object setUnvalid: TSpeedButton
      Left = 481
      Top = 2
      Width = 80
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26080#25928#25151#23376
      Flat = True
      OnClick = setUnvalidClick
    end
    object ToolButton4: TToolButton
      Left = 561
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object setvalid: TSpeedButton
      Left = 569
      Top = 2
      Width = 104
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26377#25928#25151#23376
      Flat = True
      OnClick = setvalidClick
    end
  end
  object DBGrid: TDBGrid
    Left = 295
    Top = 33
    Width = 649
    Height = 527
    Align = alRight
    DataSource = DM.Ds_house
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridCellClick
    OnDblClick = DBGridDblClick
  end
  object cb_ht: TComboBox
    Left = 88
    Top = 248
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 9
    OnDropDown = cb_htDropDown
  end
  object cb_area: TComboBox
    Left = 88
    Top = 216
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 10
    OnDropDown = cb_areaDropDown
  end
end