addstuscore.frm

用ASP编写的程序用的是VB脚本

         Left            =   600
         TabIndex        =   3
         Text            =   "Combo1"
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label Label7 
         Caption         =   "姓名"
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   660
         Width           =   375
      End
      Begin VB.Label Label6 
         Caption         =   "学分"
         Height          =   255
         Left            =   4560
         TabIndex        =   11
         Top             =   660
         Width           =   375
      End
      Begin VB.Label Label5 
         Caption         =   "成绩"
         Height          =   375
         Left            =   2280
         TabIndex        =   10
         Top             =   660
         Width           =   375
      End
      Begin VB.Label Label4 
         Caption         =   "课程名"
         Height          =   255
         Left            =   4440
         TabIndex        =   7
         Top             =   315
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "学号"
         Height          =   255
         Left            =   2280
         TabIndex        =   5
         Top             =   315
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "专业"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   320
         Width           =   615
      End
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "学生成绩录入"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2400
      TabIndex        =   0
      Top             =   120
      Width           =   2070
   End
End
Attribute VB_Name = "AddStuScore"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private SqlCon As New ADODB.Connection
Private SqlRes As ADODB.Recordset
Private SqlCmd As New ADODB.Command


Private Sub Form_Load()
    SqlCon.Provider = "SQLOLEDB"
    SqlCon.Open "Server=DCR;DataBase=XSCJ;UID=sa;PWD=;"
    SqlCmd.ActiveConnection = SqlCon
    '添加课程
    SqlCmd.CommandText = "Select * from KC"
    SqlCmd.CommandType = adCmdText
    Set SqlRes = SqlCmd.Execute
     StuKCM.Text = SqlRes("KCM")
    While Not SqlRes.EOF
        StuKCM.AddItem (Trim(SqlRes("KCM")))
        SqlRes.MoveNext
    Wend
    '添加专业
    SqlCmd.CommandText = "GetStuZy"
    SqlCmd.CommandType = adCmdStoredProc
    Set SqlRes = SqlCmd.Execute
     StuZY.Text = SqlRes("ZY")
    While Not SqlRes.EOF
        StuZY.AddItem (SqlRes("ZY"))
        SqlRes.MoveNext
    Wend
    StuZY_Click
    StuXH_Click
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SqlRes.Close
    SqlCon.Close
End Sub

Private Sub StuADO_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    If Not pRecordset.EOF And Not pRecordset.BOF Then
        StuXH.Text = pRecordset("XH")
        StuXM.Text = pRecordset("XM")
        StuZY.Text = pRecordset("ZY")
        StuKCM.Text = pRecordset("KCM")
        StuCJ.Text = pRecordset("CJ")
        StuXF.Text = CStr(pRecordset("XF") & "")
     End If
End Sub



Private Sub StuDel_Click()
    Ret = MsgBox("是否要删除" + StuXH.Text + "号学生的" + Trim(StuKCM.Text) + "课的成绩记录！", vbYesNo, "提示")
    If Ret = vbYes Then
        SqlCmd.ActiveConnection = SqlCon
        SqlCmd.CommandText = "delete from XS_KC where XH='" + StuXH.Text + "' and KCH='" + StuADO.Recordset("KCH") + "'"
        SqlCmd.CommandType = adCmdText
        SqlCmd.Execute
        StuADO.RecordSource = "select XS.XH,XM,ZY,KC.KCH,KCM,CJ,XS_KC.XF as XF from XS,KC,XS_KC" _
        & " where XS.XH=XS_KC.XH and KC.KCH=XS_KC.KCH"
        StuADO.Refresh
    End If
End Sub

Private Sub StuKCM_Click()
    Dim StXH, StKCM
    SqlCmd.CommandText = "ShowScore"
    SqlCmd.CommandType = adCmdStoredProc
    Set StXH = SqlCmd.CreateParameter("@XH", adVarChar, adParamInput, 6)
    SqlCmd.Parameters.Append (StXH)
    Set StKCM = SqlCmd.CreateParameter("@KCM", adVarChar, adParamInput, 16)
    SqlCmd.Parameters.Append (StKCM)
    SqlCmd("@XH") = StuXH.Text
    SqlCmd("@KCM") = StuKCM.Text
    
    Set SqlRes = SqlCmd.Execute
    StuXH.Text = SqlRes("XH")
    
    While Not SqlRes.EOF
        If SqlRes.Fields.Count = 2 Then
            StuXM.Text = SqlRes("XM")
            StuCJ.Text = ""
            StuXF.Text = ""
        Else
            StuXM.Text = SqlRes("XM")
            StuCJ.Text = SqlRes("CJ")
            StuXF.Text = CStr(SqlRes("XF") & "")
        End If
        SqlRes.MoveNext
    Wend
    SqlCmd.Parameters.Delete ("@XH")
    SqlCmd.Parameters.Delete ("@KCM")
