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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
frmPerson.vb
资源名称：SALEOUTSYSTEM.rar　[点击查看]
上传用户：wj57717022
上传日期：2014-12-16
资源大小：4093k
文件大小：19k
源码类别：

医药行业

开发平台：

Visual Basic

frmPerson.vb：源码内容
  1. Public Class frmPerson
  2.     Inherits System.Windows.Forms.Form
  4. #Region " Windows 窗体设计器生成的代码 "
  6.     Public Sub New()
  7.         MyBase.New()
  9.         '该调用是 Windows 窗体设计器所必需的。
  10.         InitializeComponent()
  12.         '在 InitializeComponent() 调用之后添加任何初始化
  14.     End Sub
  16.     '窗体重写 dispose 以清理组件列表。
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  26.     'Windows 窗体设计器所必需的
  27.     Private components As System.ComponentModel.IContainer
  29.     '注意: 以下过程是 Windows 窗体设计器所必需的
  30.     '可以使用 Windows 窗体设计器修改此过程。
  31.     '不要使用代码编辑器修改它。
  32.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  33.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  34.     Friend WithEvents Label1 As System.Windows.Forms.Label
  35.     Friend WithEvents txtNumber As System.Windows.Forms.TextBox
  36.     Friend WithEvents Label2 As System.Windows.Forms.Label
  37.     Friend WithEvents txtName As System.Windows.Forms.TextBox
  38.     Friend WithEvents Label3 As System.Windows.Forms.Label
  39.     Friend WithEvents txtPassword As System.Windows.Forms.TextBox
  40.     Friend WithEvents tbrSave As System.Windows.Forms.ToolBarButton
  41.     Friend WithEvents tbrmodify As System.Windows.Forms.ToolBarButton
  42.     Friend WithEvents tbrdelete As System.Windows.Forms.ToolBarButton
  43.     Friend WithEvents tbrSpr As System.Windows.Forms.ToolBarButton
  44.     Friend WithEvents tbrExit As System.Windows.Forms.ToolBarButton
  45.     Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
  46.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  47.     Friend WithEvents tbrAdd As System.Windows.Forms.ToolBarButton
  48.     Friend WithEvents tbrps As System.Windows.Forms.ToolBar
  49.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  50.     Friend WithEvents dgperson As System.Windows.Forms.DataGrid
  51.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  52.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  53.         Me.components = New System.ComponentModel.Container
  54.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPerson))
  55.         Me.tbrps = New System.Windows.Forms.ToolBar
  56.         Me.tbrAdd = New System.Windows.Forms.ToolBarButton
  57.         Me.tbrSave = New System.Windows.Forms.ToolBarButton
  58.         Me.tbrmodify = New System.Windows.Forms.ToolBarButton
  59.         Me.tbrdelete = New System.Windows.Forms.ToolBarButton
  60.         Me.tbrSpr = New System.Windows.Forms.ToolBarButton
  61.         Me.tbrExit = New System.Windows.Forms.ToolBarButton
  62.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  63.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  64.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  65.         Me.txtPassword = New System.Windows.Forms.TextBox
  66.         Me.Label3 = New System.Windows.Forms.Label
  67.         Me.txtName = New System.Windows.Forms.TextBox
  68.         Me.Label2 = New System.Windows.Forms.Label
  69.         Me.txtNumber = New System.Windows.Forms.TextBox
  70.         Me.Label1 = New System.Windows.Forms.Label
  71.         Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
  72.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  73.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  74.         Me.dgperson = New System.Windows.Forms.DataGrid
  75.         Me.GroupBox1.SuspendLayout()
  76.         Me.GroupBox2.SuspendLayout()
  77.         CType(Me.dgperson, System.ComponentModel.ISupportInitialize).BeginInit()
  78.         Me.SuspendLayout()
  79.         '
  80.         'tbrps
  81.         '
  82.         Me.tbrps.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  83.         Me.tbrps.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrAdd, Me.tbrSave, Me.tbrmodify, Me.tbrdelete, Me.tbrSpr, Me.tbrExit})
  84.         Me.tbrps.DropDownArrows = True
  85.         Me.tbrps.ImageList = Me.ImageList2
  86.         Me.tbrps.Location = New System.Drawing.Point(0, 0)
  87.         Me.tbrps.Name = "tbrps"
  88.         Me.tbrps.ShowToolTips = True
  89.         Me.tbrps.Size = New System.Drawing.Size(748, 44)
  90.         Me.tbrps.TabIndex = 0
  91.         '
  92.         'tbrAdd
  93.         '
  94.         Me.tbrAdd.ImageIndex = 7
  95.         Me.tbrAdd.Text = "添加"
  96.         '
  97.         'tbrSave
  98.         '
  99.         Me.tbrSave.ImageIndex = 4
  100.         Me.tbrSave.Text = "保存"
  101.         '
  102.         'tbrmodify
  103.         '
  104.         Me.tbrmodify.ImageIndex = 5
  105.         Me.tbrmodify.Text = "修改"
  106.         '
  107.         'tbrdelete
  108.         '
  109.         Me.tbrdelete.ImageIndex = 6
  110.         Me.tbrdelete.Text = "删除"
  111.         '
  112.         'tbrSpr
  113.         '
  114.         Me.tbrSpr.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  115.         '
  116.         'tbrExit
  117.         '
  118.         Me.tbrExit.ImageIndex = 11
  119.         Me.tbrExit.Text = "退出"
  120.         '
  121.         'ImageList2
  122.         '
  123.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  124.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  125.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  126.         '
  127.         'StatusBar1
  128.         '
  129.         Me.StatusBar1.Location = New System.Drawing.Point(0, 437)
  130.         Me.StatusBar1.Name = "StatusBar1"
  131.         Me.StatusBar1.Size = New System.Drawing.Size(748, 23)
  132.         Me.StatusBar1.TabIndex = 1
  133.         '
  134.         'GroupBox1
  135.         '
  136.         Me.GroupBox1.Controls.Add(Me.txtPassword)
  137.         Me.GroupBox1.Controls.Add(Me.Label3)
  138.         Me.GroupBox1.Controls.Add(Me.txtName)
  139.         Me.GroupBox1.Controls.Add(Me.Label2)
  140.         Me.GroupBox1.Controls.Add(Me.txtNumber)
  141.         Me.GroupBox1.Controls.Add(Me.Label1)
  142.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
  143.         Me.GroupBox1.Location = New System.Drawing.Point(0, 44)
  144.         Me.GroupBox1.Name = "GroupBox1"
  145.         Me.GroupBox1.Size = New System.Drawing.Size(256, 393)
  146.         Me.GroupBox1.TabIndex = 2
  147.         Me.GroupBox1.TabStop = False
  148.         Me.GroupBox1.Text = "人员信息"
  149.         '
  150.         'txtPassword
  151.         '
  152.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPassword, True)
  153.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPassword, MSDNTextboxValidator.DataTypeConstants.StringType)
  154.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPassword, "")
  155.         Me.txtPassword.Location = New System.Drawing.Point(72, 112)
  156.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPassword, "")
  157.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPassword, "")
  158.         Me.txtPassword.Name = "txtPassword"
  159.         Me.txtPassword.PasswordChar = Microsoft.VisualBasic.ChrW(42)
  160.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPassword, "")
  161.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPassword, False)
  162.         Me.txtPassword.Size = New System.Drawing.Size(176, 25)
  163.         Me.txtPassword.TabIndex = 5
  164.         Me.txtPassword.Text = ""
  165.         '
  166.         'Label3
  167.         '
  168.         Me.Label3.AutoSize = True
  169.         Me.Label3.Location = New System.Drawing.Point(8, 112)
  170.         Me.Label3.Name = "Label3"
  171.         Me.Label3.Size = New System.Drawing.Size(52, 21)
  172.         Me.Label3.TabIndex = 4
  173.         Me.Label3.Text = "密码："
  174.         '
  175.         'txtName
  176.         '
  177.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtName, True)
  178.         Me.MsdnTextboxValidator1.SetDataType(Me.txtName, MSDNTextboxValidator.DataTypeConstants.StringType)
  179.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtName, "")
  180.         Me.txtName.Location = New System.Drawing.Point(72, 72)
  181.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtName, "")
  182.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtName, "")
  183.         Me.txtName.Name = "txtName"
  184.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtName, "")
  185.         Me.MsdnTextboxValidator1.SetRequired(Me.txtName, False)
  186.         Me.txtName.Size = New System.Drawing.Size(176, 25)
  187.         Me.txtName.TabIndex = 3
  188.         Me.txtName.Text = ""
  189.         '
  190.         'Label2
  191.         '
  192.         Me.Label2.AutoSize = True
  193.         Me.Label2.Location = New System.Drawing.Point(8, 72)
  194.         Me.Label2.Name = "Label2"
  195.         Me.Label2.Size = New System.Drawing.Size(52, 21)
  196.         Me.Label2.TabIndex = 2
  197.         Me.Label2.Text = "姓名："
  198.         '
  199.         'txtNumber
  200.         '
  201.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNumber, True)
  202.         Me.MsdnTextboxValidator1.SetDataType(Me.txtNumber, MSDNTextboxValidator.DataTypeConstants.Int64Type)
  203.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNumber, "")
  204.         Me.txtNumber.Location = New System.Drawing.Point(72, 32)
  205.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNumber, "")
  206.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtNumber, "")
  207.         Me.txtNumber.Name = "txtNumber"
  208.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNumber, "")
  209.         Me.MsdnTextboxValidator1.SetRequired(Me.txtNumber, False)
  210.         Me.txtNumber.Size = New System.Drawing.Size(176, 25)
  211.         Me.txtNumber.TabIndex = 1
  212.         Me.txtNumber.Text = ""
  213.         '
  214.         'Label1
  215.         '
  216.         Me.Label1.AutoSize = True
  217.         Me.Label1.Location = New System.Drawing.Point(8, 32)
  218.         Me.Label1.Name = "Label1"
  219.         Me.Label1.Size = New System.Drawing.Size(52, 21)
  220.         Me.Label1.TabIndex = 0
  221.         Me.Label1.Text = "编号："
  222.         '
  223.         'MsdnTextboxValidator1
  224.         '
  225.         Me.MsdnTextboxValidator1.DisplayControl = Nothing
  226.         Me.MsdnTextboxValidator1.ErrorProvider = Nothing
  227.         Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
  228.         Me.MsdnTextboxValidator1.TooltipProvider = Nothing
  229.         '
  230.         'ErrorProvider1
  231.         '
  232.         Me.ErrorProvider1.ContainerControl = Me
  233.         '
  234.         'GroupBox2
  235.         '
  236.         Me.GroupBox2.Controls.Add(Me.dgperson)
  237.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
  238.         Me.GroupBox2.Location = New System.Drawing.Point(256, 44)
  239.         Me.GroupBox2.Name = "GroupBox2"
  240.         Me.GroupBox2.Size = New System.Drawing.Size(492, 393)
  241.         Me.GroupBox2.TabIndex = 3
  242.         Me.GroupBox2.TabStop = False
  243.         '
  244.         'dgperson
  245.         '
  246.         Me.dgperson.DataMember = ""
  247.         Me.dgperson.Dock = System.Windows.Forms.DockStyle.Fill
  248.         Me.dgperson.HeaderForeColor = System.Drawing.SystemColors.ControlText
  249.         Me.dgperson.Location = New System.Drawing.Point(3, 21)
  250.         Me.dgperson.Name = "dgperson"
  251.         Me.dgperson.Size = New System.Drawing.Size(486, 369)
  252.         Me.dgperson.TabIndex = 0
  253.         '
  254.         'frmPerson
  255.         '
  256.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  257.         Me.ClientSize = New System.Drawing.Size(748, 460)
  258.         Me.Controls.Add(Me.GroupBox2)
  259.         Me.Controls.Add(Me.GroupBox1)
  260.         Me.Controls.Add(Me.StatusBar1)
  261.         Me.Controls.Add(Me.tbrps)
  262.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  263.         Me.Name = "frmPerson"
  264.         Me.Text = "frmPerson"
  265.         Me.GroupBox1.ResumeLayout(False)
  266.         Me.GroupBox2.ResumeLayout(False)
  267.         CType(Me.dgperson, System.ComponentModel.ISupportInitialize).EndInit()
  268.         Me.ResumeLayout(False)
  270.     End Sub
  272. #End Region
  273.     Public lsweb As New jxcmanage
  274.     Public dslocals As New DataSet
  275.     Private Sub frmPerson_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  276.         dslocals = lsweb.returndataset("select * from wz_mm", "wz_mm")
  277.         ' dslocals.Clear()
  278.         dgperson.DataSource = dslocals.Tables("wz_mm").DefaultView
  279.     End Sub
  280.     Private Sub add()
  281.         txtNumber.Text = "".Trim()
  282.         txtName.Text = "".Trim()
  283.         txtPassword.Text = "".Trim()
  284.     End Sub
  285.     Private Sub save()
  286.         dslocals = lsweb.returndataset("select * from wz_mm", "wz_mm")
  287.         Dim dr As DataRow = dslocals.Tables(0).NewRow()
  288.         dr("人员代码") = txtNumber.Text.Trim
  289.         dr("操作员") = txtName.Text.Trim
  290.         dr("密码") = txtPassword.Text.Trim
  291.         dslocals.Tables(0).Rows.Add(dr)
  292.         If lsweb.updatedataset("select * from wz_mm", "wz_mm", dslocals, DataRowState.Added) = True Then
  293.             Dim strquery As String
  294.             strquery = "insert into dbo.wz_Qxmenu(username,Cname,Ename,Ctype,Cctype,Cbit,DBit) select '" & txtName.Text & "',Cname,Ename,Ctype,Cctype,Cbit,DBit from dbo.wz_Qxmenu where username='admin'"
  295.             lsweb.runSql(strquery)
  296.             MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  297.         Else
  298.             MessageBox.Show("信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  299.         End If
  300.         
  301.     End Sub
  302.     Private Sub modify()
  303.         If lsweb.updatedataset("select 人员代码,操作员,密码 from wz_mm", "wz_mm", dslocals, DataRowState.Modified) = True Then
  304.             MessageBox.Show("人员信息修改成功！", "提示", MessageBoxButtons.OK)
  305.         Else
  306.             MessageBox.Show("人员信息修改失败！", "提示", MessageBoxButtons.OK)
  307.         End If
  308.     End Sub
  310.     Private Sub delete()
  312.         Dim drv As DataRowView = BindingContext(Me.dgperson.DataSource).Current
  313.         If drv(0) Is System.DBNull.Value Then
  314.             MessageBox.Show("没有要删除的记录!", "提示", MessageBoxButtons.OK)
  315.         Else
  316.             Dim strquery As String = drv(0)
  317.             Try
  318.                 Dim strsql, strCustomer As String
  319.                 strCustomer = "delete wz_mm where 操作员='" & drv(1) & "'"
  320.                 lsweb.runSql(strCustomer)
  321.                 strsql = "delete wz_Qxmenu where username='" & drv(1) & "'"
  322.                 lsweb.runSql(strsql)
  323.                 MessageBox.Show("已经删除记录啦!", "提示", MessageBoxButtons.OK)
  324.             Catch ex As Exception
  325.                 MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK)
  326.             End Try
  327.             
  328.             
  329.         End If
  336.     End Sub
  337.     Private Sub view()
  338.         Dim drv As DataRowView = BindingContext(Me.dgperson.DataSource).Current
  339.         Dim dr As DataRow
  340.         dr = drv.Row
  341.         txtNumber.Text = IIf(dr("人员代码") Is System.DBNull.Value, "", dr("人员代码"))
  342.         txtName.Text = IIf(dr("操作员") Is System.DBNull.Value, "", dr("操作员"))
  343.         txtPassword.Text = IIf(dr("密码") Is System.DBNull.Value, "", dr("密码"))
  344.     End Sub
  345.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrps.ButtonClick
  346.         Select Case e.Button.Text
  347.             Case "添加"
  348.                 tbnEnable("tbrAdd.Enabled = False", tbrps)
  349.                 add()
  350.             Case "保存"
  351.                 If txtNumber.Text = "" Or txtName.Text = "" Then
  352.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  353.                 Else
  354.                     tbnEnable("tbrSave.Enabled = False", tbrps)
  355.                     save()
  356.                     Dim frmmaininst As New frmMain
  357.                     Dim mi As MenuItem
  359.                     For Each mi In frmmaininst.Menu.MenuItems
  360.                         lsweb.menuuser(Me.txtName.Text.Trim, "menuitemid", mi.Text.Trim)
  362.                     Next
  364.                 End If
  365.                
  366.             Case "修改"
  367.                 tbnEnable("tbrModify.Enabled = False", tbrps)
  368.                 modify()
  370.             Case "删除"
  371.                 tbnEnable("tbrDelete.Enabled = False", tbrps)
  372.                 delete()
  374.             Case "退出"
  375.                 Me.Close()
  377.         End Select
  378.     End Sub
  380.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  381.         If strboolean = "tbrAdd.Enabled = True" Then
  382.             tbrSave.Enabled = False
  383.             tbrmodify.Enabled = False
  384.             tbrdelete.Enabled = False
  385.             tbrExit.Enabled = True
  386.         ElseIf strboolean = "tbrAdd.Enabled = False" Then
  387.             tbrAdd.Enabled = False
  388.             tbrSave.Enabled = True
  389.             tbrmodify.Enabled = False
  390.             tbrdelete.Enabled = False
  391.             tbrExit.Enabled = True
  392.         ElseIf strboolean = "tbrSave.Enabled = True" Then
  393.             tbrAdd.Enabled = False
  394.             tbrmodify.Enabled = False
  395.             tbrdelete.Enabled = False
  396.             tbrExit.Enabled = True
  397.         ElseIf strboolean = "tbrSave.Enabled = False" Then
  398.             tbrSave.Enabled = False
  399.             tbrAdd.Enabled = True
  400.             tbrmodify.Enabled = True
  401.             tbrdelete.Enabled = True
  402.             tbrExit.Enabled = True
  403.         ElseIf strboolean = "tbrModify.Enabled = True" Then
  404.             tbrAdd.Enabled = False
  405.             tbrSave.Enabled = True
  406.             tbrdelete.Enabled = False
  407.             tbrExit.Enabled = True
  408.         ElseIf strboolean = "tbrModify.Enabled = False" Then
  409.             tbrmodify.Enabled = False
  410.             tbrAdd.Enabled = False
  411.             tbrSave.Enabled = True
  412.             tbrdelete.Enabled = False
  413.             tbrExit.Enabled = True
  414.         ElseIf strboolean = "tbrDelete.Enabled = True" Then
  415.             tbrAdd.Enabled = False
  416.             tbrSave.Enabled = True
  417.             tbrmodify.Enabled = False
  418.             tbrExit.Enabled = True
  419.         ElseIf strboolean = "tbrDelete.Enabled = False" Then
  420.             tbrdelete.Enabled = False
  421.             tbrAdd.Enabled = False
  422.             tbrSave.Enabled = True
  423.             tbrmodify.Enabled = False
  424.             tbrExit.Enabled = True
  425.         End If
  426.     End Sub
  428.     Private Sub txtNumber_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNumber.Validating
  429.         If txtNumber.Text = String.Empty Then
  430.             ErrorProvider1.SetError(txtNumber, "不能为空，请输入人员代码！")
  431.             e.Cancel = True
  432.         Else
  433.             ErrorProvider1.SetError(txtNumber, "")
  434.         End If
  435.     End Sub
  439.     Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtName.Validating
  440.         If txtName.Text = String.Empty Then
  441.             ErrorProvider1.SetError(txtName, "不能为空，请输入姓名！")
  442.             e.Cancel = True
  443.         Else
  444.             ErrorProvider1.SetError(txtName, "")
  445.         End If
  446.     End Sub
  450.     Private Sub txtPassword_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPassword.Validating
  451.         If txtPassword.Text = String.Empty Then
  452.             ErrorProvider1.SetError(txtPassword, "不能为空，请输入密码！")
  453.             e.Cancel = True
  454.         Else
  455.             ErrorProvider1.SetError(txtPassword, "")
  456.         End If
  457.     End Sub
  459.    
  461.     Private Sub dgperson_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgperson.CurrentCellChanged
  462.         view()
  463.         tbrmodify.Enabled = True
  464.         tbrdelete.Enabled = True
  466.         tbrExit.Enabled = True
  467.     End Sub
  468. End Class