frmksxmwh.frm

考试分析系统 v0.6.0

         Top             =   1200
         Width           =   615
      End
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         Height          =   270
         Index           =   3
         Left            =   120
         MaxLength       =   3
         TabIndex        =   10
         Text            =   "100"
         Top             =   960
         Width           =   615
      End
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         Height          =   270
         Index           =   2
         Left            =   120
         MaxLength       =   3
         TabIndex        =   9
         Text            =   "100"
         Top             =   720
         Width           =   615
      End
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         Height          =   270
         Index           =   1
         Left            =   120
         MaxLength       =   3
         TabIndex        =   8
         Text            =   "100"
         Top             =   480
         Width           =   615
      End
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         Height          =   270
         Index           =   0
         Left            =   120
         MaxLength       =   3
         TabIndex        =   7
         Text            =   "100"
         Top             =   240
         Width           =   615
      End
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1440
      TabIndex        =   4
      Text            =   "Combo1"
      Top             =   200
      Width           =   2055
   End
   Begin VB.Frame Frame2 
      Caption         =   "参考课程："
      Enabled         =   0   'False
      Height          =   2775
      Left            =   2160
      TabIndex        =   2
      Top             =   720
      Width           =   1215
      Begin VB.ListBox List2 
         Height          =   2400
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "课程："
      Enabled         =   0   'False
      Height          =   2775
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   1215
      Begin VB.ListBox List1 
         Height          =   2400
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "考试名称："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   240
      TabIndex        =   5
      Top             =   240
      Width           =   1275
   End
End
Attribute VB_Name = "Frmksxmwh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub CmdSave_Click()
On Error GoTo err
    If List2.ListCount > 10 Then
        MsgBox "本测试版最大兼容10组课程统计!"
        Exit Sub
    End If
    If List2.ListCount < 1 Then
        MsgBox "请添加课程到参考课程列表!"
        Exit Sub
    End If
    
    Dim RsKSXM As ADODB.Command
    Set RsKSXM = New ADODB.Command
    RsKSXM.ActiveConnection = Con.ConnectionString
    For i = 0 To List2.ListCount - 1
        SqlString = "insert into 考试项目表(考试名称,参考课程,最大分值,分值比例,登分序号) values " & "('" & Combo1.Text & "','" & List2.List(i) & "','" & Text1(i).Text & "','" & Text1(19 - i).Text & "','" & i & "')"
       RsKSXM.CommandText = SqlString
       RsKSXM.Execute
    Next i
        Frame1.Enabled = False
        Frame2.Enabled = False
        Frame3.Enabled = False
        Frame4.Enabled = False
        Frame5.Enabled = False
        CmdSave.Enabled = False
Exit Sub
err:
MsgBox "存储错误！"
Call ExecErr(Date, Me.Caption, err.Number, err.Source, err.Description)
End Sub

Private Sub Combo1_Click()
If Combo1.ListIndex > -1 Then
    Dim RsXm As ADODB.Recordset
    Set RsXm = New ADODB.Recordset
    RsXm.Open "select * from 考试项目表 where 考试名称='" & Combo1.Text & "' order by  登分序号", Con, adOpenStatic, adLockPessimistic, adCmdText
    List2.Clear
    For C = 0 To 19
        Text1(C).Text = "100"
    Next C
    
    i = 0
    Do While Not RsXm.EOF
        List2.AddItem RsXm!参考课程
        Text1(i).Text = RsXm!最大分值
        Text1(19 - i).Text = RsXm!分值比例
        RsXm.MoveNext
        i = i + 1
    Loop
    
    If List2.ListCount > 0 Then
        Frame1.Enabled = False
        Frame2.Enabled = False
        Frame3.Enabled = False
        Frame4.Enabled = False
        Frame5.Enabled = False
        CmdSave.Enabled = False
    Else
        Frame1.Enabled = True
        Frame2.Enabled = True
        Frame3.Enabled = True
        Frame4.Enabled = True
        Frame5.Enabled = True
        CmdSave.Enabled = True
    End If
End If
End Sub

Private Sub Command1_Click()
    If List1.ListIndex > -1 Then
        List2.AddItem List1.List(List1.ListIndex)
        List1.RemoveItem (List1.ListIndex)
    End If
End Sub

Private Sub Command2_Click()
    If List1.ListCount > 0 Then
        For i = 0 To List1.ListCount - 1
            List2.AddItem List1.List(i)
        Next i
        List1.Clear
    End If
End Sub

Private Sub Command3_Click()
    If List2.ListIndex > -1 Then
        List1.AddItem List2.List(List2.ListIndex)
        List2.RemoveItem (List2.ListIndex)
    End If
End Sub

Private Sub Command4_Click()
    If List2.ListCount > 0 Then
        For i = 0 To List2.ListCount - 1
            List1.AddItem List2.List(i)
        Next i
        List2.Clear
    End If
End Sub

Private Sub Command6_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim RsKs As ADODB.Recordset
    Set RsKs = New ADODB.Recordset
    RsKs.Open "考试名称表", Con, adOpenStatic, adLockPessimistic, adCmdTable
    
    Dim RsKc As ADODB.Recordset
    Set RsKc = New ADODB.Recordset
    RsKc.Open "课程表", Con, adOpenStatic, adLockPessimistic, adCmdTable
    
    Combo1.Clear
    Do While Not RsKs.EOF
        Combo1.AddItem RsKs!考试名称
        RsKs.MoveNext
    Loop
    List1.Clear
    Do While Not RsKc.EOF
        List1.AddItem RsKc!课程
        RsKc.MoveNext
    Loop
    
    If Combo1.ListCount > 0 Then
        Combo1.ListIndex = 0
    End If
    
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then
       KeyAscii = 0
    End If
End Sub