frmoperator.vb

一个用vb开发的档案管理程序

		Me.Picture1.Visible = True
		Me.Picture1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Picture1.Name = "Picture1"
		Me.Label6.Text = "添加新的帐号"
		Me.Label6.ForeColor = System.Drawing.Color.White
		Me.Label6.Size = New System.Drawing.Size(72, 12)
		Me.Label6.Location = New System.Drawing.Point(174, 10)
		Me.Label6.TabIndex = 11
		Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label6.BackColor = System.Drawing.Color.Transparent
		Me.Label6.Enabled = True
		Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label6.UseMnemonic = True
		Me.Label6.Visible = True
		Me.Label6.AutoSize = True
		Me.Label6.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label6.Name = "Label6"
		Me.Label5.Text = "=> 输入各项之后,按保存"
		Me.Label5.ForeColor = System.Drawing.Color.Black
		Me.Label5.Size = New System.Drawing.Size(132, 12)
		Me.Label5.Location = New System.Drawing.Point(189, 27)
		Me.Label5.TabIndex = 10
		Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label5.BackColor = System.Drawing.Color.Transparent
		Me.Label5.Enabled = True
		Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label5.UseMnemonic = True
		Me.Label5.Visible = True
		Me.Label5.AutoSize = True
		Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label5.Name = "Label5"
		Me.Label7.Text = "删除存在的帐号："
		Me.Label7.ForeColor = System.Drawing.Color.White
		Me.Label7.Size = New System.Drawing.Size(96, 12)
		Me.Label7.Location = New System.Drawing.Point(10, 10)
		Me.Label7.TabIndex = 9
		Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label7.BackColor = System.Drawing.Color.Transparent
		Me.Label7.Enabled = True
		Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label7.UseMnemonic = True
		Me.Label7.Visible = True
		Me.Label7.AutoSize = True
		Me.Label7.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label7.Name = "Label7"
		Me.Label8.Text = "=> 双击选定的帐号"
		Me.Label8.Size = New System.Drawing.Size(102, 12)
		Me.Label8.Location = New System.Drawing.Point(36, 27)
		Me.Label8.TabIndex = 8
		Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label8.BackColor = System.Drawing.Color.Transparent
		Me.Label8.Enabled = True
		Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label8.UseMnemonic = True
		Me.Label8.Visible = True
		Me.Label8.AutoSize = True
		Me.Label8.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label8.Name = "Label8"
		Me._Label3_1.Text = "权限："
		Me._Label3_1.ForeColor = System.Drawing.Color.FromARGB(192, 0, 0)
		Me._Label3_1.Size = New System.Drawing.Size(36, 12)
		Me._Label3_1.Location = New System.Drawing.Point(251, 161)
		Me._Label3_1.TabIndex = 16
		Me._Label3_1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._Label3_1.BackColor = System.Drawing.SystemColors.Control
		Me._Label3_1.Enabled = True
		Me._Label3_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._Label3_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._Label3_1.UseMnemonic = True
		Me._Label3_1.Visible = True
		Me._Label3_1.AutoSize = True
		Me._Label3_1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._Label3_1.Name = "_Label3_1"
		Me._Line3_2.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line3_2.Visible = True
		Me._Line3_2.Location = New System.Drawing.Point(406, 1)
		Me._Line3_2.Width = 1
		Me._Line3_2.Height = 237
		Me._Line3_2.Name = "_Line3_2"
		Me._Line2_2.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line2_2.Visible = True
		Me._Line2_2.Location = New System.Drawing.Point(405, 1)
		Me._Line2_2.Width = 1
		Me._Line2_2.Height = 235
		Me._Line2_2.Name = "_Line2_2"
		Me._Line3_0.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line3_0.Visible = True
		Me._Line3_0.Location = New System.Drawing.Point(2, 1)
		Me._Line3_0.Width = 1
		Me._Line3_0.Height = 235
		Me._Line3_0.Name = "_Line3_0"
		Me._Line2_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line2_0.Visible = True
		Me._Line2_0.Location = New System.Drawing.Point(1, 0)
		Me._Line2_0.Width = 1
		Me._Line2_0.Height = 236
		Me._Line2_0.Name = "_Line2_0"
		Me._Line1_4.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line1_4.Visible = True
		Me._Line1_4.Location = New System.Drawing.Point(2, 236)
		Me._Line1_4.Width = 404
		Me._Line1_4.Height = 1
		Me._Line1_4.Name = "_Line1_4"
		Me._Line1_3.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line1_3.Visible = True
		Me._Line1_3.Location = New System.Drawing.Point(1, 237)
		Me._Line1_3.Width = 405
		Me._Line1_3.Height = 1
		Me._Line1_3.Name = "_Line1_3"
		Me._Line1_2.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line1_2.Visible = True
		Me._Line1_2.Location = New System.Drawing.Point(3, 1)
		Me._Line1_2.Width = 403
		Me._Line1_2.Height = 1
		Me._Line1_2.Name = "_Line1_2"
		Me._Line1_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line1_0.Visible = True
		Me._Line1_0.Location = New System.Drawing.Point(1, 0)
		Me._Line1_0.Width = 405
		Me._Line1_0.Height = 1
		Me._Line1_0.Name = "_Line1_0"
		Me.Label1.Text = "姓名："
		Me.Label1.Size = New System.Drawing.Size(41, 12)
		Me.Label1.Location = New System.Drawing.Point(251, 90)
		Me.Label1.TabIndex = 15
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label1.BackColor = System.Drawing.SystemColors.Control
		Me.Label1.Enabled = True
		Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label1.UseMnemonic = True
		Me.Label1.Visible = True
		Me.Label1.AutoSize = True
		Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label1.Name = "Label1"
		Me.Label2.Text = "口令："
		Me.Label2.Size = New System.Drawing.Size(41, 12)
		Me.Label2.Location = New System.Drawing.Point(251, 114)
		Me.Label2.TabIndex = 14
		Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label2.BackColor = System.Drawing.SystemColors.Control
		Me.Label2.Enabled = True
		Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label2.UseMnemonic = True
		Me.Label2.Visible = True
		Me.Label2.AutoSize = True
		Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label2.Name = "Label2"
		Me._Label3_0.Text = "重复："
		Me._Label3_0.Size = New System.Drawing.Size(41, 12)
		Me._Label3_0.Location = New System.Drawing.Point(251, 137)
		Me._Label3_0.TabIndex = 13
		Me._Label3_0.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me._Label3_0.BackColor = System.Drawing.SystemColors.Control
		Me._Label3_0.Enabled = True
		Me._Label3_0.ForeColor = System.Drawing.SystemColors.ControlText
		Me._Label3_0.Cursor = System.Windows.Forms.Cursors.Default
		Me._Label3_0.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._Label3_0.UseMnemonic = True
		Me._Label3_0.Visible = True
		Me._Label3_0.AutoSize = True
		Me._Label3_0.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._Label3_0.Name = "_Label3_0"
		Me._Line1_1.BackColor = System.Drawing.SystemColors.WindowText
		Me._Line1_1.Visible = True
		Me._Line1_1.Location = New System.Drawing.Point(10, 64)
		Me._Line1_1.Width = 386
		Me._Line1_1.Height = 1
		Me._Line1_1.Name = "_Line1_1"
		Me._Line2_1.BackColor = System.Drawing.Color.White
		Me._Line2_1.Visible = True
		Me._Line2_1.Location = New System.Drawing.Point(10, 65)
		Me._Line2_1.Width = 385
		Me._Line2_1.Height = 1
		Me._Line2_1.Name = "_Line2_1"
		Me._Line3_1.BackColor = System.Drawing.Color.White
		Me._Line3_1.Visible = True
		Me._Line3_1.Location = New System.Drawing.Point(240, 190)
		Me._Line3_1.Width = 156
		Me._Line3_1.Height = 1
		Me._Line3_1.Name = "_Line3_1"
		Me.Line4.BackColor = System.Drawing.SystemColors.WindowText
		Me.Line4.Visible = True
		Me.Line4.Location = New System.Drawing.Point(240, 189)
		Me.Line4.Width = 156
		Me.Line4.Height = 1
		Me.Line4.Name = "Line4"
		Me.MnuOperate.Text = "帐号操作^&C)"
		Me.MnuOperate.Checked = False
		Me.MnuOperate.Enabled = True
		Me.MnuOperate.Visible = True
		Me.MnuOperate.MDIList = False
		Me.MnuAdd.Text = "添加帐号[&A]"
		Me.MnuAdd.Shortcut = System.Windows.Forms.Shortcut.CtrlA
		Me.MnuAdd.Checked = False
		Me.MnuAdd.Enabled = True
		Me.MnuAdd.Visible = True
		Me.MnuAdd.MDIList = False
		Me.Line02.Text = "-"
		Me.Line02.Checked = False
		Me.Line02.Enabled = True
		Me.Line02.Visible = True
		Me.Line02.MDIList = False
		Me.MnuDelete.Text = "删除帐号[&D] ..."
		Me.MnuDelete.Shortcut = System.Windows.Forms.Shortcut.Del
		Me.MnuDelete.Checked = False
		Me.MnuDelete.Enabled = True
		Me.MnuDelete.Visible = True
		Me.MnuDelete.MDIList = False
		Me.Line01.Text = "-"
		Me.Line01.Visible = False
		Me.Line01.Checked = False
		Me.Line01.Enabled = True
		Me.Line01.MDIList = False
		Me.MnuReturn.Text = "关闭选择^&O)"
		Me.MnuReturn.Checked = False
		Me.MnuReturn.Enabled = True
		Me.MnuReturn.Visible = True
		Me.MnuReturn.MDIList = False
		Me.MnuAuthority.Text = "返回首页[&A]..."
		Me.MnuAuthority.Shortcut = System.Windows.Forms.Shortcut.CtrlR
		Me.MnuAuthority.Checked = False
		Me.MnuAuthority.Enabled = True
		Me.MnuAuthority.Visible = True
		Me.MnuAuthority.MDIList = False
		Me.Controls.Add(cmbAuthority)
		Me.Controls.Add(Frame1)
		Me.Controls.Add(Text1)
		Me.Controls.Add(Text2)
		Me.Controls.Add(Text3)
		Me.Controls.Add(Command1)
		Me.Controls.Add(Command2)
		Me.Controls.Add(Picture1)
		Me.Controls.Add(_Label3_1)
		Me.Controls.Add(_Line3_2)
		Me.Controls.Add(_Line2_2)
		Me.Controls.Add(_Line3_0)
		Me.Controls.Add(_Line2_0)
		Me.Controls.Add(_Line1_4)
		Me.Controls.Add(_Line1_3)
		Me.Controls.Add(_Line1_2)
		Me.Controls.Add(_Line1_0)
		Me.Controls.Add(Label1)
		Me.Controls.Add(Label2)
		Me.Controls.Add(_Label3_0)
		Me.Controls.Add(_Line1_1)
		Me.Controls.Add(_Line2_1)
		Me.Controls.Add(_Line3_1)
		Me.Controls.Add(Line4)
		Me.Frame1.Controls.Add(Grid1)
		Me.Frame1.Controls.Add(Line8)
		Me.Frame1.Controls.Add(Line7)
		Me.Frame1.Controls.Add(Line6)
		Me.Frame1.Controls.Add(Line5)
		Me.Picture1.Controls.Add(Label6)
		Me.Picture1.Controls.Add(Label5)
		Me.Picture1.Controls.Add(Label7)
		Me.Picture1.Controls.Add(Label8)
		Me.Label3.SetIndex(_Label3_1, CType(1, Short))
		Me.Label3.SetIndex(_Label3_0, CType(0, Short))
		Me.Line1.SetIndex(_Line1_4, CType(4, Short))
		Me.Line1.SetIndex(_Line1_3, CType(3, Short))
		Me.Line1.SetIndex(_Line1_2, CType(2, Short))
		Me.Line1.SetIndex(_Line1_0, CType(0, Short))
		Me.Line1.SetIndex(_Line1_1, CType(1, Short))
		Me.Line2.SetIndex(_Line2_2, CType(2, Short))
		Me.Line2.SetIndex(_Line2_0, CType(0, Short))
		Me.Line2.SetIndex(_Line2_1, CType(1, Short))
		Me.Line3.SetIndex(_Line3_2, CType(2, Short))
		Me.Line3.SetIndex(_Line3_0, CType(0, Short))
		Me.Line3.SetIndex(_Line3_1, CType(1, Short))
		CType(Me.Line3, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line2, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line1, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Grid1, System.ComponentModel.ISupportInitialize).EndInit()
		Me.MnuOperate.Index = 0
		Me.MnuReturn.Index = 1
		MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.MnuOperate, Me.MnuReturn})
		Me.MnuAdd.Index = 0
		Me.Line02.Index = 1
		Me.MnuDelete.Index = 2
		Me.Line01.Index = 3
		MnuOperate.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.MnuAdd, Me.Line02, Me.MnuDelete, Me.Line01})
		Me.MnuAuthority.Index = 0
		MnuReturn.MenuItems.AddRange(New System.Windows.Forms.MenuItem(){Me.MnuAuthority})
		Me.Menu = MainMenu1
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmOperator
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmOperator
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmOperator()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim DelNO As Short
	Dim UserStr As String
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 cmbAuthority.TextChanged。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2075"'
	'UPGRADE_WARNING: ComboBox 事件 cmbAuthority.Change 被升级为具有新行为的 cmbAuthority.TextChanged。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2074"'
	Private Sub cmbAuthority_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmbAuthority.TextChanged
		Dim KeyAscii As Object
		
		'UPGRADE_WARNING: 未能解析对象 KeyAscii 的默认属性。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
		If KeyAscii = 13 Then
			System.Windows.Forms.SendKeys.Send("{tab}")
		End If
		
	End Sub
	
	Private Sub cmbAuthority_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles cmbAuthority.KeyPress
		Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
		
		If KeyAscii = 13 Then