moneyfromhunit1.~dfm

很好地delphi书籍源码

object FrmMoney_1: TFrmMoney_1
  Left = 277
  Top = 61
  Width = 756
  Height = 463
  BorderStyle = bsSizeToolWin
  Caption = #23486#39302#23458#25151#23458#25143#25910#38134#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 700
    Top = 0
    Width = 48
    Height = 436
    Align = alRight
    BorderWidth = 1
    ButtonHeight = 36
    ButtonWidth = 40
    Caption = 'ToolBar1'
    Color = 16435887
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentColor = False
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    object AddTButton: TToolButton
      Tag = 1
      Left = 0
      Top = 0
      Caption = ' '#32479#35745
      ImageIndex = 0
      Wrap = True
      OnClick = AddTButtonClick
    end
    object DelTButton: TToolButton
      Tag = 4
      Left = 0
      Top = 36
      Caption = #21024#38500
      ImageIndex = 3
      Wrap = True
      OnClick = DelTButtonClick
    end
    object ToolButton7: TToolButton
      Left = 0
      Top = 72
      Action = DataSetFirst1
      Caption = #39318#39033
      ImageIndex = 9
      Wrap = True
    end
    object ToolButton3: TToolButton
      Left = 0
      Top = 108
      Action = DataSetPrior1
      Caption = #21521#21069
      ImageIndex = 5
      Wrap = True
    end
    object ToolButton5: TToolButton
      Left = 0
      Top = 144
      Action = DataSetNext1
      Caption = #21521#21518
      ImageIndex = 4
      Wrap = True
    end
    object ToolButton6: TToolButton
      Left = 0
      Top = 180
      Action = DataSetLast1
      Caption = #23614#39033
      ImageIndex = 8
      Wrap = True
    end
    object CloseTB: TToolButton
      Left = 0
      Top = 216
      Caption = #20851#38381
      ImageIndex = 6
      OnClick = CloseTBClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 117
    Height = 436
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 16047566
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label5: TLabel
      Left = 10
      Top = 10
      Width = 65
      Height = 13
      Caption = #20170#22825#26085#26399#65306
    end
    object AdaySB: TSpeedButton
      Left = 14
      Top = 116
      Width = 87
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #24403#22825#35760#24405
      Flat = True
      Glyph.Data = {
        2A010000424D2A010000000000007600000028000000110000000F0000000100
        040000000000B4000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFF0FFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFF000000000000FFF0FFFFFFFF0F
        FFFFFFFFF0FFF0FFFFFFFF0F00F00F00F0FFF0FFFFFFFF0FFFFFFFFFF0FFF0FF
        FFFFFF0CCCCCCCCCCCCFF0FFFFFFFFFCFFFFFFFFFFCFF0FFFFFFFFFCF00F00F0
        0FCFF0FFFFFFFFFCFFFFFFFFFFCFF0FFFFFFFFFCCCCCCCCCCCCFF0FFFFFFFFFC
        FCCFCCFCCFCFF0FFFFFFFFFCCCCCCCCCCCCFF0FFFFFFFFFFFFFFFFFFFFFFF0FF
        FFFFFFFFFFFFFFFFFFFFF0FFFFFF}
      OnClick = AdaySBClick
    end
    object AMonthSB: TSpeedButton
      Left = 14
      Top = 142
      Width = 87
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #24403#26376#35760#24405
      Flat = True
      Glyph.Data = {
        EE000000424DEE000000000000007600000028000000100000000F0000000100
        0400000000007800000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F00000000000
        00FFF0FFFFFFFFFFF0FFF0F0F7777F77F0FFF0FFFFFFFFFFF0FFF0F0F777F77F
        F0FFF0FFFFFFFFFFF0FFF0F0F77F7777F0FFF0FFFFFFFFFFF0FFF0F0F7777F7F
        F0FFF0FFFFFFFFFFF0FFF4444444444444FFF4444444444444FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      OnClick = AMonthSBClick
    end
    object AllSB: TSpeedButton
      Left = 14
      Top = 192
      Width = 87
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #25152#26377#35760#24405
      Flat = True
      Glyph.Data = {
        36010000424D3601000000000000760000002800000011000000100000000100
        040000000000C0000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFF0FFFFFFFFF0F0F0F0FFFFFFF0FFFFFFFFFFFFFFF00FFFFFF0FFFFFFFF88
        888880008FFFF0FFFFFFF000008000B70FFFF0FFFFFFF0FFFFFFF0B80FFFF0FF
        FFFFF0F0F0F0F70B70FFF0FFFFFFF0FFFFFFFF0B80FFF0FFFFFFF0F0F0F0F7F0
        B70FF0FFFFFFF0FFFFFFFFF0B007F0FFFFFFF0F0F0F0F7F00190F0FFFFFFF0FF
        FFFFFFF0000FF0FFFFFFFCCCCCCCCCCC8FFFF0FFFFFFFCCFCFCFCFCCFFFFF0FF
        FFFFFCCCCCCCCCCCFFFFF0FFFFFFFFFFFFFFFFFFFFFFF0FFFFFF}
      OnClick = AllSBClick
    end
    object AYearSB: TSpeedButton
      Left = 14
      Top = 168
      Width = 87
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #24403#24180#35760#24405
      Flat = True
      Glyph.Data = {
        2A010000424D2A010000000000007600000028000000110000000F0000000100
        040000000000B4000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFF0FF36DEFFFFFFFFFFFFFFFFF0FF36DEFF007FF7007FF700F0FF36DEFF07
        7000770007F0F0FF36DEFF077777F7FFFFF0F0FF36DEFF07FFFFF7FFF0F0F0FF
        36DEFF07FFFFF7700FF0F0FF36DEFF07FFFFF7FFF0F0F0FF36DEFF07FFFFF770
        0FF0F0FF36DEFF07FFFFF7FFF0F0F0FF36DEFF07FFFFF7700FF0F0FF36DEFFF0
        FFFF007FFF0FF0FF36DEFFFF0000770000FFF0FF36DEFFFFFFFFFFFFFFFFF0FF
        36DEFFFFFFFFFFFFFFFFF0FF36DE}
      OnClick = AYearSBClick
    end
    object PeriodSB: TSpeedButton
      Left = 14
      Top = 220
      Width = 87
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #26576#27573#26102#38388
      Flat = True
      Glyph.Data = {
        2A010000424D2A010000000000007600000028000000110000000F0000000100
        040000000000B4000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFF005C746FFF8888888888888F005C746FF00000000000008F005C746FF0F
        FFFFFFFFFF08F005C746FF0F00F000F00F08F005C746FF0FFFFFFFFFFF08F005
        C746FF0F00F000F00F08F005C746FF0FFFFFFFFFFF08F005C746FF0F00F000F0
        0F08F005C746FF0FFFFFFFFFFF08F005C746FFCCCCCCCCCCCCC8F005C746FFCF
        CCFCCCFCCFC8F005C746FFCCCCCCCCCCCCCFF005C746FFFFFFFFFFFFFFFFF005
        C746FFFFFFFFFFFFFFFFF005C746}
      OnClick = PeriodSBClick
    end
    object Label4: TLabel
      Left = 10
      Top = 54
      Width = 52
      Height = 13
      Caption = #25903#20184#26041#24335
    end
    object DateTimePicker1: TDateTimePicker
      Left = 8
      Top = 26
      Width = 99
      Height = 21
      Date = 37660.528213553240000000
      Time = 37660.528213553240000000
      TabOrder = 0
    end
    object KindCB: TComboBox
      Left = 8
      Top = 70
      Width = 97
      Height = 19
      Style = csOwnerDrawFixed
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        ''
        #29616#37329
        #20449#29992#21345
        #25903#31080
        #36170#27424)
    end
  end
  object Panel2: TPanel
    Left = 117
    Top = 0
    Width = 583
    Height = 436
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 1
      Top = 281
      Width = 581
      Height = 5
      Cursor = crVSplit
      Align = alTop
      Color = 16446612
      ParentColor = False
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 27
      Width = 581
      Height = 254
      Align = alTop
      Color = 13892862
      DataSource = DataModule1.HGuestInComeDS
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBGrid2: TDBGrid
      Left = 1
      Top = 310
      Width = 581
      Height = 125
      Align = alClient
      DataSource = DataModule1.GHotelFeeDS
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 581
      Height = 26
      Align = alTop
      Caption = #23486#39302#26469#33258#20303#24215#23458#25143#30340#25910#20837
      TabOrder = 2
    end
    object Panel3: TPanel
      Left = 1
      Top = 286
      Width = 581
      Height = 24
      Align = alTop
      Caption = #23486#39302#26469#33258#38750#20303#24215#23458#25143#30340#25910#20837
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 3
    end
    object DelDateGB: TGroupBox
      Left = 346