学生个人财务管理系统的设计与实现-论文（含任务书） - 图文(10)

中国地质大学（北京）2012届本科毕业设计

附 录

1学生个人财务管理系统登录界面源代码：

Imports System．Data

Imports System．Data．SqlClient Public Class Login

Private Sub OK_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles OK．Click

Dim constr As String

constr = \Source=WINDO-9683E6BEC;Initial Catalog=学生个人财务管理数据库;Integrated Security=True\

Dim myconn As New SqlConnection(constr) Dim Sqlstr As String

Sqlstr = \用户信息表 where 用户名='\．Text & \密码='\．Text & \

Dim MyDp As New SqlDataAdapter(Sqlstr, myconn) Dim MyDs As New DataSet MyDp．Fill(MyDs)

If MyDs．Tables(0)．Rows．Count = 0 Then MessageBox．Show(\用户或密码不正确！\ Me．Show()

UsernameTextBox．Text = \ PasswordTextBox．Text = \ UsernameTextBox．Focus() Else

Me．Hide()

Dim f As New 系统信息中心界面() f．Show() End If

myconn．Close() End Sub

Private Sub Cancel_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles Cancel．Click Me．Close() End Sub

39

学生个人财务管理系统的设计与实现

Private Sub Login_Load(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles MyBase．Load

Me．用户信息表TableAdapter．Fill(Me．DataSet1．用户信息表)

UsernameTextBox．Text = \ PasswordTextBox．Text = \ End Sub

Private Sub UsernameTextBox_TextChanged(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles UsernameTextBox．TextChanged

End Sub End Class

2学生个人财务管理系统信息中心界面源代码：

Public Class 系统信息中心界面 Public username As String

Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) End Sub

Private Sub 信息中心ToolStripMenuItem_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles 信息中心ToolStripMenuItem．Click End Sub

Private Sub PM_Unload(ByVal Cancel As Integer)

If MsgBox(\你真的要退出系统吗？\系统退出提示咨询\ Cancel = False Else

Cancel = True End If End Sub

Private Declare Function SetParent Lib \(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Declare Function FindWindow Lib \Alias \(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub 记事本MToolStripMenuItem_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles 记事本MToolStripMenuItem．Click

40

中国地质大学（北京）2012届本科毕业设计

Dim hw As Long

Dim Myhwnd = Shell(\．exe\ hw = FindWindow(vbNullString, \无标题 - 记事本\ If hw Then SetParent(hw, Myhwnd) End Sub

Private Sub 个人所得税计算器ToolStripMenuItem_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles 个人所得税计算器ToolStripMenuItem．Click Dim hw As Long

Dim Myhwnd = Shell(\．exe\ hw = FindWindow(vbNullString, \计算器\ If hw Then SetParent(hw, Myhwnd) End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles ToolStripButton6．Click Dim f As New 财务统计() f．Show() End Sub

Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles 退出ToolStripMenuItem．Click Dim a As Integer

a = MessageBox．Show(\确定退出系统？\\消息提示\MessageBoxButtons．OKCancel) If a = 1 Then Me．Close() ElseIf a = 2 Then End If End Sub

Private Sub 当日账目ToolStripMenuItem_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles 当日账目ToolStripMenuItem．Click Dim f As New 当日支出() f．Show() End Sub

Private Sub ToolStripButton8_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles ToolStripButton8．Click Dim a As Integer

a = MessageBox．Show(\确定退出系统？\\消息提示\

41

学生个人财务管理系统的设计与实现

MessageBoxButtons．OKCancel) If a = 1 Then Me．Close() ElseIf a = 2 Then End If End Sub

Private Sub 新建用户ToolStripMenuItem1_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles 新建用户ToolStripMenuItem1．Click Dim f As New 新建用户() f．Show() End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles ToolStripButton3．Click Dim f As New 预算管理() f．Show() End Sub

Private Sub 预算管理ToolStripMenuItem_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles 预算管理ToolStripMenuItem．Click Dim f As New 预算管理() f．Show() End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles ToolStripButton2．Click Dim f As New 当月收入() f．Show() End Sub

Private Sub ToolStripButton5_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles ToolStripButton5．Click Dim f As New 财务统计() f．Show() End Sub

Private Sub ToolStripButton7_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles ToolStripButton7．Click Dim f As New 财务统计() f．Show()

42

中国地质大学（北京）2012届本科毕业设计

End Sub

Private Sub To …… 此处隐藏：3444字，全部文档内容请下载后查看。喜欢就下载吧 ……