unit_wh.dfm

这是一套小型家庭理财软件delphi源代码

        object Label6: TLabel
          Left = 168
          Top = 16
          Width = 305
          Height = 13
          AutoSize = False
          Caption = 'D:\My Documents\delphi\'#23478#24237#29702#36130'II'
          WordWrap = True
        end
        object Label11: TLabel
          Left = 272
          Top = 160
          Width = 183
          Height = 13
          Caption = #27880#24847':'#23494#30721#20063#20250#24674#22797#25104#22791#20221#26102#30340#23494#30721
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object BitBtn_BF: TBitBtn
          Left = 256
          Top = 224
          Width = 105
          Height = 33
          Caption = #22791#20221#25968#25454
          TabOrder = 4
          OnClick = BitBtn_BFClick
        end
        object BitBtn_HF: TBitBtn
          Left = 368
          Top = 224
          Width = 105
          Height = 33
          Caption = #24674#22797#25968#25454
          TabOrder = 5
          OnClick = BitBtn_HFClick
        end
        object CheckBox_ZD: TCheckBox
          Left = 256
          Top = 192
          Width = 105
          Height = 17
          Caption = #33258#21160#22791#20221#25968#25454#24211
          TabOrder = 2
        end
        object CheckBox_HF: TCheckBox
          Left = 368
          Top = 192
          Width = 105
          Height = 17
          Caption = #24674#22797#33258#21160#30340#25968#25454
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
        object DriveComboBox1: TDriveComboBox
          Left = 16
          Top = 48
          Width = 225
          Height = 19
          DirList = DirectoryListBox1
          TabOrder = 0
          TextCase = tcUpperCase
        end
        object DirectoryListBox1: TDirectoryListBox
          Left = 16
          Top = 72
          Width = 225
          Height = 185
          DirLabel = Label6
          ItemHeight = 16
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #28165#29702#38472#26087#25968#25454
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 481
        Height = 269
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 0
        object Label7: TLabel
          Left = 32
          Top = 32
          Width = 409
          Height = 13
          AutoSize = False
          Caption = #20026#20102#20943#23567#25968#25454#24211#30340#20307#31215#65292#23545#20110#20004#24180#20197#19978#65288#21363#21069#24180#65289#30340#35760#24405#65292#25105#20204#21487#20197#20570#19968#20010#20998
        end
        object Label8: TLabel
          Left = 32
          Top = 64
          Width = 324
          Height = 13
          Caption = #31867#30340#32479#35745#65292#28982#21518#25226#32479#35745#39069#30331#20837#35760#24405#65292#25226#35814#32454#30340#35760#24405#28165#21333#28165#38500#65281
        end
        object Label9: TLabel
          Left = 32
          Top = 120
          Width = 336
          Height = 13
          Caption = #32479#35745#26159#20197#24180#20026#21333#20301#36827#34892#32479#35745#65292#20998#21035#32479#35745#20998#21306#19979#38754#30340#20998#31867#30340#24635#39069#65281
        end
        object Label10: TLabel
          Left = 32
          Top = 160
          Width = 324
          Height = 13
          Caption = #32479#35745#30452#25509#25913#21464#25968#25454#24211#21407#22987#35760#24405#65292#26356#25913#21518#26080#27861#24674#22797#65292#24910#37325#20351#29992#65281
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object BitBtn_QL: TBitBtn
          Left = 288
          Top = 200
          Width = 145
          Height = 33
          Caption = #28165#29702#38472#26087#25968#25454
          TabOrder = 0
          OnClick = BitBtn_QLClick
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #23548#20837'\'#23548#20986#25968#25454
      ImageIndex = 2
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 481
        Height = 269
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object Label12: TLabel
          Left = 8
          Top = 16
          Width = 305
          Height = 13
          Caption = #23548#20986#25152#36873#23450#30340#25968#25454#33539#22260#37324#30340#25968#25454#21040'Excel'#34920#26684'(TXT'#25991#20214#26684#24335')'
        end
        object Bevel1: TBevel
          Left = 0
          Top = 40
          Width = 481
          Height = 5
          Style = bsRaised
        end
        object Label13: TLabel
          Left = 384
          Top = 96
          Width = 89
          Height = 129
          AutoSize = False
          Caption = 
            #35686#21578'!'#12288#12288#12288#12288#12288#12288#12288#27492#21151#33021#20165#20316#21644#20854#23427#31243#24207#20849#20139#25968#25454#36164#28304#21644#26041#20415#21033#29992'Excel'#32479#35745#20351#29992'!'#12288#12288#12288#12288#12288#12288#12288#20063#21487#21033#20110#26032#31243#24207#23548#20837#25968#25454'!'#12288#12288#12288#31105 +
            #27490#38543#24847#23548#20837#20351#29992'!'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object BitBtn_DC: TBitBtn
          Left = 384
          Top = 8
          Width = 92
          Height = 25
          Caption = #23548#20986
          TabOrder = 0
          OnClick = BitBtn_DCClick
        end
        object BitBtn_DR: TBitBtn
          Left = 384
          Top = 240
          Width = 92
          Height = 25
          Caption = #23548#20837
          Enabled = False
          TabOrder = 1
          OnClick = BitBtn_DRClick
        end
        object Memo1: TMemo
          Left = 5
          Top = 48
          Width = 372
          Height = 217
          Ctl3D = False
          Lines.Strings = (
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            ''
            '                                                     '#39044#35272#25968#25454#25991#20214)
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 2
          WantTabs = True
          WordWrap = False
        end
        object BitBtn_Open: TBitBtn
          Left = 384
          Top = 48
          Width = 92
          Height = 25
          Caption = #25171#24320#25991#20214
          TabOrder = 3
          OnClick = BitBtn_OpenClick
        end
        object RadioButton_txt: TRadioButton
          Left = 322
          Top = 6
          Width = 49
          Height = 14
          Caption = '*.txt'
          TabOrder = 4
        end
        object RadioButton_xls: TRadioButton
          Left = 322
          Top = 24
          Width = 49
          Height = 13
          Caption = '*.xls'
          Checked = True
          TabOrder = 5
          TabStop = True
        end
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = '*.xls/*.txt|*.xls;*.txt'
    Title = #25171#24320#25991#20214
    Left = 344
    Top = 80
  end
end