uni_plan.dfm

来自「一个非常不错的经费报销管理软件」· DFM 代码 · 共 1,370 行 · 第 1/4 页

          AutoSize = False
          Caption = #23457#26680#26102#38388
          FocusControl = DBEdit9
          Visible = False
        end
        object DBEdit5: TDBEdit
          Left = 330
          Top = 348
          Width = 105
          Height = 20
          DataField = 'dtSaveTime'
          DataSource = DSbsPlanHost
          ReadOnly = True
          TabOrder = 0
          Visible = False
        end
        object DBEdit7: TDBEdit
          Left = 192
          Top = 348
          Width = 81
          Height = 20
          DataField = 'cAuditUser'
          DataSource = DSbsPlanHost
          ReadOnly = True
          TabOrder = 1
        end
        object DBGbsPlanMX: TDBGridEh
          Left = 16
          Top = 153
          Width = 577
          Height = 181
          FixGridlinecolor = clGray
          Gridlinecolor = clGray
          FooterDisplayStyle = False
          ShowBmp = False
          UseMenu = True
          SortOnColumnClick = False
          RowTwoColor = clCream
          CurDeciNumber = 2
          CurShowNegativeFont = True
          CurShowNegativeColor = False
          CurShowNegativeSign = False
          CurDeciSeparatColor = clRed
          CurrencySymBol = #65509
          CurrencySymBolAlained = False
          CurGridLineColor = clSilver
          CurGridLineWidth = 1
          CurKilobitColor = clGreen
          CurrencyFont.Charset = DEFAULT_CHARSET
          CurrencyFont.Color = clWindowText
          CurrencyFont.Height = -11
          CurrencyFont.Name = 'MS Sans Serif'
          CurrencyFont.Style = []
          CurNegativeFont.Charset = DEFAULT_CHARSET
          CurNegativeFont.Color = clRed
          CurNegativeFont.Height = -11
          CurNegativeFont.Name = 'MS Sans Serif'
          CurNegativeFont.Style = []
          CurNegativeColor = clRed
          CurTextLayout = tlCenter
          CurZeroEmpty = True
          DataSource = DSbsPlanMX
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          FooterRowCount = 1
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghHighlightFocus, dghClearSelection, dghEnterAsTab]
          ParentFont = False
          RowSizingAllowed = True
          SumList.Active = True
          TabOrder = 2
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -16
          TitleFont.Name = #26032#23435#20307
          TitleFont.Style = []
          TitleLines = 2
          Columns = <
            item
              ButtonStyle = cbsEllipsis
              EditButtons = <>
              FieldName = 'cItemNo'
              Footer.Font.Charset = GB2312_CHARSET
              Footer.Font.Color = clBlue
              Footer.Font.Height = -12
              Footer.Font.Name = #23435#20307
              Footer.Font.Style = []
              Footers = <>
              ReadOnly = True
              Title.Caption = #39033#30446#32534#21495
              Width = 111
              OnEditButtonClick = DBGbsPlanMXColumns1EditButtonClick
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = 'cItemName'
              Footers = <>
              Title.Caption = #39033#30446#21517#31216
              Width = 163
              OnEditButtonClick = DBGbsPlanMXColumns1EditButtonClick
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              ButtonStyle = cbsEllipsis
              EditButtons = <>
              FieldName = 'cbranchsName'
              Footers = <>
              ReadOnly = True
              Title.Caption = #37096#38376
              Width = 133
              OnEditButtonClick = DBGbsPlanMXColumns2EditButtonClick
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = 'fPlanMoney'
              Footer.Font.Charset = GB2312_CHARSET
              Footer.Font.Color = clBlue
              Footer.Font.Height = -12
              Footer.Font.Name = #23435#20307
              Footer.Font.Style = []
              Footers = <>
              Title.Caption = #35745#21010#37329#39069
              Width = 107
              DisplayNullIfZero = False
              IsCurrency = False
            end>
        end
        object DBEdit8: TDBEdit
          Left = 64
          Top = 348
          Width = 81
          Height = 20
          DataField = 'cSaveUser'
          DataSource = DSbsPlanHost
          ReadOnly = True
          TabOrder = 3
        end
        object DBEdit9: TDBEdit
          Left = 490
          Top = 348
          Width = 105
          Height = 20
          DataField = 'dtAuditTime'
          DataSource = DSbsPlanHost
          ReadOnly = True
          TabOrder = 4
          Visible = False
        end
        object P_Edit: TPanel
          Left = 2
          Top = 51
          Width = 621
          Height = 94
          Align = alTop
          BevelOuter = bvNone
          Color = 14286847
          Enabled = False
          TabOrder = 5
          object TB_BranchsChoosed: TSpeedButton
            Left = 256
            Top = 8
            Width = 20
            Height = 19
            Flat = True
            Glyph.Data = {
              42020000424D4202000000000000420000002800000010000000100000000100
              1000030000000002000000000000000000000000000000000000007C0000E003
              00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000
              10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001863
              100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C100018631000
              100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000186310001000
              10001F7C1F7C1F7C1F7C1F7C1F7C000000000000000010001863100010001000
              1F7C1F7C1F7C1F7C1F7C00000000186318631863FF7F10421000100010001F7C
              1F7C1F7C1F7C1F7C0000104218631863186318631863FF7F104200001F7C1F7C
              1F7C1F7C1F7C1F7C00001863186318631863186318631863FF7F00001F7C1F7C
              1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
              1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
              1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
              1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
              1F7C1F7C1F7C1F7C0000FF7FFF7FFF03FF03186318631863186300001F7C1F7C
              1F7C1F7C1F7C1F7C00001042FF7FFF7FFF7F186318631863104200001F7C1F7C
              1F7C1F7C1F7C1F7C1F7C000000001863186318631863000000001F7C1F7C1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000000000001F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C}
            OnClick = TB_BranchsChoosedClick
          end
          object Label3: TLabel
            Left = 8
            Top = 11
            Width = 67
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #19979#36798#37096#38376
            FocusControl = DBEdit1
          end
          object Label4: TLabel
            Left = 296
            Top = 11
            Width = 41
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #21333#21495
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 26
            Top = 40
            Width = 49
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #29992#36884
            FocusControl = DBEdit2
            Visible = False
          end
          object Label7: TLabel
            Left = 32
            Top = 68
            Width = 43
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #35828#26126
            FocusControl = DBEdit6
          end
          object DBEdit1: TDBEdit
            Left = 88
            Top = 7
            Width = 161
            Height = 20
            DataField = 'cBranchsName'
            DataSource = DSbsPlanHost
            TabOrder = 0
          end
          object DBEdit3: TDBEdit
            Left = 344
            Top = 7
            Width = 121
            Height = 21
            DataField = 'cNum'
            DataSource = DSbsPlanHost
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
          end
          object DBEdit2: TDBEdit
            Left = 88
            Top = 36
            Width = 377
            Height = 20
            DataField = 'cUse'
            DataSource = DSbsPlanHost
            TabOrder = 2
            Visible = False
          end
          object DBEdit6: TDBEdit
            Left = 88
            Top = 64
            Width = 377
            Height = 20
            DataField = 'cRemark'
            DataSource = DSbsPlanHost
            TabOrder = 3
          end
          object Panel1: TPanel
            Left = 488
            Top = 16
            Width = 97
            Height = 65
            BevelOuter = bvNone
            Color = 14286847
            Enabled = False
            TabOrder = 4
            object ToolBar1: TToolBar
              Left = 6
              Top = 7
              Width = 55
              Height = 28
              Align = alNone
              AutoSize = True
              ButtonHeight = 28
              ButtonWidth = 55
              Caption = 'ToolBar1'
              EdgeBorders = []
              Flat = True
              Images = ImageList1
              TabOrder = 0
              object TBState: TToolButton
                Left = 0
                Top = 0
                ImageIndex = 0
              end
            end
          end
        end
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 41
    AutoSize = True
    Bands = <
      item
        Control = TB_Main
        ImageIndex = -1
        MinHeight = 37
        Width = 800
      end>
    Color = 14803425
    ParentColor = False
    object TB_Main: TToolBar
      Left = 9
      Top = 0