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

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

SQL Server

开发平台：

SQL

frmModifysinfo.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmModifysinfo 
  3.    Caption         =   "修改学籍信息"
  4.    ClientHeight    =   7104
  5.    ClientLeft      =   48
  6.    ClientTop       =   348
  7.    ClientWidth     =   8652
  8.    LinkTopic       =   "Form1"
  9.    MDIChild        =   -1  'True
  10.    ScaleHeight     =   7104
  11.    ScaleWidth      =   8652
  12.    Begin VB.Frame Frame3 
  13.       Caption         =   "修改学籍信息"
  14.       BeginProperty Font 
  15.          Name            =   "宋体"
  16.          Size            =   10.8
  17.          Charset         =   0
  18.          Weight          =   700
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   1092
  24.       Left            =   840
  25.       TabIndex        =   23
  26.       Top             =   5760
  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        =   27
  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        =   26
  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        =   25
  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        =   24
  93.          Top             =   360
  94.          Width           =   1452
  95.       End
  96.    End
  97.    Begin VB.Frame Frame2 
  98.       Caption         =   "查看学籍信息"
  99.       BeginProperty Font 
  100.          Name            =   "宋体"
  101.          Size            =   10.8
  102.          Charset         =   0
  103.          Weight          =   700
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   1092
  109.       Left            =   840
  110.       TabIndex        =   18
  111.       Top             =   4560
  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        =   22
  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        =   21
  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        =   20
  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        =   19
  178.          Top             =   360
  179.          Width           =   1692
  180.       End
  181.    End
  182.    Begin VB.TextBox txtSID 
  183.       Enabled         =   0   'False
  184.       BeginProperty Font 
  185.          Name            =   "宋体"
  186.          Size            =   10.8
  187.          Charset         =   0
  188.          Weight          =   700
  189.          Underline       =   0   'False
  190.          Italic          =   0   'False
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.       Height          =   372
  194.       Left            =   1440
  195.       TabIndex        =   8
  196.       Top             =   360
  197.       Width           =   1692
  198.    End
  199.    Begin VB.ComboBox comboSex 
  200.       Enabled         =   0   'False
  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        =   "frmModifysinfo.frx":0000
  212.       Left            =   1440
  213.       List            =   "frmModifysinfo.frx":0002
  214.       TabIndex        =   7
  215.       Top             =   960
  216.       Width           =   612
  217.    End
  218.    Begin VB.TextBox txtName 
  219.       Enabled         =   0   'False
  220.       BeginProperty Font 
  221.          Name            =   "宋体"
  222.          Size            =   10.8
  223.          Charset         =   0
  224.          Weight          =   700
  225.          Underline       =   0   'False
  226.          Italic          =   0   'False
  227.          Strikethrough   =   0   'False
  228.       EndProperty
  229.       Height          =   372
  230.       Left            =   5880
  231.       TabIndex        =   6
  232.       Top             =   360
  233.       Width           =   1692
  234.    End
  235.    Begin VB.TextBox txtBorndate 
  236.       Enabled         =   0   'False
  237.       BeginProperty Font 
  238.          Name            =   "宋体"
  239.          Size            =   10.8
  240.          Charset         =   0
  241.          Weight          =   700
  242.          Underline       =   0   'False
  243.          Italic          =   0   'False
  244.          Strikethrough   =   0   'False
  245.       EndProperty
  246.       Height          =   372
  247.       Left            =   5880
  248.       TabIndex        =   5
  249.       Top             =   960
  250.       Width           =   1692
  251.    End
  252.    Begin VB.ComboBox comboClassNo 
  253.       Enabled         =   0   'False
  254.       BeginProperty Font 
  255.          Name            =   "宋体"
  256.          Size            =   10.8
  257.          Charset         =   0
  258.          Weight          =   700
  259.          Underline       =   0   'False
  260.          Italic          =   0   'False
  261.          Strikethrough   =   0   'False
  262.       EndProperty
  263.       Height          =   312
  264.       Left            =   1440
  265.       TabIndex        =   4
  266.       Top             =   1560
  267.       Width           =   1692
  268.    End
  269.    Begin VB.TextBox txtTel 
  270.       Enabled         =   0   'False
  271.       BeginProperty Font 
  272.          Name            =   "宋体"
  273.          Size            =   10.8
  274.          Charset         =   0
  275.          Weight          =   700
  276.          Underline       =   0   'False
  277.          Italic          =   0   'False
  278.          Strikethrough   =   0   'False
  279.       EndProperty
  280.       Height          =   372
  281.       Left            =   5880
  282.       TabIndex        =   3
  283.       Top             =   1560
  284.       Width           =   1692
  285.    End
  286.    Begin VB.TextBox txtRudate 
  287.       Enabled         =   0   'False
  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          =   372
  298.       Left            =   1440
  299.       TabIndex        =   2
  300.       Top             =   2040
  301.       Width           =   1692
  302.    End
  303.    Begin VB.TextBox txtAddress 
  304.       Enabled         =   0   'False
  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          =   852
  315.       Left            =   5880
  316.       MultiLine       =   -1  'True
  317.       ScrollBars      =   2  'Vertical
  318.       TabIndex        =   1
  319.       Top             =   2160
  320.       Width           =   2172
  321.    End
  322.    Begin VB.TextBox txtComment 
  323.       Enabled         =   0   'False
  324.       BeginProperty Font 
  325.          Name            =   "宋体"
  326.          Size            =   10.8
  327.          Charset         =   0
  328.          Weight          =   700
  329.          Underline       =   0   'False
  330.          Italic          =   0   'False
  331.          Strikethrough   =   0   'False
  332.       EndProperty
  333.       Height          =   1572
  334.       Left            =   1440
  335.       MultiLine       =   -1  'True
  336.       ScrollBars      =   2  'Vertical
  337.       TabIndex        =   0
  338.       Top             =   2640
  339.       Width           =   2532
  340.    End
  341.    Begin VB.Label Label1 
  342.       Alignment       =   2  'Center
  343.       Caption         =   "学号"
  344.       BeginProperty Font 
  345.          Name            =   "宋体"
  346.          Size            =   10.8
  347.          Charset         =   0
  348.          Weight          =   700
  349.          Underline       =   0   'False
  350.          Italic          =   0   'False
  351.          Strikethrough   =   0   'False
  352.       EndProperty
  353.       Height          =   252
  354.       Left            =   120
  355.       TabIndex        =   17
  356.       Top             =   360
  357.       Width           =   1092
  358.    End
  359.    Begin VB.Label Label2 
  360.       Alignment       =   2  'Center
  361.       Caption         =   "姓名"
  362.       BeginProperty Font 
  363.          Name            =   "宋体"
  364.          Size            =   10.8
  365.          Charset         =   0
  366.          Weight          =   700
  367.          Underline       =   0   'False
  368.          Italic          =   0   'False
  369.          Strikethrough   =   0   'False
  370.       EndProperty
  371.       Height          =   252
  372.       Left            =   4560
  373.       TabIndex        =   16
  374.       Top             =   480
  375.       Width           =   1092
  376.    End
  377.    Begin VB.Label Label3 
  378.       Alignment       =   2  'Center
  379.       Caption         =   "性别"
  380.       BeginProperty Font 
  381.          Name            =   "宋体"
  382.          Size            =   10.8
  383.          Charset         =   0
  384.          Weight          =   700
  385.          Underline       =   0   'False
  386.          Italic          =   0   'False
  387.          Strikethrough   =   0   'False
  388.       EndProperty
  389.       Height          =   252
  390.       Left            =   120
  391.       TabIndex        =   15
  392.       Top             =   960
  393.       Width           =   1092
  394.    End
  395.    Begin VB.Label Label4 
  396.       Alignment       =   2  'Center
  397.       Caption         =   "出生日期"
  398.       BeginProperty Font 
  399.          Name            =   "宋体"
  400.          Size            =   10.8
  401.          Charset         =   0
  402.          Weight          =   700
  403.          Underline       =   0   'False
  404.          Italic          =   0   'False
  405.          Strikethrough   =   0   'False
  406.       EndProperty
  407.       Height          =   252
  408.       Left            =   4560
  409.       TabIndex        =   14
  410.       Top             =   1080
  411.       Width           =   1092
  412.    End
  413.    Begin VB.Label Label5 
  414.       Alignment       =   2  'Center
  415.       Caption         =   "班号"
  416.       BeginProperty Font 
  417.          Name            =   "宋体"
  418.          Size            =   10.8
  419.          Charset         =   0
  420.          Weight          =   700
  421.          Underline       =   0   'False
  422.          Italic          =   0   'False
  423.          Strikethrough   =   0   'False
  424.       EndProperty
  425.       Height          =   252
  426.       Left            =   120
  427.       TabIndex        =   13
  428.       Top             =   1560
  429.       Width           =   1092
  430.    End
  431.    Begin VB.Label Label6 
  432.       Alignment       =   2  'Center
  433.       Caption         =   "联系电话"
  434.       BeginProperty Font 
  435.          Name            =   "宋体"
  436.          Size            =   10.8
  437.          Charset         =   0
  438.          Weight          =   700
  439.          Underline       =   0   'False
  440.          Italic          =   0   'False
  441.          Strikethrough   =   0   'False
  442.       EndProperty
  443.       Height          =   372
  444.       Left            =   4560
  445.       TabIndex        =   12
  446.       Top             =   1560
  447.       Width           =   1092
  448.    End
  449.    Begin VB.Label Label7 
  450.       Alignment       =   2  'Center
  451.       Caption         =   "入校日期"
  452.       BeginProperty Font 
  453.          Name            =   "宋体"
  454.          Size            =   10.8
  455.          Charset         =   0
  456.          Weight          =   700
  457.          Underline       =   0   'False
  458.          Italic          =   0   'False
  459.          Strikethrough   =   0   'False
  460.       EndProperty
  461.       Height          =   252
  462.       Left            =   120
  463.       TabIndex        =   11
  464.       Top             =   2160
  465.       Width           =   1092
  466.    End
  467.    Begin VB.Label Label8 
  468.       Alignment       =   2  'Center
  469.       Caption         =   "家庭住址"
  470.       BeginProperty Font 
  471.          Name            =   "宋体"
  472.          Size            =   10.8
  473.          Charset         =   0
  474.          Weight          =   700
  475.          Underline       =   0   'False
  476.          Italic          =   0   'False
  477.          Strikethrough   =   0   'False
  478.       EndProperty
  479.       Height          =   252
  480.       Left            =   4560
  481.       TabIndex        =   10
  482.       Top             =   2160
  483.       Width           =   1092
  484.    End
  485.    Begin VB.Label Label9 
  486.       Alignment       =   2  'Center
  487.       Caption         =   "备注"
  488.       BeginProperty Font 
  489.          Name            =   "宋体"
  490.          Size            =   10.8
  491.          Charset         =   0
  492.          Weight          =   700
  493.          Underline       =   0   'False
  494.          Italic          =   0   'False
  495.          Strikethrough   =   0   'False
  496.       EndProperty
  497.       Height          =   372
  498.       Left            =   120
  499.       TabIndex        =   9
  500.       Top             =   2760
  501.       Width           =   1092
  502.    End
  503. End
  504. Attribute VB_Name = "frmModifysinfo"
  505. Attribute VB_GlobalNameSpace = False
  506. Attribute VB_Creatable = False
  507. Attribute VB_PredeclaredId = True
  508. Attribute VB_Exposed = False
  509. Dim mrc As ADODB.Recordset
  510. Dim myBookmark As Variant
  511. Dim mcclean As Boolean
  513. Private Sub editCommand_Click()
  514.     mcclean = False
  515.     Frame2.Enabled = False
  516.     firstCommand.Enabled = False
  517.     previousCommand.Enabled = False
  518.     nextCommand.Enabled = False
  519.     lastCommand.Enabled = False
  520.         
  521.     txtSID.Enabled = True
  522.     txtName.Enabled = True
  523.     comboSex.Enabled = True
  524.     txtBorndate.Enabled = True
  525.     comboClassno.Enabled = True
  526.     txtRudate.Enabled = True
  527.     txtTel.Enabled = True
  528.     txtAddress.Enabled = True
  529.     txtComment.Enabled = True
  530.     
  531.     myBookmark = mrc.Bookmark
  532. End Sub
  534. Private Sub cancelCommand_Click()
  535.     If Not mcclean Then
  536.         Frame2.Enabled = True
  537.         firstCommand.Enabled = True
  538.         previousCommand.Enabled = True
  539.         nextCommand.Enabled = True
  540.         lastCommand.Enabled = True
  541.             
  542.         txtSID.Enabled = False
  543.         txtName.Enabled = False
  544.         comboSex.Enabled = False
  545.         txtBorndate.Enabled = False
  546.         comboClassno.Enabled = False
  547.         txtRudate.Enabled = False
  548.         txtTel.Enabled = False
  549.         txtAddress.Enabled = False
  550.         txtComment.Enabled = False
  551.         
  552.         mrc.Bookmark = myBookmark
  553.         Call viewData
  554.     Else
  555.         MsgBox "什么都没有修改，有什么好取消的！", vbOKOnly + vbExclamation, "警告"
  556.     End If
  557.         
  558. End Sub
  560. Private Sub deleteCommand_Click()
  561.     myBookmark = mrc.Bookmark
  562.     str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
  563.     If str2$ = vbOK Then
  564.             mrc.MoveNext
  565.             If mrc.EOF Then
  566.                 mrc.MoveFirst
  567.                 myBookmark = mrc.Bookmark
  568.                 mrc.MoveLast
  569.                 mrc.Delete
  570.                 mrc.Bookmark = myBookmark
  571.                 Call viewData
  572.             Else
  573.                 myBookmark = mrc.Bookmark
  574.                 mrc.MovePrevious
  575.                 mrc.Delete
  576.                 mrc.Bookmark = myBookmark
  577.                 Call viewData
  578.             End If
  579.     Else
  580.         mrc.Bookmark = myBookmark
  581.         Call viewData
  582.     End If
  583. End Sub
  585. Private Sub firstCommand_Click()
  586.     mrc.MoveFirst
  587.     Call viewData
  588. End Sub
  590. Private Sub Form_Load()
  591.     
  592.     Dim txtSQL As String
  593.     Dim MsgText As String
  594.     
  595.     txtSQL = "select * from student_Info "
  596.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  597.     
  598.     
  599.     
  600.     mrc.MoveFirst
  601.     Call viewData
  602.     mcbookmark = mrc.Bookmark
  603.     mcclean = True
  604.     
  605.     
  606.     
  607.     
  608. End Sub
  610. Public Sub viewData()
  611.     txtSID.Text = mrc.Fields(0)
  612.     txtName.Text = mrc.Fields(1)
  613.     comboSex.Text = mrc.Fields(2)
  614.     txtBorndate.Text = Format(mrc.Fields(3), "yyyy-mm-dd")
  615.     comboClassno.Text = mrc.Fields(4)
  616.     txtTel.Text = mrc.Fields(5)
  617.     txtRudate.Text = Format(mrc.Fields(6), "yyyy-mm-dd")
  618.     txtAddress.Text = mrc.Fields(7)
  619.     txtComment.Text = mrc.Fields(8)
  620. End Sub
  622. Private Sub lastCommand_Click()
  623.     mrc.MoveLast
  624.     Call viewData
  625. End Sub
  627. Private Sub nextCommand_Click()
  628.     mrc.MoveNext
  629.     If mrc.EOF Then
  630.         mrc.MoveFirst
  631.     End If
  632.     Call viewData
  633. End Sub
  635. Private Sub previousCommand_Click()
  636.     mrc.MovePrevious
  637.     If mrc.BOF Then
  638.         mrc.MoveLast
  639.     End If
  640.     Call viewData
  641. End Sub
  643. Private Sub updateCommand_Click()
  644.     Dim txtSQL As String
  645.     Dim MsgText As String
  646.     Dim mrcc As ADODB.Recordset
  647.     
  648.     If mcclean Then
  649.         MsgBox "请先修改学籍信息", vbOKOnly + vbExclamation, "警告"
  650.         Exit Sub
  651.     End If
  652.     
  653.     If Not Testtxt(txtSID.Text) Then
  654.         MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告"
  655.         txtSID.SetFocus
  656.         Exit Sub
  657.     End If
  658.     
  659.     If Not Testtxt(txtName.Text) Then
  660.         MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"
  661.         txtName.SetFocus
  662.         Exit Sub
  663.     End If
  664.     
  665.     If Not Testtxt(comboSex.Text) Then
  666.         MsgBox "请选择性别！", vbOKOnly + vbExclamation, "警告"
  667.         comboSex.SetFocus
  668.         Exit Sub
  669.     End If
  670.     
  671.     If Not Testtxt(txtBorndate.Text) Then
  672.         MsgBox "请输入出生日期！", vbOKOnly + vbExclamation, "警告"
  673.         txtBorndate.SetFocus
  674.         Exit Sub
  675.     End If
  676.     
  677.     If Not Testtxt(comboClassno.Text) Then
  678.         MsgBox "请选择班号！", vbOKOnly + vbExclamation, "警告"
  679.         comboClassno.SetFocus
  680.         Exit Sub
  681.     End If
  682.     
  683.     If Not Testtxt(txtTel.Text) Then
  684.         MsgBox "请输入联系电话！", vbOKOnly + vbExclamation, "警告"
  685.         txtTel.SetFocus
  686.         Exit Sub
  687.     End If
  688.     
  689.     If Not Testtxt(txtRudate.Text) Then
  690.         MsgBox "请输入入校日期！", vbOKOnly + vbExclamation, "警告"
  691.         txtRudate.SetFocus
  692.         Exit Sub
  693.     End If
  694.     
  695.     If Not Testtxt(txtAddress.Text) Then
  696.         MsgBox "请输入家庭住址！", vbOKOnly + vbExclamation, "警告"
  697.         txtAddress.SetFocus
  698.         Exit Sub
  699.     End If
  700.     
  701.     If Not IsNumeric(Trim(txtSID.Text)) Then
  702.         MsgBox "学号请输入数字！", vbOKOnly + vbExclamation, "警告"
  703.         txtSID.SetFocus
  704.         Exit Sub
  705.         
  706.     End If
  707.     
  708.     mrc.Delete
  709.     txtSQL = "select * from student_Info where student_ID = '" & Trim(txtSID.Text) & "'"
  710.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  711.     If mrcc.EOF = False Then
  712.         MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
  713.         mrcc.Close
  714.         txtSID.SetFocus
  715.     Else
  716.         mrcc.Close
  717.         If Not IsDate(txtBorndate.Text) Then
  718.             MsgBox "出生时间应输入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
  719.             txtBorndate.SetFocus
  720.         Else
  721.             txtBorndate = Format(txtBorndate, "yyyy-mm-dd")
  722.             If Not IsDate(txtRudate.Text) Then
  723.                 MsgBox "入校时间应输入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
  724.                 txtRudate.SetFocus
  725.             Else
  726.                 txtRudate = Format(txtRudate, "yyyy-mm-dd")
  727.                                 
  728.                 mrc.AddNew
  729.                 mrc.Fields(0) = Trim(txtSID.Text)
  730.                 mrc.Fields(1) = Trim(txtName.Text)
  731.                 mrc.Fields(2) = Trim(comboSex.Text)
  732.                 mrc.Fields(3) = Trim(txtBorndate.Text)
  733.                 mrc.Fields(4) = Trim(comboClassno.Text)
  734.                 mrc.Fields(5) = Trim(txtTel.Text)
  735.                 mrc.Fields(6) = Trim(txtRudate.Text)
  736.                 mrc.Fields(7) = Trim(txtAddress.Text)
  737.                 mrc.Fields(8) = Trim(txtComment.Text)
  738.                 mrc.Update
  739.                 MsgBox "修改学籍信息成功！", vbOKOnly + vbExclamation, "修改学籍信息"
  740.                 
  741.                 mrc.Bookmark = myBookmark
  742.                 Call viewData
  743.                 Frame2.Enabled = True
  744.                 firstCommand.Enabled = True
  745.                 previousCommand.Enabled = True
  746.                 nextCommand.Enabled = True
  747.                 lastCommand.Enabled = True
  748.         
  749.                 txtSID.Enabled = False
  750.                 txtName.Enabled = False
  751.                 comboSex.Enabled = False
  752.                 txtBorndate.Enabled = False
  753.                 comboClassno.Enabled = False
  754.                 txtRudate.Enabled = False
  755.                 txtTel.Enabled = False
  756.                 txtAddress.Enabled = False
  757.                 txtComment.Enabled = False
  758.                 
  759.                 mcclean = True
  760.                             
  761.                 
  762.             End If
  763.         End If
  764.     End If
  765.     
  766.     
  767. End Sub