frmqu_de.vb

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

		Me.txt_money.Cursor = System.Windows.Forms.Cursors.IBeam
		Me.txt_money.MultiLine = False
		Me.txt_money.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.txt_money.ScrollBars = System.Windows.Forms.ScrollBars.None
		Me.txt_money.TabStop = True
		Me.txt_money.Visible = True
		Me.txt_money.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.txt_money.Name = "txt_money"
		Me.txt_order.AutoSize = False
		Me.txt_order.Size = New System.Drawing.Size(81, 25)
		Me.txt_order.Location = New System.Drawing.Point(96, 8)
		Me.txt_order.TabIndex = 2
		Me.txt_order.AcceptsReturn = True
		Me.txt_order.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
		Me.txt_order.BackColor = System.Drawing.SystemColors.Window
		Me.txt_order.CausesValidation = True
		Me.txt_order.Enabled = True
		Me.txt_order.ForeColor = System.Drawing.SystemColors.WindowText
		Me.txt_order.HideSelection = True
		Me.txt_order.ReadOnly = False
		Me.txt_order.Maxlength = 0
		Me.txt_order.Cursor = System.Windows.Forms.Cursors.IBeam
		Me.txt_order.MultiLine = False
		Me.txt_order.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.txt_order.ScrollBars = System.Windows.Forms.ScrollBars.None
		Me.txt_order.TabStop = True
		Me.txt_order.Visible = True
		Me.txt_order.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.txt_order.Name = "txt_order"
		Me.Label2.Text = "开支小类别："
		Me.Label2.Size = New System.Drawing.Size(73, 17)
		Me.Label2.Location = New System.Drawing.Point(216, 72)
		Me.Label2.TabIndex = 23
		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.ForeColor = System.Drawing.Color.Red
		Me.Label1.Size = New System.Drawing.Size(257, 41)
		Me.Label1.Location = New System.Drawing.Point(8, 104)
		Me.Label1.TabIndex = 20
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.Label1.BackColor = System.Drawing.SystemColors.Control
		Me.Label1.Enabled = True
		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.labmoney.Text = "开支金额："
		Me.labmoney.Size = New System.Drawing.Size(73, 25)
		Me.labmoney.Location = New System.Drawing.Point(8, 72)
		Me.labmoney.TabIndex = 12
		Me.labmoney.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.labmoney.BackColor = System.Drawing.SystemColors.Control
		Me.labmoney.Enabled = True
		Me.labmoney.ForeColor = System.Drawing.SystemColors.ControlText
		Me.labmoney.Cursor = System.Windows.Forms.Cursors.Default
		Me.labmoney.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.labmoney.UseMnemonic = True
		Me.labmoney.Visible = True
		Me.labmoney.AutoSize = False
		Me.labmoney.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.labmoney.Name = "labmoney"
		Me.labkind.Text = "开支大类别："
		Me.labkind.Size = New System.Drawing.Size(73, 17)
		Me.labkind.Location = New System.Drawing.Point(216, 40)
		Me.labkind.TabIndex = 11
		Me.labkind.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.labkind.BackColor = System.Drawing.SystemColors.Control
		Me.labkind.Enabled = True
		Me.labkind.ForeColor = System.Drawing.SystemColors.ControlText
		Me.labkind.Cursor = System.Windows.Forms.Cursors.Default
		Me.labkind.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.labkind.UseMnemonic = True
		Me.labkind.Visible = True
		Me.labkind.AutoSize = False
		Me.labkind.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.labkind.Name = "labkind"
		Me.ladusename.Text = "开支人："
		Me.ladusename.Size = New System.Drawing.Size(73, 17)
		Me.ladusename.Location = New System.Drawing.Point(8, 40)
		Me.ladusename.TabIndex = 10
		Me.ladusename.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.ladusename.BackColor = System.Drawing.SystemColors.Control
		Me.ladusename.Enabled = True
		Me.ladusename.ForeColor = System.Drawing.SystemColors.ControlText
		Me.ladusename.Cursor = System.Windows.Forms.Cursors.Default
		Me.ladusename.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.ladusename.UseMnemonic = True
		Me.ladusename.Visible = True
		Me.ladusename.AutoSize = False
		Me.ladusename.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.ladusename.Name = "ladusename"
		Me.labdate.Text = "开支日期："
		Me.labdate.Size = New System.Drawing.Size(73, 25)
		Me.labdate.Location = New System.Drawing.Point(216, 8)
		Me.labdate.TabIndex = 9
		Me.labdate.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.labdate.BackColor = System.Drawing.SystemColors.Control
		Me.labdate.Enabled = True
		Me.labdate.ForeColor = System.Drawing.SystemColors.ControlText
		Me.labdate.Cursor = System.Windows.Forms.Cursors.Default
		Me.labdate.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.labdate.UseMnemonic = True
		Me.labdate.Visible = True
		Me.labdate.AutoSize = False
		Me.labdate.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.labdate.Name = "labdate"
		Me.laborder.Text = "开支编号："
		Me.laborder.Size = New System.Drawing.Size(73, 25)
		Me.laborder.Location = New System.Drawing.Point(8, 8)
		Me.laborder.TabIndex = 1
		Me.laborder.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.laborder.BackColor = System.Drawing.SystemColors.Control
		Me.laborder.Enabled = True
		Me.laborder.ForeColor = System.Drawing.SystemColors.ControlText
		Me.laborder.Cursor = System.Windows.Forms.Cursors.Default
		Me.laborder.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.laborder.UseMnemonic = True
		Me.laborder.Visible = True
		Me.laborder.AutoSize = False
		Me.laborder.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.laborder.Name = "laborder"
		Me.Controls.Add(cbo_xkind)
		Me.Controls.Add(Command1)
		Me.Controls.Add(cmdcancel)
		Me.Controls.Add(cmddelete)
		Me.Controls.Add(StatusBar1)
		Me.Controls.Add(cmd_exit)
		Me.Controls.Add(cmdsave)
		Me.Controls.Add(cmdmodify)
		Me.Controls.Add(DTPicker_date)
		Me.Controls.Add(cmdlast)
		Me.Controls.Add(cmdnext)
		Me.Controls.Add(cmdprevious)
		Me.Controls.Add(cmdfirst)
		Me.Controls.Add(cbo_kind)
		Me.Controls.Add(cbo_usename)
		Me.Controls.Add(txt_money)
		Me.Controls.Add(txt_order)
		Me.Controls.Add(Label2)
		Me.Controls.Add(Label1)
		Me.Controls.Add(labmoney)
		Me.Controls.Add(labkind)
		Me.Controls.Add(ladusename)
		Me.Controls.Add(labdate)
		Me.Controls.Add(laborder)
		CType(Me.DTPicker_date, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.StatusBar1, System.ComponentModel.ISupportInitialize).EndInit()
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmmodi_del
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmmodi_del
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmmodi_del()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim db As DAO.Database
	Dim rs As DAO.Recordset
	Dim rs2 As DAO.Recordset
	Dim txtchange As String
	
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 cbo_kind.SelectedIndexChanged。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2075"”
	Private Sub cbo_kind_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cbo_kind.SelectedIndexChanged
		Dim sql As String
		Dim xkrs As DAO.Recordset
		sql = "select xkind_name from xkind where dkind_name ='" & Trim(cbo_kind.Text) & "'"
		xkrs = db.OpenRecordset(sql)
		cbo_xkind.Items.Clear()
		If Not xkrs.EOF Then
			xkrs.MoveFirst()
			Do Until xkrs.EOF
				cbo_xkind.Items.Add(Trim(xkrs.Fields("xkind_name").Value))
				xkrs.MoveNext()
			Loop 
		Else
			MsgBox("数据库中没有小类别数据,请在添加!", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "设置小类别")
		End If
		cbo_xkind.SelectedIndex = 0
	End Sub
	
	Private Sub cbo_kind_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles cbo_kind.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 cbo_usename_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles cbo_usename.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 cmd_exit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmd_exit.Click
		Me.Close()
		frmmain.DefInstance.Show()
	End Sub
	
	Private Sub cmdcancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdcancel.Click
		'使各按钮有效
		cmdfirst.Enabled = True
		cmdlast.Enabled = True
		cmdnext.Enabled = True
		cmdprevious.Enabled = True
		cmddelete.Enabled = True
		
		'使各文本框无效
		txt_order.ReadOnly = True
		'UPGRADE_ISSUE: ComboBox 属性 cbo_usename.Locked 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		cbo_usename.Locked = True
		'UPGRADE_ISSUE: ComboBox 属性 cbo_kind.Locked 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		cbo_kind.Locked = True
		'UPGRADE_ISSUE: ComboBox 属性 cbo_xkind.Locked 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		cbo_xkind.Locked = True
		txt_money.ReadOnly = True
		DTPicker_date.Enabled = False
		
		'使保存按钮无效
		cmdsave.Enabled = False
	End Sub
	
	Private Sub cmddelete_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmddelete.Click
		Dim intanswer As String
		rs2 = db.OpenRecordset("select * from payout where " & Trim("pay_order") & Trim("=") & (txt_order.Text))
		rs2.MoveFirst()
		Do Until rs2.EOF
			intanswer = CStr(MsgBox("确实要删除该条记录吗?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "提示"))
			If intanswer = CStr(MsgBoxResult.Yes) Then
				rs2.Delete()
				rs2.MoveNext()
			Else
				Exit Sub
			End If
		Loop 
		rs.MoveFirst()
		Call viewdata()
		
	End Sub
	Public Sub viewdata()
		
		txt_order.Text = rs.Fields("pay_order").Value
		DTPicker_date._Value = rs.Fields("pay_date").Value
		cbo_usename.Text = rs.Fields("pay_usename").Value
		cbo_kind.Text = rs.Fields("pay_kind").Value
		cbo_xkind.Text = rs.Fields("payx_kind").Value
		txt_money.Text = rs.Fields("pay_money").Value
	End Sub
	
	Private Sub cmdfirst_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdfirst.Click
		On Error Resume Next
		rs.MoveFirst()
		Call viewdata()
	End Sub
	
	Private Sub cmdlast_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdlast.Click
		On Error Resume Next
		rs.MoveLast()
		
		Call viewdata()
	End Sub
	
	Private Sub cmdmodify_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdmodify.Click
		
		txtchange = Trim(txt_order.Text)
		
		'使各按钮无效
		cmdfirst.Enabled = False
		cmdlast.Enabled = False
		cmdnext.Enabled = False
		cmdprevious.Enabled = False
		cmddelete.Enabled = False
		
		'使各文本框有效
		txt_order.ReadOnly = False
		'UPGRADE_ISSUE: ComboBox 属性 cbo_usename.Locked 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		cbo_usename.Locked = False
		'UPGRADE_ISSUE: ComboBox 属性 cbo_kind.Locked 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		cbo_kind.Locked = False
		'UPGRADE_ISSUE: ComboBox 属性 cbo_xkind.Locked 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		cbo_xkind.Locked = False
		txt_money.ReadOnly = False
		DTPicker_date.Enabled = True
		
		'使保存按钮有效
		cmdsave.Enabled = True