End Sub

Private Sub StuUpd_Click()
    Dim StXH, StKCM, StCJ, StXF
    If Trim(StuCJ.Text) = "" Or Trim(StuXF.Text) = "" Then
        MsgBox "输入完整的信息！", , "提示"
        Exit Sub
    End If
    SqlCmd.CommandText = "AddStuScore"
    SqlCmd.CommandType = adCmdStoredProc
    '创建参数对象
    Set StXH = SqlCmd.CreateParameter("@XH", adVarChar, adParamInput, 6)
    SqlCmd.Parameters.Append (StXH)
    Set StKCM = SqlCmd.CreateParameter("@KCM", adVarChar, adParamInput, 16)
    SqlCmd.Parameters.Append (StKCM)
    Set StCJ = SqlCmd.CreateParameter("@CJ", adInteger, adParamInput)
    SqlCmd.Parameters.Append (StCJ)
    Set StXF = SqlCmd.CreateParameter("@XF", adInteger, adParamInput)
    SqlCmd.Parameters.Append (StXF)
    '为参数赋值
    SqlCmd("@XH") = StuXH.Text
    SqlCmd("@KCM") = StuKCM.Text
    SqlCmd("@CJ") = CInt(StuCJ.Text)
    SqlCmd("@XF") = CInt(StuXF.Text)
    Set SqlRes = SqlCmd.Execute
    SqlCmd.Parameters.Delete ("@XH")
    SqlCmd.Parameters.Delete ("@KCM")
    SqlCmd.Parameters.Delete ("@CJ")
    SqlCmd.Parameters.Delete ("@XF")
    StuADO.RecordSource = "select XS.XH,XM,ZY,KC.KCH,KCM,CJ,XS_KC.XF as XF from XS,KC,XS_KC" _
        & " where XS.XH=XS_KC.XH and KC.KCH=XS_KC.KCH"
    StuADO.Refresh
End Sub

Private Sub StuXH_Click()
    Dim StXH, StKCM
    SqlCmd.CommandText = "ShowScore"
    SqlCmd.CommandType = adCmdStoredProc
    Set StXH = SqlCmd.CreateParameter("@XH", adVarChar, adParamInput, 6)
    SqlCmd.Parameters.Append (StXH)
    Set StKCM = SqlCmd.CreateParameter("@KCM", adVarChar, adParamInput, 16)
    SqlCmd.Parameters.Append (StKCM)
    SqlCmd("@XH") = StuXH.Text
    SqlCmd("@KCM") = StuKCM.Text
    
    Set SqlRes = SqlCmd.Execute
    StuXH.Text = SqlRes("XH")
    
    While Not SqlRes.EOF
        If SqlRes.Fields.Count = 2 Then
            StuXM.Text = SqlRes("XM")
            StuCJ.Text = ""
            StuXF.Text = ""
        Else
            StuXM.Text = SqlRes("XM")
            StuCJ.Text = SqlRes("CJ")
            StuXF.Text = CStr(SqlRes("XF") & "")
        End If
        SqlRes.MoveNext
    Wend
    SqlCmd.Parameters.Delete ("@XH")
    SqlCmd.Parameters.Delete ("@KCM")
End Sub

Private Sub StuZY_Click()
    SqlCmd.CommandText = "Select * from XS where ZY='" + Trim(StuZY.Text) + "'"
    SqlCmd.CommandType = adCmdText
    Set SqlRes = SqlCmd.Execute
    StuXH.Text = SqlRes("XH")
    While Not SqlRes.EOF
        StuXH.AddItem (Trim(SqlRes("XH")))
        SqlRes.MoveNext
    Wend
End Sub