frmsysdata.vb

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

		Me._cmdadd_2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		Me._cmdadd_2.Text = "新增"
		Me._cmdadd_2.Size = New System.Drawing.Size(57, 25)
		Me._cmdadd_2.Location = New System.Drawing.Point(16, 176)
		Me._cmdadd_2.TabIndex = 26
		Me._cmdadd_2.BackColor = System.Drawing.SystemColors.Control
		Me._cmdadd_2.CausesValidation = True
		Me._cmdadd_2.Enabled = True
		Me._cmdadd_2.ForeColor = System.Drawing.SystemColors.ControlText
		Me._cmdadd_2.Cursor = System.Windows.Forms.Cursors.Default
		Me._cmdadd_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._cmdadd_2.TabStop = True
		Me._cmdadd_2.Name = "_cmdadd_2"
		Me.Data3.Text = "开支小类别"
		Me.Data3.Size = New System.Drawing.Size(161, 19)
		Me.Data3.Location = New System.Drawing.Point(128, 152)
		Me.Data3.BackColor = System.Drawing.Color.Red
		Me.Data3.ForeColor = System.Drawing.Color.Black
		Me.Data3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.Data3.Text = "Data3"
		Me.Data3.Name = "Data3"
		MSFlexGrid3.OcxState = CType(resources.GetObject("MSFlexGrid3.OcxState"), System.Windows.Forms.AxHost.State)
		Me.MSFlexGrid3.Size = New System.Drawing.Size(185, 113)
		Me.MSFlexGrid3.Location = New System.Drawing.Point(112, 32)
		Me.MSFlexGrid3.TabIndex = 29
		Me.MSFlexGrid3.Name = "MSFlexGrid3"
		Me.Controls.Add(STab)
		Me.STab.Controls.Add(_STab_TabPage0)
		Me.STab.Controls.Add(_STab_TabPage1)
		Me.STab.Controls.Add(_STab_TabPage2)
		Me._STab_TabPage0.Controls.Add(Label1)
		Me._STab_TabPage0.Controls.Add(Label2)
		Me._STab_TabPage0.Controls.Add(txt_order)
		Me._STab_TabPage0.Controls.Add(txt_name)
		Me._STab_TabPage0.Controls.Add(_cmdexit_0)
		Me._STab_TabPage0.Controls.Add(_cmdsave_0)
		Me._STab_TabPage0.Controls.Add(_cmddel_0)
		Me._STab_TabPage0.Controls.Add(_cmdadd_0)
		Me._STab_TabPage0.Controls.Add(Data1)
		Me._STab_TabPage0.Controls.Add(MSFlexGrid1)
		Me._STab_TabPage1.Controls.Add(Label3)
		Me._STab_TabPage1.Controls.Add(Label4)
		Me._STab_TabPage1.Controls.Add(txtdk_order)
		Me._STab_TabPage1.Controls.Add(txtdk_name)
		Me._STab_TabPage1.Controls.Add(_cmdexit_1)
		Me._STab_TabPage1.Controls.Add(_cmdsave_1)
		Me._STab_TabPage1.Controls.Add(_cmddel_1)
		Me._STab_TabPage1.Controls.Add(_cmdadd_1)
		Me._STab_TabPage1.Controls.Add(Data2)
		Me._STab_TabPage1.Controls.Add(MSFlexGrid2)
		Me._STab_TabPage2.Controls.Add(Label5)
		Me._STab_TabPage2.Controls.Add(Label6)
		Me._STab_TabPage2.Controls.Add(Label7)
		Me._STab_TabPage2.Controls.Add(txtxk_order)
		Me._STab_TabPage2.Controls.Add(txtxk_name)
		Me._STab_TabPage2.Controls.Add(cbodk_name)
		Me._STab_TabPage2.Controls.Add(_cmdexit_2)
		Me._STab_TabPage2.Controls.Add(_cmdsave_2)
		Me._STab_TabPage2.Controls.Add(_cmddel_2)
		Me._STab_TabPage2.Controls.Add(_cmdadd_2)
		Me._STab_TabPage2.Controls.Add(Data3)
		Me._STab_TabPage2.Controls.Add(MSFlexGrid3)
		Me.cmdadd.SetIndex(_cmdadd_2, CType(2, Short))
		Me.cmdadd.SetIndex(_cmdadd_1, CType(1, Short))
		Me.cmdadd.SetIndex(_cmdadd_0, CType(0, Short))
		Me.cmddel.SetIndex(_cmddel_2, CType(2, Short))
		Me.cmddel.SetIndex(_cmddel_1, CType(1, Short))
		Me.cmddel.SetIndex(_cmddel_0, CType(0, Short))
		Me.cmdexit.SetIndex(_cmdexit_2, CType(2, Short))
		Me.cmdexit.SetIndex(_cmdexit_1, CType(1, Short))
		Me.cmdexit.SetIndex(_cmdexit_0, CType(0, Short))
		Me.cmdsave.SetIndex(_cmdsave_2, CType(2, Short))
		Me.cmdsave.SetIndex(_cmdsave_1, CType(1, Short))
		Me.cmdsave.SetIndex(_cmdsave_0, CType(0, Short))
		CType(Me.cmdsave, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.cmdexit, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.cmddel, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.cmdadd, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.MSFlexGrid3, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.MSFlexGrid2, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.MSFlexGrid1, System.ComponentModel.ISupportInitialize).EndInit()
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmsysdata
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmsysdata
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmsysdata()
				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 namers As DAO.Recordset
	Dim dkrs As DAO.Recordset
	Dim xkrs As DAO.Recordset
	Dim sql As String
	Public Sub addpayname()
		If txt_name.Text = "" Then
			MsgBox("开支人不能为空！")
			txt_name.Focus()
			'判断开支编号是否输入数字.
		ElseIf IsNumeric(Trim(txt_name.Text)) Then 
			MsgBox("开支人不能是数字!", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "警告")
			txt_name.Focus()
			txt_name.Text = ""
			Exit Sub
		End If
		
		With namers
			.AddNew()
			.Fields("payname_order").Value = Trim(txt_order.Text)
			.Fields("payname_name").Value = Trim(txt_name.Text)
			.Update()
		End With
		MsgBox("你已经成功地把一条新记录加到数据库中了。", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "成功增加新记录")
		txt_name.Text = ""
		txt_order.Text = CStr(namers.RecordCount + 1)
	End Sub
	Public Sub adddkind()
		If txtdk_name.Text = "" Then
			MsgBox("开支大类别不能为空！")
			txtdk_name.Focus()
			'判断开支编号是否输入数字.
		ElseIf IsNumeric(Trim(txtdk_name.Text)) Then 
			MsgBox("开支大类别不能是数字!", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "警告")
			txtdk_name.Focus()
			txtdk_name.Text = ""
			Exit Sub
		End If
		
		With dkrs
			.AddNew()
			.Fields("dkind_order").Value = Trim(txtdk_order.Text)
			.Fields("dkind_name").Value = Trim(txtdk_name.Text)
			.Update()
		End With
		MsgBox("你已经成功地把一条新记录加到数据库中了。", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "成功增加新记录")
		txtdk_name.Text = ""
		txtdk_order.Text = CStr(dkrs.RecordCount + 1)
	End Sub
	Public Sub addxkind()
		
		If txtxk_name.Text = "" Then
			MsgBox("开支小类别不能为空！")
			txtxk_name.Focus()
			'判断开支编号是否输入数字.
		ElseIf IsNumeric(Trim(txtxk_name.Text)) Then 
			MsgBox("开支小类别不能是数字!", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "警告")
			txtxk_name.Focus()
			txtxk_name.Text = ""
			Exit Sub
		End If
		
		With xkrs
			.AddNew()
			.Fields("xkind_order").Value = Trim(txtxk_order.Text)
			.Fields("xkind_name").Value = Trim(txtxk_name.Text)
			.Fields("dkind_name").Value = Trim(cbodk_name.Text)
			.Update()
		End With
		MsgBox("你已经成功地把一条新记录加到数据库中了。", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "成功增加新记录")
		txtxk_name.Text = ""
		cbodk_name.Text = ""
		txtxk_order.Text = CStr(xkrs.RecordCount + 1)
	End Sub
	
	Private Sub cmdadd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdadd.Click
		Dim Index As Short = cmdadd.GetIndex(eventSender)
		Select Case Index
			Case 0
				Call addpayname()
			Case 1
				Call adddkind()
			Case 2
				Call addxkind()
		End Select
		
		db = DAODBEngine_definst.OpenDatabase("d:\data\payout.mdb")
		namers = db.OpenRecordset("payname")
		dkrs = db.OpenRecordset("dkind")
		xkrs = db.OpenRecordset("xkind")
		
		txt_order.Text = CStr(namers.RecordCount + 1)
		txtdk_order.Text = CStr(dkrs.RecordCount + 1)
		txtxk_order.Text = CStr(xkrs.RecordCount + 1)
	End Sub
	
	Private Sub cmdexit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdexit.Click
		Dim Index As Short = cmdexit.GetIndex(eventSender)
		frmmain.DefInstance.Show()
		Me.Close()
	End Sub
	
	Private Sub Command1_Click()
		
		
	End Sub
	
	Private Sub cmdsave_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdsave.Click
		Dim Index As Short = cmdsave.GetIndex(eventSender)
		Select Case Index
			Case 0
				'UPGRADE_ISSUE: Data 方法 Data1.UpdateRecord 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
				Data1.UpdateRecord()
				Data1.Refresh()
			Case 1
				'UPGRADE_ISSUE: Data 方法 Data2.UpdateRecord 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
				Data2.UpdateRecord()
				Data2.Refresh()
			Case 2
				'UPGRADE_ISSUE: Data 方法 Data3.UpdateRecord 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
				Data3.UpdateRecord()
				Data3.Refresh()
		End Select
	End Sub
	
	'UPGRADE_WARNING: Form 事件 frmsysdata.Activate 具有新的行为。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2065"”
	Private Sub frmsysdata_Activated(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Activated
		If Not dkrs.EOF Then
			dkrs.MoveFirst()
			Do Until dkrs.EOF
				cbodk_name.Items.Add(Trim(dkrs.Fields("dkind_name").Value))
				dkrs.MoveNext()
			Loop 
		Else
			MsgBox("数据库中没有大类别数据,请在添加!", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "设置大开支类别")
		End If
	End Sub
	
	Private Sub frmsysdata_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		
		db = DAODBEngine_definst.OpenDatabase("d:\data\payout.mdb")
		namers = db.OpenRecordset("payname")
		dkrs = db.OpenRecordset("dkind")
		xkrs = db.OpenRecordset("xkind")
		
		
		
		txt_order.ReadOnly = True
		txtdk_order.ReadOnly = True
		txtxk_order.ReadOnly = True
		
		
		If namers.RecordCount = 0 Then
			MsgBox("开支人数据库中没有数据，请添加!", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "提示")
			Exit Sub
		End If
		
		
		If dkrs.RecordCount = 0 Then
			MsgBox("开支大类别数据库中没有数据，请添加!", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "提示")
			Exit Sub
		End If
		
		If xkrs.RecordCount = 0 Then
			MsgBox("开支小类别数据库中没有数据，请添加!", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "提示")
			Exit Sub
		End If
		
		
	End Sub
	
	Private Sub STab_Enter(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles STab.Enter
		Dim TabCaption As Object
		Select Case TabCaption
			Case "开支人"
				MsgBox("你选择了tab1")
			Case "开支大类别"
				MsgBox("你选择了tab2")
			Case "开支小类别"
				MsgBox("你选择了tab3")
		End Select
	End Sub
End Class