?? unitcountcj.~dfm
字號:
object FormCountCJ: TFormCountCJ
Left = -4
Top = -4
Width = 808
Height = 580
Caption =
'【學(xué)生成績統(tǒng)計(jì)系統(tǒng)】----設(shè)計(jì):劉鑒澄 E-Mail:gdljc@163.com 主頁' +
':http://gdljc.yeah.net'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 19
object Label40: TLabel
Left = 40
Top = 504
Width = 720
Height = 12
Caption =
'說明: 輸入平時和期末成績后按回車自動算出總評成績,實(shí)現(xiàn)期末成績分' +
'數(shù)段的統(tǒng)計(jì),供有需要的老師參考使用.Delphi源代碼供學(xué)習(xí)參考!'
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 =
'程序花了一點(diǎn)點(diǎn)時間做出來的,大家可以自己完善.歡迎訪問我的主頁: [' +
'百業(yè)通網(wǎng)絡(luò)科技] 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 = '統(tǒng)計(jì)結(jié)果:'
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 = '及格人數(shù):'
end
object Label5: TLabel
Left = 16
Top = 152
Width = 84
Height = 14
Caption = '不及格人數(shù):'
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 = '人數(shù)和百分比'
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 = '人數(shù)和百分比'
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 = '分?jǐn)?shù)段'
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 = '合計(jì)'
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 = '考核總?cè)藬?shù):'
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 = '統(tǒng)計(jì)'
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 = '比例設(shè)置:'
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -