uni_purviewsetup.dfm

来自「一个非常不错的经费报销管理软件」· DFM 代码 · 共 93 行

object Frm_PurviewSetup: TFrm_PurviewSetup
  Left = 346
  Top = 199
  Width = 377
  Height = 511
  Caption = #26435#38480#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGPurview: TDBGridEh
    Left = 0
    Top = 0
    Width = 369
    Height = 484
    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 = dsPurview
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'cName'
        Footers = <>
        Title.Caption = #26435#38480#21517#31216
        Width = 138
        DisplayNullIfZero = False
        IsCurrency = False
      end
      item
        EditButtons = <>
        FieldName = 'BVisible'
        Footers = <>
        Title.Caption = #26159'/'#21542
        Width = 46
        DisplayNullIfZero = False
        IsCurrency = False
      end>
  end
  object dsPurview: TDataSource
    DataSet = DM.bsPurview
    Left = 65
    Top = 8
  end
end