e22.dfm

delphi的学习资料

object fmE22: TfmE22
  Left = 312
  Top = 66
  Width = 483
  Height = 634
  Caption = ' E22 '#25968#25454#38598' '#20363
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  object dbgA: TDBGrid
    Left = 11
    Top = 6
    Width = 455
    Height = 198
    DataSource = dsA
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object btnOpen: TBitBtn
    Left = 18
    Top = 220
    Width = 52
    Height = 25
    Caption = #25171#24320
    TabOrder = 1
    OnClick = btnOpenClick
  end
  object dbgB: TDBGrid
    Left = 12
    Top = 286
    Width = 453
    Height = 154
    DataSource = dsB
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object btnPrior: TBitBtn
    Left = 126
    Top = 218
    Width = 54
    Height = 25
    Caption = #19978#19968#26465
    TabOrder = 3
    OnClick = btnPriorClick
  end
  object btnMov: TBitBtn
    Left = 243
    Top = 216
    Width = 58
    Height = 25
    Caption = #31227#25351#38024
    TabOrder = 4
    OnClick = btnMovClick
  end
  object edtN: TEdit
    Left = 205
    Top = 216
    Width = 29
    Height = 24
    TabOrder = 5
    Text = '2'
  end
  object Panel1: TPanel
    Left = 324
    Top = 213
    Width = 141
    Height = 34
    TabOrder = 6
    object rbtnB: TRadioButton
      Left = 5
      Top = 9
      Width = 62
      Height = 17
      Caption = 'Basic'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbtnBS_Click
    end
    object rbtnS: TRadioButton
      Left = 75
      Top = 8
      Width = 61
      Height = 17
      Caption = 'Study'
      TabOrder = 1
      OnClick = rbtnBS_Click
    end
  end
  object btnDo: TBitBtn
    Left = 127
    Top = 259
    Width = 54
    Height = 25
    Caption = #26597#35810
    TabOrder = 7
    OnClick = btnDoClick
  end
  object sg: TStringGrid
    Left = 13
    Top = 462
    Width = 452
    Height = 67
    DefaultColWidth = 80
    FixedCols = 0
    RowCount = 2
    TabOrder = 8
  end
  object btnDispLine: TBitBtn
    Left = 382
    Top = 536
    Width = 81
    Height = 25
    Caption = 'A'#20013#24403#21069#34892
    TabOrder = 9
    OnClick = btnDispLineClick
  end
  object btnSQL: TBitBtn
    Left = 386
    Top = 568
    Width = 76
    Height = 25
    Caption = #25191#34892'SQL'
    TabOrder = 10
    OnClick = btnSQLClick
  end
  object memo: TMemo
    Left = 14
    Top = 538
    Width = 329
    Height = 56
    Lines.Strings = (
      ''
      '         '#22312#27492#36755#20837'SQL'#35821#21477)
    TabOrder = 11
  end
  object Connect: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Password=123;Persist Security Info=True;User ' +
      'ID=My;Data Source=ds_Ex6;Mode=ReadWrite;Initial Catalog=EX6'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 415
    Top = 157
  end
  object tbA: TADOTable
    Connection = Connect
    CursorType = ctStatic
    TableName = 'STUDY'
    Left = 358
    Top = 150
  end
  object dsA: TDataSource
    DataSet = tbA
    Left = 295
    Top = 138
  end
  object qryB: TADOQuery
    AutoCalcFields = False
    Connection = Connect
    Parameters = <>
    Left = 413
    Top = 274
  end
  object dsB: TDataSource
    DataSet = qryB
    Left = 364
    Top = 307
  end
  object qryC: TADOQuery
    Connection = Connect
    Parameters = <>
    Left = 307
    Top = 549
  end
end