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

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

SQL Server

开发平台：

SQL

frmModifyclassinfo.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmModifyclassinfo 
  3.    Caption         =   "修改班级信息"
  4.    ClientHeight    =   4824
  5.    ClientLeft      =   48
  6.    ClientTop       =   348
  7.    ClientWidth     =   7956
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4824
  10.    ScaleWidth      =   7956
  11.    StartUpPosition =   3  'Windows Default
  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        =   13
  26.       Top             =   2160
  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        =   17
  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        =   16
  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        =   15
  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        =   14
  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        =   8
  111.       Top             =   3360
  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        =   12
  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        =   11
  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        =   10
  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        =   9
  178.          Top             =   360
  179.          Width           =   1452
  180.       End
  181.    End
  182.    Begin VB.TextBox txtClassno 
  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          =   372
  193.       Left            =   2040
  194.       TabIndex        =   3
  195.       Top             =   600
  196.       Width           =   1332
  197.    End
  198.    Begin VB.TextBox txtDirector 
  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          =   372
  209.       Left            =   2040
  210.       TabIndex        =   2
  211.       Top             =   1320
  212.       Width           =   1332
  213.    End
  214.    Begin VB.TextBox txtClassroom 
  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          =   372
  225.       Left            =   4560
  226.       TabIndex        =   1
  227.       Top             =   1320
  228.       Width           =   1692
  229.    End
  230.    Begin VB.ComboBox comboGrade 
  231.       BeginProperty Font 
  232.          Name            =   "宋体"
  233.          Size            =   10.8
  234.          Charset         =   0
  235.          Weight          =   700
  236.          Underline       =   0   'False
  237.          Italic          =   0   'False
  238.          Strikethrough   =   0   'False
  239.       EndProperty
  240.       Height          =   312
  241.       Left            =   4560
  242.       TabIndex        =   0
  243.       Top             =   600
  244.       Width           =   1692
  245.    End
  246.    Begin VB.Label Label1 
  247.       Caption         =   "班号："
  248.       BeginProperty Font 
  249.          Name            =   "宋体"
  250.          Size            =   10.8
  251.          Charset         =   134
  252.          Weight          =   700
  253.          Underline       =   0   'False
  254.          Italic          =   0   'False
  255.          Strikethrough   =   0   'False
  256.       EndProperty
  257.       Height          =   252
  258.       Left            =   1080
  259.       TabIndex        =   7
  260.       Top             =   600
  261.       Width           =   732
  262.    End
  263.    Begin VB.Label Label2 
  264.       Caption         =   "年级："
  265.       BeginProperty Font 
  266.          Name            =   "宋体"
  267.          Size            =   10.8
  268.          Charset         =   134
  269.          Weight          =   700
  270.          Underline       =   0   'False
  271.          Italic          =   0   'False
  272.          Strikethrough   =   0   'False
  273.       EndProperty
  274.       Height          =   252
  275.       Left            =   3720
  276.       TabIndex        =   6
  277.       Top             =   600
  278.       Width           =   732
  279.    End
  280.    Begin VB.Label Label3 
  281.       Alignment       =   2  'Center
  282.       Caption         =   "班主任："
  283.       BeginProperty Font 
  284.          Name            =   "宋体"
  285.          Size            =   10.8
  286.          Charset         =   134
  287.          Weight          =   700
  288.          Underline       =   0   'False
  289.          Italic          =   0   'False
  290.          Strikethrough   =   0   'False
  291.       EndProperty
  292.       Height          =   252
  293.       Left            =   960
  294.       TabIndex        =   5
  295.       Top             =   1320
  296.       Width           =   972
  297.    End
  298.    Begin VB.Label Label4 
  299.       Caption         =   "教室："
  300.       BeginProperty Font 
  301.          Name            =   "宋体"
  302.          Size            =   10.8
  303.          Charset         =   134
  304.          Weight          =   700
  305.          Underline       =   0   'False
  306.          Italic          =   0   'False
  307.          Strikethrough   =   0   'False
  308.       EndProperty
  309.       Height          =   252
  310.       Left            =   3720
  311.       TabIndex        =   4
  312.       Top             =   1320
  313.       Width           =   732
  314.    End
  315. End
  316. Attribute VB_Name = "frmModifyclassinfo"
  317. Attribute VB_GlobalNameSpace = False
  318. Attribute VB_Creatable = False
  319. Attribute VB_PredeclaredId = True
  320. Attribute VB_Exposed = False
  321. Dim mrc As ADODB.Recordset
  322. Dim myBookmark As Variant
  323. Dim mcclean As Boolean
  325. Private Sub cancelCommand_Click()
  326.     If Not mcclean Then
  327.         Frame2.Enabled = True
  328.         firstCommand.Enabled = True
  329.         previousCommand.Enabled = True
  330.         nextCommand.Enabled = True
  331.         lastCommand.Enabled = True
  332.             
  333.         txtClassno.Enabled = False
  334.         comboGrade.Enabled = False
  335.         txtDirector.Enabled = False
  336.         txtClassroom.Enabled = False
  337.         
  338.         mrc.Bookmark = myBookmark
  339.         Call viewData
  340.     Else
  341.         MsgBox "什么都没有修改，有什么好取消的！", vbOKOnly + vbExclamation, "警告"
  342.     End If
  343. End Sub
  345. Private Sub deleteCommand_Click()
  346.     myBookmark = mrc.Bookmark
  347.     str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
  348.     If str2$ = vbOK Then
  349.             mrc.MoveNext
  350.             If mrc.EOF Then
  351.                 mrc.MoveFirst
  352.                 myBookmark = mrc.Bookmark
  353.                 mrc.MoveLast
  354.                 mrc.Delete
  355.                 mrc.Bookmark = myBookmark
  356.                 Call viewData
  357.             Else
  358.                 myBookmark = mrc.Bookmark
  359.                 mrc.MovePrevious
  360.                 mrc.Delete
  361.                 mrc.Bookmark = myBookmark
  362.                 Call viewData
  363.             End If
  364.     Else
  365.         mrc.Bookmark = myBookmark
  366.         Call viewData
  367.     End If
  368. End Sub
  370. Private Sub editCommand_Click()
  371.     mcclean = False
  372.     Frame2.Enabled = False
  373.     firstCommand.Enabled = False
  374.     previousCommand.Enabled = False
  375.     nextCommand.Enabled = False
  376.     lastCommand.Enabled = False
  377.         
  378.     txtClassno.Enabled = True
  379.     comboGrade.Enabled = True
  380.     txtDirector.Enabled = True
  381.     txtClassroom.Enabled = True
  382.     
  383.     comboGrade.AddItem "初中一年级"
  384.     comboGrade.AddItem "初中二年级"
  385.     comboGrade.AddItem "初中三年级"
  386.     comboGrade.AddItem "高中一年级"
  387.     comboGrade.AddItem "高中二年级"
  388.     comboGrade.AddItem "高中三年级"
  389.     
  390.     myBookmark = mrc.Bookmark
  391. End Sub
  393. Private Sub firstCommand_Click()
  394.     mrc.MoveFirst
  395.     Call viewData
  396. End Sub
  398. Private Sub Form_Load()
  399.     Dim txtSQL As String
  400.     Dim MsgText As String
  401.     
  402.     txtClassno.Enabled = False
  403.     comboGrade.Enabled = False
  404.     txtDirector.Enabled = False
  405.     txtClassroom.Enabled = False
  406.     
  407.     txtSQL = "select * from class_Info "
  408.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  409.     mrc.MoveFirst
  410.     Call viewData
  411.     myBookmark = mrc.Bookmark
  412.     mcclean = True
  413.     
  414.     
  415. End Sub
  417. Public Sub viewData()
  418.     txtClassno.Text = mrc.Fields(0)
  419.     comboGrade.Text = mrc.Fields(1)
  420.     txtDirector.Text = mrc.Fields(2)
  421.     txtClassroom.Text = mrc.Fields(3)
  422.     
  423. End Sub
  425. Private Sub lastCommand_Click()
  426.     mrc.MoveLast
  427.     Call viewData
  428. End Sub
  430. Private Sub nextCommand_Click()
  431.     mrc.MoveNext
  432.     If mrc.EOF Then
  433.         mrc.MoveFirst
  434.     End If
  435.     Call viewData
  436. End Sub
  438. Private Sub previousCommand_Click()
  439.     mrc.MovePrevious
  440.     If mrc.BOF Then
  441.         mrc.MoveLast
  442.     End If
  443.     Call viewData
  444. End Sub
  446. Private Sub updateCommand_Click()
  447.     Dim txtSQL As String
  448.     Dim MsgText As String
  449.     Dim mrcc As ADODB.Recordset
  450.     
  451.     If mcclean Then
  452.         MsgBox "请先修改班级信息", vbOKOnly + vbExclamation, "警告"
  453.         Exit Sub
  454.     End If
  455.     
  456.     If Not Testtxt(txtClassno.Text) Then
  457.         MsgBox "请输入班号！", vbOKOnly + vbExclamation, "警告"
  458.         txtClassno.SetFocus
  459.         Exit Sub
  460.     End If
  461.     
  462.     If Not IsNumeric(Trim(txtClassno.Text)) Then
  463.         MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
  464.         Exit Sub
  465.         txtClassno.SetFocus
  466.     End If
  467.     
  468.         
  469.     If Not Testtxt(comboGrade.Text) Then
  470.         MsgBox "请选择年级！", vbOKOnly + vbExclamation, "警告"
  471.         comboGrade.SetFocus
  472.         
  473.         Exit Sub
  474.     End If
  475.     
  476.     If Not Testtxt(txtDirector.Text) Then
  477.         MsgBox "请输入班主任姓名！", vbOKOnly + vbExclamation, "警告"
  478.         txtDirector.SetFocus
  479.         Exit Sub
  480.     End If
  481.     
  482.     
  483.     If Not Testtxt(txtClassroom.Text) Then
  484.         MsgBox "请输入教室号码！", vbOKOnly + vbExclamation, "警告"
  485.         txtClassroom.SetFocus
  486.         Exit Sub
  487.     End If
  488.     
  489.     mrc.Delete
  490.     txtSQL = "select * from class_Info where class_No = '" & Trim(txtClassno.Text) & "'"
  491.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  492.     If mrcc.EOF = False Then
  493.         MsgBox "班号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
  494.         mrcc.Close
  495.         txtClassno.SetFocus
  496.     Else
  497.         mrcc.Close
  498.         mrc.AddNew
  499.         mrc.Fields(0) = Trim(txtClassno.Text)
  500.         mrc.Fields(1) = Trim(comboGrade.Text)
  501.         mrc.Fields(2) = Trim(txtDirector.Text)
  502.         mrc.Fields(3) = Trim(txtClassroom.Text)
  503.         mrc.Update
  504.         MsgBox "修改班级信息成功！", vbOKOnly + vbExclamation, "警告"
  505.         mrc.Bookmark = myBookmark
  506.         Call viewData
  507.         Frame2.Enabled = True
  508.         firstCommand.Enabled = True
  509.         previousCommand.Enabled = True
  510.         nextCommand.Enabled = True
  511.         lastCommand.Enabled = True
  512.         
  513.         txtClassno.Enabled = False
  514.         comboGrade.Enabled = False
  515.         txtDirector.Enabled = False
  516.         txtClassroom.Enabled = False
  517.                 
  518.         mcclean = True
  519.     End If
  520. End Sub