pas_sz.dfm

比较详细的功能

object form_sz: Tform_sz
  Left = 171
  Top = 78
  Width = 1036
  Height = 738
  Caption = #25151#23376#25910#25903
  Color = clBtnFace
  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 Label7: TLabel
    Left = 248
    Top = 272
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #20511#36151
  end
  object Label8: TLabel
    Left = 240
    Top = 232
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #21512#21516#32534#21495
  end
  object Label2: TLabel
    Left = 64
    Top = 336
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #22791#27880
  end
  object Label14: TLabel
    Left = 368
    Top = 440
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #26356#26032
  end
  object Label15: TLabel
    Left = 520
    Top = 440
    Width = 89
    Height = 17
    AutoSize = False
    Caption = #21462#28040
  end
  object Label16: TLabel
    Left = 744
    Top = 440
    Width = 97
    Height = 17
    AutoSize = False
    Caption = #21047#26032
  end
  object Label13: TLabel
    Left = 64
    Top = 408
    Width = 57
    Height = 17
    AutoSize = False
    Caption = #22791#27880
  end
  object Label17: TLabel
    Left = 848
    Top = 416
    Width = 73
    Height = 17
    AutoSize = False
    Caption = #24635#35745':'
  end
  object Label18: TLabel
    Left = 848
    Top = 440
    Width = 105
    Height = 17
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label19: TLabel
    Left = 976
    Top = 440
    Width = 25
    Height = 17
    AutoSize = False
    Caption = #20803
  end
  object DBGrid_CON: TDBGrid
    Left = 312
    Top = 48
    Width = 673
    Height = 145
    Align = alCustom
    DataSource = DM2.ds_sz1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid_CONCellClick
    OnDblClick = DBGrid_CONDblClick
  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 = 17
      Height = 31
      Cursor = crHandPoint
      Hint = #21487#20197#27169#31946#26597#35810#21517#23383
      Caption = #26597#35810#21512#21516#25910#25903
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = selectClick
    end
    object selectCon: TSpeedButton
      Left = 17
      Top = 2
      Width = 114
      Height = 31
      Cursor = crHandPoint
      Hint = #21487#20197#27169#31946#26597#35810#21517#23383
      Caption = #26597#35810#25151#23376#21512#21516'(F1)'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = selectConClick
    end
    object sp_htjf: TSpeedButton
      Left = 131
      Top = 2
      Width = 7
      Height = 31
      Cursor = crHandPoint
      Hint = #21487#20197#27169#31946#26597#35810#21517#23383
      Caption = #26597#35810#21512#21516#32564#36153
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = sp_htjfClick
    end
    object add: TSpeedButton
      Left = 138
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #28155#21152'(F4)'
      Flat = True
      OnClick = addClick
    end
    object modify: TSpeedButton
      Left = 234
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #20462#25913
      Flat = True
      OnClick = modifyClick
    end
    object del: TSpeedButton
      Left = 330
      Top = 2
      Width = 96
      Height = 31
      Cursor = crHandPoint
      Caption = #21024#38500
      Flat = True
      OnClick = delClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 41
    Width = 305
    Height = 679
    Align = alCustom
    Caption = #28155#21152
    TabOrder = 2
    object Label5: TLabel
      Left = 16
      Top = 536
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #22791#27880
    end
    object Label4: TLabel
      Left = 24
      Top = 328
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #37329#39069
    end
    object Label3: TLabel
      Left = 16
      Top = 184
      Width = 60
      Height = 13
      Caption = #25151#23376#32534#21495#65306
    end
    object Label9: TLabel
      Left = 16
      Top = 408
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #20107#20214
    end
    object Label10: TLabel
      Left = 16
      Top = 264
      Width = 84
      Height = 13
      Caption = #25152#23646#21512#21516#32534#21495#65306
    end
    object Label11: TLabel
      Left = 16
      Top = 472
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #21457#29983#26085#26399
    end
    object Edit_remarks: TEdit
      Left = 18
      Top = 560
      Width = 263
      Height = 21
      TabOrder = 0
    end
    object Edit_cost: TEdit
      Left = 16
      Top = 368
      Width = 257
      Height = 21
      TabOrder = 1
    end
    object cb_houseno: TComboBox
      Left = 16
      Top = 224
      Width = 249
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      OnDropDown = cb_housenoDropDown
      OnKeyPress = cb_housenoKeyPress
    end
    object rb_zc: TRadioButton
      Left = 152
      Top = 40
      Width = 113
      Height = 17
      Caption = #25151#23376#25903#20986
      TabOrder = 3
      OnClick = rb_zcClick
    end
    object rb_sr: TRadioButton
      Left = 152
      Top = 64
      Width = 113
      Height = 25
      Caption = #25151#23376#25910#20837
      TabOrder = 4
      OnClick = rb_srClick
    end
    object cb_cno: TComboBox
      Left = 18
      Top = 296
      Width = 247
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      OnDropDown = cb_cnoDropDown
    end
    object dtp_occurtime: TDateTimePicker
      Left = 16
      Top = 504
      Width = 137
      Height = 21
      Date = 39146.043431342590000000
      Time = 39146.043431342590000000
      TabOrder = 6
    end
    object rb_khfz: TRadioButton
      Left = 24
      Top = 32
      Width = 113
      Height = 25
      Caption = #23458#25143#20132#25151#31199
      TabOrder = 7
      OnClick = rb_khfzClick
    end
    object rb_fdfz: TRadioButton
      Left = 24
      Top = 64
      Width = 113
      Height = 17
      Caption = #32473#25151#19996#20132#25151#31199
      TabOrder = 8
      OnClick = rb_fdfzClick
    end
    object rb_yj: TRadioButton
      Left = 24
      Top = 96
      Width = 57
      Height = 17
      Caption = #25276#37329
      TabOrder = 9
      OnClick = rb_yjClick
    end
    object Edit_thing: TComboBox
      Left = 18
      Top = 440
      Width = 263
      Height = 21
      ItemHeight = 13
      TabOrder = 10
      OnDropDown = Edit_thingDropDown
    end
  end
  object DBGrid: TDBGrid
    Left = 312
    Top = 456
    Width = 681
    Height = 185
    Align = alCustom
    DataSource = DM2.ds_sz
    TabOrder = 3
    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 = 320
    Top = 200
    Width = 504
    Height = 25
    DataSource = DM2.ds_sz2
    VisibleButtons = [nbPost, nbCancel, nbRefresh]
    TabOrder = 4
  end
  object DBNavigator2: TDBNavigator
    Left = 312
    Top = 416
    Width = 504
    Height = 25
    DataSource = DM2.ds_sz
    VisibleButtons = [nbPost, nbCancel, nbRefresh]
    TabOrder = 5
  end
  object DBGrid1: TDBGrid
    Left = 312
    Top = 232
    Width = 673
    Height = 177
    Align = alCustom
    DataSource = DM2.ds_sz2
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
end