main.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

object MainFrm: TMainFrm
  Left = 98
  Top = 132
  BorderStyle = bsSingle
  BorderWidth = 2
  Caption = #21046#36896#19994#31649#29702#20449#24687#31995#32479
  ClientHeight = 245
  ClientWidth = 576
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 134
    Height = 467
    BorderStyle = bsNone
    Indent = 19
    TabOrder = 0
    OnClick = TreeView1Click
    Items.Data = {
      0B000000210000000000000001000000FFFFFFFFFFFFFFFF0000000003000000
      08CFB5CDB3B9DCC0ED25000000000000000B000000FFFFFFFFFFFFFFFF000000
      00000000000CB5A5CEBBD0C5CFA2C9E8D6C325000000000000000C000000FFFF
      FFFFFFFFFFFF00000000000000000CD0DEB8C4D3C3BBA7C3DCC2EB2100000000
      0000000D000000FFFFFFFFFFFFFFFF000000000000000008CDCBB3F6CFB5CDB3
      250000000000000002000000FFFFFFFFFFFFFFFF00000000040000000CB9CCB6
      A8D7CAB2FAB9DCC0ED210000000000000015000000FFFFFFFFFFFFFFFF000000
      000000000008D0C2D4F6D7CAB2FA210000000000000016000000FFFFFFFFFFFF
      FFFF000000000000000008D7CAB2FAB9DCC0ED210000000000000017000000FF
      FFFFFFFFFFFFFF000000000000000008CDB3BCC6B7D6CEF62500000000000000
      18000000FFFFFFFFFFFFFFFF00000000000000000CD7CAB2FACAB9D3C3B5C7BC
      C7210000000000000003000000FFFFFFFFFFFFFFFF000000000400000008C9E8
      B1B8B9DCC0ED21000000000000001F000000FFFFFFFFFFFFFFFF000000000000
      000008C9E8B1B8CCA8D5CB210000000000000020000000FFFFFFFFFFFFFFFF00
      0000000000000008D4F6BCD3C9E8B1B8210000000000000021000000FFFFFFFF
      FFFFFFFF000000000000000008B7D6C0E0CDB3BCC62100000000000000220000
      00FFFFFFFFFFFFFFFF000000000000000008C9E8B1B8CEACD0DE210000000000
      000004000000FFFFFFFFFFFFFFFF000000000200000008BACFCDACB9DCC0ED25
      0000000000000029000000FFFFFFFFFFFFFFFF00000000000000000CB2C9B9BA
      BACFCDACB9DCC0ED25000000000000002A000000FFFFFFFFFFFFFFFF00000000
      000000000CCFFACADBBACFCDACB9DCC0ED250000000000000005000000FFFFFF
      FFFFFFFFFF00000000040000000CD4B1B9A4C5E0D1B5B9DCC0ED210000000000
      000033000000FFFFFFFFFFFFFFFF000000000000000008BFCEB3CCC9E8D6C321
      0000000000000034000000FFFFFFFFFFFFFFFF000000000000000008D4B1B9A4
      D0C5CFA2210000000000000035000000FFFFFFFFFFFFFFFF0000000000000000
      08D4B1B9A4C5E0D1B5210000000000000036000000FFFFFFFFFFFFFFFF000000
      000000000008CDB3BCC6B1A8B1ED210000000000000006000000FFFFFFFFFFFF
      FFFF000000000000000008CFFACADBB9DCC0ED210000000000000007000000FF
      FFFFFFFFFFFFFF000000000000000008C8CBCAC2B9DCC0ED2100000000000000
      08000000FFFFFFFFFFFFFFFF000000000000000008BFE2B4E6B9DCC0ED210000
      000000000009000000FFFFFFFFFFFFFFFF000000000000000008D6CAC1BFB9DC
      C0ED21000000000000000A000000FFFFFFFFFFFFFFFF000000000000000008B5
      B5B0B8B9DCC0ED210000000000000000000000FFFFFFFFFFFFFFFF0000000000
      00000008BCC6BBAEB9DCC0ED}
  end
  object PageControl1: TPageControl
    Left = 136
    Top = 0
    Width = 513
    Height = 465
    ActivePage = TabSheet18
    Style = tsFlatButtons
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      TabVisible = False
      object Label10: TLabel
        Left = 21
        Top = 37
        Width = 62
        Height = 13
        AutoSize = False
        Caption = #21333#20301#21517#31216
      end
      object Label12: TLabel
        Left = 21
        Top = 75
        Width = 62
        Height = 13
        AutoSize = False
        Caption = #27861#20154#20195#34920
      end
      object Label14: TLabel
        Left = 222
        Top = 69
        Width = 77
        Height = 13
        AutoSize = False
        Caption = #32852#31995#30005#35805
      end
      object Label15: TLabel
        Left = 21
        Top = 113
        Width = 38
        Height = 13
        AutoSize = False
        Caption = #20256#30495
      end
      object Label16: TLabel
        Left = 222
        Top = 109
        Width = 53
        Height = 13
        AutoSize = False
        Caption = #37038#32534
      end
      object Label17: TLabel
        Left = 21
        Top = 151
        Width = 62
        Height = 13
        AutoSize = False
        Caption = #21333#20301#22320#22336
      end
      object Label19: TLabel
        Left = 21
        Top = 189
        Width = 62
        Height = 13
        AutoSize = False
        Caption = #21333#20301#20027#39029
      end
      object BitBtn17: TBitBtn
        Left = 340
        Top = 177
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 0
        OnClick = BitBtn17Click
        Kind = bkRetry
      end
      object Edit5: TEdit
        Left = 86
        Top = 34
        Width = 324
        Height = 21
        TabOrder = 1
      end
      object Edit7: TEdit
        Left = 86
        Top = 70
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object Edit9: TEdit
        Left = 286
        Top = 69
        Width = 125
        Height = 21
        TabOrder = 3
      end
      object Edit10: TEdit
        Left = 86
        Top = 107
        Width = 121
        Height = 21
        TabOrder = 4
      end
      object Edit11: TEdit
        Left = 286
        Top = 101
        Width = 125
        Height = 21
        TabOrder = 5
      end
      object Edit12: TEdit
        Left = 86
        Top = 144
        Width = 238
        Height = 21
        TabOrder = 6
      end
      object Edit14: TEdit
        Left = 86
        Top = 181
        Width = 239
        Height = 21
        TabOrder = 7
      end
      object BitBtn15: TBitBtn
        Left = 337
        Top = 141
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 8
        OnClick = BitBtn15Click
        Kind = bkOK
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      TabVisible = False
      object Label18: TLabel
        Left = 156
        Top = 48
        Width = 70
        Height = 13
        AutoSize = False
        Caption = #21407#23494#30721
      end
      object Label20: TLabel
        Left = 156
        Top = 84
        Width = 70
        Height = 13
        AutoSize = False
        Caption = #26032#23494#30721
      end
      object Label21: TLabel
        Left = 142
        Top = 120
        Width = 70
        Height = 13
        AutoSize = False
        Caption = #30830#35748#23494#30721
      end
      object BitBtn2: TBitBtn
        Left = 233
        Top = 152
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 0
        OnClick = BitBtn2Click
        Kind = bkRetry
      end
      object Edit13: TEdit
        Left = 206
        Top = 45
        Width = 100
        Height = 21
        PasswordChar = '*'
        TabOrder = 1
        Text = '000000'
      end
      object Edit15: TEdit
        Left = 206
        Top = 81
        Width = 100
        Height = 21
        PasswordChar = '*'
        TabOrder = 2
        Text = '000000'
      end
      object Edit16: TEdit
        Left = 206
        Top = 117
        Width = 100
        Height = 21
        PasswordChar = '*'
        TabOrder = 3
        Text = '000000'
      end
      object BitBtn16: TBitBtn
        Left = 142
        Top = 152
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 4
        OnClick = BitBtn16Click
        Kind = bkOK
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      TabVisible = False
      object Label3: TLabel
        Left = 14
        Top = 37
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #36164#20135#21517#31216
      end
      object Label5: TLabel
        Left = 14
        Top = 75
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #36164#20135#35268#26684
      end
      object Label7: TLabel
        Left = 14
        Top = 113
        Width = 74
        Height = 13
        AutoSize = False
        Caption = #36141#20080#26102#38388
      end
      object Label9: TLabel
        Left = 14
        Top = 151
        Width = 74
        Height = 13
        AutoSize = False
        Caption = #20351#29992#24180#38480
      end
      object Label11: TLabel
        Left = 282
        Top = 37
        Width = 50
        Height = 13
        AutoSize = False
        Caption = #25968#37327
      end
      object Label4: TLabel
        Left = 249
        Top = 74
        Width = 86
        Height = 13
        AutoSize = False
        Caption = #21333#20215#65288#20803#65289
      end
      object Label6: TLabel
        Left = 249
        Top = 111
        Width = 86
        Height = 13
        AutoSize = False
        Caption = #24635#20215#65288#20803#65289
      end
      object Label8: TLabel
        Left = 204
        Top = 149
        Width = 122
        Height = 13
        AutoSize = False
        Caption = #39044#35745#20928#27531#20540#65288#20803#65289
      end
      object Label22: TLabel
        Left = 14
        Top = 189
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #36164#20135#29366#20917
      end
      object BitBtn3: TBitBtn
        Left = 355
        Top = 176
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 0
        OnClick = BitBtn3Click
        Kind = bkRetry
      end
      object Edit3: TEdit
        Left = 78
        Top = 73
        Width = 110
        Height = 21
        TabOrder = 1
      end
      object Edit1: TEdit
        Left = 78
        Top = 37
        Width = 110
        Height = 21
        TabOrder = 2
      end
      object Edit6: TEdit
        Left = 318
        Top = 147
        Width = 110
        Height = 21
        TabOrder = 3
      end
      object Edit4: TEdit
        Left = 318
        Top = 109
        Width = 110
        Height = 21
        ReadOnly = True
        TabOrder = 4
        OnClick = Edit4Click
      end
      object Edit2: TEdit
        Left = 318
        Top = 72
        Width = 110
        Height = 21
        TabOrder = 5
      end
      object Edit8: TEdit
        Left = 318
        Top = 35
        Width = 110
        Height = 21
        TabOrder = 6
      end
      object BitBtn1: TBitBtn
        Left = 251
        Top = 176
        Width = 75
        Height = 25
        Caption = #26032#22686
        TabOrder = 7
        OnClick = BitBtn1Click
        Kind = bkOK
      end
      object DateTimePicker1: TDateTimePicker
        Left = 78
        Top = 109
        Width = 110
        Height = 25
        Date = 37889.466488935190000000
        Time = 37889.466488935190000000
        TabOrder = 8
      end
      object ComboBox1: TComboBox
        Left = 78
        Top = 145
        Width = 110
        Height = 21
        ItemHeight = 13
        TabOrder = 9
        Text = '0'
        Items.Strings = (
          '1'
          '3'
          '5'
          '10'
          '15'
          '20'
          '50')
      end
      object ComboBox2: TComboBox
        Left = 78
        Top = 181
        Width = 110
        Height = 21
        ItemHeight = 13
        TabOrder = 10
        Text = #26410#20351#29992
        Items.Strings = (
          #25253#24223
          #27585#25439
          #36716#35753
          #21464#21334
          #25269#25276
          #26410#20351#29992
          #20351#29992#20013
          #23545#22806#25237#36164
          #26242#20572#20351#29992)
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'TabSheet4'
      ImageIndex = 3
      TabVisible = False
      object GroupBox3: TGroupBox
        Left = 29
        Top = 1
        Width = 391
        Height = 240
        Caption = #36164#20135#31649#29702
        TabOrder = 0
        object Label25: TLabel
          Left = 21
          Top = 15
          Width = 64