pas_landlord.dfm

比较详细的功能

object Form_landlord: TForm_landlord
  Left = 138
  Top = 140
  Width = 982
  Height = 598
  Caption = #25151#19996
  Color = clTeal
  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 = 8
    Top = 64
    Width = 89
    Height = 13
    AutoSize = False
    Caption = '* '#32534#21495
  end
  object Label2: TLabel
    Left = 8
    Top = 96
    Width = 89
    Height = 17
    AutoSize = False
    Caption = '* '#20013#25991#21517
  end
  object Label4: TLabel
    Left = 16
    Top = 128
    Width = 81
    Height = 13
    AutoSize = False
    Caption = '*'#25163#26426
  end
  object Label5: TLabel
    Left = 16
    Top = 168
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #30005#35805
  end
  object Label6: TLabel
    Left = 16
    Top = 240
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #22320#22336
  end
  object Label7: TLabel
    Left = 40
    Top = 8
    Width = 273
    Height = 17
    AutoSize = False
    Caption = #27880#24847#65306#28155#21152#25151#19996#26102#24102'*'#21495#20026#24517#22635#39033
  end
  object Label9: TLabel
    Left = 24
    Top = 264
    Width = 73
    Height = 25
    AutoSize = False
    Caption = #22791#27880
  end
  object Label10: TLabel
    Left = 16
    Top = 200
    Width = 57
    Height = 17
    AutoSize = False
    Caption = #20449#29992#21345
  end
  object Edit_no: TEdit
    Left = 120
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object Edit_name: TEdit
    Left = 120
    Top = 88
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Edit_phone: TEdit
    Left = 120
    Top = 120
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object Edit_tel: TEdit
    Left = 120
    Top = 160
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object Edit_addr: TEdit
    Left = 120
    Top = 232
    Width = 209
    Height = 21
    TabOrder = 4
  end
  object Edit_remarks: TEdit
    Left = 120
    Top = 264
    Width = 209
    Height = 21
    TabOrder = 5
  end
  object edit_credit: TEdit
    Left = 120
    Top = 192
    Width = 121
    Height = 21
    TabOrder = 6
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 974
    Height = 33
    ButtonHeight = 31
    ButtonWidth = 57
    Caption = 'ToolBar1'
    Color = clGreen
    ParentColor = False
    TabOrder = 7
    object SpeedButton6: TSpeedButton
      Left = 0
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Hint = #21487#20197#27169#31946#26597#35810#21517#23383
      Caption = #26597#35810#25151#19996
      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 SpeedButton7: TSpeedButton
      Left = 104
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #28155#21152#25151#19996'(F4)'
      Flat = True
      OnClick = addClick
    end
    object ToolButton7: TToolButton
      Left = 200
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object SpeedButton5: TSpeedButton
      Left = 208
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #25152#26377#25151#19996
      Flat = True
      OnClick = allClick
    end
    object ToolButton3: TToolButton
      Left = 304
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object SpeedButton1: TSpeedButton
      Left = 312
      Top = 2
      Width = 81
      Height = 31
      Cursor = crHandPoint
      Caption = #26377#25928#25151#19996
      Flat = True
      OnClick = validClick
    end
    object ToolButton1: TToolButton
      Left = 393
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object SpeedButton2: TSpeedButton
      Left = 401
      Top = 2
      Width = 72
      Height = 31
      Cursor = crHandPoint
      Caption = #26080#25928#25151#19996
      Flat = True
      OnClick = unvalidClick
    end
    object ToolButton2: TToolButton
      Left = 473
      Top = 2
      Width = 8
      ImageIndex = 0
      Style = tbsSeparator
    end
    object SpeedButton3: TSpeedButton
      Left = 481
      Top = 2
      Width = 80
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26080#25928#25151#19996
      Flat = True
      OnClick = setUnValidClick
    end
    object ToolButton4: TToolButton
      Left = 561
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object SpeedButton4: TSpeedButton
      Left = 569
      Top = 2
      Width = 104
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26377#25928#25151#19996
      Flat = True
      OnClick = setValidClick
    end
  end
  object DBGrid: TDBGrid
    Left = 329
    Top = 80
    Width = 688
    Height = 467
    Align = alCustom
    DataSource = DM.Ds_landlord
    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 DBNavigator1: TDBNavigator
    Left = 336
    Top = 40
    Width = 480
    Height = 33
    DataSource = DM.Ds_landlord
    VisibleButtons = [nbEdit, nbPost, nbCancel, nbRefresh]
    TabOrder = 9
  end
end