?? unitcountcj.~dfm
字號:
object FormCountCJ: TFormCountCJ
Left = -4
Top = -4
Width = 808
Height = 580
Caption =
'【學生成績統計系統】----設計：劉鑒澄 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 =
'說明: 輸入平時和期末成績后按回車自動算出總評成績,實現期末成績分' +
'數段的統計,供有需要的老師參考使用.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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -