📄 frmaddcj.frm
字号:
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "英语："
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Index = 6
Left = -68925
TabIndex = 18
Top = 1680
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数学："
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Index = 5
Left = -70815
TabIndex = 17
Top = 1680
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "语文："
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Index = 4
Left = -72720
TabIndex = 16
Top = 1680
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓 名："
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 210
Index = 3
Left = -72480
TabIndex = 15
Top = 1080
Width = 930
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "学号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 210
Index = 2
Left = -69600
TabIndex = 14
Top = 600
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "考试号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Index = 0
Left = -72480
TabIndex = 13
Top = 600
Width = 915
End
End
End
Attribute VB_Name = "FrmAddCj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Ksxz As String
Dim Xxkbl As Double
Dim Bj As Integer
Dim i As Integer
Dim iCount As Integer
Dim AddFlg As Boolean
Dim RsCount As Integer
Dim rs As ADODB.Recordset
Dim Rs1 As ADODB.Recordset
Dim CmdExe As ADODB.Command
Private Sub Command11_Click()
End Sub
Private Sub Command13_Click()
SSTab1.Tab = 0
End Sub
Private Sub Command14_Click()
SSTab1.Tab = 2
End Sub
Private Sub Command15_Click()
SSTab1.Tab = 1
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command7_Click()
Pass
rs.Open "select * from 学籍表 where 班级='" & Trim(Combo1.Text) & "' order by 学号", Con, adOpenStatic, adLockPessimistic, adCmdText
If rs.EOF = True And rs.BOF = True Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command13.Enabled = False
rs.Close
MsgBox "请到学籍表中添加学生名单！", , "此班没有学生："
Exit Sub
Else
Frame1.Enabled = False
Frame2.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = False
Command8.Enabled = True
Command9.Enabled = True
Command13.Enabled = True
MsgBox Trim(Combo1.Text) & " 登分:" & Chr(13) & "考试性质：" & Trim(Text1.Text) & Chr(13) & "可以开始输入成绩了！", , App.Title
Command13.SetFocus
End If
List1.Clear
List1.AddItem "学号" & "-" & "姓名"
If rs.BOF And rs.EOF Then
Else
rs.MoveFirst
Do While rs.EOF = False
If Len(rs!学号) = 1 Then
List1.AddItem " 0" & rs!学号 & "--" & rs!姓名
Else
List1.AddItem " " & rs!学号 & "--" & rs!姓名
End If
rs.MoveNext
Loop
rs.MoveFirst
End If
Display
End Sub
Private Sub Command8_Click()
rs.Close
List1.Clear
Frame1.Enabled = True
Frame2.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Command13.Enabled = False
For i = 0 To 8
txtcj(i).Enabled = True
txtcj(i).Text = ""
Next i
End Sub
Private Sub Command9_Click()
On err GoTo err
For i = 0 To 9
If Trim(txtcj(i).Text) = "" Then
MsgBox "成绩第" & i + 1 & "项为空。如没有成绩，可用“0”填入！", , "成绩项不能为空"
Exit Sub
End If
Next i
txtcj(9).Text = txtcj(0) * 1 + txtcj(1) * 1 + txtcj(2) * 1 + txtcj(3) * 1 + txtcj(4) * 1 + txtcj(5) * 1 * (Text2.Text * 1) + txtcj(6) * 1 * (Text2.Text * 1) + txtcj(7) * 1 * (Text2.Text * 1) + txtcj(8) * 1 * (Text2.Text * 1)
If AddFlg = False Then
Rs1.Open "select 语文,数学,英语,物理,化学,政治,历史,地理,生物,总分 from 成绩表 where 考试号='" & Trim(KSH.Caption) & "' and 考试性质='" & Text1.Text & "'", Con, adOpenStatic, adLockPessimistic, adCmdText
Rs1!语文 = Trim(txtcj(0).Text)
Rs1!数学 = Trim(txtcj(1).Text)
Rs1!英语 = Trim(txtcj(2).Text)
Rs1!物理 = Trim(txtcj(3).Text)
Rs1!化学 = Trim(txtcj(4).Text)
Rs1!政治 = Trim(txtcj(5).Text) * 1 * (Text2.Text * 1)
Rs1!历史 = Trim(txtcj(6).Text) * 1 * (Text2.Text * 1)
Rs1!地理 = Trim(txtcj(7).Text) * 1 * (Text2.Text * 1)
Rs1!生物 = Trim(txtcj(8).Text) * 1 * (Text2.Text * 1)
Rs1!总分 = Trim(txtcj(9).Text)
Rs1.UpdateBatch adAffectAllChapters
SBar1.Panels.Item(1) = "修改成功保存！"
Rs1.Close
Else
CmdExe.ActiveConnection = Con
CmdExe.CommandText = "insert into 成绩表(考试号,语文,数学,英语,物理,化学,政治,历史,地理,生物,总分,考试性质) values " & "(" & KSH.Caption & "," & txtcj(0).Text & "," & txtcj(1).Text & "," & txtcj(2).Text & "," & txtcj(3).Text & "," & txtcj(4).Text & "," & txtcj(5).Text * 1 * (Text2.Text * 1) & "," & txtcj(6).Text * 1 * (Text2.Text * 1) & "," & txtcj(7).Text * 1 * (Text2.Text * 1) & "," & txtcj(8).Text * 1 * (Text2.Text * 1) & "," & txtcj(9).Text & ",'" & Text1.Text & "')"
CmdExe.Execute
SBar1.Panels.Item(1) = "添加成功保存！"
iCount = iCount + 1
End If
Label3.Caption = "共修改" & iCount & "条记录"
rs.MoveNext
Display
Exit Sub
err:
Call ExecErr(Date, Me.Caption, err.Number, err.Source, err.Description)
End Sub
Private Sub Form_Load()
AddFlg = False
iCount = 0
Set rs = New ADODB.Recordset
Set Rs1 = New ADODB.Recordset
Set CmdExe = New ADODB.Command
End Sub
Private Sub Command1_Click()
rs.MoveFirst
Display
End Sub
Private Sub Command2_Click()
With rs
.MovePrevious
If .BOF Then .MoveFirst
End With
Display
End Sub
Private Sub Command3_Click()
With rs
.MoveNext
If .EOF Then .MoveLast
End With
Display
End Sub
Private Sub Command4_Click()
rs.MoveLast
Display
End Sub
Private Sub List1_Click()
If List1.ListIndex < 1 Then
Else
rs.Move List1.ListIndex - 1, adBookmarkFirst
End If
Display
End Sub
Private Sub SSTab1_DblClick()
End Sub
Private Sub txtcj_GotFocus(Index As Integer)
For i = 0 To 8
If txtcj(i).Text = "0" Then
txtcj(i).Text = ""
End If
Next i
SBar1.Panels.Item(1) = "处于更改成绩状态！"
End Sub
Private Sub txtcj_KeyPress(Index As Integer, KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
Private Sub Pass()
If Text1.Text = "" Then
Ksxz = Date
Text1.Text = Ksxz
Else
Ksxz = Text1.Text
Text1.Text = Ksxz
End If
If Text2.Text = "" Then
Xxkbl = "1.0"
Text2.Text = Xxkbl
Else
Xxkbl = Text2.Text
Text2.Text = Xxkbl
End If
If Combo1.ListIndex = -1 Then
Bj = "101"
Combo1.Text = Bj
Else
Bj = Combo1.Text
Combo1.Text = Bj
End If
For i = 0 To 8
If Check1(i).Value = 1 Then
txtcj(i).Enabled = False
txtcj(i).Text = "0"
End If
Next i
End Sub
Private Sub Display()
If rs.EOF Then
rs.MoveLast
MsgBox "记录已到最后一条！"
End If
KSH.Caption = "" & rs!考试号
Xh.Caption = "" & rs!学号
XM.Caption = "" & rs!姓名
Rs1.Open "select a.考试号 as 考试号 ,a.学号 as 学号,a.姓名 as 姓名,b.语文 as 语文,b.数学 as 数学,b.英语 as 英语,b.物理 as 物理,b.化学 as 化学,b.政治 as 政治,b.历史 as 历史,b.地理 as 地理,b.生物 as 生物,b.总分 as 总分 from 学籍表 as a Left outer JOIN 成绩表 as b on a.考试号=b.考试号 where a.考试号='" & Trim(KSH.Caption) & "' and b.考试性质='" & Trim(Text1.Text) & "' order by a.学号", Con, adOpenStatic, adLockPessimistic, adCmdText
If Rs1.EOF = False And Rs1.BOF = False Then
AddFlg = False
txtcj(0).Text = "" & Rs1!语文
txtcj(1).Text = "" & Rs1!数学
txtcj(2).Text = "" & Rs1!英语
txtcj(3).Text = "" & Rs1!物理
txtcj(4).Text = "" & Rs1!化学
txtcj(5).Text = "" & Rs1!政治
txtcj(6).Text = "" & Rs1!历史
txtcj(7).Text = "" & Rs1!地理
txtcj(8).Text = "" & Rs1!生物
txtcj(9).Text = "" & Rs1!总分
Else
AddFlg = True
For i = 0 To 9
txtcj(i).Text = "0"
Next i
End If
Rs1.Close
End Sub
Private Sub txtcj_LostFocus(Index As Integer)
For i = 0 To 8
If txtcj(i).Text = "" Then
txtcj(i).Text = "0"
End If
Next i
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -