yjsffrm.dfm

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

object yjsf: Tyjsf
  Left = 201
  Top = 257
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #33829#20855#25910#21457
  ClientHeight = 378
  ClientWidth = 698
  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 = 698
    Height = 346
    Align = alClient
    BevelInner = bvLowered
    Color = clSkyBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 84
      Height = 12
      Caption = #24211#23384#33829#20855#21015#34920#65306
    end
    object Label2: TLabel
      Left = 376
      Top = 16
      Width = 108
      Height = 12
      Caption = #33829#20855#20351#29992#21333#20301#20195#30721#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 337
      Top = 128
      Width = 23
      Height = 22
      Cursor = crHandPoint
      Hint = #21457#25918#33829#20855
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 337
      Top = 192
      Width = 23
      Height = 22
      Cursor = crHandPoint
      Hint = #22238#25910#33829#20855
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC3333333333333773}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object Label3: TLabel
      Left = 152
      Top = 320
      Width = 96
      Height = 12
      Caption = #33829#25151#37096#38376#36131#20219#20154#65306
    end
    object Label4: TLabel
      Left = 344
      Top = 320
      Width = 96
      Height = 12
      Caption = #20351#29992#21333#20301#36131#20219#20154#65306
    end
    object Label5: TLabel
      Left = 536
      Top = 320
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
    end
    object Label6: TLabel
      Left = 8
      Top = 320
      Width = 48
      Height = 12
      Caption = #25209#20934#20154#65306
    end
    object DBGridEh1: TDBGridEh
      Left = 7
      Top = 40
      Width = 314
      Height = 259
      Hint = #24211#23384#33829#20855#21015#34920
      AutoFitColWidths = True
      Color = clMoneyGreen
      DataSource = yfgldata.Dkcyj
      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]
      RowHeight = 16
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 13
      Columns = <
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = #36873#25321
          Footers = <>
          Title.Alignment = taCenter
          Width = 28
        end
        item
          Checkboxes = False
          EditButtons = <>
          FieldName = #32534#21495
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #33829#20855#21517#31216
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = #20351#29992#29366#20917
          Footers = <>
          ReadOnly = True
          Title.Alignment = taCenter
        end>
    end
    object dxLookupTreeView1: TdxLookupTreeView
      Left = 496
      Top = 10
      Width = 195
      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 = 1
      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