frm_cjlr2.frm

一个用VB做的试卷分析评估系统

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frm_cjlr 
   Caption         =   "成绩录入"
   ClientHeight    =   5385
   ClientLeft      =   2895
   ClientTop       =   3840
   ClientWidth     =   9060
   Icon            =   "frm_cjlr2.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5385
   ScaleWidth      =   9060
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command2 
      Caption         =   "结束成绩输入(&E)"
      Height          =   495
      Left            =   5400
      TabIndex        =   2
      Top             =   4680
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "删除当前记录(&D)"
      Height          =   495
      Left            =   1560
      TabIndex        =   1
      Top             =   4680
      Width           =   1575
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "frm_cjlr2.frx":030A
      Height          =   4455
      Left            =   0
      OleObjectBlob   =   "frm_cjlr2.frx":031E
      TabIndex        =   0
      Top             =   0
      Width           =   9060
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   405
      Left            =   3000
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "temp_cj"
      Top             =   6480
      Width           =   2295
   End
End
Attribute VB_Name = "frm_cjlr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public total_ti As Integer, SJID As Integer
Public fen0 As Integer
Public fen1 As Integer
Public fen2 As Integer
Public fen3 As Integer
Public fen4 As Integer
Public fen5 As Integer
Public fen6 As Integer
Public fen7 As Integer
Public fen8 As Integer
Public fen9 As Integer

Private fen(10) As Integer

Private Sub Command1_Click()
'Data1.Refresh
If DBGrid1.Columns(11) <> "" Then
   DB.Execute ("delete from temp_cj where id=" + DBGrid1.Columns(11))
End If
Data1.Refresh
End Sub


Private Sub Command2_Click()
Dim i As Integer, s1 As String, s2 As String
Dim RS As Recordset
Dim aa As Integer

'DBGrid1.Refresh
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
'If Not Data1.Recordset.EOF Then
Do While Not Data1.Recordset.EOF
   If VBA.Trim(VBA.Str(DBGrid1.Columns(0))) = "" Then
      MsgBox "学号不能为空！", vbCritical, "输入错误"
      DBGrid1.SetFocus
       Exit Sub
   ElseIf Len(VBA.Trim(DBGrid1.Columns(0))) < 10 Then
       MsgBox "学号位数不足10位！", vbCritical, "输入错误"
       DBGrid1.SetFocus
       Exit Sub
   End If
   For i = 1 To total_ti
      If VBA.Trim(DBGrid1.Columns(i)) = "" Or VBA.Val(VBA.Trim(DBGrid1.Columns(i))) > fen(i - 1) Then
         MsgBox "得分不能超过本大题分值范围：0 ～ " + VBA.Str(fen(i - 1)), vbCritical, "输入错误"
         DBGrid1.SetFocus
         'DBGrid1.Column(1).SetFocus
         'DBGrid1.Columns [2].getfocus
         Exit Sub
      End If
   Next i
   Data1.Recordset.MoveNext
Loop


aa = MsgBox("要结束修改吗？", vbOKCancel, "确认")
If aa = 1 Then

Set RS = DB.OpenRecordset("select * from stu_cj ")
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
   For i = 1 To 10
      If VBA.Trim(DBGrid1.Columns(i)) = "" Then
         DBGrid1.Columns(i) = "0"
      End If
   Next i
   RS.AddNew
   RS!SJID = SJID
   RS!SID = DBGrid1.Columns(0)
   RS!T1 = VBA.Val(VBA.Trim(DBGrid1.Columns(1)))
   RS!T2 = VBA.Val(VBA.Trim(DBGrid1.Columns(2)))
   RS!T3 = VBA.Val(VBA.Trim(DBGrid1.Columns(3)))
   RS!T4 = VBA.Val(VBA.Trim(DBGrid1.Columns(4)))
   RS!T5 = VBA.Val(VBA.Trim(DBGrid1.Columns(5)))
   RS!T6 = VBA.Val(VBA.Trim(DBGrid1.Columns(6)))
   RS!T7 = VBA.Val(VBA.Trim(DBGrid1.Columns(7)))
   RS!T8 = VBA.Val(VBA.Trim(DBGrid1.Columns(8)))
   RS!T9 = VBA.Val(VBA.Trim(DBGrid1.Columns(9)))
   RS!T10 = VBA.Val(VBA.Trim(DBGrid1.Columns(10)))
   RS.Update
   Data1.Recordset.MoveNext
Loop
Unload Me
End If
Else
   MsgBox "您没有输入任何数据，请输入！", vbCritical, "输入错误"
End If
End Sub

Private Sub DBGrid1_AfterColEdit(ByVal ColIndex As Integer)
DBGrid1.Refresh
End Sub

Private Sub Form_Load()
Dim i As Integer

Call Frm_main.menu_show(False) '菜单控制

Data1.DatabaseName = DName
DB.Execute ("delete from temp_cj")
Me.Data1.Refresh

For i = total_ti + 1 To 10
   DBGrid1.Columns(i).Visible = False
Next

fen(0) = fen0
fen(1) = fen1
fen(2) = fen2
fen(3) = fen3
fen(4) = fen4
fen(5) = fen5
fen(6) = fen6
fen(7) = fen7
fen(8) = fen8
fen(9) = fen9

End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Frm_main.menu_show(True) '菜单控制
End Sub