基于web的财务管理系统源代码.docx
- 文档编号:1242649
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:4
- 大小:9.83KB
基于web的财务管理系统源代码.docx
《基于web的财务管理系统源代码.docx》由会员分享,可在线阅读,更多相关《基于web的财务管理系统源代码.docx(4页珍藏版)》请在冰点文库上搜索。
考勤记录查询
ImportsSystem
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PartialClassaddkaoqin
InheritsSystem.Web.UI.Page
ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimconnAsSqlConnection
DimconstrAsString
constr="server=localhost;database=user;uid=sa;pwd=430281199001125746"
conn=NewSqlConnection(constr)
conn.Open()
DimsqlAsString="select*fromuserwherettime='"+TextBox3.Text+"'"
DimcmdAsNewSqlCommand(sql,conn)
DimdrAsSqlDataReader=cmd.ExecuteReader()
Ifdr.Read()=TrueThen
Response.Write("时间不对!
")
Else
DimcountAsInteger
dr.Dispose()
Dimsql1AsString="insertintouser(员工ID,名字,考勤时间,考勤类型)values('"&TextBox1.Text&"','"&
TextBox1.Text&"','"&TextBox3.Text&"','"&TextBox4.Text&"')"
Dimcmd1AsNewSqlCommand(sql1,conn)
count=cmd1.ExecuteNonQuery()
Ifcount=1Then
Response.Write("考勤记录添加成功!
")
Else
Response.Write("考勤记录添加失败!
")
EndIf
EndIf
conn.Close()
EndSub
ProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
EndSub
ProtectedSubButton3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton3.Click
SqlDataSource1.SelectCommand="select*fromkaoqinwhere员工ID='"+TextBox1.Text+"'or姓名='"+TextBox1.Text+"'or考勤时间='"+TextBox3.Text+"'or考勤类别='"+TextBox4.Text+"'"
EndSub
ProtectedSubGridView1_PageIndexChanging(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewPageEventArgs)HandlesGridView1.PageIndexChanging
GridView1.PageIndex=e.NewPageIndex
GridView1.DataBind()
EndSub
EndClass
工资管理界面代码
ImportsSystem
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PartialClassgongzi
InheritsSystem.Web.UI.Page
ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimconnAsSqlConnection
DimconstrAsString
constr="server=QT-201205020917;database=user;uid=sa;pwd=430281199001125746"
conn=NewSqlConnection(constr)
conn.Open()
DimsqlAsString="select*fromgongziwhere姓?
名?
='"+TextBox1.Text+"'"
DimcmdAsNewSqlCommand(sql,conn)
DimdrAsSqlDataReader=cmd.ExecuteReader()
Ifdr.Read()=TrueThen
Response.Write("名字不对!
")
Else
DimcountAsInteger
dr.Dispose()
Dimsql1AsString="insertintouser(姓?
名?
性?
别Àe,工¡è资Á¨º)values('"&TextBox1.Text&"','"&
TextBox1.Text&"','"&TextBox3.Text&"')"
Dimcmd1AsNewSqlCommand(sql1,conn)
count=cmd1.ExecuteNonQuery()
Ifcount=1Then
Response.Write("工资添加成功!
")
Else
Response.Write("工资添加失败!
")
EndIf
EndIf
conn.Close()
EndSub
ProtectedSubButton3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton3.Click
SqlDataSource1.SelectCommand="select*fromgongziwhere姓名='"+TextBox1.Text+"'"
EndSub
ProtectedSubGridView1_SelectedIndexChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesGridView1.SelectedIndexChanged
EndSub
EndClass
管理员模块代码
ImportsSystem
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PartialClassadduser
InheritsSystem.Web.UI.Page
ProtectedSubTextBox2_TextChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChanged
EndSub
ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.Click
IfSession("TextBox1")=""Then
Response.Redirect("adduser.aspx")
Else
DimconnAsSqlConnection
DimconstrAsString
constr="server=localhost;database=Admin;uid=sa;pwd=430281199001125746"
conn=NewSqlConnection(constr)
conn.Open()
DimsqlAsString="select*fromuserwheretid='"+TextBox1.Text+"'"
DimcmdAsNewSqlCommand(sql,conn)
DimdrAsSqlDataReader=cmd.ExecuteReader()
Ifdr.Read()=TrueThen
Response.Write("此用户已经存在!
")
Else
DimcountAsInteger
dr.Dispose()
Dimsql1AsString="insertintouser(员工ID,名字,性别,部门,联系电话)values('"&TextBox1.Text&"','"&
TextBox2.Text&"','"&TextBox3.Text&"','"&TextBox4.Text&"','"&TextBox5.Text&"')"
Dimcmd1AsNewSqlCommand(sql1,conn)
count=cmd1.ExecuteNonQuery()
Ifcount=1Then
Response.Write(用户添加成功!
")
Else
Response.Write("用户添加失败!
")
EndIf
EndIf
conn.Close()
EndIf
EndSub
ProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
EndSub
EndClass
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于 web 财务管理 系统 源代码
![提示](https://static.bingdoc.com/images/bang_tan.gif)