exado.dfm

delphi的学习资料

object fmExADO: TfmExADO
  Left = 453
  Top = 351
  Width = 481
  Height = 529
  VertScrollBar.Color = clRed
  VertScrollBar.ParentColor = False
  Caption = '  '#25968#25454#24211#24212#29992#23454#39564
  Color = 12236474
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 187
    Top = 174
    Width = 36
    Height = 12
    Caption = #24179#22343#65306
  end
  object LbH: TLabel
    Left = 249
    Top = 175
    Width = 18
    Height = 12
    Caption = 'LbH'
  end
  object LbW: TLabel
    Left = 320
    Top = 175
    Width = 18
    Height = 12
    Caption = 'LbW'
  end
  object Label3: TLabel
    Left = 18
    Top = 476
    Width = 56
    Height = 14
    Caption = #26597#35810#26465#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 97
    Top = 478
    Width = 24
    Height = 12
    Caption = #23398#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 182
    Top = 477
    Width = 12
    Height = 12
    Caption = #21040
  end
  object dbg: TDBGrid
    Left = 9
    Top = 21
    Width = 381
    Height = 147
    DataSource = ds1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = dbgCellClick
    OnColExit = dbgColExit
    OnKeyUp = dbgKeyUp
    Columns = <
      item
        Expanded = False
        FieldName = 'SNO'
        Title.Alignment = taCenter
        Title.Caption = #23398' '#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Title.Caption = #22995' '#21517
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'SEX'
        Title.Alignment = taCenter
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BIRTH'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HIGH'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WEIGHT'
        Visible = True
      end
      item
        Expanded = False
        Visible = True
      end>
  end
  object ckbEdit: TCheckBox
    Left = 402
    Top = 41
    Width = 68
    Height = 15
    Caption = #20801#35768#32534#36753
    TabOrder = 1
    OnClick = ckbEditClick
  end
  object Panel1: TPanel
    Left = 6
    Top = 197
    Width = 460
    Height = 263
    Color = 11775667
    TabOrder = 2
    object sg: TStringGrid
      Left = 15
      Top = 12
      Width = 426
      Height = 196
      ColCount = 7
      DefaultRowHeight = 20
      FixedColor = 13157576
      FixedCols = 0
      RowCount = 16
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
      ScrollBars = ssVertical
      TabOrder = 0
      OnClick = sgClick
      OnKeyUp = sgKeyUp
      ColWidths = (
        66
        59
        45
        64
        64
        64
        64)
    end
    object GroupBox1: TGroupBox
      Left = 14
      Top = 216
      Width = 237
      Height = 38
      TabOrder = 1
      object Label2: TLabel
        Left = 186
        Top = 0
        Width = 36
        Height = 12
        Caption = ' '#25490#24207' '
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object rbtnNo: TRadioButton
        Left = 8
        Top = 15
        Width = 58
        Height = 15
        Caption = #25353#23398#21495
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = rbtn_OrdClick
      end
      object rbtnSum: TRadioButton
        Left = 69
        Top = 15
        Width = 57
        Height = 16
        Caption = #25353#25104#32489
        TabOrder = 1
        OnClick = rbtn_OrdClick
      end
      object rbtnSex: TRadioButton
        Left = 136
        Top = 15
        Width = 57
        Height = 16
        Caption = #25353#24615#21035
        TabOrder = 2
        OnClick = rbtn_OrdClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 249
      Top = 216
      Width = 103
      Height = 38
      TabOrder = 2
      object rbtnASC: TRadioButton
        Left = 9
        Top = 15
        Width = 43
        Height = 15
        Caption = #27491#24207
        Checked = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
        OnClick = rbtn_OrdClick
      end
      object rbtnDESC: TRadioButton
        Left = 55
        Top = 15
        Width = 43
        Height = 16
        Caption = #20498#24207
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = rbtn_OrdClick
      end
    end
  end
  object edtNo1: TEdit
    Left = 129
    Top = 474
    Width = 40
    Height = 20
    TabOrder = 3
    Text = '0000'
    OnExit = edtNo_Exit
    OnKeyDown = edtNo_KeyDown
  end
  object edtNo2: TEdit
    Left = 200
    Top = 474
    Width = 39
    Height = 20
    TabOrder = 4
    Text = '9999'
    OnExit = edtNo_Exit
    OnKeyDown = edtNo_KeyDown
  end
  object GroupBox3: TGroupBox
    Left = 267
    Top = 464
    Width = 132
    Height = 34
    TabOrder = 5
    object Label6: TLabel
      Left = 4
      Top = 13
      Width = 24
      Height = 12
      Caption = #24615#21035
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object ckbM: TCheckBox
      Left = 40
      Top = 12
      Width = 34
      Height = 15
      Caption = #30007
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = edtNo_Exit
    end
    object ckbF: TCheckBox
      Left = 84
      Top = 13
      Width = 36
      Height = 15
      Caption = #22899
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = edtNo_Exit
    end
  end
  object btnIns: TBitBtn
    Left = 402
    Top = 66
    Width = 61
    Height = 25
    Caption = #28155#21152
    TabOrder = 6
    OnClick = btnInsClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
      FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
      00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
      F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
      00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
      F033777777777337F73309999990FFF0033377777777FFF77333099999000000
      3333777777777777333333399033333333333337773333333333333903333333
      3333333773333333333333303333333333333337333333333333}
    NumGlyphs = 2
  end
  object btnDel: TBitBtn
    Left = 402
    Top = 97
    Width = 61
    Height = 25
    Caption = #21024#38500
    TabOrder = 7
    OnClick = btnDelClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333981833333983333333388F333333F3333000033399118333991833333
      38F38F333F88F33300003339911183991118333338F338F3F8338F3300003333
      991118911118333338F3338F833338F3000033333991111111833333338F3338
      3333F8330000333333991111183333333338F333333F83330000333333399111
      8333333333338F3333383333000033333339911183333333333338F333833333
      00003333339911118333333333333833338F3333000033333991189118333333
      33338333338F333300003333991183991183333333383338F338F33300003333
      9918333991183333338F33838F338F33000033333993333399983333338FF833
      38F338F300003333333333333999333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object btnStudy: TBitBtn
    Left = 402
    Top = 147
    Width = 61
    Height = 25
    Caption = #32534#36753#25104#32489
    Enabled = False
    TabOrder = 8
    OnClick = btnStudyClick
    NumGlyphs = 2
  end
  object pnStudy: TPanel
    Left = 133
    Top = 276
    Width = 325
    Height = 64
    BevelInner = bvLowered
    BorderWidth = 1
    Caption = 'pnStudy'
    Color = 13684926
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    Visible = False
    OnMouseDown = pnStudyMouseDown
    OnMouseMove = pnStudyMouseMove
    object btnOK: TBitBtn
      Left = 252
      Top = 37
      Width = 59
      Height = 22
      Caption = #30830#35748
      ModalResult = 1
      TabOrder = 0
      OnClick = btnOKClick
    end
    object btnCancel: TBitBtn
      Left = 251
      Top = 12
      Width = 59
      Height = 22
      Caption = #25764#28040
      ModalResult = 2
      TabOrder = 1
      OnClick = btnCancelClick
    end
    object sg2: TStringGrid
      Left = 13
      Top = 14
      Width = 223
      Height = 40
      ColCount = 4
      DefaultColWidth = 54
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs, goAlwaysShowEditor]
      TabOrder = 2
    end
  end
  object ds1: TDataSource
    DataSet = ADOdSet1
    Left = 238
    Top = 77
  end
  object ADOConnect: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=123;Persist Security Info=True;User ' +
      'ID=My;Data Source=ds_Ex6'
    LoginPrompt = False
    Left = 368
    Top = 164
  end
  object ADOdSet1: TADODataSet
    Connection = ADOConnect
    AfterPost = ADOdSet1AfterPost
    Parameters = <>
    Left = 308
    Top = 110
  end
  object ADOQry1: TADOQuery
    Connection = ADOConnect
    Parameters = <>
    Left = 99
    Top = 161
  end
  object ADOqry2: TADOQuery
    Connection = ADOConnect
    Parameters = <>
    Left = 346
    Top = 347
  end
  object ADOTb2: TADOTable
    Connection = ADOConnect
    CursorType = ctStatic
    TableName = 'STUDY'
    Left = 215
    Top = 301
  end
end