教師工資管理系統—畢業設計論文(編輯修改稿)

　

【文章內容簡介】 varchar 10 No 姓名 varcehr 20 工資信息管理 工資結算 工資修改 工資創建 工資統計 工資標準設立 其他工資標準設立 職稱工資標準設立 職務工資標準設立 員工信息管理 員工信息刪除 員工信息修改 員工信息添加 系統用戶管理 用戶數據添加 用戶數據修改 修改用戶口令 教師工資管理系統 性別 varcher 20 職務 varcher 20 電話 varcher 20 地址 varcher 20 加入時間 datatime 8 職務表 字段名 數據類型 字段長度 是否為空 職務 varcher 20 no 工資 number 9 no 津貼 number 9 no 職稱表 字段名 數據類型 字段長度 是否為空 職稱 varcher 20 no 工資 number 9 no 津貼 number 9 no 工資表 字段名 數據類型 字段長度 是否為空 創建時間 datetime 8 年度月分 varcehr 30 性別員工號 varcher 50 職務工資 varcher 20 職稱工資 number 9 獎金 number 9 扣金 number 9 實發工資 number 9 第五章 應用程序的設計 程序結構 本應用程序由 19個動態的 webform 窗體組成，主要的分別是：前臺登錄，工資查詢，個人信息查詢，后臺登錄，管理員頁面，員工信息頁面，工資頁面，工資標準頁面，工資統計頁面。等 通過運行程序首先進入登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有 3個菜單項，分別對應各自的功能模塊窗體，信息查詢和 工資查詢以及注消 通過注消可以回到登錄頁面，單擊登錄后臺后可以進入后臺登錄頁面。 進入后 在主頁面上有 5菜單分別是 會員管理，員工管理，工資標準管理，工資管理，注消 分別對應自己的功能 程序結構圖 后臺管理 用戶添加 用戶修改 員工信息添加 員工信息刪除 員工信息修改 工資標準添加 工資標準刪除 工資標準修改 工資信息添加 工資信息刪除 工資信息修改 系統用戶管理 工資信息管理 工資標準管理 員工信息管理 用戶刪除 程序源碼 管理員登錄界面 用戶登陸界面： 管理員登錄代碼： Public Class login1 Inherits 39。定 義數據庫連接 Dim conn As New SqlConnection 39。定義判斷函數 Function panduan() If = Then = 請輸入帳號 = True Return 0 End If If = Then = 請輸入密碼 = True Return 0 End If If Val() Val() Then = 驗證碼錯誤 = True Return 0 End If Return 1 End Function 定義登陸函數 Function denglu() Try 39。連接到 appsettings 中的數據庫連接字符串 = (teacher) 39。數據庫連接 () Dim adp As New SqlDataAdapter(select * from 管理員表 where 帳號 =39。 amp。 amp。 39。, conn) Dim ds As New DataSet (ds, 管理員表 ) Dim pwd As String pwd = (ds, Tables[管理員表 ].DefaultView.[0].密碼 ) If pwd = Then Return 1 Else Return 0 End If Catch ex As Exception End Try End Function Dim str As String Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles Session(vistorsname) = End Sub 登陸 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = = False If panduan() = 0 Then Exit Sub End If If denglu() = 1 Then = 登陸成功 = True Session(vistorsname) = (?name=) Else = 帳號或密碼錯誤！ = True Exit Sub End If End Sub Private Sub TextBox3_Load(ByVal sender As Object, ByVal e As ) Handles End Sub 取消 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = End Sub End Class 員工信息管理頁面 員工信息管理頁面代碼 Dim conn As New SqlConnection 39。數據綁定 39。數據綁定 Sub bindgrid() = (teacher) 數據庫連接 () Dim adp As New SqlDataAdapter(select 員工號 ,姓名 ,性別 ,職務 ,職稱 ,電話 ,地址 from 員工表 , conn) Dim ds As New DataSet (ds, 員工表 ) = ds = 員工表 = 員工號 () () () End Sub Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles If Len(Session(vistorsname)) = 0 Then () End If = Session(vistorsname) = = False bindgrid() End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = False Try () Dim adp As New SqlDataAdapter(select 員工號 ,姓名 ,性別 ,職務 ,職稱 ,電話 from 員工表 where 員工號 = 39。 amp。 amp。 39。, conn) Dim ds As New DataSet (ds, 員工表 ) = ds = 員工表 = 員工號 () () () Catch ex As Exception = 查無此記錄！ = True End Try End Sub Private Sub LinkButton1_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub LinkButton2_Click(ByVal sender As , ByVal e As ) Handles () End Sub 39。綁定職務 Private Sub DropDownList1_Load(ByVal sender As Object, ByVal e As ) Handles If Not IsPostBack Then Try () Dim adp As New SqlDataAdapter(select 職務 from 職務表 , conn) Dim ds As New DataSet (ds, 職務表 ) = ds = 職務表 = 職務 () () Catch ex As Exception End Try End If End Sub 39。綁定職稱 Private Sub DropDownList2_Load(ByVal sender As Object, ByVal e As ) Handles = False If Not IsPostBack Then Try () Dim adp As New SqlDataAdapter(select 職稱 from 職稱表 , conn) Dim ds As New DataSet (ds, 職稱表 ) = ds = 職稱表 = 職稱 () () Catch ex As Exception End Try End If End Sub Private Sub Button2_C