pas_houserent.dfm

比较详细的功能

object Form_constract: TForm_constract
  Left = 316
  Top = 75
  Width = 1036
  Height = 677
  Caption = #21512#21516#25805#20316
  Color = clSilver
  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 Label10: TLabel
    Left = 96
    Top = 328
    Width = 97
    Height = 17
    AutoSize = False
    Caption = #21512#21516#32467#26463#26085#26399
  end
  object Label11: TLabel
    Left = 96
    Top = 256
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #20195#29702#20154#32534#21495
  end
  object Label12: TLabel
    Left = 96
    Top = 344
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #20195#29702#20154#32534#21495
  end
  object Label17: TLabel
    Left = 456
    Top = 432
    Width = 81
    Height = 17
    AutoSize = False
    Caption = #26377#25928#21512#21516#20849#65306
  end
  object L_num: TLabel
    Left = 536
    Top = 432
    Width = 73
    Height = 17
    AutoSize = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 33
    Width = 449
    Height = 610
    Align = alLeft
    Caption = #21512#21516#25805#20316
    Color = clSilver
    ParentColor = False
    TabOrder = 2
    object Label1: TLabel
      Left = 96
      Top = 176
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #25151#38388#32534#21495
    end
    object Label2: TLabel
      Left = 96
      Top = 216
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #23458#25143#32534#21495
    end
    object Label3: TLabel
      Left = 96
      Top = 256
      Width = 73
      Height = 17
      AutoSize = False
      Caption = #20195#29702#20154#32534#21495
    end
    object Label4: TLabel
      Left = 96
      Top = 352
      Width = 129
      Height = 17
      AutoSize = False
      Caption = #31199#25151#21512#21516#24320#22987#26085#26399
    end
    object Label5: TLabel
      Left = 96
      Top = 392
      Width = 97
      Height = 17
      AutoSize = False
      Caption = #21512#21516#32467#26463#26085#26399
    end
    object Label6: TLabel
      Left = 96
      Top = 424
      Width = 97
      Height = 17
      AutoSize = False
      Caption = #31199#37329
    end
    object Label7: TLabel
      Left = 96
      Top = 448
      Width = 97
      Height = 17
      AutoSize = False
      Caption = #31199#37329#21333#20301
    end
    object Label8: TLabel
      Left = 96
      Top = 488
      Width = 97
      Height = 17
      AutoSize = False
      Caption = #22791#27880
    end
    object Label9: TLabel
      Left = 96
      Top = 136
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #21512#21516#32534#21495
    end
    object Label13: TLabel
      Left = 96
      Top = 288
      Width = 73
      Height = 17
      AutoSize = False
      Caption = #37096#38376#32534#21495
    end
    object Label14: TLabel
      Left = 96
      Top = 320
      Width = 73
      Height = 17
      AutoSize = False
      Caption = #19994#21153#21592#32534#21495
    end
    object srhouse: TSpeedButton
      Left = 352
      Top = 176
      Width = 81
      Height = 22
      Caption = #36755#20837#25151#23376
      OnClick = srhouseClick
    end
    object srkh: TSpeedButton
      Left = 352
      Top = 216
      Width = 97
      Height = 22
      Caption = #36755#20837#23458#25143'/'#25151#19996
      OnClick = srkhClick
    end
    object SpeedButton1: TSpeedButton
      Left = 352
      Top = 248
      Width = 81
      Height = 22
      Caption = #36755#20837#20195#29702#20154
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 352
      Top = 280
      Width = 81
      Height = 22
      Caption = #36755#20837#37096#38376
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 352
      Top = 312
      Width = 81
      Height = 22
      Caption = #36755#20837#19994#21153#21592
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 8
      Top = 176
      Width = 89
      Height = 22
      Caption = #25353#25151#23376#26597#35810'(F1)'
      OnClick = SpeedButton4Click
    end
    object SpeedButton6: TSpeedButton
      Left = 8
      Top = 280
      Width = 89
      Height = 22
      Caption = #25353#37096#38376#26597'(F3)'
      OnClick = SpeedButton6Click
    end
    object sb_fksj: TSpeedButton
      Left = 96
      Top = 528
      Width = 241
      Height = 22
      Caption = #26597#35810#21512#21516#20184#27454#26102#38388
      OnClick = sb_fksjClick
    end
    object Label15: TLabel
      Left = 96
      Top = 560
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #36755#20837#20184#27454#27425#25968':'
    end
    object Label16: TLabel
      Left = 0
      Top = 512
      Width = 449
      Height = 9
      AutoSize = False
      Color = clHighlight
      ParentColor = False
    end
    object SpeedButton5: TSpeedButton
      Left = 8
      Top = 216
      Width = 89
      Height = 22
      Caption = #25151#19996'/'#23458#25143'(F2)'
      OnClick = SpeedButton5Click
    end
    object cb_ho: TComboBox
      Left = 168
      Top = 176
      Width = 185
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnDropDown = cb_hoDropDown
    end
    object cb_no: TComboBox
      Left = 216
      Top = 216
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnDropDown = cb_noDropDown
    end
    object cb_dl: TComboBox
      Left = 216
      Top = 248
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      OnDropDown = cb_dlDropDown
    end
    object dtp_start: TDateTimePicker
      Left = 216
      Top = 352
      Width = 129
      Height = 21
      Date = 39146.043431342590000000
      Time = 39146.043431342590000000
      TabOrder = 3
    end
    object dtp_end: TDateTimePicker
      Left = 216
      Top = 384
      Width = 129
      Height = 21
      Date = 39146.043431342590000000
      Time = 39146.043431342590000000
      TabOrder = 4
    end
    object edit_rentFee: TEdit
      Left = 216
      Top = 416
      Width = 129
      Height = 21
      TabOrder = 5
    end
    object cb_unit: TComboBox
      Left = 216
      Top = 448
      Width = 129
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      OnDropDown = cb_unitDropDown
    end
    object edit_remarks: TEdit
      Left = 216
      Top = 480
      Width = 233
      Height = 21
      TabOrder = 7
    end
    object edit_contractNo: TEdit
      Left = 216
      Top = 136
      Width = 129
      Height = 21
      TabOrder = 8
    end
    object rb_kh: TRadioButton
      Left = 88
      Top = 72
      Width = 129
      Height = 17
      Caption = #28155#21152#23458#25143#21512#21516
      TabOrder = 9
      OnClick = rb_khClick
    end
    object rb_fd: TRadioButton
      Left = 232
      Top = 72
      Width = 113
      Height = 17
      Caption = #28155#21152#25151#19996#21512#21516
      TabOrder = 10
      OnClick = rb_fdClick
    end
  end
  object DBGrid: TDBGrid
    Left = 448
    Top = 32
    Width = 553
    Height = 385
    Align = alCustom
    DataSource = DM.ds_houserent
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridCellClick
    OnDblClick = DBGridDblClick
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1028
    Height = 33
    ButtonHeight = 31
    ButtonWidth = 57
    Caption = 'ToolBar1'
    Color = clGreen
    ParentColor = False
    TabOrder = 1
    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#21512#21516
      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#21512#21516'(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#21512#21516
      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#21512#21516
      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#21512#21516
      Flat = True
      OnClick = unValidClick
    end
    object ToolButton6: TToolButton
      Left = 473
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object setvalid: TSpeedButton
      Left = 481
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26080#25928#21512#21516
      Flat = True
      OnClick = setvalidClick
    end
    object ToolButton8: TToolButton
      Left = 577
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object setUnvalid: TSpeedButton
      Left = 585
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #35774#26377#25928#21512#21516
      Flat = True
      OnClick = setUnvalidClick
    end
    object sp_noT: TSpeedButton
      Left = 681
      Top = 2
      Width = 136
      Height = 31
      Cursor = crHandPoint
      Caption = #26410#35774#32622#20184#27454#26102#38388#21512#21516
      Flat = True
      OnClick = sp_noTClick
    end
  end
  object cb_depart: TComboBox
    Left = 216
    Top = 312
    Width = 129
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    OnDropDown = cb_departDropDown
  end
  object cb_seller: TComboBox
    Left = 216
    Top = 344
    Width = 129
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    OnDropDown = cb_sellerDropDown
  end
  object Edit_times: TEdit
    Left = 216
    Top = 592
    Width = 129
    Height = 21
    TabOrder = 5
    Text = '4'
    OnKeyPress = Edit_timesKeyPress
  end
  object DBGrid1: TDBGrid
    Left = 448
    Top = 456
    Width = 559
    Height = 177
    Align = alCustom
    DataSource = DM.DS1
    ReadOnly = True
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
end