dwyjfrm.dfm

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

object dwyj: Tdwyj
  Left = 288
  Top = 175
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #21333#20301#33829#20855
  ClientHeight = 408
  ClientWidth = 567
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 567
    Height = 376
    Align = alClient
    BevelInner = bvLowered
    Color = clSkyBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 198
      Top = 223
      Width = 132
      Height = 12
      Caption = #33829#20855#35814#32454#20351#29992#24773#20917#21015#34920#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 15
      Width = 60
      Height = 12
      Caption = #20351#29992#21333#20301#65306
    end
    object SpeedButton6: TSpeedButton
      Left = 421
      Top = 8
      Width = 70
      Height = 22
      Cursor = crHandPoint
      Hint = #26597#35810#25351#23450#26465#20214#33829#20855
      Caption = #26597#35810
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888800000888880000080F000888880F00080F000888880F
        0008000000080000000800F000000F00000800F000800F00000800F000800F00
        00088000000000000088880F00080F0008888800000800000888888000888000
        88888880F08880F0888888800088800088888888888888888888}
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 491
      Top = 8
      Width = 70
      Height = 22
      Cursor = crHandPoint
      Hint = #28165#38500#26597#35810#26465#20214
      Caption = #37325#32622
      Flat = True
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
      OnClick = SpeedButton7Click
    end
    object Label3: TLabel
      Left = 216
      Top = 15
      Width = 60
      Height = 12
      Caption = #33829#20855#21517#31216#65306
    end
    object DBGridEh1: TDBGridEh
      Left = 7
      Top = 246
      Width = 554
      Height = 123
      AutoFitColWidths = True
      Color = clMoneyGreen
      DataSource = yfgldata.Ddwyj2
      FixedColor = clSkyBlue
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeMode = imClose
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      RowHeight = 16
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 13
      Columns = <
        item
          EditButtons = <>
          FieldName = #32534#21495
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #33829#20855#21517#31216
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = #20351#29992#29366#20917
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #36131#20219#20154
          Footers = <>
          Title.Alignment = taCenter
        end>
    end
    object DBGridEh2: TDBGridEh
      Left = 7
      Top = 37
      Width = 554
      Height = 174
      AutoFitColWidths = True
      Color = clMoneyGreen
      DataSource = yfgldata.Ddwyj3
      FixedColor = clSkyBlue
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeMode = imClose
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      RowHeight = 16
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 13
      OnCellClick = DBGridEh2CellClick
      OnDrawDataCell = DBGridEh2DrawDataCell
      OnKeyUp = DBGridEh2KeyUp
      OnMouseMove = DBGridEh2MouseMove
      Columns = <
        item
          EditButtons = <>
          FieldName = #20195#30721
          Footers = <>
          Title.Alignment = taCenter
          Width = 40
        end
        item
          EditButtons = <>
          FieldName = #33829#20855#21517#31216
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = #21333#20301
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #25968#37327
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #21333#20215
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #21512#35745#37329#39069
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #20351#29992#21333#20301
          Footers = <>
          Title.Alignment = taCenter
        end>
    end
    object dxLookupTreeView1: TdxLookupTreeView
      Left = 69
      Top = 10
      Width = 132
      Height = 20
      Hint = #21333#20987#36873#25321#21333#20301#20195#30721
      CanSelectParents = True
      Color = clMoneyGreen
      Ctl3D = True
      DropDownRows = 12
      DropDownWidth = 240
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 2
      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
      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