modifyoptionmark.dfm

中学考试管理系统 采用智能管理 具有统计分析的能力

object Form17: TForm17
  Left = 173
  Top = 142
  Width = 736
  Height = 466
  Caption = 'Form17'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 369
    Height = 193
    Caption = #35831#36873#25321#20462#25913#33539#22260
    Color = clSkyBlue
    ParentColor = False
    TabOrder = 0
    object Label1: TLabel
      Left = 48
      Top = 64
      Width = 36
      Height = 13
      Caption = #23398#21495#65306
    end
    object Label3: TLabel
      Left = 32
      Top = 96
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #35838#31243#21495#65306
    end
    object Label4: TLabel
      Left = 32
      Top = 128
      Width = 48
      Height = 13
      Caption = #35838#31243#21517#65306
    end
    object Label2: TLabel
      Left = 16
      Top = 32
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #20462#25913#33539#22260#65306
    end
    object Label5: TLabel
      Left = 8
      Top = 160
      Width = 81
      Height = 13
      AutoSize = False
      Caption = #20462#25913#21518#25104#32489#65306
    end
    object cond: TComboBox
      Left = 96
      Top = 24
      Width = 137
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = #25353#23398#21495#20462#25913
      OnChange = condChange
      Items.Strings = (
        #25353#23398#21495#20462#25913
        #25353#35838#31243#21495#20462#25913)
    end
    object numEd: TEdit
      Left = 96
      Top = 56
      Width = 137
      Height = 21
      TabOrder = 1
    end
    object cNumCB: TComboBox
      Left = 96
      Top = 88
      Width = 137
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = '1'
      OnChange = cNumCBChange
    end
    object cNameCB: TComboBox
      Left = 96
      Top = 120
      Width = 137
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = #38899#20048
    end
    object Button3: TButton
      Left = 256
      Top = 32
      Width = 73
      Height = 25
      Caption = #26597#35810
      TabOrder = 4
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 256
      Top = 144
      Width = 73
      Height = 25
      Caption = #21462#28040
      TabOrder = 5
      OnClick = Button4Click
    end
    object markEd: TEdit
      Left = 96
      Top = 152
      Width = 137
      Height = 21
      TabOrder = 6
    end
    object Button5: TButton
      Left = 256
      Top = 88
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 7
      OnClick = Button5Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 400
    Top = 16
    Width = 313
    Height = 193
    Caption = #21487#20197#22312#19978#38754#30452#25509#20462#25913
    Color = clSkyBlue
    ParentColor = False
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 24
      Top = 16
      Width = 257
      Height = 129
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBNavigator1: TDBNavigator
      Left = 24
      Top = 160
      Width = 231
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbEdit, nbPost, nbRefresh]
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 232
    Top = 400
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 376
    Top = 400
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = Button2Click
  end
  object Panel1: TPanel
    Left = 16
    Top = 216
    Width = 697
    Height = 177
    BevelOuter = bvLowered
    Color = clSkyBlue
    TabOrder = 4
    object DBGrid2: TDBGrid
      Left = 16
      Top = 8
      Width = 665
      Height = 121
      DataSource = DataSource2
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBNavigator2: TDBNavigator
      Left = 8
      Top = 272
      Width = 240
      Height = 25
      TabOrder = 1
    end
    object DBNavigator3: TDBNavigator
      Left = 16
      Top = 144
      Width = 168
      Height = 25
      DataSource = DataSource2
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = scTb
    Left = 664
    Top = 32
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=kaoSh' +
      'i.mdb;Mode=Share Deny None;Extended Properties="";Persist Securi' +
      'ty Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Pa' +
      'th="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet' +
      ' OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops' +
      '=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database P' +
      'assword="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encr' +
      'ypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;' +
      'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fal' +
      'se'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 104
    Top = 8
  end
  object courseQry: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 40
    Top = 120
  end
  object modifyQry: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 288
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = optionTb
    Left = 320
    Top = 288
  end
  object optionTb: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'optionMark'
    Left = 384
    Top = 288
  end
  object scTb: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'sc'
    Left = 664
    Top = 80
  end
end