www.pudn.com > vb71053453673553.rar > Form1.frm
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "todg7.ocx"
Object = "{4406B9AC-521E-476B-AF25-3D2C36110576}#3.0#0"; "CommandSCE.ocx"
Begin VB.Form Form1
Caption = "SV班级成绩分析"
ClientHeight = 7710
ClientLeft = 60
ClientTop = 450
ClientWidth = 10860
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7500
ScaleMode = 0 'User
ScaleWidth = 10860
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 2
Top = 7365
Width = 10860
_ExtentX = 19156
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 16060
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2005-3-25"
EndProperty
EndProperty
End
Begin VB.Frame Frame1
Caption = "添加记录"
Height = 705
Left = 1980
TabIndex = 4
Top = 6390
Width = 8805
Begin CSCommandSCE.CommandSCE CommandAdd
Height = 345
Left = 5640
TabIndex = 13
Top = 240
Width = 975
_ExtentX = 1720
_ExtentY = 609
Icon = "Form1.frx":0E42
Caption = "添加"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowFocus = 0 'False
Appearance = 2
End
Begin VB.TextBox T4
Height = 270
Left = 3960
TabIndex = 11
Top = 285
Width = 1395
End
Begin VB.TextBox T3
Height = 270
Left = 2790
TabIndex = 7
Top = 285
Width = 615
End
Begin VB.TextBox T2
BackColor = &H8000000F&
Height = 270
Left = 1650
TabIndex = 6
Top = 285
Width = 615
End
Begin VB.TextBox T1
BackColor = &H8000000F&
Height = 270
Left = 540
TabIndex = 5
Top = 285
Width = 615
End
Begin VB.Label Label4
Caption = "姓名"
Height = 285
Left = 3540
TabIndex = 12
Top = 330
Width = 405
End
Begin VB.Label Label3
Caption = "编号"
Height = 285
Left = 2340
TabIndex = 10
Top = 330
Width = 405
End
Begin VB.Label Label2
Caption = "班级"
Height = 285
Left = 1200
TabIndex = 9
Top = 330
Width = 405
End
Begin VB.Label Label1
Caption = "年级"
Height = 285
Left = 120
TabIndex = 8
Top = 330
Width = 405
End
End
Begin MSAdodcLib.Adodc AdoT2
Height = 330
Left = 210
Top = 2250
Visible = 0 'False
Width = 2145
_ExtentX = 3784
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "AdoT2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc AdoT1
Height = 330
Left = 120
Top = 1920
Visible = 0 'False
Width = 1980
_ExtentX = 3493
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "AdoT1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 7110
Top = 870
Visible = 0 'False
Width = 2190
_ExtentX = 3863
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin TrueOleDBGrid70.TDBGrid TDBGrid1
Height = 5205
Left = 1980
TabIndex = 3
Top = 360
Width = 8805
_ExtentX = 15531
_ExtentY = 9181
_LayoutType = 0
_RowHeight = -2147483647
_WasPersistedAsPixels= 0
Columns(0)._VlistStyle= 0
Columns(0)._MaxComboItems= 5
Columns(0).DataField= ""
Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(1)._VlistStyle= 0
Columns(1)._MaxComboItems= 5
Columns(1).DataField= ""
Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns.Count = 2
Splits(0)._UserFlags= 0
Splits(0).RecordSelectorWidth= 688
Splits(0)._SavedRecordSelectors= 0 'False
Splits(0).DividerColor= 14215660
Splits(0).SpringMode= 0 'False
Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3"
Splits(0)._ColumnProps(0)= "Columns.Count=2"
Splits(0)._ColumnProps(1)= "Column(0).Width=3281"
Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0"
Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=3175"
Splits(0)._ColumnProps(4)= "Column(0).Order=1"
Splits(0)._ColumnProps(5)= "Column(0)._MinWidth=1769238625"
Splits(0)._ColumnProps(6)= "Column(1).Width=3281"
Splits(0)._ColumnProps(7)= "Column(1).DividerColor=0"
Splits(0)._ColumnProps(8)= "Column(1)._WidthInPix=3175"
Splits(0)._ColumnProps(9)= "Column(1).Order=2"
Splits(0)._ColumnProps(10)= "Column(1)._MinWidth=62012160"
Splits.Count = 1
PrintInfos(0)._StateFlags= 0
PrintInfos(0).Name= "piInternal 0"
PrintInfos(0).PageHeaderFont= "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋体"
PrintInfos(0).PageFooterFont= "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋体"
PrintInfos(0).PageHeaderHeight= 0
PrintInfos(0).PageFooterHeight= 0
PrintInfos.Count= 1
DefColWidth = 0
HeadLines = 1
FootLines = 1
TabAction = 2
MultipleLines = 0
CellTipsWidth = 0
DeadAreaBackColor= 16777215
RowDividerColor = 16777215
RowSubDividerColor= 16777215
DirectionAfterEnter= 2
MaxRows = 250000
ViewColumnCaptionWidth= 0
ViewColumnWidth = 0
_PropDict = "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2"
_StyleDefs(0) = "_StyleRoot:id=0,.parent=-1,.alignment=3,.valignment=0,.bgcolor=&H80000005&"
_StyleDefs(1) = ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0"
_StyleDefs(2) = ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0"
_StyleDefs(3) = ":id=0,.borderColor=&H80000005&,.borderType=0,.bold=0,.fontsize=900,.italic=0"
_StyleDefs(4) = ":id=0,.underline=0,.strikethrough=0,.charset=134"
_StyleDefs(5) = ":id=0,.fontname=宋体"
_StyleDefs(6) = "Style:id=1,.parent=0,.namedParent=33"
_StyleDefs(7) = "CaptionStyle:id=4,.parent=2,.namedParent=37"
_StyleDefs(8) = "HeadingStyle:id=2,.parent=1,.namedParent=34,.bgcolor=&H8000000F&"
_StyleDefs(9) = "FooterStyle:id=3,.parent=1,.namedParent=35,.bgcolor=&HFFFFFF&"
_StyleDefs(10) = "InactiveStyle:id=5,.parent=2,.bgcolor=&HFFFFFF&,.fgcolor=&H80000012&"
_StyleDefs(11) = "SelectedStyle:id=6,.parent=1,.namedParent=36"
_StyleDefs(12) = "EditorStyle:id=7,.parent=1,.bgcolor=&HFFFFFF&,.fgcolor=&HC0&"
_StyleDefs(13) = "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
_StyleDefs(14) = "EvenRowStyle:id=9,.parent=1,.namedParent=39"
_StyleDefs(15) = "OddRowStyle:id=10,.parent=1,.namedParent=40"
_StyleDefs(16) = "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
_StyleDefs(17) = "FilterBarStyle:id=12,.parent=1,.namedParent=42"
_StyleDefs(18) = "Splits(0).Style:id=13,.parent=1"
_StyleDefs(19) = "Splits(0).CaptionStyle:id=22,.parent=4"
_StyleDefs(20) = "Splits(0).HeadingStyle:id=14,.parent=2"
_StyleDefs(21) = "Splits(0).FooterStyle:id=15,.parent=3"
_StyleDefs(22) = "Splits(0).InactiveStyle:id=16,.parent=5"
_StyleDefs(23) = "Splits(0).SelectedStyle:id=18,.parent=6"
_StyleDefs(24) = "Splits(0).EditorStyle:id=17,.parent=7"
_StyleDefs(25) = "Splits(0).HighlightRowStyle:id=19,.parent=8"
_StyleDefs(26) = "Splits(0).EvenRowStyle:id=20,.parent=9"
_StyleDefs(27) = "Splits(0).OddRowStyle:id=21,.parent=10"
_StyleDefs(28) = "Splits(0).RecordSelectorStyle:id=23,.parent=11"
_StyleDefs(29) = "Splits(0).FilterBarStyle:id=24,.parent=12"
_StyleDefs(30) = "Splits(0).Columns(0).Style:id=28,.parent=13"
_StyleDefs(31) = "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
_StyleDefs(32) = "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
_StyleDefs(33) = "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
_StyleDefs(34) = "Splits(0).Columns(1).Style:id=32,.parent=13"
_StyleDefs(35) = "Splits(0).Columns(1).HeadingStyle:id=29,.parent=14"
_StyleDefs(36) = "Splits(0).Columns(1).FooterStyle:id=30,.parent=15"
_StyleDefs(37) = "Splits(0).Columns(1).EditorStyle:id=31,.parent=17"
_StyleDefs(38) = "Named:id=33:Normal"
_StyleDefs(39) = ":id=33,.parent=0"
_StyleDefs(40) = "Named:id=34:Heading"
_StyleDefs(41) = ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(42) = ":id=34,.wraptext=-1"
_StyleDefs(43) = "Named:id=35:Footing"
_StyleDefs(44) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(45) = "Named:id=36:Selected"
_StyleDefs(46) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(47) = "Named:id=37:Caption"
_StyleDefs(48) = ":id=37,.parent=34,.alignment=2"
_StyleDefs(49) = "Named:id=38:HighlightRow"
_StyleDefs(50) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(51) = "Named:id=39:EvenRow"
_StyleDefs(52) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
_StyleDefs(53) = "Named:id=40:OddRow"
_StyleDefs(54) = ":id=40,.parent=33"
_StyleDefs(55) = "Named:id=41:RecordSelector"
_StyleDefs(56) = ":id=41,.parent=34"
_StyleDefs(57) = "Named:id=42:FilterBar"
_StyleDefs(58) = ":id=42,.parent=33"
End
Begin MSComctlLib.TreeView TreeView1
Height = 6495
Left = 30
TabIndex = 1
Top = 390
Width = 1905
_ExtentX = 3360
_ExtentY = 11456
_Version = 393217
HideSelection = 0 'False
Indentation = 529
LabelEdit = 1
LineStyle = 1
Style = 6
FullRowSelect = -1 'True
HotTracking = -1 'True
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 330
Left = 0
TabIndex = 0
Top = 0
Width = 10860
_ExtentX = 19156
_ExtentY = 582
ButtonWidth = 1984
ButtonHeight = 582
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
TextAlignment = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "学生管理"
Key = "学生管理"
Object.ToolTipText = "学生管理"
ImageIndex = 11
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "科目管理"
Key = "科目管理"
Object.ToolTipText = "科目管理"
ImageIndex = 10
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新数据"
Key = "保存数据"
Object.ToolTipText = "刷新数据"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "成绩分析"
Key = "成绩分析"
Object.ToolTipText = "成绩分析"
ImageIndex = 7
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "更改密码"
Key = "更改密码"
ImageIndex = 12
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭退出"
Key = "关闭"
Object.ToolTipText = "关闭退出"
ImageIndex = 9
EndProperty
EndProperty
Begin VB.ComboBox ComboKEMU
Height = 300
Left = 8790
Style = 2 'Dropdown List
TabIndex = 14
Top = 30
Width = 2025
End
Begin MSComctlLib.ImageList ImageList1
Left = 6420
Top = -240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0F9C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":252E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":3AC0
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":5052
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":65E4
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":7B76
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":9108
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":96A2
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":9C3C
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":A1D6
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":B028
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":BE7A
Key = ""
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc AdodcTemp
Height = 330
Left = 6810
Top = -150
Visible = 0 'False
Width = 2130
_ExtentX = 3757
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "AdodcTemp"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Begin VB.Menu MNU_DATA
Caption = "数据(&D) "
Visible = 0 'False
Begin VB.Menu MNU_DATA_SAVE
Caption = "(&S)保存数据"
End
Begin VB.Menu MNU_DATA_SP1
Caption = "-"
End
Begin VB.Menu MNU_DATA_EXIT
Caption = "(&X)关闭程序"
End
End
Begin VB.Menu MNU_M
Caption = "管理(&M) "
Visible = 0 'False
Begin VB.Menu MNU_M_STU
Caption = "学生管理"
End
Begin VB.Menu MNU_M_SP1
Caption = "-"
End
Begin VB.Menu MNU_M_KEMU
Caption = "科目管理"
End
End
Begin VB.Menu MNU_OUTPUT
Caption = "输出(&O) "
Visible = 0 'False
Begin VB.Menu MNU_OUTPUT_CJ
Caption = "成绩分析输出"
End
End
Begin VB.Menu MNU_ABOUT
Caption = "关于(&A) "
Visible = 0 'False
Begin VB.Menu MNU_ABOUT_HELP
Caption = "帮助"
End
Begin VB.Menu MNU_ABOUT_SP1
Caption = "-"
End
Begin VB.Menu MNU_ABOUT_ME
Caption = "程序信息"
End
End
Begin VB.Menu POPMNU
Caption = "POP"
Visible = 0 'False
Begin VB.Menu POPMNU_RF
Caption = "刷新数据"
End
Begin VB.Menu POPMNU_SP1
Caption = "-"
End
Begin VB.Menu POPMNU_DEL
Caption = "删除选定记录"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim DBConn '定义数据连接
Dim nodX As Node '目录树用
Private Sub ComboKEMU_Click()
Dim I
If ComboKEMU.Text = "显示全部课程" Then
For I = 2 To TDBGrid1.Columns.Count - 1
TDBGrid1.Columns(I).Visible = True
Next I
Else
'==========================
For I = 5 To TDBGrid1.Columns.Count - 1
If Trim(TDBGrid1.Columns(I).Caption) = Trim(ComboKEMU.Text) Then
TDBGrid1.Columns(I).Visible = True
Else
TDBGrid1.Columns(I).Visible = False
End If
Next I
End If
End Sub
Private Sub CommandAdd_Click()
On Error Resume Next
If T1.Text <> "" And T2.Text <> "" And T3.Text <> "" And T4.Text <> "" Then
'检测必添项目
If Len(Trim(T1.Text)) = 4 And Len(Trim(T2.Text)) = 3 And Len(Trim(T3.Text)) = 3 Then
'检测数据长度
If IsNumeric(Trim(T1.Text)) And IsNumeric(Trim(T2.Text)) And IsNumeric(Trim(T3.Text)) Then
'===============检测数据格式
With Adodc1.Recordset
.AddNew
.Fields("年级") = Trim(T1.Text)
.Fields("班级") = Trim(T2.Text)
.Fields("编号") = Trim(T3.Text)
.Fields("姓名") = Trim(T4.Text)
.Update
End With
T3.Text = ""
T4.Text = ""
Call FillTDBGrid(Left(TreeView1.SelectedItem.Text, 4), Right(TreeView1.SelectedItem.Text, 3))
T3.SetFocus
Else
MsgBox "年级、班级、编号字段必须为 [数字] 格式！" & Chr(13) & Chr(10) & "请确认！", , " 格式 提示"
End If
Else
MsgBox "所填字段的数据长度有错误,请参考如下示例填写：" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "年级-4 如：2005 " & Chr(13) & Chr(10) & "班级-3 如：001 " & Chr(13) & Chr(10) & "编号-3 如：001" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "请重新确认！", , " 长度 提示"
End If
Else
MsgBox "年级、班级、编号、姓名为必添项目！", , "必添项目 - 提示"
End If
End Sub
'*******************************************
Public Sub FillTreeView() '添加目录树项目
TreeView1.Nodes.Clear
Dim I, J
AdoT2.ConnectionString = DBConn
With AdoT1
.ConnectionString = DBConn
.RecordSource = "SELECT DISTINCT 年级 FROM 成绩 "
.Refresh
For I = 0 To .Recordset.RecordCount - 1
Set nodX = TreeView1.Nodes.Add(, , "P" & I, .Recordset.Fields(0).Value & " 级")
'客户树子显示筛选加入记录集 ===============================================
AdoT2.RecordSource = "SELECT DISTINCT 班级 FROM 成绩 WHERE 年级 LIKE '" & .Recordset.Fields(0).Value & "'"
AdoT2.Refresh
AdoT2.Recordset.MoveFirst
On Error Resume Next
For J = 0 To AdoT2.Recordset.RecordCount - 1
Set nodX = TreeView1.Nodes.Add("P" & I, tvwChild, "C" & I & J, .Recordset.Fields(0).Value & AdoT2.Recordset.Fields(0).Value)
AdoT2.Recordset.MoveNext
Next J
'============================================================================
.Recordset.MoveNext
Next I
End With
'定义功能项目
Set nodX = TreeView1.Nodes.Add(, , "A", "全部显示")
End Sub
'*********************************************************************
'附识 为 9999 999 即可显示所有记录
Public Sub FillTDBGrid(NJ As String, BJ As String) ' 添加表格项目
Screen.MousePointer = 13
'定义数据
With Adodc1
.ConnectionString = DBConn
If NJ = "9999" And BJ = "999" Then
.RecordSource = "SELECT * FROM 成绩 ORDER BY 年级, 班级, 编号"
ElseIf NJ = "nnnn" And BJ = "nnn" Then
.RecordSource = "SELECT * FROM 成绩 where 年级 LIKE '" & NJ & "' AND 班级 LIKE '" & BJ & "' ORDER BY 年级, 班级, 编号"
Else
.RecordSource = "SELECT * FROM 成绩 where 年级 LIKE '" & NJ & "' AND 班级 LIKE '" & BJ & "' ORDER BY 年级, 班级, 编号"
End If
.Refresh
TDBGrid1.DataSource = Adodc1
End With
'=============
With TDBGrid1
.Columns(0).Visible = False
.Columns(0).Locked = True '&H00E0E0E0&
.Columns(1).Locked = True
.Columns(2).Locked = True
.Columns(3).Locked = True
.Columns(4).Locked = True
'.Columns(1).BackColor = &H8000000F
' .Columns(2).BackColor = &H8000000F
' .Columns(3).BackColor = &H8000000F
' .Columns(4).BackColor = &H8000000F
.Columns(1).Width = 500
.Columns(2).Width = 450
.Columns(3).Width = 450
.Columns(4).Width = 1000
'Set the colors for the even and odd rows
TDBGrid1.EvenRowStyle.BackColor = &HEEFEFE
TDBGrid1.OddRowStyle.BackColor = &HFEFDF2
TDBGrid1.AlternatingRowStyle = True
ComboKEMU_Click
'=============
Dim I
For I = 5 To .Columns.Count - 1
.Columns(I).Width = 1200
Next I
End With
Screen.MousePointer = 0
End Sub
'***********************************************************
Public Sub FillCommboKEMU() '填充科目 COMMBO
AdodcTemp.ConnectionString = DBConn
AdodcTemp.RecordSource = "SELECT top 1 * FROM 成绩"
AdodcTemp.Refresh
'=====
ComboKEMU.Clear
ComboKEMU.AddItem "显示全部课程"
Dim I
For I = 5 To AdodcTemp.Recordset.Fields.Count - 1
ComboKEMU.AddItem AdodcTemp.Recordset.Fields(I).Name
Next I
ComboKEMU.ListIndex = 0
End Sub
Private Sub Form_Activate()
Me.Caption = "SV班级成绩分析 1.0 [青岛市商业中专]"
End Sub
Private Sub Form_Load()
Screen.MousePointer = 13
'以下定义了数据库连接内容 DBConn
DBConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\db\svdb.mdb;Persist Security Info=False"
FillCommboKEMU
FillTreeView
FillTDBGrid "nnnn", "nnn"
'========
TDBGrid1.MarqueeStyle = dbgHighlightCell
StatusBar1.Panels(1).Text = "sss"
Screen.MousePointer = 0
End Sub
Private Sub Form_Resize()
If Form1.ScaleHeight > 3000 And Form1.ScaleWidth > 6000 Then
Dim MYCenter
MYCenter = Form1.ScaleHeight - Toolbar1.Height - StatusBar1.Height
TreeView1.Top = Toolbar1.Height + 80
TDBGrid1.Top = Toolbar1.Height + 80
TreeView1.Height = MYCenter - 80
TDBGrid1.Height = MYCenter - Frame1.Height - 180
TDBGrid1.Width = Form1.ScaleWidth - TreeView1.Width - 100
Frame1.Top = TDBGrid1.Height + Toolbar1.Height + 180
Frame1.Width = TDBGrid1.Width
ComboKEMU.Left = Form1.ScaleWidth - ComboKEMU.Width - 50
End If
End Sub
Private Sub MNU_DATA_EXIT_Click()
Unload Me
End Sub
Private Sub MNU_DATA_SAVE_Click()
On Error Resume Next
Adodc1.Recordset.Update
TDBGrid1.Update
Form_Load
End Sub
Private Sub MNU_M_KEMU_Click()
FormKEMUGL.Show 1
End Sub
Private Sub MNU_M_STU_Click()
FormInputS.Show 1
End Sub
Private Sub MNU_OUTPUT_CJ_Click()
On Error Resume Next
Adodc1.Recordset.Update
Form2.Show 1
End Sub
Private Sub POPMNU_DEL_Click()
If MsgBox("确定删除选定记录吗?该操作不可逆!", vbCritical + vbYesNo, "提示") = vbYes Then
TDBGrid1.Delete
End If
End Sub
Private Sub POPMNU_RF_Click()
TDBGrid1.Refresh
End Sub
Private Sub T3_GotFocus()
T3.BackColor = &HFFFFC0
End Sub
Private Sub T3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
T4.SetFocus
KeyAscii = 0
End If
End Sub
Private Sub T3_LostFocus()
T3.BackColor = &H80000005
End Sub
Private Sub T4_GotFocus()
T4.BackColor = &HFFFFC0
End Sub
Private Sub T4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CommandAdd.SetFocus
KeyAscii = 0
End If
End Sub
Private Sub T4_LostFocus()
T4.BackColor = &H80000005
End Sub
Private Sub TDBGrid1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then Adodc1.Recordset.Update
If InStr("0123456789./" + vbBack, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End Sub
Private Sub TDBGrid1_LostFocus()
On Error Resume Next
Adodc1.Recordset.Update
End Sub
Private Sub TDBGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 And Adodc1.Recordset.RecordCount <> 0 Then
PopupMenu POPMNU
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "学生管理"
On Error Resume Next
Adodc1.Recordset.Update
FormInputS.Show 1
Case "科目管理"
On Error Resume Next
Adodc1.Recordset.Update
FormKEMUGL.Show 1
Case "成绩分析"
On Error Resume Next
Adodc1.Recordset.Update
Form2.Show 1
Case "更改密码"
On Error Resume Next
frmLogin1.Show 1
Case "保存数据"
On Error Resume Next
Adodc1.Recordset.Update
TDBGrid1.Update
Form_Load
Case "关闭"
On Error Resume Next
Adodc1.Recordset.Update
Unload Me
End Select
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Screen.MousePointer = 13
Select Case Left(Node.Key, 1)
Case "C"
T1 = Left(Node.Text, 4)
T2 = Right(Node.Text, 3)
T3.SetFocus
Call FillTDBGrid(Left(Node.Text, 4), Right(Node.Text, 3))
Case "A"
Call FillTDBGrid(9999, 999)
Case Else
Call FillTDBGrid("nnnn", "nnn")
End Select
Screen.MousePointer = 0
End Sub