yfwztjfrm.dfm

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

object yfwztj: Tyfwztj
  Left = 229
  Top = 261
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #28155#21152#25112#22791#29289#36164
  ClientHeight = 244
  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 = 212
    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 = 54
      Height = 12
      Caption = #21697'   '#21517#65306
    end
    object Label2: TLabel
      Left = 261
      Top = 65
      Width = 60
      Height = 12
      Caption = #35268'    '#26684#65306
    end
    object Label5: TLabel
      Left = 526
      Top = 64
      Width = 60
      Height = 12
      Caption = #21333'    '#20301#65306
    end
    object Label8: TLabel
      Left = 14
      Top = 183
      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 = 592
      Top = 60
      Width = 65
      Height = 20
      Cursor = crHandPoint
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      ItemHeight = 12
      MaxLength = 4
      TabOrder = 2
      Items.Strings = (
        #20214
        #20010
        #24352
        #22871
        #31665
        #21488
        #30415
        #25226
        #39030)
    end
    object Edit1: TEdit
      Left = 79
      Top = 60
      Width = 162
      Height = 20
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      MaxLength = 20
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 327
      Top = 59
      Width = 178
      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 Edit4: TEdit
      Left = 79
      Top = 178
      Width = 577
      Height = 20
      Color = clMoneyGreen
      ImeMode = imOpen
      ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
      MaxLength = 30
      TabOrder = 6
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 104
      Width = 641
      Height = 49
      Caption = #25968#37327
      TabOrder = 5
      object Label6: TLabel
        Left = 7
        Top = 24
        Width = 36
        Height = 12
        Caption = #23567#35745#65306
      end
      object Label7: TLabel
        Left = 135
        Top = 24
        Width = 36
        Height = 12
        Caption = #26032#21697#65306
      end
      object Label9: TLabel
        Left = 263
        Top = 24
        Width = 36
        Height = 12
        Caption = #21208#29992#65306
      end
      object Label10: TLabel
        Left = 391
        Top = 24
        Width = 36
        Height = 12
        Caption = #24453#20462#65306
      end
      object Label11: TLabel
        Left = 519
        Top = 24
        Width = 36
        Height = 12
        Caption = #26032#21697#65306
      end
      object DBNumberEditEh1: TDBNumberEditEh
        Left = 47
        Top = 18
        Width = 76
        Height = 20
        Color = clMoneyGreen
        EditButton.Style = ebsUpDownEh
        EditButton.Visible = True
        EditButtons = <>
        MaxValue = 999999999.000000000000000000
        ReadOnly = True
        TabOrder = 0
        Value = 0.000000000000000000
        Visible = True
      end
      object DBNumberEditEh2: TDBNumberEditEh
        Left = 175
        Top = 18
        Width = 76
        Height = 20
        Color = clMoneyGreen
        EditButton.Style = ebsUpDownEh
        EditButton.Visible = True
        EditButtons = <>
        MaxValue = 999999999.000000000000000000
        TabOrder = 1
        Value = 0.000000000000000000
        Visible = True
        OnChange = DBNumberEditEh2Change
      end
      object DBNumberEditEh3: TDBNumberEditEh
        Left = 303
        Top = 18
        Width = 76
        Height = 20