frm_sjlr.frm

来自「一个用VB做的试卷分析评估系统」· FRM 代码 · 共 532 行 · 第 1/2 页

      Left            =   4680
      TabIndex        =   20
      Top             =   960
      Width           =   1440
   End
   Begin VB.Label lbl_fen 
      AutoSize        =   -1  'True
      Caption         =   "第 一 大题分值："
      Height          =   180
      Index           =   0
      Left            =   4680
      TabIndex        =   19
      Top             =   600
      Width           =   1440
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "大题数："
      Height          =   180
      Left            =   720
      TabIndex        =   8
      Top             =   4440
      Width           =   720
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "满分数："
      Height          =   180
      Left            =   720
      TabIndex        =   7
      Top             =   3960
      Width           =   720
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "学生数："
      Height          =   180
      Left            =   720
      TabIndex        =   6
      Top             =   3480
      Width           =   720
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "学  期："
      Height          =   180
      Left            =   720
      TabIndex        =   5
      Top             =   3000
      Width           =   720
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "学  年："
      Height          =   180
      Left            =   720
      TabIndex        =   4
      Top             =   2520
      Width           =   720
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "班  级："
      Height          =   180
      Left            =   720
      TabIndex        =   3
      Top             =   2040
      Width           =   720
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "课  程："
      Height          =   180
      Left            =   720
      TabIndex        =   2
      Top             =   1560
      Width           =   720
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "教  师："
      Height          =   180
      Left            =   720
      TabIndex        =   1
      Top             =   1080
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "学  院："
      Height          =   180
      Left            =   720
      TabIndex        =   0
      Top             =   600
      Width           =   720
   End
End
Attribute VB_Name = "frm_sjlr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmb_classes_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_course_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_institute_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_teacher_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_term_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmb_year_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub cmd_cancel_Click()
Unload Me
End Sub

Private Sub cmd_next_Click()
Dim total_fen As Integer
Dim i As Integer
Dim RS As Recordset
For i = 0 To VBA.Val(txt_total_ti) - 1
    total_fen = total_fen + VBA.Val(txt_fen(i).Text)
Next i

If total_fen <> VBA.Val(txt_total_fen.Text) Then
   MsgBox "小分之和与总分不符！", , "仔细检查"
Else
  
'先向表shijuan插入记录
Set RS = DB.OpenRecordset("select * from shijuan")
RS.AddNew
RS!Institute = VBA.Trim(frm_sjlr.cmb_institute.Text)
RS!teacher = VBA.Trim(frm_sjlr.cmb_teacher.Text)
RS!Course = VBA.Trim(frm_sjlr.cmb_course.Text)
RS!Classes = VBA.Trim(frm_sjlr.cmb_classes.Text)
RS!Year = VBA.Trim(frm_sjlr.cmb_year.Text)
RS!Term = VBA.Trim(frm_sjlr.cmb_term.Text)
RS!stu_num = VBA.Trim(frm_sjlr.txt_stu_num.Text)
RS!total_fen = VBA.Trim(frm_sjlr.txt_total_fen.Text)
RS!total_ti = VBA.Trim(frm_sjlr.txt_total_ti.Text)
   RS!T1 = VBA.Val(VBA.Trim(txt_fen(0).Text))
   RS!T2 = VBA.Val(VBA.Trim(txt_fen(1).Text))
   RS!T3 = VBA.Val(VBA.Trim(txt_fen(2).Text))
   RS!T4 = VBA.Val(VBA.Trim(txt_fen(3).Text))
   RS!T5 = VBA.Val(VBA.Trim(txt_fen(4).Text))
   RS!T6 = VBA.Val(VBA.Trim(txt_fen(5).Text))
   RS!T7 = VBA.Val(VBA.Trim(txt_fen(6).Text))
   RS!T8 = VBA.Val(VBA.Trim(txt_fen(7).Text))
   RS!T9 = VBA.Val(VBA.Trim(txt_fen(8).Text))
   RS!T10 = VBA.Val(VBA.Trim(txt_fen(9).Text))
RS.Update
RS.Close

Set RS = DB.OpenRecordset("select SJID from shijuan order by SJID desc")
'RS.MoveLast
frm_cjlr.SJID = VBA.Trim(RS.Fields("SJID").Value)
RS.Close

   frm_cjlr.fen0 = VBA.Val(txt_fen(0).Text)
   frm_cjlr.fen1 = VBA.Val(txt_fen(1).Text)
   frm_cjlr.fen2 = VBA.Val(txt_fen(2).Text)
   frm_cjlr.fen3 = VBA.Val(txt_fen(3).Text)
   frm_cjlr.fen4 = VBA.Val(txt_fen(4).Text)
   frm_cjlr.fen5 = VBA.Val(txt_fen(5).Text)
   frm_cjlr.fen6 = VBA.Val(txt_fen(6).Text)
   frm_cjlr.fen7 = VBA.Val(txt_fen(7).Text)
   frm_cjlr.fen8 = VBA.Val(txt_fen(8).Text)
   frm_cjlr.fen9 = VBA.Val(txt_fen(9).Text)
   frm_cjlr.total_ti = VBA.Val(txt_total_ti.Text)
   
   Unload Me
   Frm_main.tform = "cjlr"
   frm_cjlr.Show
End If
End Sub

Private Sub Form_Load()
Dim i As Integer
Call Frm_main.menu_show(False) '菜单控制
Call combo_in("institute", cmb_institute)
Call combo_in("teacher", cmb_teacher)
Call combo_in("course", cmb_course)
Call combo_in("classes", cmb_classes)

For i = 0 To 9
    cmb_year.AddItem (VBA.Trim(VBA.Str(2000 + i) + "-" + VBA.Str(2001 + i)))
    If 2000 + i = Year(Now) Then
       cmb_year.ListIndex = i
    End If
Next i


For i = 0 To 9
    lbl_fen(i).Visible = False
    txt_fen(i).Visible = False
Next i
End Sub

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

Private Sub txt_stu_num_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
   KeyAscii = 0
End If
End Sub

Private Sub txt_total_fen_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
   KeyAscii = 0
End If
End Sub

Private Sub txt_total_ti_Change()
Dim i As Integer
If VBA.Val(txt_total_ti.Text) > 10 Then
   txt_total_ti.Text = 10
End If

For i = 0 To VBA.Val(txt_total_ti.Text) - 1
    lbl_fen(i).Visible = True
    txt_fen(i).Visible = True
    lbl_fen(i).Top = 600 + 3700 / VBA.Val(txt_total_ti.Text) * i
    txt_fen(i).Top = lbl_fen(i).Top
Next i
   
For i = VBA.Val(txt_total_ti.Text) To 9
    lbl_fen(i).Visible = False
    txt_fen(i).Visible = False
Next i
End Sub

Private Sub txt_total_ti_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
   KeyAscii = 0
End If
End Sub

Public Sub combo_in(tname As String, cmb As ComboBox)     '列表框数据初始化
Set RS = DB.OpenRecordset("select name from " + tname + " order by ID desc")
RS.MoveFirst
cmb.Clear
Do While Not RS.EOF
   cmb.AddItem (RS.Fields("name").Value)
   RS.MoveNext
Loop
cmb.Text = cmb.List(0)
End Sub