基于web的财务管理系统-源代码(共6页).doc

《基于web的财务管理系统-源代码(共6页).doc》由会员分享，可在线阅读，更多相关《基于web的财务管理系统-源代码(共6页).doc（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上1. 考勤记录查询Imports SystemImports System.DataImports System.Data.SqlClientPartial Class addkaoqin Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As SqlConnection Dim constr As String constr = serve

2、r = localhost;database = user;uid=sa;pwd= conn = New SqlConnection(constr) conn.Open() Dim sql As String = select * from user where ttime= + TextBox3.Text + Dim cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.Read() = True Then Response.Write(时间不对！) Else Dim coun

3、t As Integer dr.Dispose() Dim sql1 As String = insert into user(员工ID,名字,考勤时间,考勤类型) values ( & TextBox1.Text & , &TextBox1.Text & , & TextBox3.Text & , & TextBox4.Text & ) Dim cmd1 As New SqlCommand(sql1, conn) count = cmd1.ExecuteNonQuery() If count = 1 Then Response.Write(考勤记录添加成功!) Else Response.W

4、rite(考勤记录添加失败！) End If End If conn.Close() End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click SqlDataSource1.SelectCommand = select * from

5、kaoqin where 员工ID= + TextBox1.Text + or 姓名= + TextBox1.Text + or 考勤时间= + TextBox3.Text + or 考勤类别= + TextBox4.Text + End Sub Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging GridView1.Page

6、Index = e.NewPageIndex GridView1.DataBind() End SubEnd Class2. 工资管理界面代码Imports SystemImports System.DataImports System.Data.SqlClientPartial Class gongzi Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As Sql

7、Connection Dim constr As String constr = server = QT-7;database = user;uid=sa;pwd= conn = New SqlConnection(constr) conn.Open() Dim sql As String = select * from gongzi where 姓?名?= + TextBox1.Text + Dim cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.Read() = Tru

8、e Then Response.Write(名字不对！) Else Dim count As Integer dr.Dispose() Dim sql1 As String = insert into user(姓?名?,性?别e,工资) values ( & TextBox1.Text & , &TextBox1.Text & , & TextBox3.Text & ) Dim cmd1 As New SqlCommand(sql1, conn) count = cmd1.ExecuteNonQuery() If count = 1 Then Response.Write(工资添加成功!)

9、Else Response.Write(工资添加失败！) End If End If conn.Close() End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click SqlDataSource1.SelectCommand = select * from gongzi where 姓名= + TextBox1.Text + End Sub Protected Sub GridView1_SelectedIndexChanged(

10、ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged End SubEnd Class3. 管理员模块代码Imports SystemImports System.DataImports System.Data.SqlClientPartial Class adduser Inherits System.Web.UI.Page Protected Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As

11、System.EventArgs) Handles TextBox2.TextChanged End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If Session(TextBox1) = Then Response.Redirect(adduser.aspx) Else Dim conn As SqlConnection Dim constr As String constr = server = localhost;da

12、tabase = Admin;uid=sa;pwd= conn = New SqlConnection(constr) conn.Open() Dim sql As String = select * from user where tid= + TextBox1.Text + Dim cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.Read() = True Then Response.Write(此用户已经存在！) Else Dim count As Integer d

13、r.Dispose() Dim sql1 As String = insert into user(员工ID,名字,性别,部门,联系电话) values ( & TextBox1.Text & , & TextBox2.Text & , & TextBox3.Text & , & TextBox4.Text & , & TextBox5.Text & ) Dim cmd1 As New SqlCommand(sql1, conn) count = cmd1.ExecuteNonQuery() If count = 1 Then Response.Write(用户添加成功！) Else Response.Write(用户添加失败！) End If End If conn.Close() End If End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End SubEnd Class专心-专注-专业