bysj.dfm

数据库操作

object frmQualityAppraise: TfrmQualityAppraise
  Left = 252
  Top = 282
  Width = 677
  Height = 447
  AutoSize = True
  Caption = 'frmQualityAppraise'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '@宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 14
  object dbgridMenu: TDBGrid
    Left = 0
    Top = 184
    Width = 669
    Height = 236
    Align = alBottom
    DataSource = DataSource
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '@宋体'
    TitleFont.Style = []
  end
  object panelMenu: TPanel
    Left = 0
    Top = 0
    Width = 669
    Height = 181
    Align = alTop
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object lblAssess: TLabel
      Left = 360
      Top = 16
      Width = 119
      Height = 14
      Caption = '教学质量评定等级:'
    end
    object radiovote: TRadioGroup
      Left = 4
      Top = 0
      Width = 189
      Height = 177
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Items.Strings = (
        '付川'
        '陈礼民'
        '蒋魏魏'
        '彭春')
      ParentFont = False
      TabOrder = 0
    end
    object btnShowAllResult: TButton
      Left = 236
      Top = 12
      Width = 101
      Height = 25
      Caption = '查询所有信息'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnShowAllResultClick
    end
    object btnVote: TButton
      Left = 236
      Top = 52
      Width = 101
      Height = 25
      Caption = '投票'
      TabOrder = 2
      OnClick = btnVoteClick
    end
    object btnShowMaxResult: TButton
      Left = 236
      Top = 100
      Width = 101
      Height = 25
      Caption = '查询得票最多者'
      TabOrder = 3
      OnClick = btnShowMaxResultClick
    end
    object btnExit: TButton
      Left = 236
      Top = 144
      Width = 101
      Height = 25
      Caption = '退出'
      TabOrder = 4
      OnClick = btnExitClick
    end
    object comboAssess: TComboBox
      Left = 488
      Top = 12
      Width = 145
      Height = 22
      ItemHeight = 14
      TabOrder = 5
      Items.Strings = (
        '优秀'
        '良好'
        '合格'
        '不合格')
    end
  end
  object Conn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=FEE_CARD;Data Source=WHS;Use Procedure for Prepare=1;' +
      'Auto Translate=True;Packet Size=4096;Workstation ID=WHS;Use Encr' +
      'yption for Data=False;Tag with column collation when possible=Fa' +
      'lse'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 4
    Top = 296
  end
  object Query: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  QUALITYAPPRAISE')
    Left = 32
    Top = 296
  end
  object DataSource: TDataSource
    DataSet = Query
    Left = 60
    Top = 296
  end
end