uni_outlaypayout.~dfm

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

        Color = 14286847
        Enabled = False
        TabOrder = 0
        object Label2: TLabel
          Left = 40
          Top = 20
          Width = 54
          Height = 12
          Caption = #37096#38376#21517#31216':'
          FocusControl = DBEdit2
        end
        object Label8: TLabel
          Left = 64
          Top = 52
          Width = 30
          Height = 12
          Caption = #35828#26126':'
          FocusControl = DBEdit8
        end
        object SB_record: TSpeedButton
          Left = 276
          Top = 15
          Width = 22
          Height = 23
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000
            10001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10001863
            100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C100018631000
            100010001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1000186310001000
            10001F7C1F7C1F7C1F7C1F7C1F7C000000000000000010001863100010001000
            1F7C1F7C1F7C1F7C1F7C00000000186318631863FF7F10421000100010001F7C
            1F7C1F7C1F7C1F7C0000104218631863186318631863FF7F104200001F7C1F7C
            1F7C1F7C1F7C1F7C00001863186318631863186318631863FF7F00001F7C1F7C
            1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
            1F7C1F7C1F7C0000186318631863186318631863186318631863186300001F7C
            1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
            1F7C1F7C1F7C00001863FF7FFF03186318631863186318631863186300001F7C
            1F7C1F7C1F7C1F7C0000FF7FFF7FFF03FF03186318631863186300001F7C1F7C
            1F7C1F7C1F7C1F7C00001042FF7FFF7FFF7F186318631863104200001F7C1F7C
            1F7C1F7C1F7C1F7C1F7C000000001863186318631863000000001F7C1F7C1F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000000000001F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C}
          ParentFont = False
          OnClick = SB_recordClick
        end
        object Label7: TLabel
          Left = 304
          Top = 20
          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 DBEdit2: TDBEdit
          Left = 101
          Top = 16
          Width = 172
          Height = 20
          DataField = 'cBranchsName'
          DataSource = dsMain
          ReadOnly = True
          TabOrder = 0
        end
        object DBEdit8: TDBEdit
          Left = 99
          Top = 48
          Width = 374
          Height = 20
          DataField = 'cRemark'
          DataSource = dsMain
          TabOrder = 1
        end
        object DBEdit1: TDBEdit
          Left = 352
          Top = 16
          Width = 121
          Height = 21
          DataField = 'cNum'
          DataSource = dsMain
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object Panel1: TPanel
          Left = 488
          Top = 8
          Width = 97
          Height = 65
          BevelOuter = bvNone
          Color = 14286847
          Enabled = False
          TabOrder = 3
          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
      object grdDetail: TDBGridEh
        Left = 12
        Top = 135
        Width = 613
        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 = dsDetail
        FixedColor = 14803425
        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 = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleLines = 2
        OnDrawColumnCell = grdDetailDrawColumnCell
        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
            Width = 124
            OnEditButtonClick = grdDetailColumns3EditButtonClick
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'cItemName'
            Footers = <>
            ReadOnly = True
            Width = 171
            OnEditButtonClick = grdDetailColumns3EditButtonClick
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'cbranchsNum'
            Footers = <>
            Visible = False
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'cBranchsName'
            Footers = <>
            ReadOnly = True
            Width = 173
            OnEditButtonClick = grdDetailColumns6EditButtonClick
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'fPayoutMoney'
            Footer.Font.Charset = GB2312_CHARSET
            Footer.Font.Color = clBlue
            Footer.Font.Height = -12
            Footer.Font.Name = #23435#20307
            Footer.Font.Style = []
            Footers = <>
            Width = 91
            DisplayNullIfZero = False
            IsCurrency = False
          end>
      end
      object DBEdit3: TDBEdit
        Left = 51
        Top = 331
        Width = 100
        Height = 20
        DataField = 'cUser'
        DataSource = dsMain
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit5: TDBEdit
        Left = 360
        Top = 331
        Width = 100
        Height = 20
        DataField = 'dtSaveTime'
        DataSource = dsMain
        ReadOnly = True
        TabOrder = 3
        Visible = False
      end
      object DBEdit4: TDBEdit
        Left = 197
        Top = 331
        Width = 100
        Height = 20
        DataField = 'cAuditUser'
        DataSource = dsMain
        ReadOnly = True
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 515
        Top = 331
        Width = 100
        Height = 20
        DataField = 'dtAuditTime'
        DataSource = dsMain
        ReadOnly = True
        TabOrder = 5
        Visible = False
      end
    end
  end
  object TB_Main: TToolBar
    Left = 0
    Top = 0
    Width = 794
    Height = 37
    AutoSize = True
    ButtonHeight = 37
    ButtonWidth = 31
    Color = 14803425
    EdgeInner = esNone
    EdgeOuter = esNone
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Images = DM.ImageList1
    ParentColor = False
    ParentFont = False
    ShowCaptions = True
    TabOrder = 1
    object tbNew: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #26032#22686
      ImageIndex = 2
      OnClick = tbNewClick
    end
    object tbEdit: TToolButton
      Left = 35
      Top = 0
      AutoSize = True
      Caption = #20462#25913
      ImageIndex = 3
      OnClick = tbEditClick
    end
    object tbDelete: TToolButton
      Left = 70
      Top = 0
      AutoSize = True
      Caption = #21024#38500
      ImageIndex = 15
      OnClick = tbDeleteClick
    end
    object ToolButton8: TToolButton
      Left = 105
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 28
      Style = tbsSeparator
    end
    object tbAuditing: TToolButton
      Left = 113
      Top = 0
      AutoSize = True