yfdatjfrm.dfm

本人编写的有关军队营房工作的管理系统

object yfdatj: Tyfdatj
  Left = 254
  Top = 413
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #28155#21152#26723#26696#36164#26009
  ClientHeight = 219
  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 = 187
    Align = alClient
    BevelInner = bvLowered
    Color = clSkyBlue
    TabOrder = 0
    object Label3: TLabel
      Left = 15
      Top = 18
      Width = 60
      Height = 12
      Caption = #21333#20301#20195#30721#65306
    end
    object Label4: TLabel
      Left = 261
      Top = 18
      Width = 60
      Height = 12
      Caption = #20303#29992#21333#20301#65306
    end
    object Label1: TLabel
      Left = 15
      Top = 65
      Width = 60
      Height = 12
      Caption = #22352' '#33853' '#21495#65306
    end
    object Label2: TLabel
      Left = 261
      Top = 65
      Width = 60
      Height = 12
      Caption = #22352#33853#22320#22336#65306
    end
    object Label5: TLabel
      Left = 14
      Top = 112
      Width = 60
      Height = 12
      Caption = #36164#26009#21517#31216#65306
    end
    object Label6: TLabel
      Left = 261
      Top = 112
      Width = 60
      Height = 12
      Caption = #20221'    '#25968#65306
    end
    object Label7: TLabel
      Left = 485
      Top = 112
      Width = 60
      Height = 12
      Caption = #39029'    '#25968#65306
    end
    object Label8: TLabel
      Left = 14
      Top = 159
      Width = 60
      Height = 12
      Caption = #22791'    '#27880#65306
    end
    object dxLookupTreeView1: TdxLookupTreeView
      Left = 79
      Top = 13
      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 = 327
      Top = 13
      Width = 329
      Height = 20
      Color = clMoneyGreen
      MaxLength = 50
      ReadOnly = True
      TabOrder = 1
    end
    object ComboBox1: TComboBox
      Left = 79
      Top = 60
      Width = 161
      Height = 20
      Cursor = crHandPoint
      Style = csDropDownList
      Color = clMoneyGreen
      ItemHeight = 12
      MaxLength = 30
      TabOrder = 2
      OnChange = ComboBox1Change
    end
    object Edit1: TEdit
      Left = 327
      Top = 60
      Width = 329
      Height = 20
      Color = clMoneyGreen
      MaxLength = 50
      ReadOnly = True
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 79
      Top = 107
      Width = 161
      Height = 20
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      MaxLength = 30
      TabOrder = 4
    end
    object DBNumberEditEh1: TDBNumberEditEh
      Left = 327
      Top = 107
      Width = 129
      Height = 20
      Color = clMoneyGreen
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      MaxValue = 999999999.000000000000000000
      TabOrder = 5
      Value = 0.000000000000000000
      Visible = True
    end
    object DBNumberEditEh2: TDBNumberEditEh
      Left = 551
      Top = 107
      Width = 105
      Height = 20
      Color = clMoneyGreen
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      MaxValue = 999999999.000000000000000000
      TabOrder = 6
      Value = 0.000000000000000000
      Visible = True
    end
    object Edit4: TEdit
      Left = 79
      Top = 154
      Width = 577
      Height = 20
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      MaxLength = 30
      TabOrder = 7
    end
  end
  object Panel2: TPanel
    Left = 0