frmModifysinfo.frm

上传用户:rocksue
上传日期:2013-06-17
资源大小:41926k
文件大小:24k
源码类别:SQL Server
开发平台:SQL
  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
  512. Private Sub editCommand_Click()
  513.     mcclean = False
  514.     Frame2.Enabled = False
  515.     firstCommand.Enabled = False
  516.     previousCommand.Enabled = False
  517.     nextCommand.Enabled = False
  518.     lastCommand.Enabled = False
  519.         
  520.     txtSID.Enabled = True
  521.     txtName.Enabled = True
  522.     comboSex.Enabled = True
  523.     txtBorndate.Enabled = True
  524.     comboClassno.Enabled = True
  525.     txtRudate.Enabled = True
  526.     txtTel.Enabled = True
  527.     txtAddress.Enabled = True
  528.     txtComment.Enabled = True
  529.     
  530.     myBookmark = mrc.Bookmark
  531. End Sub
  532. Private Sub cancelCommand_Click()
  533.     If Not mcclean Then
  534.         Frame2.Enabled = True
  535.         firstCommand.Enabled = True
  536.         previousCommand.Enabled = True
  537.         nextCommand.Enabled = True
  538.         lastCommand.Enabled = True
  539.             
  540.         txtSID.Enabled = False
  541.         txtName.Enabled = False
  542.         comboSex.Enabled = False
  543.         txtBorndate.Enabled = False
  544.         comboClassno.Enabled = False
  545.         txtRudate.Enabled = False
  546.         txtTel.Enabled = False
  547.         txtAddress.Enabled = False
  548.         txtComment.Enabled = False
  549.         
  550.         mrc.Bookmark = myBookmark
  551.         Call viewData
  552.     Else
  553.         MsgBox "什么都没有修改,有什么好取消的!", vbOKOnly + vbExclamation, "警告"
  554.     End If
  555.         
  556. End Sub
  557. Private Sub deleteCommand_Click()
  558.     myBookmark = mrc.Bookmark
  559.     str2$ = MsgBox("是否删除当前记录?", vbOKCancel, "删除当前记录")
  560.     If str2$ = vbOK Then
  561.             mrc.MoveNext
  562.             If mrc.EOF Then
  563.                 mrc.MoveFirst
  564.                 myBookmark = mrc.Bookmark
  565.                 mrc.MoveLast
  566.                 mrc.Delete
  567.                 mrc.Bookmark = myBookmark
  568.                 Call viewData
  569.             Else
  570.                 myBookmark = mrc.Bookmark
  571.                 mrc.MovePrevious
  572.                 mrc.Delete
  573.                 mrc.Bookmark = myBookmark
  574.                 Call viewData
  575.             End If
  576.     Else
  577.         mrc.Bookmark = myBookmark
  578.         Call viewData
  579.     End If
  580. End Sub
  581. Private Sub firstCommand_Click()
  582.     mrc.MoveFirst
  583.     Call viewData
  584. End Sub
  585. Private Sub Form_Load()
  586.     
  587.     Dim txtSQL As String
  588.     Dim MsgText As String
  589.     
  590.     txtSQL = "select * from student_Info "
  591.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  592.     
  593.     
  594.     
  595.     mrc.MoveFirst
  596.     Call viewData
  597.     mcbookmark = mrc.Bookmark
  598.     mcclean = True
  599.     
  600.     
  601.     
  602.     
  603. End Sub
  604. Public Sub viewData()
  605.     txtSID.Text = mrc.Fields(0)
  606.     txtName.Text = mrc.Fields(1)
  607.     comboSex.Text = mrc.Fields(2)
  608.     txtBorndate.Text = Format(mrc.Fields(3), "yyyy-mm-dd")
  609.     comboClassno.Text = mrc.Fields(4)
  610.     txtTel.Text = mrc.Fields(5)
  611.     txtRudate.Text = Format(mrc.Fields(6), "yyyy-mm-dd")
  612.     txtAddress.Text = mrc.Fields(7)
  613.     txtComment.Text = mrc.Fields(8)
  614. End Sub
  615. Private Sub lastCommand_Click()
  616.     mrc.MoveLast
  617.     Call viewData
  618. End Sub
  619. Private Sub nextCommand_Click()
  620.     mrc.MoveNext
  621.     If mrc.EOF Then
  622.         mrc.MoveFirst
  623.     End If
  624.     Call viewData
  625. End Sub
  626. Private Sub previousCommand_Click()
  627.     mrc.MovePrevious
  628.     If mrc.BOF Then
  629.         mrc.MoveLast
  630.     End If
  631.     Call viewData
  632. End Sub
  633. Private Sub updateCommand_Click()
  634.     Dim txtSQL As String
  635.     Dim MsgText As String
  636.     Dim mrcc As ADODB.Recordset
  637.     
  638.     If mcclean Then
  639.         MsgBox "请先修改学籍信息", vbOKOnly + vbExclamation, "警告"
  640.         Exit Sub
  641.     End If
  642.     
  643.     If Not Testtxt(txtSID.Text) Then
  644.         MsgBox "请输入学号!", vbOKOnly + vbExclamation, "警告"
  645.         txtSID.SetFocus
  646.         Exit Sub
  647.     End If
  648.     
  649.     If Not Testtxt(txtName.Text) Then
  650.         MsgBox "请输入姓名!", vbOKOnly + vbExclamation, "警告"
  651.         txtName.SetFocus
  652.         Exit Sub
  653.     End If
  654.     
  655.     If Not Testtxt(comboSex.Text) Then
  656.         MsgBox "请选择性别!", vbOKOnly + vbExclamation, "警告"
  657.         comboSex.SetFocus
  658.         Exit Sub
  659.     End If
  660.     
  661.     If Not Testtxt(txtBorndate.Text) Then
  662.         MsgBox "请输入出生日期!", vbOKOnly + vbExclamation, "警告"
  663.         txtBorndate.SetFocus
  664.         Exit Sub
  665.     End If
  666.     
  667.     If Not Testtxt(comboClassno.Text) Then
  668.         MsgBox "请选择班号!", vbOKOnly + vbExclamation, "警告"
  669.         comboClassno.SetFocus
  670.         Exit Sub
  671.     End If
  672.     
  673.     If Not Testtxt(txtTel.Text) Then
  674.         MsgBox "请输入联系电话!", vbOKOnly + vbExclamation, "警告"
  675.         txtTel.SetFocus
  676.         Exit Sub
  677.     End If
  678.     
  679.     If Not Testtxt(txtRudate.Text) Then
  680.         MsgBox "请输入入校日期!", vbOKOnly + vbExclamation, "警告"
  681.         txtRudate.SetFocus
  682.         Exit Sub
  683.     End If
  684.     
  685.     If Not Testtxt(txtAddress.Text) Then
  686.         MsgBox "请输入家庭住址!", vbOKOnly + vbExclamation, "警告"
  687.         txtAddress.SetFocus
  688.         Exit Sub
  689.     End If
  690.     
  691.     If Not IsNumeric(Trim(txtSID.Text)) Then
  692.         MsgBox "学号请输入数字!", vbOKOnly + vbExclamation, "警告"
  693.         txtSID.SetFocus
  694.         Exit Sub
  695.         
  696.     End If
  697.     
  698.     mrc.Delete
  699.     txtSQL = "select * from student_Info where student_ID = '" & Trim(txtSID.Text) & "'"
  700.     Set mrcc = ExecuteSQL(txtSQL, MsgText)
  701.     If mrcc.EOF = False Then
  702.         MsgBox "学号重复,请重新输入!", vbOKOnly + vbExclamation, "警告"
  703.         mrcc.Close
  704.         txtSID.SetFocus
  705.     Else
  706.         mrcc.Close
  707.         If Not IsDate(txtBorndate.Text) Then
  708.             MsgBox "出生时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
  709.             txtBorndate.SetFocus
  710.         Else
  711.             txtBorndate = Format(txtBorndate, "yyyy-mm-dd")
  712.             If Not IsDate(txtRudate.Text) Then
  713.                 MsgBox "入校时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
  714.                 txtRudate.SetFocus
  715.             Else
  716.                 txtRudate = Format(txtRudate, "yyyy-mm-dd")
  717.                                 
  718.                 mrc.AddNew
  719.                 mrc.Fields(0) = Trim(txtSID.Text)
  720.                 mrc.Fields(1) = Trim(txtName.Text)
  721.                 mrc.Fields(2) = Trim(comboSex.Text)
  722.                 mrc.Fields(3) = Trim(txtBorndate.Text)
  723.                 mrc.Fields(4) = Trim(comboClassno.Text)
  724.                 mrc.Fields(5) = Trim(txtTel.Text)
  725.                 mrc.Fields(6) = Trim(txtRudate.Text)
  726.                 mrc.Fields(7) = Trim(txtAddress.Text)
  727.                 mrc.Fields(8) = Trim(txtComment.Text)
  728.                 mrc.Update
  729.                 MsgBox "修改学籍信息成功!", vbOKOnly + vbExclamation, "修改学籍信息"
  730.                 
  731.                 mrc.Bookmark = myBookmark
  732.                 Call viewData
  733.                 Frame2.Enabled = True
  734.                 firstCommand.Enabled = True
  735.                 previousCommand.Enabled = True
  736.                 nextCommand.Enabled = True
  737.                 lastCommand.Enabled = True
  738.         
  739.                 txtSID.Enabled = False
  740.                 txtName.Enabled = False
  741.                 comboSex.Enabled = False
  742.                 txtBorndate.Enabled = False
  743.                 comboClassno.Enabled = False
  744.                 txtRudate.Enabled = False
  745.                 txtTel.Enabled = False
  746.                 txtAddress.Enabled = False
  747.                 txtComment.Enabled = False
  748.                 
  749.                 mcclean = True
  750.                             
  751.                 
  752.             End If
  753.         End If
  754.     End If
  755.     
  756.     
  757. End Sub