程序博客网 > 计算机java语言培训班

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

来源：互联网 发布：计算机java语言培训班 编辑：程序博客网 时间：2024/05/16 08:54
object Form3: TForm3
  Left = 392
  Top = 271
  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
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 592
    Height = 466
    ActivePage = TabSheet2
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #28155#21152#26032#20070
      OnShow = TabSheet1Show
      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
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnColEnter = DBGrid1ColEnter
          Columns = <
            item
              Expanded = False
              FieldName = 'Booknum'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Bookname'
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Author'
              Width = 59
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Press'
              Width = 52
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Price'
              Width = 69
              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
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 89
          Top = 241
          Width = 70
          Height = 23
          Caption = #21462#28040
          TabOrder = 6
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 168
          Top = 241
          Width = 70
          Height = 23
          Caption = #36820#22238
          TabOrder = 7
          OnClick = Button3Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21024#38500#26087#20070
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 313
        Height = 435
        Align = alLeft
        TabOrder = 0
        object DBGrid2: TDBGrid
          Left = 2
          Top = 15
          Width = 309
          Height = 418
          Align = alClient
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid2CellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'Booknum'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Bookname'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Author'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Press'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Price'
              Visible = True
            end>
        end
      end
      object GroupBox3: TGroupBox
        Left = 314
        Top = 0
        Width = 270
        Height = 435
        Align = alRight
        Color = clActiveCaption
        Font.Charset = ANSI_CHARSET
        Font.Color = clSilver
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 1
        object Label6: TLabel
          Left = 45
          Top = 29
          Width = 36
          Height = 16
          Caption = #20070' '#21495
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 45
          Top = 70
          Width = 36
          Height = 16
          Caption = #20070' '#21517
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 45
          Top = 112
          Width = 36
          Height = 16
          Caption = #20316' '#32773
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 45
          Top = 154
          Width = 48
          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 Label10: TLabel
          Left = 45
          Top = 196
          Width = 36
          Height = 16
          Caption = #20215' '#26684
        end
        object Edit6: TEdit
          Left = 96
          Top = 24
          Width = 121
          Height = 24
          TabOrder = 0
        end
        object Edit7: TEdit
          Left = 96
          Top = 68
          Width = 121
          Height = 24
          TabOrder = 1
        end
        object Edit8: TEdit
          Left = 96
          Top = 112
          Width = 121
          Height = 24
          TabOrder = 2
        end
        object Edit9: TEdit
          Left = 96
          Top = 148
          Width = 121
          Height = 24
          TabOrder = 3
        end
        object Edit10: TEdit
          Left = 96
          Top = 192
          Width = 121
          Height = 24
          TabOrder = 4
        end
        object Button4: TButton
          Left = 24
          Top = 248
          Width = 70
          Height = 23
          Caption = #21024#38500
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -11
          Font.Name = 'Microsoft Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnClick = Button4Click
        end
        object Button5: TButton
          Left = 108
          Top = 248
          Width = 70
          Height = 23
          Caption = #21462#28040
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -11
          Font.Name = 'Microsoft Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = Button5Click
        end
        object Button6: TButton
          Left = 192
          Top = 248
          Width = 70
          Height = 23
          Caption = #36820#22238
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -11
          Font.Name = 'Microsoft Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnClick = Button6Click
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20462#25913#20449#24687
      ImageIndex = 2
      object GroupBox4: TGroupBox
        Left = 0
        Top = 0
        Width = 313
        Height = 435
        Align = alLeft
        TabOrder = 0
        object DBGrid3: TDBGrid
          Left = 2
          Top = 15
          Width = 309
          Height = 418
          Align = alClient
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid3CellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'Booknum'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Bookname'
              Width = 102
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Author'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Press'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Price'
              Visible = True
            end>
        end
      end
      object GroupBox5: TGroupBox
        Left = 312
        Top = 0
        Width = 272
        Height = 435
        Align = alRight
        Color = clActiveCaption
        ParentColor = False
        TabOrder = 1
        object Label11: TLabel
          Left = 50
          Top = 40
          Width = 36
          Height = 16
          Caption = #20070' '#21495
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 50
          Top = 84
          Width = 36
          Height = 16
          Caption = #20070' '#21517
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 50
          Top = 128
          Width = 36
          Height = 16
          Caption = #20316' '#32773
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 50
          Top = 172
          Width = 48
          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 Label15: TLabel
          Left = 50
          Top = 216
          Width = 36
          Height = 16
          Caption = #20215' '#26684
          Font.Charset = ANSI_CHARSET
          Font.Color = clSilver
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Edit11: TEdit
          Left = 98
          Top = 40
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Edit12: TEdit
          Left = 98
          Top = 82
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit13: TEdit
          Left = 98
          Top = 124
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object Edit14: TEdit
          Left = 98
          Top = 166
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object Edit15: TEdit
          Left = 98
          Top = 208
          Width = 121
          Height = 21
          TabOrder = 4
        end
        object Button7: TButton
          Left = 16
          Top = 272
          Width = 70
          Height = 23
          Caption = #20462#25913
          TabOrder = 5
          OnClick = Button7Click
        end
        object Button8: TButton
          Left = 104
          Top = 272
          Width = 70
          Height = 23
          Caption = #21462#28040
          TabOrder = 6
          OnClick = Button8Click
        end
        object Button9: TButton
          Left = 184
          Top = 272
          Width = 70
          Height = 23
          Caption = #36820#22238
          TabOrder = 7
          OnClick = Button9Click
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\Data\BookManege.' +
      'mdb;Persist Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from book')
    Left = 260
    Top = 310
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 332
    Top = 358
  end
end
阅读全文
0 0
计算机java语言培训班 计算机java语言培训班
原创粉丝点击
热门IT博客
淘宝话费充值不到账淘宝话费充值不到账
单片机最小系统连线图单片机最小系统连线图
广东继续教育网络平台
南京大学软件工程技术
teetek云端软件
新浪邮箱 端口
网络口碑营销的优势
js location 新窗口
建筑学院app源码
华为上机考试python
淘宝卖家直播开通入口
单片机温度控制器设计
notepad mac版中文
jsp页面与数据库
西蒙斯数据
java输出倒三角形
免费录制视频软件
个人所得税申报的软件
mac开盖自动开机
one域名备案
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防，我是瞎子 岭南水乡 岭南青果网 岭南控股 岭南生活 岭南新世界 大唐岭南王 岭南盆景网 岭南是哪里 岭南控股吧 岭南市 广州岭南 岭南师范学院 广东岭南职业技术学院 广东岭南职业学院 特战医王岭南小医生 沈毅岭南小医生 岭南天地旅游 岭南通使用范围 佛山岭南天地 广东岭南职业技术学院学工网 岭南职业技术学院 岭南师范学院正方系统 广东岭南职业技术学院青果网 广州岭南职业技术学院 岭南股份股票 岭南水乡旅游 岭南通可以在深圳用吗 岭南职业学院 岭南通羊城通 广州岭南花卉市场 青果网岭南职业技术学院 广东岭南学工网入口 岭南师范大学 试问岭南应不好 岭南花卉市场 岭南印象园门票 中金岭南000060 岭南控股股票 岭南控股股吧 000524岭南控股 000524

程序博客网，程序员的互联网技术博客家园。csdn论坛精品 msdn技术资料都在这里