uni_plan.~dfm

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

object Frm_Plan: TFrm_Plan
  Left = 75
  Top = 124
  Width = 812
  Height = 656
  Caption = #32463#36153#35745#21010
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter: TRzSplitter
    Left = 0
    Top = 41
    Width = 804
    Height = 588
    Orientation = orVertical
    Position = 178
    Percent = 30
    UseGradients = True
    Align = alClient
    Color = clSkyBlue
    TabOrder = 0
    BarSize = (
      0
      178
      804
      182)
    UpperLeftControls = (
      P_List)
    LowerRightControls = (
      Panel2)
    object P_List: TPanel
      Left = 0
      Top = 0
      Width = 804
      Height = 178
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object DBGbsPlanHost: TDBGridEh
        Left = 0
        Top = 41
        Width = 804
        Height = 137
        FixGridlinecolor = clGray
        Gridlinecolor = clGray
        FooterDisplayStyle = False
        ShowBmp = False
        UseMenu = True
        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
        Align = alClient
        DataSource = DSbsPlanHost
        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 = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghHighlightFocus, dghClearSelection]
        ParentFont = False
        RowHeight = 20
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #26032#23435#20307
        TitleFont.Style = []
        TitleLines = 2
        Columns = <
          item
            EditButtons = <>
            FieldName = 'cNum'
            Footers = <>
            Title.Caption = #21333#25454#21495
            Width = 108
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'cBranchsName'
            Footers = <>
            Title.Caption = #37096#38376
            Width = 164
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'cSaveUser'
            Footers = <>
            Title.Caption = #21046#21333#20154
            Width = 110
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'cAuditUser'
            Footers = <>
            Title.Caption = #23457#26680#20154
            Width = 127
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'dtSaveTime'
            Footers = <>
            Title.Caption = #20445#23384#26102#38388
            Visible = False
            Width = 117
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'dtAuditTime'
            Footers = <>
            Title.Caption = #23457#26680#26102#38388
            Visible = False
            Width = 136
            DisplayNullIfZero = False
            IsCurrency = False
          end
          item
            EditButtons = <>
            FieldName = 'cRemark'
            Footers = <>
            Title.Caption = #35828#26126
            Width = 286
            DisplayNullIfZero = False
            IsCurrency = False
          end>
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 804
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label2: TLabel
          Left = 108
          Top = 16
          Width = 16
          Height = 12
          AutoSize = False
          Caption = #33267
        end
        object Label11: TLabel
          Left = 236
          Top = 16
          Width = 50
          Height = 12
          AutoSize = False
          Caption = #24555#36895#26597#25214
        end
        object Label12: TLabel
          Left = 468
          Top = 16
          Width = 29
          Height = 12
          AutoSize = False
          Caption = #37096#38376
        end
        object SpeedButton1: TSpeedButton
          Left = 680
          Top = 11
          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 = SpeedButton1Click
        end
        object dtBegin: TDateTimePicker
          Left = 12
          Top = 11
          Width = 89
          Height = 20
          Date = 39048.000000000000000000
          Time = 39048.000000000000000000
          TabOrder = 0
          OnChange = dtEndChange
        end
        object dtEnd: TDateTimePicker
          Left = 124
          Top = 11
          Width = 89
          Height = 20
          Date = 39048.999988425930000000
          Time = 39048.999988425930000000
          TabOrder = 1
          OnChange = dtEndChange
        end
        object edtQuery: TEdit
          Left = 288
          Top = 11
          Width = 169
          Height = 20
          TabOrder = 2
          OnChange = dtEndChange
        end
        object Edt_Branchs: TEdit
          Left = 504
          Top = 11
          Width = 169
          Height = 20
          TabOrder = 3
          OnChange = dtEndChange
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 804
      Height = 406
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel2'
      Color = 14803425
      TabOrder = 0
      object P_Client: TPanel
        Left = 0
        Top = 0
        Width = 625
        Height = 401
        BevelInner = bvLowered
        Color = 14286847
        TabOrder = 0
        object Label6: TLabel
          Left = 271
          Top = 352
          Width = 57
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #21046#21333#26102#38388
          FocusControl = DBEdit5
          Visible = False
        end
        object Label8: TLabel
          Left = 144
          Top = 352
          Width = 44
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #23457#26680#20154
          FocusControl = DBEdit7
        end
        object Label1: TLabel
          Left = 2
          Top = 2
          Width = 621
          Height = 49
          Align = alTop
          Alignment = taCenter
          AutoSize = False
          Caption = #32463#36153#35745#21010
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -29
          Font.Name = #26999#20307'_GB2312'
          Font.Style = [fsBold]
          ParentFont = False
          Layout = tlCenter
        end
        object Label9: TLabel
          Left = 16
          Top = 352
          Width = 44
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #21046#21333#20154
          FocusControl = DBEdit8
        end
        object Label10: TLabel
          Left = 431
          Top = 352
          Width = 57
          Height = 13
          Alignment = taRightJustify