SQLsever工资管理系统源代码.docx
《SQLsever工资管理系统源代码.docx》由会员分享，可在线阅读，更多相关《SQLsever工资管理系统源代码.docx（11页珍藏版）》请在冰点文库上搜索。
SQLsever工资管理系统源代码
4.1登陆界面功能实现
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmysqlAsString
mysql="select*from[user]whereusername='"&Me.TextBox1.Text&"'andpasswd='"&Me.TextBox2.Text&"'"
DimmyadapterAsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter（mysql,mycoon）
DimmydbAsNewDataSet
myadapter.Fill（mydb,"user"）
Ifmydb.Tables（"user"）.Rows.Count=0Then
MsgBox（"用户名或密码错误！
"）
Me.TextBox1.Text=""
Me.TextBox2.Text=""
Else
Me.Hide（）
Form2.Show（）
EndIf
EndSub
4.2员工信息查询功能实现
PublicClassForm3
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="select*fromworkwherewnum='"&Me.TextBox1.Text&"'"
DimmyadapterAsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter（mysql,mycoon）
DimmydbAsNewDataSet
myadapter.Fill（mydb,"work"）
DataGridView1.DataSource=mydb.Tables（0）
EndSub
4.3员工信息添加功能实现
PublicClassForm4
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="insertintoworkvalues（'"&Me.TextBox1.Text&"','"&Me.TextBox2.Text&"','"&Me.TextBox3.Text&"','"&Me.TextBox4.Text&"','"&Me.TextBox5.Text&"','"&Me.TextBox6.Text&"'）"
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"添加成功！
"）EndSub
4.4员工信息删除功能实现
PublicClassForm5
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=pay"）
DimmysqlAsString
mysql="deletefromworkwherewnum='"&Me.TextBox1.Text&"'"
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"删除成功！
"）
EndSub
4.5员工信息修改功能实现
PublicClassForm6
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=pay"）
DimmysqlAsString
mysql="updateworksetwnum='"&Me.TextBox2.Text&"',wname='"&Me.TextBox3.Text&"',sex='"&Me.TextBox4.Text&"',birthday='"&Me.TextBox5.Text&"',branch='"&Me.TextBox6.Text&"',title='"&Me.TextBox7.Text&"'wherewnum='"&Me.TextBox1.Text&"'"
DimmyadapterAsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter（mysql,mycoon）
DimmydbAsNewDataSet
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"修改成功！
"）
EndSub
4.6工资信息查询功能实现
PublicClassForm7
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="select*fromwageswherewnum='"&Me.TextBox1.Text&"'"
DimmyadapterAsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter（mysql,mycoon）
DimmydbAsNewDataSet
myadapter.Fill（mydb,"wages"）
DataGridView1.DataSource=mydb.Tables（0）
EndSub
4.7工资信息添加功能实现
PublicClassForm8
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="insertintowagesvalues（'"&Me.TextBox1.Text&"','"&Me.TextBox2.Text&"','"&Me.TextBox3.Text&"','"&Me.TextBox4.Text&"','"&Me.TextBox5.Text&"','"&Me.TextBox6.Text&"'）"
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"添加成功！
"）
EndSub
4.8工资信息删除功能实现
PublicClassForm9
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="deletefromwageswherewnum='"&Me.TextBox1.Text&"'"
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"删除成功！
"）
EndSub
4.9工资信息修改功能实现
PublicClassForm10
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="updatewagessetwnum='"&Me.TextBox2.Text&"',wname='"&Me.TextBox3.Text&"',months='"&Me.TextBox4.Text&"',basic='"&Me.TextBox5.Text&"',benefit='"&Me.TextBox6.Text&"',real='"&Me.TextBox7.Text&"'wherewnum='"&Me.TextBox1.Text&"'"
DimmyadapterAsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter（mysql,mycoon）
DimmydbAsNewDataSet
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"修改成功！
"）
EndSub
4.10津贴信息查询功能实现
PublicClassForm11
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="select*frombenefitwherewnum='"&Me.TextBox1.Text&"'"
DimmyadapterAsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter（mysql,mycoon）
DimmydbAsNewDataSet
myadapter.Fill（mydb,"benefit"）
DataGridView1.DataSource=mydb.Tables（0）
EndSub
4.11津贴信息添加功能实现
PublicClassForm12
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="insertintobenefitvalues（'"&Me.TextBox1.Text&"','"&Me.TextBox2.Text&"','"&Me.TextBox3.Text&"','"&Me.TextBox4.Text&"','"&Me.TextBox5.Text&"'）"
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"添加成功！
"）
EndSub
4.11津贴信息删除功能实现
PublicClassForm13
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="deletefrombenefitwherewnum='"&Me.TextBox1.Text&"'"
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"删除成功！
"）
EndSub
4.12津贴信息修改功能实现
PublicClassForm14
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimmycoonAsNewSqlConnection（"integratedsecurity=SSPI;datasource=.;initialcatalog=工资管理系统"）
DimmysqlAsString
mysql="updatebenefitsetwnum='"&Me.TextBox2.Text&"',wname='"&Me.TextBox3.Text&"',months='"&Me.TextBox4.Text&"',overtime='"&Me.TextBox5.Text&"',gangwei='"&Me.TextBox6.Text&"'wherewnum='"&Me.TextBox1.Text&"'"
DimmyadapterAsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter（mysql,mycoon）
DimmydbAsNewDataSet
DimmycmdAsNewSqlClient.SqlCommand（mysql,mycoon）
mycoon.Open（）
Try
mycmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
mycoon.Close（）
Me.Close（）
Form1.Show（）
MsgBox（"修改成功"）
EndSub
4.13退出系统功能实现
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
Me.Close（）
Form2.Show（）
EndSub
升级会员 