📄 frmaddcj.frm
字号:
Left = -70815
TabIndex = 46
Top = 3120
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 = 12
Left = -68925
TabIndex = 45
Top = 3120
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 = &H008080FF&
Height = 210
Index = 13
Left = -69600
TabIndex = 44
Top = 1080
Width = 690
End
Begin VB.Label XM
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = -71520
TabIndex = 43
Top = 1030
Width = 180
End
Begin VB.Label KSH
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = -71520
TabIndex = 42
Top = 550
Width = 420
End
Begin VB.Label Xh
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = -68880
TabIndex = 41
Top = 550
Width = 420
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Left = -72480
TabIndex = 40
Top = 3720
Width = 90
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 Command13_Click()
SSTab1.Tab = 0
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
List1.ListIndex = 1
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 Error GoTo err
For i = 0 To 8
If Trim(txtcj(i).Text) > Text3.Text * 1 Then
MsgBox "成绩大于预定值！", , "成绩第" & i + 1 & "项错误"
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
If List1.ListIndex + 1 < List1.ListCount Then
List1.ListIndex = List1.ListIndex + 1
End If
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
List1.ListIndex = 1
Display
End Sub
Private Sub Command2_Click()
With rs
.MovePrevious
If .BOF Then
.MoveFirst
Else
List1.ListIndex = List1.ListIndex - 1
End If
End With
Display
End Sub
Private Sub Command3_Click()
With rs
.MoveNext
If rs.EOF Then
rs.MoveLast
Else
List1.ListIndex = List1.ListIndex + 1
End If
End With
Display
End Sub
Private Sub Command4_Click()
rs.MoveLast
List1.ListIndex = List1.ListCount - 1
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 Text3_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
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
Text1.Text = Date
End If
If Text2.Text = "" Then
Text2.Text = "1.0"
End If
If Combo1.ListIndex = -1 Then
Combo1.Text = "101"
End If
If Trim(Text3.Text) = "" Then
Text3.Text = "130"
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
List1.ListIndex = List1.ListIndex
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 + -