开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
frmModifyresult.frm
资源名称：studentinformationmanagement.rar　[点击查看]
上传用户：rocksue
上传日期：2013-06-17
资源大小：41926k
文件大小：20k
源码类别：

SQL Server

开发平台：

SQL

frmModifyresult.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmModifyresult 
  3.    Caption         =   "修改成绩信息"
  4.    ClientHeight    =   5280
  5.    ClientLeft      =   48
  6.    ClientTop       =   348
  7.    ClientWidth     =   7632
  8.    LinkTopic       =   "Form1"
  9.    MDIChild        =   -1  'True
  10.    ScaleHeight     =   5280
  11.    ScaleWidth      =   7632
  12.    Begin VB.Frame Frame2 
  13.       Caption         =   "查看成绩信息"
  14.       BeginProperty Font 
  15.          Name            =   "MS Sans Serif"
  16.          Size            =   12
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   1092
  24.       Left            =   360
  25.       TabIndex        =   17
  26.       Top             =   2640
  27.       Width           =   6972
  28.       Begin VB.CommandButton lastCommand 
  29.          Caption         =   "最后一条记录"
  30.          BeginProperty Font 
  31.             Name            =   "MS Sans Serif"
  32.             Size            =   12
  33.             Charset         =   0
  34.             Weight          =   400
  35.             Underline       =   0   'False
  36.             Italic          =   0   'False
  37.             Strikethrough   =   0   'False
  38.          EndProperty
  39.          Height          =   492
  40.          Left            =   4920
  41.          TabIndex        =   21
  42.          Top             =   360
  43.          Width           =   1692
  44.       End
  45.       Begin VB.CommandButton nextCommand 
  46.          Caption         =   "下一条记录"
  47.          BeginProperty Font 
  48.             Name            =   "MS Sans Serif"
  49.             Size            =   12
  50.             Charset         =   0
  51.             Weight          =   400
  52.             Underline       =   0   'False
  53.             Italic          =   0   'False
  54.             Strikethrough   =   0   'False
  55.          EndProperty
  56.          Height          =   492
  57.          Left            =   3360
  58.          TabIndex        =   20
  59.          Top             =   360
  60.          Width           =   1452
  61.       End
  62.       Begin VB.CommandButton previousCommand 
  63.          Caption         =   "上一条记录"
  64.          BeginProperty Font 
  65.             Name            =   "MS Sans Serif"
  66.             Size            =   12
  67.             Charset         =   0
  68.             Weight          =   400
  69.             Underline       =   0   'False
  70.             Italic          =   0   'False
  71.             Strikethrough   =   0   'False
  72.          EndProperty
  73.          Height          =   492
  74.          Left            =   1800
  75.          TabIndex        =   19
  76.          Top             =   360
  77.          Width           =   1452
  78.       End
  79.       Begin VB.CommandButton firstCommand 
  80.          Caption         =   "第一条记录"
  81.          BeginProperty Font 
  82.             Name            =   "MS Sans Serif"
  83.             Size            =   12
  84.             Charset         =   0
  85.             Weight          =   400
  86.             Underline       =   0   'False
  87.             Italic          =   0   'False
  88.             Strikethrough   =   0   'False
  89.          EndProperty
  90.          Height          =   492
  91.          Left            =   240
  92.          TabIndex        =   18
  93.          Top             =   360
  94.          Width           =   1452
  95.       End
  96.    End
  97.    Begin VB.Frame Frame3 
  98.       Caption         =   "修改成绩信息"
  99.       BeginProperty Font 
  100.          Name            =   "MS Sans Serif"
  101.          Size            =   12
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   1092
  109.       Left            =   360
  110.       TabIndex        =   12
  111.       Top             =   3840
  112.       Width           =   6972
  113.       Begin VB.CommandButton deleteCommand 
  114.          Caption         =   "删除记录"
  115.          BeginProperty Font 
  116.             Name            =   "MS Sans Serif"
  117.             Size            =   12
  118.             Charset         =   0
  119.             Weight          =   400
  120.             Underline       =   0   'False
  121.             Italic          =   0   'False
  122.             Strikethrough   =   0   'False
  123.          EndProperty
  124.          Height          =   492
  125.          Left            =   5160
  126.          TabIndex        =   16
  127.          Top             =   360
  128.          Width           =   1452
  129.       End
  130.       Begin VB.CommandButton cancelCommand 
  131.          Caption         =   "取消修改记录"
  132.          BeginProperty Font 
  133.             Name            =   "MS Sans Serif"
  134.             Size            =   12
  135.             Charset         =   0
  136.             Weight          =   400
  137.             Underline       =   0   'False
  138.             Italic          =   0   'False
  139.             Strikethrough   =   0   'False
  140.          EndProperty
  141.          Height          =   492
  142.          Left            =   3360
  143.          TabIndex        =   15
  144.          Top             =   360
  145.          Width           =   1692
  146.       End
  147.       Begin VB.CommandButton updateCommand 
  148.          Caption         =   "更新数据"
  149.          BeginProperty Font 
  150.             Name            =   "MS Sans Serif"
  151.             Size            =   12
  152.             Charset         =   0
  153.             Weight          =   400
  154.             Underline       =   0   'False
  155.             Italic          =   0   'False
  156.             Strikethrough   =   0   'False
  157.          EndProperty
  158.          Height          =   492
  159.          Left            =   1800
  160.          TabIndex        =   14
  161.          Top             =   360
  162.          Width           =   1452
  163.       End
  164.       Begin VB.CommandButton editCommand 
  165.          Caption         =   "修改记录"
  166.          BeginProperty Font 
  167.             Name            =   "MS Sans Serif"
  168.             Size            =   12
  169.             Charset         =   0
  170.             Weight          =   400
  171.             Underline       =   0   'False
  172.             Italic          =   0   'False
  173.             Strikethrough   =   0   'False
  174.          EndProperty
  175.          Height          =   492
  176.          Left            =   240
  177.          TabIndex        =   13
  178.          Top             =   360
  179.          Width           =   1452
  180.       End
  181.    End
  182.    Begin VB.ComboBox comboClassno 
  183.       BeginProperty Font 
  184.          Name            =   "宋体"
  185.          Size            =   10.8
  186.          Charset         =   0
  187.          Weight          =   700
  188.          Underline       =   0   'False
  189.          Italic          =   0   'False
  190.          Strikethrough   =   0   'False
  191.       EndProperty
  192.       Height          =   312
  193.       ItemData        =   "frmModifyresult.frx":0000
  194.       Left            =   4800
  195.       List            =   "frmModifyresult.frx":0002
  196.       TabIndex        =   5
  197.       Top             =   480
  198.       Width           =   1332
  199.    End
  200.    Begin VB.ComboBox comboSID 
  201.       BeginProperty Font 
  202.          Name            =   "宋体"
  203.          Size            =   10.8
  204.          Charset         =   0
  205.          Weight          =   700
  206.          Underline       =   0   'False
  207.          Italic          =   0   'False
  208.          Strikethrough   =   0   'False
  209.       EndProperty
  210.       Height          =   312
  211.       ItemData        =   "frmModifyresult.frx":0004
  212.       Left            =   1800
  213.       List            =   "frmModifyresult.frx":0006
  214.       TabIndex        =   4
  215.       Top             =   960
  216.       Width           =   1332
  217.    End
  218.    Begin VB.TextBox txtName 
  219.       BeginProperty Font 
  220.          Name            =   "宋体"
  221.          Size            =   10.8
  222.          Charset         =   0
  223.          Weight          =   700
  224.          Underline       =   0   'False
  225.          Italic          =   0   'False
  226.          Strikethrough   =   0   'False
  227.       EndProperty
  228.       Height          =   372
  229.       Left            =   4800
  230.       TabIndex        =   3
  231.       Top             =   960
  232.       Width           =   1332
  233.    End
  234.    Begin VB.TextBox txtResult 
  235.       BeginProperty Font 
  236.          Name            =   "宋体"
  237.          Size            =   10.8
  238.          Charset         =   0
  239.          Weight          =   700
  240.          Underline       =   0   'False
  241.          Italic          =   0   'False
  242.          Strikethrough   =   0   'False
  243.       EndProperty
  244.       Height          =   372
  245.       Left            =   4800
  246.       TabIndex        =   2
  247.       Top             =   1440
  248.       Width           =   1332
  249.    End
  250.    Begin VB.ComboBox comboCourse 
  251.       BeginProperty Font 
  252.          Name            =   "宋体"
  253.          Size            =   10.8
  254.          Charset         =   0
  255.          Weight          =   700
  256.          Underline       =   0   'False
  257.          Italic          =   0   'False
  258.          Strikethrough   =   0   'False
  259.       EndProperty
  260.       Height          =   312
  261.       ItemData        =   "frmModifyresult.frx":0008
  262.       Left            =   1800
  263.       List            =   "frmModifyresult.frx":000A
  264.       TabIndex        =   1
  265.       Top             =   1560
  266.       Width           =   1332
  267.    End
  268.    Begin VB.ComboBox comboExamtype 
  269.       BeginProperty Font 
  270.          Name            =   "宋体"
  271.          Size            =   10.8
  272.          Charset         =   0
  273.          Weight          =   700
  274.          Underline       =   0   'False
  275.          Italic          =   0   'False
  276.          Strikethrough   =   0   'False
  277.       EndProperty
  278.       Height          =   312
  279.       ItemData        =   "frmModifyresult.frx":000C
  280.       Left            =   1800
  281.       List            =   "frmModifyresult.frx":000E
  282.       TabIndex        =   0
  283.       Top             =   480
  284.       Width           =   1332
  285.    End
  286.    Begin VB.Label Label1 
  287.       Caption         =   "选择班号："
  288.       BeginProperty Font 
  289.          Name            =   "宋体"
  290.          Size            =   10.8
  291.          Charset         =   0
  292.          Weight          =   700
  293.          Underline       =   0   'False
  294.          Italic          =   0   'False
  295.          Strikethrough   =   0   'False
  296.       EndProperty
  297.       Height          =   252
  298.       Left            =   3360
  299.       TabIndex        =   11
  300.       Top             =   480
  301.       Width           =   1332
  302.    End
  303.    Begin VB.Label Label2 
  304.       Caption         =   "选择学号："
  305.       BeginProperty Font 
  306.          Name            =   "宋体"
  307.          Size            =   10.8
  308.          Charset         =   0
  309.          Weight          =   700
  310.          Underline       =   0   'False
  311.          Italic          =   0   'False
  312.          Strikethrough   =   0   'False
  313.       EndProperty
  314.       Height          =   252
  315.       Left            =   480
  316.       TabIndex        =   10
  317.       Top             =   960
  318.       Width           =   1212
  319.    End
  320.    Begin VB.Label Label3 
  321.       Caption         =   "姓名："
  322.       BeginProperty Font 
  323.          Name            =   "宋体"
  324.          Size            =   10.8
  325.          Charset         =   0
  326.          Weight          =   700
  327.          Underline       =   0   'False
  328.          Italic          =   0   'False
  329.          Strikethrough   =   0   'False
  330.       EndProperty
  331.       Height          =   252
  332.       Left            =   3600
  333.       TabIndex        =   9
  334.       Top             =   1080
  335.       Width           =   732
  336.    End
  337.    Begin VB.Label Label4 
  338.       Caption         =   "输入分数："
  339.       BeginProperty Font 
  340.          Name            =   "宋体"
  341.          Size            =   10.8
  342.          Charset         =   0
  343.          Weight          =   700
  344.          Underline       =   0   'False
  345.          Italic          =   0   'False
  346.          Strikethrough   =   0   'False
  347.       EndProperty
  348.       Height          =   252
  349.       Left            =   3600
  350.       TabIndex        =   8
  351.       Top             =   1560
  352.       Width           =   1332
  353.    End
  354.    Begin VB.Label Label5 
  355.       Caption         =   "选择课程："
  356.       BeginProperty Font 
  357.          Name            =   "宋体"
  358.          Size            =   10.8
  359.          Charset         =   0
  360.          Weight          =   700
  361.          Underline       =   0   'False
  362.          Italic          =   0   'False
  363.          Strikethrough   =   0   'False
  364.       EndProperty
  365.       Height          =   252
  366.       Left            =   480
  367.       TabIndex        =   7
  368.       Top             =   1560
  369.       Width           =   1212
  370.    End
  371.    Begin VB.Label Label6 
  372.       Caption         =   "考试编号："
  373.       BeginProperty Font 
  374.          Name            =   "宋体"
  375.          Size            =   10.8
  376.          Charset         =   0
  377.          Weight          =   700
  378.          Underline       =   0   'False
  379.          Italic          =   0   'False
  380.          Strikethrough   =   0   'False
  381.       EndProperty
  382.       Height          =   252
  383.       Left            =   480
  384.       TabIndex        =   6
  385.       Top             =   480
  386.       Width           =   1212
  387.    End
  388. End
  389. Attribute VB_Name = "frmModifyresult"
  390. Attribute VB_GlobalNameSpace = False
  391. Attribute VB_Creatable = False
  392. Attribute VB_PredeclaredId = True
  393. Attribute VB_Exposed = False
  394. Dim mrc As ADODB.Recordset
  395. Dim myBookmark As Variant
  397. Private Sub cancelCommand_Click()
  398.     mrc.Bookmark = myBookmark
  399.     Call viewData
  400.         
  401.     firstCommand.Enabled = True
  402.     lastCommand.Enabled = True
  403.     previousCommand.Enabled = True
  404.     nextCommand.Enabled = True
  405.     
  406.     updateCommand.Enabled = False
  407.     cancelCommand.Enabled = False
  408.     
  409.     comboExamtype.Enabled = False
  410.     comboClassno.Enabled = False
  411.     comboSID.Enabled = False
  412.     comboCourse.Enabled = False
  413.     txtName.Enabled = False
  414.     txtResult.Enabled = False
  415.     
  416. End Sub
  418. Private Sub comboSID_Click()
  419.     Dim mrcc As ADODB.Recordset
  420.     Dim txtSQL As String
  421.     Dim MsgText As String
  422.     
  423.     txtSQL = "select * from student_Info where student_ID = '" & comboSID.Text & "'"
  424.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  425.     txtName.Text = mrcc!student_Name
  426.     mrcc.Close
  427.     
  428. End Sub
  432. Private Sub deleteCommand_Click()
  433.     Dim MsgText As String
  434.     
  435.     myBookmark = mrc.Bookmark
  436.     str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
  437.     If str2$ = vbOK Then
  438.             mrc.MoveNext
  439.             If mrc.EOF Then
  440.                 mrc.MoveFirst
  441.                 myBookmark = mrc.Bookmark
  442.                 mrc.MoveLast
  443.                 mrc.Delete
  444.                 mrc.Close
  445.                 
  446.                 txtSQL = "select * from result_Info"
  447.                 Set mrc = ExecuteSQL(txtSQL, MsgText)
  448.                 mrc.MoveLast
  449.                 Call viewData
  450.             Else
  451.                 myBookmark = mrc.Bookmark
  452.                 mrc.MovePrevious
  453.                 mrc.Delete
  454.                 mrc.Close
  455.                 
  456.                 txtSQL = "select * from result_Info"
  457.                 Set mrc = ExecuteSQL(txtSQL, MsgText)
  458.                 mrc.MoveLast
  459.                 Call viewData
  460.             End If
  461.     Else
  462.         mrc.Bookmark = myBookmark
  463.         Call viewData
  464.     End If
  465. End Sub
  467. Private Sub editCommand_Click()
  468.     Dim mrcc As ADODB.Recordset
  469.     Dim txtSQL As String
  470.     Dim MsgText As String
  471.     
  472.     
  473.     
  474.     firstCommand.Enabled = False
  475.     lastCommand.Enabled = False
  476.     previousCommand.Enabled = False
  477.     nextCommand.Enabled = False
  478.     
  479.     updateCommand.Enabled = True
  480.     cancelCommand.Enabled = True
  481.     
  482.     comboExamtype.Enabled = True
  483.     comboClassno.Enabled = True
  484.     comboSID.Enabled = True
  485.     comboCourse.Enabled = True
  486.     txtName.Enabled = True
  487.     txtResult.Enabled = True
  488.     
  489.     comboExamtype.AddItem "2000期中"
  490.     comboExamtype.AddItem "2000期末"
  491.     comboExamtype.AddItem "2001期中"
  492.     comboExamtype.AddItem "2001期末"
  493.     
  494.     txtSQL = "select * from class_Info "
  495.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  496.     While (mrcc.EOF = False)
  497.         comboClassno.AddItem mrcc!class_No
  498.         mrcc.MoveNext
  499.     Wend
  500.     mrcc.Close
  501.     myBookmark = mrc.Bookmark
  502.     
  503. End Sub
  505. Private Sub firstCommand_Click()
  506.     mrc.MoveFirst
  507.     Call viewData
  508. End Sub
  510. Private Sub Form_Load()
  511.     Dim txtSQL As String
  512.     Dim MsgText As String
  513.     
  514.     comboExamtype.Enabled = False
  515.     comboClassno.Enabled = False
  516.     comboSID.Enabled = False
  517.     comboCourse.Enabled = False
  518.     txtName.Enabled = False
  519.     txtResult.Enabled = False
  520.     updateCommand.Enabled = False
  521.     cancelCommand.Enabled = False
  522.     
  523.     
  524.     txtSQL = "select * from result_Info "
  525.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  526.     
  527.     If mrc.EOF = False Then
  528.         mrc.MoveFirst
  529.         Call viewData
  530.         myBookmark = mrc.Bookmark
  531.     Else
  532.         MsgBox "没有纪录！", vbOKOnly + vbExclamation, "警告"
  533.         Exit Sub
  534.     End If
  535.     
  536.     
  537. End Sub
  539. Public Sub viewData()
  540.     comboExamtype.Text = mrc!exam_No
  541.     comboClassno.Text = mrc!class_No
  542.     comboSID.Text = mrc!student_ID
  543.     comboCourse.Text = mrc!course_Name
  544.     txtName.Text = mrc!student_Name
  545.     txtResult.Text = mrc!result
  546. End Sub
  551.     
  552. Private Sub lastCommand_Click()
  553.     mrc.MoveLast
  554.     Call viewData
  555. End Sub
  557. Private Sub nextCommand_Click()
  558.     mrc.MoveNext
  559.     If mrc.EOF Then
  560.         mrc.MoveFirst
  561.     End If
  562.     Call viewData
  563. End Sub
  565. Private Sub previousCommand_Click()
  566.     mrc.MovePrevious
  567.     If mrc.BOF Then
  568.         mrc.MoveLast
  569.     End If
  570.     Call viewData
  571. End Sub
  573. Private Sub updateCommand_Click()
  574.     Dim MsgText As String
  575.     
  576.     
  577.       
  578.         
  579.     If Not Testtxt(comboExamtype.Text) Then
  580.         MsgBox "请输入考试编号!", vbOKOnly + vbExclamation, "警告"
  581.         Exit Sub
  582.     End If
  583.     
  584.     If Not Testtxt(comboClassno.Text) Then
  585.         MsgBox "请选择班号!", vbOKOnly + vbExclamation, "警告"
  586.         Exit Sub
  587.     End If
  588.     
  589.     If Not Testtxt(comboSID.Text) Then
  590.         MsgBox "请选择学号!", vbOKOnly + vbExclamation, "警告"
  591.         Exit Sub
  592.     End If
  593.     
  594.     If Not Testtxt(comboCourse.Text) Then
  595.         MsgBox "请选择课程!", vbOKOnly + vbExclamation, "警告"
  596.         Exit Sub
  597.     End If
  598.     
  599.     If Not Testtxt(txtResult.Text) Then
  600.         MsgBox "请输入分数!", vbOKOnly + vbExclamation, "警告"
  601.         Exit Sub
  602.     End If
  603.     
  604.     If Not IsNumeric(txtResult.Text) Then
  605.         MsgBox "分数请输入数字!", vbOKOnly + vbExclamation, "警告"
  606.         Exit Sub
  607.     End If
  608.     
  609.     
  610.         mrc.Fields(0) = comboExamtype.Text
  611.         mrc.Fields(1) = comboSID.Text
  612.         mrc.Fields(2) = txtName.Text
  613.         mrc.Fields(3) = comboClassno.Text
  614.         mrc.Fields(4) = comboCourse.Text
  615.         mrc.Fields(5) = txtResult.Text
  616.         mrc.Update
  617.         mrc.Close
  618.        
  619.         MsgBox "修改成绩成功！", vbOKOnly + vbExclamation, "警告"
  620.         comboExamtype.Clear
  621.         comboClassno.Clear
  622.         comboSID.Clear
  623.         comboCourse.Clear
  624.         
  625.         txtSQL = "select * from result_Info"
  626.         Set mrc = ExecuteSQL(txtSQL, MsgText)
  627.         
  628.         mrc.MoveLast
  629.         Call viewData
  630.         
  631.         firstCommand.Enabled = True
  632.         lastCommand.Enabled = True
  633.         previousCommand.Enabled = True
  634.         nextCommand.Enabled = True
  635.     
  636.         updateCommand.Enabled = False
  637.         cancelCommand.Enabled = False
  638.     
  639.         comboExamtype.Enabled = False
  640.         comboClassno.Enabled = False
  641.         comboSID.Enabled = False
  642.         comboCourse.Enabled = False
  643.         txtName.Enabled = False
  644.         txtResult.Enabled = False
  645.         
  646.         
  647.    
  648.     
  649.     
  650.     
  651. End Sub
  653. Private Sub comboClassno_Click()
  654.     Dim mrcc As ADODB.Recordset
  655.     Dim txtSQL As String
  656.     Dim MsgText As String
  657.     
  658.     
  659.     
  660.     
  661.     txtSQL = "select * from student_Info where class_NO = '" & comboClassno.Text & "'"
  662.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  663.     While (mrcc.EOF = False)
  664.         comboSID.AddItem mrcc!student_ID
  665.         mrcc.MoveNext
  666.     Wend
  667.     mrcc.Close
  668.     
  669.     txtSQL = "select * from class_Info where class_No = '" & comboClassno.Text & "'"
  670.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  671.     Grade = mrcc!Grade
  672.     mrcc.Close
  673.     
  674.     txtSQL = "select * from gradecourse_Info where grade = '" & Grade & "'"
  675.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  676.     While (mrcc.EOF = False)
  677.         comboCourse.AddItem mrcc!course_Name
  678.         mrcc.MoveNext
  679.     Wend
  680.     mrcc.Close
  681.     
  682.     
  683.     
  684. End Sub