frmsystemset.dfm

里面有个人一天消费管理

object SystemSetFm: TSystemSetFm
  Left = 0
  Top = 0
  Caption = #36873#39033
  ClientHeight = 430
  ClientWidth = 598
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Pnl_Main: TRzPanel
    Left = 0
    Top = 0
    Width = 598
    Height = 394
    Align = alClient
    BorderOuter = fsNone
    GridXSize = 2
    GridYSize = 2
    TabOrder = 0
    DesignSize = (
      598
      394)
    object Tree_Info: TRzTreeView
      Left = 8
      Top = 8
      Width = 181
      Height = 380
      SelectionPen.Color = clBtnShadow
      Anchors = [akLeft, akTop, akBottom]
      FrameVisible = True
      Images = Imglst
      Indent = 35
      ReadOnly = True
      ShowButtons = False
      TabOrder = 0
      OnClick = Tree_InfoClick
      Items.NodeData = {
        01050000001D000000060000000600000006000000FFFFFFFF00000000020000
        000236652F6521000000050000000500000005000000FFFFFFFF000000000000
        000004366565517998EE7621000000070000000700000007000000FFFFFFFF00
        00000000000000042F65FA517998EE7621000000040000000400000004000000
        FFFFFFFF000000000000000004B65BAD5E106258542100000001000000010000
        0001000000FFFFFFFF000000000000000004F6944C88585B9862210000000300
        00000300000003000000FFFFFFFF0000000000000000043A5043673A50A1521F
        000000020000000200000002000000FFFFFFFF00000000000000000370656E63
        935E}
    end
    object PgContrl: TRzPageControl
      Left = 203
      Top = 8
      Width = 386
      Height = 382
      ActivePage = Tbsheet_Payout
      ActivePageDefault = Tbsheet_Other
      Anchors = [akLeft, akTop, akRight, akBottom]
      ParentColor = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      FixedDimension = 0
      object Tbsheet_Income: TRzTabSheet
        TabVisible = False
        Caption = 'Tbsheet_Income'
        DesignSize = (
          382
          378)
        object Grpbx_Income: TRzGroupBox
          Left = 8
          Top = 13
          Width = 363
          Height = 358
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = #25910#20837#39033#30446#32534#36753
          GradientColorStyle = gcsMSOffice
          GroupStyle = gsBanner
          TabOrder = 0
          DesignSize = (
            363
            358)
          object RzDBGrid1: TRzDBGrid
            Left = 8
            Top = 27
            Width = 347
            Height = 291
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dataFm.Ds_Income_Option
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            FrameVisible = True
            Columns = <
              item
                Expanded = False
                FieldName = 'xiangmu'
                Title.Alignment = taCenter
                Title.Caption = #36873#39033
                Width = 200
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'display'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clMenuHighlight
                Font.Height = -11
                Font.Name = 'Tahoma'
                Font.Style = []
                PickList.Strings = (
                  'True'
                  'False')
                Title.Alignment = taCenter
                Title.Caption = #26174#31034
                Width = 80
                Visible = True
              end>
          end
          object RzDBNavigator1: TRzDBNavigator
            Left = 8
            Top = 326
            Width = 240
            Height = 25
            DataSource = dataFm.Ds_Income_Option
            Anchors = [akLeft, akBottom]
            Hints.Strings = (
              #31532#19968
              #19978#19968
              #19979#19968
              #26368#21518
              #26032#24314
              #21024#38500
              #20462#25913
              #20445#23384
              #25764#38144
              #21047#26032)
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
          end
        end
      end
      object Tbsheet_Payout: TRzTabSheet
        TabVisible = False
        Caption = 'Tbsheet_Payout'
        DesignSize = (
          382
          378)
        object RzGroupBox2: TRzGroupBox
          Left = 8
          Top = 13
          Width = 363
          Height = 358
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = #25903#20986#39033#30446#32534#36753
          GradientColorStyle = gcsMSOffice
          GroupStyle = gsBanner
          TabOrder = 0
          DesignSize = (
            363
            358)
          object RzDBGrid2: TRzDBGrid
            Left = 8
            Top = 27
            Width = 347
            Height = 291
            Anchors = [akLeft, akTop, akRight, akBottom]
            DataSource = dataFm.Ds_payout_option
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            FrameVisible = True
            Columns = <
              item
                Expanded = False
                FieldName = 'xiangmu'
                Title.Alignment = taCenter
                Title.Caption = #36873#39033
                Width = 200
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'display'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clMenuHighlight
                Font.Height = -11
                Font.Name = 'Tahoma'
                Font.Style = []
                PickList.Strings = (
                  'True'
                  'False')
                Title.Alignment = taCenter
                Title.Caption = #26174#31034
                Width = 80
                Visible = True
              end>
          end
          object RzDBNavigator2: TRzDBNavigator
            Left = 8
            Top = 326
            Width = 240
            Height = 25
            DataSource = dataFm.Ds_payout_option
            Anchors = [akLeft, akBottom]
            Hints.Strings = (
              #31532#19968
              #19978#19968
              #19979#19968
              #26368#21518
              #26032#24314
              #21024#38500
              #20462#25913
              #20445#23384
              #25764#38144
              #21047#26032)
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
          end
        end
      end
      object Tbsheet_Family: TRzTabSheet
        TabVisible = False
        Caption = 'Tbsheet_Family'
        DesignSize = (
          382
          378)
        object RzGroupBox1: TRzGroupBox
          Left = 8
          Top = 13
          Width = 363
          Height = 358
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = #23478#24237#25104#21592#32534#36753
          GradientColorStyle = gcsMSOffice
          GroupStyle = gsBanner