有没有大神能够逐行解释一下代码?Delphi

object Form3: TForm3
  Left = 310
  Top = 333
  Width = 600
  Height = 500
  Caption = #22270#20070#31649#29702
  Color = clBtnFace
  Constraints.MaxHeight = 500
  Constraints.MaxWidth = 600
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 592
    Height = 466
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #28155#21152#26032#20070
      object GroupBox1: TGroupBox
        Left = 0
        Top = -5
        Width = 313
        Height = 442
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 2
          Top = 15
          Width = 309
          Height = 425
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'Booknum'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Bookname'
              Width = 64
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Author'
              Width = 56
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Press'
              Width = 38
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Price'
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Memo'
              Visible = True
            end>
        end
      end
      object Panel1: TPanel
        Left = 312
        Top = 0
        Width = 272
        Height = 435
        Align = alRight
        Color = clActiveCaption
        TabOrder = 1
        object Label1: TLabel
          Left = 28
          Top = 25
          Width = 40
          Height = 16
          Caption = #20070' '#21495':'
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 28
          Top = 65
          Width = 40
          Height = 16
          Caption = #20070' '#21517':'
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 28
          Top = 105
          Width = 40
          Height = 16
          Caption = #20316' '#32773':'
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 28
          Top = 145
          Width = 52
          Height = 16
          Caption = #20986#29256#31038':'
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 28
          Top = 185
          Width = 40
          Height = 16
          Caption = #20215' '#26684':'
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 83
          Top = 18
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 83
          Top = 59
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 83
          Top = 101
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object Edit4: TEdit
          Left = 83
          Top = 142
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object Edit5: TEdit
          Left = 83
          Top = 184
          Width = 121
          Height = 21
          TabOrder = 4
        end
        object Button1: TButton
          Left = 10
          Top = 241
          Width = 70
          Height = 23
          Caption = #28155#21152
          TabOrder = 5
        end
        object Button2: TButton
          Left = 89
          Top = 241
          Width = 70
          Height = 23
          Caption = #21462#28040
          TabOrder = 6
        end
        object Button3: TButton
          Left = 168
          Top = 241
          Width = 70
          Height = 23
          Caption = #36820#22238
          TabOrder = 7
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21024#38500#26087#20070
      ImageIndex = 1
    end
    object TabSheet3: TTabSheet
      Caption = #20462#25913#20449#24687
      ImageIndex = 2
    end
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\Data\BookManege.' +
      'mdb;Persist Security Info=False'
    CursorType = ctStatic
    TableName = 'Book'
    Left = 244
    Top = 134
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 220
    Top = 166
  end
end
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值