SQLsever工资管理系统源代码.docx
- 文档编号:18025801
- 上传时间:2023-08-07
- 格式:DOCX
- 页数:11
- 大小:14.92KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SQLsever 工资管理 系统 源代码