frmuser_modi.vb

对家庭的开支有一个全面的了解和统计

		Me.txttwopwd.Visible = True
		Me.txttwopwd.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.txttwopwd.Name = "txttwopwd"
		Me.Label4.Text = "新密码密码:"
		Me.Label4.Size = New System.Drawing.Size(73, 25)
		Me.Label4.Location = New System.Drawing.Point(16, 93)
		Me.Label4.TabIndex = 9
		Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label4.BackColor = System.Drawing.SystemColors.Control
		Me.Label4.Enabled = True
		Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label4.UseMnemonic = True
		Me.Label4.Visible = True
		Me.Label4.AutoSize = False
		Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label4.Name = "Label4"
		Me.Label3.Text = "用户旧密码:"
		Me.Label3.Size = New System.Drawing.Size(73, 25)
		Me.Label3.Location = New System.Drawing.Point(16, 51)
		Me.Label3.TabIndex = 8
		Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label3.BackColor = System.Drawing.SystemColors.Control
		Me.Label3.Enabled = True
		Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label3.UseMnemonic = True
		Me.Label3.Visible = True
		Me.Label3.AutoSize = False
		Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label3.Name = "Label3"
		Me.Label2.Text = "用户名:"
		Me.Label2.Size = New System.Drawing.Size(73, 25)
		Me.Label2.Location = New System.Drawing.Point(16, 8)
		Me.Label2.TabIndex = 7
		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 = False
		Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label2.Name = "Label2"
		Me.Label1.Text = "确认新密码:"
		Me.Label1.Size = New System.Drawing.Size(73, 25)
		Me.Label1.Location = New System.Drawing.Point(16, 136)
		Me.Label1.TabIndex = 0
		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 = False
		Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label1.Name = "Label1"
		Me.Controls.Add(cmdcancel)
		Me.Controls.Add(cmdok)
		Me.Controls.Add(txtnewpwd)
		Me.Controls.Add(txtoldpwd)
		Me.Controls.Add(txtusername)
		Me.Controls.Add(txttwopwd)
		Me.Controls.Add(Label4)
		Me.Controls.Add(Label3)
		Me.Controls.Add(Label2)
		Me.Controls.Add(Label1)
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmuser_modi
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmuser_modi
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmuser_modi()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim txtsql As String
	Dim userdb As DAO.Database
	Dim userrs As DAO.Recordset
	
	
	Sub entertotab(ByRef KeyAscii As Short)
		If KeyAscii = 13 Then
			System.Windows.Forms.SendKeys.Send("{TAB}")
		End If
	End Sub
	
	
	Private Sub cmdcancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdcancel.Click
		Me.Close()
		frmmain.DefInstance.Show()
	End Sub
	
	Private Sub cmdok_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdok.Click
		
		userdb = DAODBEngine_definst.OpenDatabase("d:\data\payout.mdb")
		txtsql = "select * from user where user_name =  '" & txtusername.Text & "'"
		userrs = userdb.OpenRecordset(txtsql)
		
		
		
		If Trim(userrs.Fields(2).Value) <> Trim(txtoldpwd.Text) Then
			MsgBox("你输入的用户旧密码不对,请重新输入!", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "警告")
			txtoldpwd.Text = ""
			txtnewpwd.Text = ""
			txttwopwd.Text = ""
			txtoldpwd.Focus()
		ElseIf Trim(txtnewpwd.Text) <> Trim(txttwopwd.Text) Then 
			MsgBox(" 你两次输入的密码不一致,请重新输入!", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "警告")
			txtnewpwd.Text = ""
			txttwopwd.Text = ""
			txtnewpwd.Focus()
		Else
			userrs.Edit()
			userrs.Fields(2).Value = Trim(txtnewpwd.Text)
			userrs.Update()
			userrs.Close()
			MsgBox("密码修改成功!", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "成功")
			cmdcancel.Text = "退出"
			cmdcancel.Focus()
			txtoldpwd.Text = ""
			txtnewpwd.Text = ""
			txttwopwd.Text = ""
		End If
	End Sub
	
	Private Sub frmuser_modi_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		txtusername.Text = username
		
	End Sub
	
	'UPGRADE_WARNING: Form 事件 frmuser_modi.Unload 具有新的行为。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2065"”
	Private Sub frmuser_modi_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
		Me.Close()
		frmmain.DefInstance.Show()
	End Sub
	
	Private Sub txtnewpwd_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles txtnewpwd.KeyPress
		Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
		If KeyAscii = 13 Then
			System.Windows.Forms.SendKeys.Send("{TAB}")
		End If
		If KeyAscii = 0 Then
			eventArgs.Handled = True
		End If
	End Sub
	
	Private Sub txtoldpwd_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles txtoldpwd.KeyPress
		Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
		If KeyAscii = 13 Then
			System.Windows.Forms.SendKeys.Send("{TAB}")
		End If
		If KeyAscii = 0 Then
			eventArgs.Handled = True
		End If
	End Sub
	
	Private Sub txttwopwd_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles txttwopwd.KeyPress
		Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
		If KeyAscii = 13 Then
			System.Windows.Forms.SendKeys.Send("{TAB}")
		End If
		If KeyAscii = 0 Then
			eventArgs.Handled = True
		End If
	End Sub
	
	Private Sub txtusername_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles txtusername.KeyPress
		Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
		If KeyAscii = 13 Then
			System.Windows.Forms.SendKeys.Send("{TAB}")
		End If
		If KeyAscii = 0 Then
			eventArgs.Handled = True
		End If
	End Sub
End Class