dwsdfcxfrm.dfm

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

object dwsdfcx: Tdwsdfcx
  Left = 311
  Top = 327
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #21333#20301#27700#30005#36153#26597#35810
  ClientHeight = 388
  ClientWidth = 631
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 631
    Height = 356
    Align = alClient
    BevelInner = bvLowered
    Color = clSkyBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 23
      Width = 72
      Height = 12
      Caption = #21333#20301#20195#30721#20026#65306
    end
    object CheckBox1: TCheckBox
      Left = 280
      Top = 20
      Width = 73
      Height = 17
      Cursor = crHandPoint
      Hint = #24180#24230#35774#23450
      Caption = #24180#24230#35774#23450
      TabOrder = 0
      OnClick = DBNumberEditEh1Change
    end
    object DBNumberEditEh1: TDBNumberEditEh
      Left = 352
      Top = 18
      Width = 65
      Height = 20
      Hint = #24180#24230
      Color = clMoneyGreen
      DecimalPlaces = 0
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      ImeMode = imClose
      MaxValue = 9999.000000000000000000
      MinValue = 1949.000000000000000000
      TabOrder = 1
      Value = 2004.000000000000000000
      Visible = True
      OnChange = DBNumberEditEh1Change
    end
    object CheckBox2: TCheckBox
      Left = 440
      Top = 20
      Width = 73
      Height = 17
      Cursor = crHandPoint
      Hint = #26376#20221#35774#23450
      Caption = #26376#20221#35774#23450
      TabOrder = 2
      OnClick = DBNumberEditEh1Change
    end
    object DBNumberEditEh2: TDBNumberEditEh
      Left = 512
      Top = 18
      Width = 49
      Height = 20
      Hint = #26376#20221
      Color = clMoneyGreen
      DecimalPlaces = 0
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      ImeMode = imClose
      MaxValue = 12.000000000000000000
      MinValue = 1.000000000000000000
      TabOrder = 3
      Value = 1.000000000000000000
      Visible = True
      OnChange = DBNumberEditEh1Change
    end
    object dxLookupTreeView1: TdxLookupTreeView
      Left = 85
      Top = 18
      Width = 164
      Height = 20
      Hint = #21333#20987#36873#25321#21333#20301#20195#30721
      CanSelectParents = True
      Color = clMoneyGreen
      Ctl3D = True
      DropDownRows = 12
      DropDownWidth = 180
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 4
      TabStop = True
      TreeViewColor = clMoneyGreen
      TreeViewCursor = crHandPoint
      TreeViewFont.Charset = GB2312_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -12
      TreeViewFont.Name = #23435#20307
      TreeViewFont.Style = []
      TreeViewImages = ImageList1
      TreeViewIndent = 19
      TreeViewReadOnly = False
      TreeViewShowButtons = True
      TreeViewShowHint = True
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      OnCloseUp = dxLookupTreeView1CloseUp
      DisplayField = #26631#39064
      DividedChar = '.'
      ImageIndexField = #36873#25321#22270#26631
      ListSource = yfgldata.Ddw
      KeyField = #21333#20301#20195#30721
      ListField = #21333#20301#20195#30721
      Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = #19978#32423#20195#30721
      StateIndexField = #21407#22987#22270#26631
      TextStyle = tvtsShort
      Alignment = taLeftJustify
    end
    object DBGridEh1: TDBGridEh
      Left = 7
      Top = 48
      Width = 617
      Height = 302
      Hint = #21333#20301#27700#30005#36153#21015#34920
      AutoFitColWidths = True
      Color = clMoneyGreen
      DataSource = yfgldata.Ddwsdfcx
      FixedColor = clSkyBlue
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      FooterColor = clTeal
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clYellow
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      ImeMode = imClose
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      RowHeight = 16
      RowSizingAllowed = True
      SumList.Active = True
      TabOrder = 5
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 13
      UseMultiTitle = True
      Columns = <
        item
          EditButtons = <>
          FieldName = #24180#24230
          Footers = <>
          Width = 46
        end
        item
          EditButtons = <>
          FieldName = #26376#20221
          Footers = <>
          Width = 32
        end
        item
          EditButtons = <>
          FieldName = #21333#20301#21517#31216
          Footers = <
            item
              Value = #24635#35745#65306
              ValueType = fvtStaticText
            end>
          Width = 131
        end
        item
          EditButtons = <>
          FieldName = #27700#30005#36153#26631#20934
          Footers = <
            item
              FieldName = #27700#30005#36153#26631#20934
              ValueType = fvtSum
            end>
          Width = 83
        end
        item
          EditButtons = <>
          FieldName = #29992#27700#37327
          Footers = <
            item
              FieldName = #29992#27700#37327
              ValueType = fvtSum
            end>
          Title.Caption = #23454#29992#37327'|'#27700
          Width = 49
        end
        item
          EditButtons = <>
          FieldName = #29992#30005#37327
          Footers = <
            item
              ValueType = fvtSum
            end>
          Title.Caption = #23454#29992#37327'|'#30005
          Width = 45
        end
        item
          EditButtons = <>
          FieldName = #27700#28040#32791#23450#39069
          Footers = <
            item
              ValueType = fvtSum
            end>
          Title.Caption = #28040#32791#23450#39069'|'#27700
        end
        item
          EditButtons = <>
          FieldName = #30005#28040#32791#23450#39069