dttjfrm.dfm

来自「本人编写的有关军队营房工作的管理系统」· DFM 代码 · 共 598 行 · 第 1/2 页

object dttj: Tdttj
  Left = 346
  Top = 301
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #28155#21152#26032#35760#24405
  ClientHeight = 318
  ClientWidth = 670
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 670
    Height = 286
    Align = alClient
    BevelInner = bvLowered
    Color = clSkyBlue
    TabOrder = 0
    object Label3: TLabel
      Left = 16
      Top = 16
      Width = 60
      Height = 12
      Caption = #21333#20301#20195#30721#65306
    end
    object Label4: TLabel
      Left = 262
      Top = 16
      Width = 60
      Height = 12
      Caption = #20303#29992#21333#20301#65306
    end
    object Label1: TLabel
      Left = 16
      Top = 64
      Width = 60
      Height = 12
      Caption = #22352' '#33853' '#21495#65306
    end
    object Label2: TLabel
      Left = 262
      Top = 64
      Width = 60
      Height = 12
      Caption = #26635'    '#21495#65306
    end
    object Label5: TLabel
      Left = 471
      Top = 64
      Width = 60
      Height = 12
      Caption = #30005#26799#32534#21495#65306
    end
    object Label6: TLabel
      Left = 16
      Top = 112
      Width = 60
      Height = 12
      Caption = #30005#26799#22411#21495#65306
    end
    object Label7: TLabel
      Left = 262
      Top = 112
      Width = 60
      Height = 12
      Caption = #25511#21046#26041#24335#65306
    end
    object Label8: TLabel
      Left = 471
      Top = 112
      Width = 60
      Height = 12
      Caption = #39537#21160#26041#24335#65306
    end
    object Label9: TLabel
      Left = 16
      Top = 161
      Width = 60
      Height = 12
      Caption = #30005#26799#29992#36884#65306
    end
    object Label10: TLabel
      Left = 262
      Top = 161
      Width = 60
      Height = 12
      Caption = #36136#37327#29366#20917#65306
    end
    object Label11: TLabel
      Left = 471
      Top = 161
      Width = 60
      Height = 12
      Caption = #39069#23450#36733#33655#65306
    end
    object Label12: TLabel
      Left = 16
      Top = 209
      Width = 60
      Height = 12
      Caption = #21151'    '#29575#65306
    end
    object Label13: TLabel
      Left = 262
      Top = 209
      Width = 60
      Height = 12
      Caption = #31449'    '#25968#65306
    end
    object Label14: TLabel
      Left = 224
      Top = 258
      Width = 12
      Height = 12
      Caption = #24180
    end
    object Label15: TLabel
      Left = 472
      Top = 209
      Width = 60
      Height = 12
      Caption = #29983#20135#21378#23478#65306
    end
    object Label16: TLabel
      Left = 16
      Top = 258
      Width = 60
      Height = 12
      Caption = #23433#35013#24180#20221#65306
    end
    object Label17: TLabel
      Left = 264
      Top = 258
      Width = 60
      Height = 12
      Caption = #21464#26356#20381#25454#65306
    end
    object Label18: TLabel
      Left = 224
      Top = 209
      Width = 24
      Height = 12
      Caption = #21315#29926
    end
    object Label19: TLabel
      Left = 632
      Top = 161
      Width = 24
      Height = 12
      Caption = #20844#26020
    end
    object dxLookupTreeView1: TdxLookupTreeView
      Left = 80
      Top = 11
      Width = 161
      Height = 20
      Cursor = crHandPoint
      Hint = #21333#20987#36873#25321#21333#20301#20195#30721
      CanSelectParents = True
      Color = clMoneyGreen
      Ctl3D = True
      DropDownRows = 12
      DropDownWidth = 180
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 0
      TabStop = True
      TreeViewColor = clMoneyGreen
      TreeViewCursor = crHandPoint
      TreeViewFont.Charset = GB2312_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -12
      TreeViewFont.Name = #23435#20307
      TreeViewFont.Style = []
      TreeViewImages = ImageList2
      TreeViewIndent = 19
      TreeViewReadOnly = True
      TreeViewShowButtons = True
      TreeViewShowHint = True
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      OnCloseUp = dxLookupTreeView1CloseUp
      DisplayField = #21333#20301#21517#31216
      DividedChar = '.'
      ListSource = yfgldata.Ddwqk
      KeyField = #21333#20301#20195#30721
      ListField = #21333#20301#20195#30721
      Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = #19978#32423#21333#20301#20195#30721
      TextStyle = tvtsShort
      Alignment = taLeftJustify
    end
    object Edit2: TEdit
      Left = 328
      Top = 11
      Width = 329
      Height = 20
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      MaxLength = 50
      ReadOnly = True
      TabOrder = 1
    end
    object ComboBox1: TComboBox
      Left = 80
      Top = 59
      Width = 161
      Height = 20
      Cursor = crHandPoint
      Style = csDropDownList
      Color = clMoneyGreen
      ItemHeight = 12
      MaxLength = 30
      TabOrder = 2
      OnCloseUp = ComboBox1CloseUp
    end
    object Edit3: TEdit
      Left = 536
      Top = 59
      Width = 121
      Height = 20
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      MaxLength = 20
      TabOrder = 4
    end
    object DBNumberEditEh1: TDBNumberEditEh
      Left = 536
      Top = 156
      Width = 89
      Height = 20
      Color = clMoneyGreen
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      MaxValue = 999999999.000000000000000000
      TabOrder = 10
      Value = 0.000000000000000000
      Visible = True
    end
    object DBNumberEditEh2: TDBNumberEditEh
      Left = 80
      Top = 205
      Width = 137
      Height = 20
      Color = clMoneyGreen
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      Increment = 0.100000000000000000
      MaxValue = 999999999.000000000000000000
      TabOrder = 11
      Value = 0.000000000000000000
      Visible = True
    end
    object Edit4: TEdit
      Left = 536
      Top = 108
      Width = 121
      Height = 20
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      MaxLength = 20
      TabOrder = 7
    end
    object DBNumberEditEh3: TDBNumberEditEh
      Left = 328
      Top = 205
      Width = 121
      Height = 20
      Color = clMoneyGreen
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      MaxValue = 999999999.000000000000000000
      TabOrder = 12
      Value = 4.000000000000000000
      Visible = True
    end
    object Edit5: TEdit
      Left = 328
      Top = 156
      Width = 121
      Height = 20
      Color = clMoneyGreen