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

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

SQL Server

开发平台：

SQL

frmModifycourseinfo.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmModifycourseinfo 
  3.    Caption         =   "修改课程信息"
  4.    ClientHeight    =   5628
  5.    ClientLeft      =   48
  6.    ClientTop       =   348
  7.    ClientWidth     =   7824
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5628
  10.    ScaleWidth      =   7824
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Frame Frame3 
  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        =   13
  26.       Top             =   4080
  27.       Width           =   6972
  28.       Begin VB.CommandButton editCommand 
  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            =   240
  41.          TabIndex        =   17
  42.          Top             =   360
  43.          Width           =   1452
  44.       End
  45.       Begin VB.CommandButton updateCommand 
  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            =   1800
  58.          TabIndex        =   16
  59.          Top             =   360
  60.          Width           =   1452
  61.       End
  62.       Begin VB.CommandButton cancelCommand 
  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            =   3360
  75.          TabIndex        =   15
  76.          Top             =   360
  77.          Width           =   1692
  78.       End
  79.       Begin VB.CommandButton deleteCommand 
  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            =   5160
  92.          TabIndex        =   14
  93.          Top             =   360
  94.          Width           =   1452
  95.       End
  96.    End
  97.    Begin VB.Frame Frame2 
  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        =   8
  111.       Top             =   2880
  112.       Width           =   6972
  113.       Begin VB.CommandButton firstCommand 
  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            =   240
  126.          TabIndex        =   12
  127.          Top             =   360
  128.          Width           =   1452
  129.       End
  130.       Begin VB.CommandButton previousCommand 
  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            =   1800
  143.          TabIndex        =   11
  144.          Top             =   360
  145.          Width           =   1452
  146.       End
  147.       Begin VB.CommandButton nextCommand 
  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            =   3360
  160.          TabIndex        =   10
  161.          Top             =   360
  162.          Width           =   1452
  163.       End
  164.       Begin VB.CommandButton lastCommand 
  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            =   4920
  177.          TabIndex        =   9
  178.          Top             =   360
  179.          Width           =   1692
  180.       End
  181.    End
  182.    Begin VB.TextBox txtCourseno 
  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          =   492
  193.       Left            =   1680
  194.       TabIndex        =   3
  195.       Top             =   240
  196.       Width           =   1332
  197.    End
  198.    Begin VB.TextBox txtCoursename 
  199.       BeginProperty Font 
  200.          Name            =   "宋体"
  201.          Size            =   10.8
  202.          Charset         =   0
  203.          Weight          =   700
  204.          Underline       =   0   'False
  205.          Italic          =   0   'False
  206.          Strikethrough   =   0   'False
  207.       EndProperty
  208.       Height          =   492
  209.       Left            =   4800
  210.       TabIndex        =   2
  211.       Top             =   240
  212.       Width           =   1332
  213.    End
  214.    Begin VB.TextBox txtCoursedes 
  215.       BeginProperty Font 
  216.          Name            =   "宋体"
  217.          Size            =   10.8
  218.          Charset         =   0
  219.          Weight          =   700
  220.          Underline       =   0   'False
  221.          Italic          =   0   'False
  222.          Strikethrough   =   0   'False
  223.       EndProperty
  224.       Height          =   1452
  225.       Left            =   4800
  226.       MultiLine       =   -1  'True
  227.       ScrollBars      =   2  'Vertical
  228.       TabIndex        =   1
  229.       Top             =   1080
  230.       Width           =   2412
  231.    End
  232.    Begin VB.ComboBox comboCoursetype 
  233.       BeginProperty Font 
  234.          Name            =   "宋体"
  235.          Size            =   10.8
  236.          Charset         =   0
  237.          Weight          =   700
  238.          Underline       =   0   'False
  239.          Italic          =   0   'False
  240.          Strikethrough   =   0   'False
  241.       EndProperty
  242.       Height          =   312
  243.       Left            =   1680
  244.       TabIndex        =   0
  245.       Top             =   1200
  246.       Width           =   1332
  247.    End
  248.    Begin VB.Label Label1 
  249.       Caption         =   "课程编号："
  250.       BeginProperty Font 
  251.          Name            =   "宋体"
  252.          Size            =   10.8
  253.          Charset         =   0
  254.          Weight          =   700
  255.          Underline       =   0   'False
  256.          Italic          =   0   'False
  257.          Strikethrough   =   0   'False
  258.       EndProperty
  259.       Height          =   252
  260.       Left            =   360
  261.       TabIndex        =   7
  262.       Top             =   360
  263.       Width           =   1212
  264.    End
  265.    Begin VB.Label Label2 
  266.       Caption         =   "课程名称："
  267.       BeginProperty Font 
  268.          Name            =   "宋体"
  269.          Size            =   10.8
  270.          Charset         =   0
  271.          Weight          =   700
  272.          Underline       =   0   'False
  273.          Italic          =   0   'False
  274.          Strikethrough   =   0   'False
  275.       EndProperty
  276.       Height          =   252
  277.       Left            =   3480
  278.       TabIndex        =   6
  279.       Top             =   360
  280.       Width           =   1212
  281.    End
  282.    Begin VB.Label Label3 
  283.       Caption         =   "课程类型："
  284.       BeginProperty Font 
  285.          Name            =   "宋体"
  286.          Size            =   10.8
  287.          Charset         =   0
  288.          Weight          =   700
  289.          Underline       =   0   'False
  290.          Italic          =   0   'False
  291.          Strikethrough   =   0   'False
  292.       EndProperty
  293.       Height          =   252
  294.       Left            =   360
  295.       TabIndex        =   5
  296.       Top             =   1200
  297.       Width           =   1212
  298.    End
  299.    Begin VB.Label Label4 
  300.       Caption         =   "课程描述："
  301.       BeginProperty Font 
  302.          Name            =   "宋体"
  303.          Size            =   10.8
  304.          Charset         =   0
  305.          Weight          =   700
  306.          Underline       =   0   'False
  307.          Italic          =   0   'False
  308.          Strikethrough   =   0   'False
  309.       EndProperty
  310.       Height          =   252
  311.       Left            =   3480
  312.       TabIndex        =   4
  313.       Top             =   1200
  314.       Width           =   1212
  315.    End
  316. End
  317. Attribute VB_Name = "frmModifycourseinfo"
  318. Attribute VB_GlobalNameSpace = False
  319. Attribute VB_Creatable = False
  320. Attribute VB_PredeclaredId = True
  321. Attribute VB_Exposed = False
  322. Dim mrc As ADODB.Recordset
  323. Dim myBookmark As Variant
  324. Dim mcclean As Boolean
  327. Private Sub cancelCommand_Click()
  328.     If Not mcclean Then
  329.         Frame2.Enabled = True
  330.         firstCommand.Enabled = True
  331.         previousCommand.Enabled = True
  332.         nextCommand.Enabled = True
  333.         lastCommand.Enabled = True
  334.             
  335.         txtCourseno.Enabled = False
  336.         txtCoursename.Enabled = False
  337.         comboCoursetype.Enabled = False
  338.         txtCoursedes.Enabled = False
  339.         
  340.         mrc.Bookmark = myBookmark
  341.         Call viewData
  342.     Else
  343.         MsgBox "什么都没有修改，有什么好取消的！", vbOKOnly + vbExclamation, "警告"
  344.     End If
  345. End Sub
  347. Private Sub deleteCommand_Click()
  348.     myBookmark = mrc.Bookmark
  349.     str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
  350.     If str2$ = vbOK Then
  351.             mrc.MoveNext
  352.             If mrc.EOF Then
  353.                 mrc.MoveFirst
  354.                 myBookmark = mrc.Bookmark
  355.                 mrc.MoveLast
  356.                 mrc.Delete
  357.                 mrc.Bookmark = myBookmark
  358.                 Call viewData
  359.             Else
  360.                 myBookmark = mrc.Bookmark
  361.                 mrc.MovePrevious
  362.                 mrc.Delete
  363.                 mrc.Bookmark = myBookmark
  364.                 Call viewData
  365.             End If
  366.     Else
  367.         mrc.Bookmark = myBookmark
  368.         Call viewData
  369.     End If
  370. End Sub
  372. Private Sub editCommand_Click()
  373.     mcclean = False
  374.     Frame2.Enabled = False
  375.     firstCommand.Enabled = False
  376.     previousCommand.Enabled = False
  377.     nextCommand.Enabled = False
  378.     lastCommand.Enabled = False
  379.         
  380.     txtCourseno.Enabled = True
  381.     txtCoursename.Enabled = True
  382.     comboCoursetype.Enabled = True
  383.     txtCoursedes.Enabled = True
  384.     
  385.     comboCoursetype.AddItem "必修"
  386.     comboCoursetype.AddItem "考查"
  387.     
  388.     
  389.     myBookmark = mrc.Bookmark
  390. End Sub
  392. Private Sub firstCommand_Click()
  393.     mrc.MoveFirst
  394.     Call viewData
  395. End Sub
  397. Private Sub Form_Load()
  398.     Dim txtSQL As String
  399.     Dim MsgText As String
  400.     
  401.     txtCourseno.Enabled = False
  402.     txtCoursename.Enabled = False
  403.     comboCoursetype.Enabled = False
  404.     txtCoursedes.Enabled = False
  405.     
  406.     txtSQL = "select * from course_Info "
  407.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  408.     mrc.MoveFirst
  409.     Call viewData
  410.     myBookmark = mrc.Bookmark
  411.     mcclean = True
  412. End Sub
  414. Public Sub viewData()
  415.     txtCourseno.Text = mrc.Fields(0)
  416.     txtCoursename.Text = mrc.Fields(1)
  417.     comboCoursetype.Text = mrc.Fields(2)
  418.     txtCoursedes.Text = mrc.Fields(3)
  419.     
  420. End Sub
  422. Private Sub lastCommand_Click()
  423.     mrc.MoveLast
  424.     Call viewData
  425. End Sub
  427. Private Sub nextCommand_Click()
  428.     mrc.MoveNext
  429.     If mrc.EOF Then
  430.         mrc.MoveFirst
  431.     End If
  432.     Call viewData
  433. End Sub
  435. Private Sub previousCommand_Click()
  436.     mrc.MovePrevious
  437.     If mrc.BOF Then
  438.         mrc.MoveLast
  439.     End If
  440.     Call viewData
  441. End Sub
  443. Private Sub updateCommand_Click()
  444.     Dim txtSQL As String
  445.     Dim MsgText As String
  446.     Dim mrcc As ADODB.Recordset
  447.     
  448.     If mcclean Then
  449.         MsgBox "请先修改课程信息", vbOKOnly + vbExclamation, "警告"
  450.         Exit Sub
  451.     End If
  452.     
  453.     If Not Testtxt(txtCourseno.Text) Then
  454.         MsgBox "请输入课程编号！", vbOKOnly + vbExclamation, "警告"
  455.         txtCourseno.SetFocus
  456.         Exit Sub
  457.     End If
  458.     
  459.     If Not IsNumeric(Trim(txtCourseno.Text)) Then
  460.         MsgBox "课程编号请输入数字！", vbOKOnly + vbExclamation, "警告"
  461.         txtCourseno.SetFocus
  462.         Exit Sub
  463.     End If
  464.     
  465.     If Not Testtxt(txtCoursename.Text) Then
  466.         MsgBox "请输入课程名称！", vbOKOnly + vbExclamation, "警告"
  467.         txtCoursename.SetFocus
  468.         Exit Sub
  469.     End If
  470.         
  471.     If Not Testtxt(comboCoursetype.Text) Then
  472.         MsgBox "请选择课程类型！", vbOKOnly + vbExclamation, "警告"
  473.         comboCoursetype.SetFocus
  474.         Exit Sub
  475.     End If
  476.     
  477.     
  478.     
  479.     
  480.     If Not Testtxt(txtCoursedes.Text) Then
  481.         MsgBox "请输入课程描述信息！", vbOKOnly + vbExclamation, "警告"
  482.         txtCoursedes.SetFocus
  483.         Exit Sub
  484.     End If
  485.     
  486.     mrc.Delete
  487.     txtSQL = "select * from course_Info where course_No = '" & Trim(txtCourseno.Text) & "'"
  488.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  489.     If mrcc.EOF = False Then
  490.         MsgBox "课程编号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
  491.         mrcc.Close
  492.         txtCourseno.SetFocus
  493.     Else
  494.         mrcc.Close
  495.         mrc.AddNew
  496.         mrc.Fields(0) = Trim(txtCourseno.Text)
  497.         mrc.Fields(1) = Trim(txtCoursename.Text)
  498.         mrc.Fields(2) = Trim(comboCoursetype.Text)
  499.         mrc.Fields(3) = Trim(txtCoursedes.Text)
  500.         mrc.Update
  501.         MsgBox "修改课程信息成功！", vbOKOnly + vbExclamation, "警告"
  502.         mrc.Bookmark = myBookmark
  503.         Call viewData
  504.         Frame2.Enabled = True
  505.         firstCommand.Enabled = True
  506.         previousCommand.Enabled = True
  507.         nextCommand.Enabled = True
  508.         lastCommand.Enabled = True
  509.         
  510.         txtCourseno.Enabled = False
  511.         txtCoursename.Enabled = False
  512.         comboCoursetype.Enabled = False
  513.         txtCoursedes.Enabled = False
  514.                 
  515.         mcclean = True
  516.     End If
  517. End Sub