cmoney.~dfm

Delphi深度探索,Delphi深度探索（第二版）

object FormMain: TFormMain
  Left = 129
  Top = 60
  Width = 877
  Height = 652
  Caption = #23478#24237#23567#36134#26412
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 120
  TextHeight = 15
  object lblPerson: TLabel
    Left = 24
    Top = 24
    Width = 89
    Height = 16
    AutoSize = False
    Caption = #20154#21592
  end
  object lblAcct: TLabel
    Left = 24
    Top = 336
    Width = 57
    Height = 16
    AutoSize = False
    Caption = #36134#30446
  end
  object lblAll: TLabel
    Left = 512
    Top = 20
    Width = 60
    Height = 15
    Caption = #20840#37096#23545#35937
  end
  object bnPerson: TBoldNavigator
    Left = 96
    Top = 16
    Width = 192
    Height = 25
    BoldHandle = blhPerson
    TabOrder = 0
    ImageIndices.nbFirst = -1
    ImageIndices.nbPrior = -1
    ImageIndices.nbNext = -1
    ImageIndices.nbLast = -1
    ImageIndices.nbInsert = -1
    ImageIndices.nbDelete = -1
    ImageIndices.nbMoveUp = -1
    ImageIndices.nbMoveDown = -1
    DeleteQuestion = 'Delete "%1:s"?'
    UnlinkQuestion = 'Unlink "%1:s" from "%2:s"?'
    RemoveQuestion = 'Remove "%1:s" from the list?'
  end
  object bgPerson: TBoldGrid
    Left = 24
    Top = 56
    Width = 353
    Height = 225
    AddNewAtEnd = False
    BoldAutoColumns = False
    BoldShowConstraints = False
    BoldHandle = blhPerson
    BoldProperties.NilElementMode = neNone
    Columns = <
      item
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
      end
      item
        BoldProperties.Expression = 'name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Name'
      end
      item
        BoldProperties.Expression = 'totalAmount'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'TotalAmount'
      end
      item
        BoldProperties.Expression = 'birthYear'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'BirthYear'
      end
      item
        BoldProperties.Expression = 'age'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Age'
      end>
    DefaultRowHeight = 17
    EnableColAdjust = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    ColWidths = (
      17
      64
      64
      64
      64)
  end
  object bnAcct: TBoldNavigator
    Left = 104
    Top = 328
    Width = 192
    Height = 25
    BoldHandle = blhAcct
    TabOrder = 2
    ImageIndices.nbFirst = -1
    ImageIndices.nbPrior = -1
    ImageIndices.nbNext = -1
    ImageIndices.nbLast = -1
    ImageIndices.nbInsert = -1
    ImageIndices.nbDelete = -1
    ImageIndices.nbMoveUp = -1
    ImageIndices.nbMoveDown = -1
    DeleteQuestion = 'Delete "%1:s"?'
    UnlinkQuestion = 'Unlink "%1:s" from "%2:s"?'
    RemoveQuestion = 'Remove "%1:s" from the list?'
  end
  object bgAcct: TBoldGrid
    Left = 24
    Top = 368
    Width = 353
    Height = 225
    AddNewAtEnd = False
    BoldAutoColumns = False
    BoldShowConstraints = False
    BoldHandle = blhAcct
    BoldProperties.NilElementMode = neNone
    Columns = <
      item
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
      end
      item
        BoldProperties.Expression = 'name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Name'
      end
      item
        BoldProperties.Expression = 'amount'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'Amount'
        UserDraw = True
      end
      item
        BoldProperties.Expression = 'happenDate'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'HappenDate'
      end
      item
        BoldProperties.Expression = 'payPerson.name'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = 'PayPerson'
      end>
    DefaultRowHeight = 17
    EnableColAdjust = False
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawCell = bgAcctDrawCell
    ColWidths = (
      17
      64
      64
      108
      84)
  end
  object bnAll: TBoldNavigator
    Left = 654
    Top = 13
    Width = 192
    Height = 25
    BoldHandle = blhAll
    TabOrder = 4
    ImageIndices.nbFirst = -1
    ImageIndices.nbPrior = -1
    ImageIndices.nbNext = -1
    ImageIndices.nbLast = -1
    ImageIndices.nbInsert = -1
    ImageIndices.nbDelete = -1
    ImageIndices.nbMoveUp = -1
    ImageIndices.nbMoveDown = -1
    DeleteQuestion = 'Delete "%1:s"?'
    UnlinkQuestion = 'Unlink "%1:s" from "%2:s"?'
    RemoveQuestion = 'Remove "%1:s" from the list?'
  end
  object bgAll: TBoldGrid
    Left = 512
    Top = 45
    Width = 337
    Height = 227
    AddNewAtEnd = False
    BoldAutoColumns = False
    BoldShowConstraints = False
    BoldHandle = blhAll
    BoldProperties.NilElementMode = neNone
    Columns = <
      item
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
      end>
    DefaultRowHeight = 17
    EnableColAdjust = False
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    ColWidths = (
      17
      64)
  end
  object btnAmount: TButton
    Left = 24
    Top = 288
    Width = 177
    Height = 25
    Caption = #33719#24471'2002'#24180'12'#26376#30340#33457#36153
    TabOrder = 6
    OnClick = btnAmountClick
  end
  object blhPerson: TBoldListHandle
    RootHandle = DmMoney.bshMoney
    Expression = 'Person.allInstances'
    Left = 64
    Top = 16
  end
  object blhAcct: TBoldListHandle
    RootHandle = blhPerson
    Expression = 'pay'
    Left = 72
    Top = 328
  end
  object blhAll: TBoldListHandle
    RootHandle = DmMoney.bshMoney
    Expression = 'MoneyModelRoot.allInstances'
    Left = 584
    Top = 12
  end
end