unitcountcj.dfm

用Delphi和access开发的成绩管理系统

object FormCountCJ: TFormCountCJ
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = 
    '【学生成绩统计系统】----设计：刘鉴澄  E-Mail:[e-mail]  主页' +
    ':http://gdljc.yeah.net'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 19
  object Label40: TLabel
    Left = 40
    Top = 504
    Width = 720
    Height = 12
    Caption = 
      '说明: 输入平时和期末成绩后按回车自动算出总评成绩,实现期末成绩分' +
      '数段的统计,供有需要的老师参考使用.Delphi源代码供学习参考!'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = Label40Click
    OnMouseMove = Label40MouseMove
  end
  object Label41: TLabel
    Left = 64
    Top = 528
    Width = 696
    Height = 12
    Caption = 
      '程序花了一点点时间做出来的,大家可以自己完善.欢迎访问我的主页: [' +
      '百业通网络科技]  http://www.bytsoft.com  QQ:279776036'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = Label41Click
    OnMouseMove = Label41MouseMove
  end
  object GroupBox1: TGroupBox
    Left = 360
    Top = 160
    Width = 393
    Height = 329
    Caption = '统计结果：'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label4: TLabel
      Left = 16
      Top = 104
      Width = 70
      Height = 14
      Caption = '及格人数：'
    end
    object Label5: TLabel
      Left = 16
      Top = 152
      Width = 84
      Height = 14
      Caption = '不及格人数：'
    end
    object Label6: TLabel
      Left = 16
      Top = 200
      Width = 56
      Height = 14
      Caption = '平均分：'
    end
    object Label7: TLabel
      Left = 16
      Top = 248
      Width = 56
      Height = 14
      Caption = '最高分：'
    end
    object Label8: TLabel
      Left = 16
      Top = 296
      Width = 56
      Height = 14
      Caption = '最低分：'
    end
    object Label9: TLabel
      Left = 240
      Top = 128
      Width = 49
      Height = 14
      Caption = '40~49：'
    end
    object Label10: TLabel
      Left = 296
      Top = 128
      Width = 49
      Height = 14
      Caption = 'Label10'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 96
      Top = 104
      Width = 49
      Height = 14
      Caption = 'Label11'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 96
      Top = 152
      Width = 49
      Height = 14
      Caption = 'Label12'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 96
      Top = 200
      Width = 49
      Height = 14
      Caption = 'Label13'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 96
      Top = 248
      Width = 49
      Height = 14
      Caption = 'Label14'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 96
      Top = 296
      Width = 49
      Height = 14
      Caption = 'Label15'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 240
      Top = 160
      Width = 49
      Height = 14
      Caption = '50~59：'
    end
    object Label17: TLabel
      Left = 240
      Top = 192
      Width = 49
      Height = 14
      Caption = '60~69：'
    end
    object Label18: TLabel
      Left = 240
      Top = 224
      Width = 49
      Height = 14
      Caption = '70~79：'
    end
    object Label19: TLabel
      Left = 240
      Top = 256
      Width = 49
      Height = 14
      Caption = '80~89：'
    end
    object Label20: TLabel
      Left = 296
      Top = 160
      Width = 49
      Height = 14
      Caption = 'Label20'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 296
      Top = 192
      Width = 49
      Height = 14
      Caption = 'Label21'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 296
      Top = 224
      Width = 49
      Height = 14
      Caption = 'Label22'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 296
      Top = 256
      Width = 49
      Height = 14
      Caption = 'Label23'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label24: TLabel
      Left = 240
      Top = 288
      Width = 56
      Height = 14
      Caption = '90~100：'
    end
    object Label25: TLabel
      Left = 296
      Top = 288
      Width = 49
      Height = 14
      Caption = 'Label25'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label26: TLabel
      Left = 88
      Top = 24
      Width = 90
      Height = 14
      Caption = '人数和百分比'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label27: TLabel
      Left = 288
      Top = 24
      Width = 90
      Height = 14
      Caption = '人数和百分比'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label28: TLabel
      Left = 232
      Top = 24
      Width = 45
      Height = 14
      Caption = '分数段'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label29: TLabel
      Left = 16
      Top = 24
      Width = 30
      Height = 14
      Caption = '合计'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 208
      Top = 8
      Width = 2
      Height = 321
    end
    object Label30: TLabel
      Left = 16
      Top = 64
      Width = 84
      Height = 14
      Caption = '考核总人数：'
    end
    object Label31: TLabel
      Left = 96
      Top = 64
      Width = 49
      Height = 14
      Caption = 'Label31'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label36: TLabel
      Left = 240
      Top = 96
      Width = 49
      Height = 14
      Caption = '30~39：'
    end
    object Label37: TLabel
      Left = 296
      Top = 96
      Width = 49
      Height = 14
      Caption = 'Label10'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label38: TLabel
      Left = 240
      Top = 64
      Width = 42
      Height = 14
      Caption = '0~29：'
    end
    object Label39: TLabel
      Left = 296
      Top = 64
      Width = 49
      Height = 14
      Caption = 'Label10'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object BitBtn1: TBitBtn
    Left = 616
    Top = 16
    Width = 129
    Height = 49
    Caption = '初始化'
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333333333333333333FFF33FF333FFF339993370733
      999333777FF37FF377733339993000399933333777F777F77733333399970799
      93333333777F7377733333333999399933333333377737773333333333990993
      3333333333737F73333333333331013333333333333777FF3333333333910193
      333333333337773FF3333333399000993333333337377737FF33333399900099
      93333333773777377FF333399930003999333337773777F777FF339993370733
      9993337773337333777333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 616
    Top = 104
    Width = 137
    Height = 49
    Caption = '统计'
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
      03333377777777777F33333003333330033333377FF333377F33333300333333
      0333333377FF33337F3333333003333303333333377FF3337333333333003333
      333333333377FF3333333333333003333333333333377FF33333333333330033
      3333333333337733333333333330033333333333333773333333333333003333
      33333333337733333F3333333003333303333333377333337F33333300333333
      03333333773333337F33333003333330033333377FFFFFF77F33330000000000
      0333337777777777733333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object DBGrid1: TDBGrid
    Left = 48
    Top = 168
    Width = 248
    Height = 321
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -21
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'zongpin'
        Title.Caption = '期末成绩'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -14
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object GroupBox2: TGroupBox
    Left = 48
    Top = 0
    Width = 249
    Height = 153
    Caption = '录入：'
    TabOrder = 4
    object Label1: TLabel
      Left = 24
      Top = 40
      Width = 57
      Height = 19
      Caption = '平时：'
    end
    object Label2: TLabel
      Left = 24
      Top = 80
      Width = 57
      Height = 19
      Caption = '期末：'
    end
    object Label3: TLabel
      Left = 24
      Top = 118
      Width = 57
      Height = 19
      Caption = '总评：'
    end
    object Edit1: TEdit
      Left = 80
      Top = 32
      Width = 145
      Height = 27
      TabOrder = 0
      OnKeyDown = Edit1KeyDown
    end
    object Edit2: TEdit
      Left = 80
      Top = 72
      Width = 145
      Height = 27
      TabOrder = 1
      OnKeyDown = Edit2KeyDown
    end
    object Edit3: TEdit
      Left = 80
      Top = 110
      Width = 145
      Height = 27
      Color = clScrollBar
      ReadOnly = True
      TabOrder = 2
      OnKeyDown = Edit3KeyDown
    end
  end
  object GroupBox3: TGroupBox
    Left = 360
    Top = 8
    Width = 225
    Height = 145
    Caption = '比例设置：'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    object Label32: TLabel
      Left = 39
      Top = 40
      Width = 84
      Height = 14
      Caption = '平时成绩占：'
    end
    object Label33: TLabel
      Left = 39
      Top = 96
      Width = 84
      Height = 14
      Caption = '期末成绩占：'
    end
    object Label34: TLabel
      Left = 184
      Top = 40
      Width = 7
      Height = 14
      Caption = '%'
    end
    object Label35: TLabel
      Left = 184
      Top = 96
      Width = 7
      Height = 14
      Caption = '%'
    end
    object Edit4: TEdit
      Left = 128
      Top = 32
      Width = 49
      Height = 22
      TabOrder = 0
      Text = '30'
      OnKeyDown = Edit4KeyDown
    end
    object Edit5: TEdit
      Left = 128
      Top = 88
      Width = 49
      Height = 22
      TabOrder = 1
      Text = '70'
      OnKeyDown = Edit5KeyDown
    end
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 288
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 264
    Top = 24
  end
end