登录
Protected Sub Button1_Click(ByVal sender System.EventArgs) Handles Button1.Click Dim conn As SqlConnection Dim da As SqlDataAdapter Dim ds As DataSet As Object, ByVal e As
conn = New SqlClient.SqlConnection("Data Source=.;Initial Catalog=财务 管理;Integrated Security=True") conn.Open() da = New SqlDataAdapter("SELECT * FROM 用户信息表 WHERE 用 户 名 称 ='" &; TextBox1.Text.ToString() &; "'AND 密 码 ='" &; TextBox2.Text.ToString() &; "' ", conn) ds = New DataSet da.Fill(ds, "dat") If ds.Tables("dat").Rows.Count = 0 Then MsgBox("用户名或密码错误!") Else Server.Transfer("Main.aspx") End If conn.Close() End Sub End Class
添加
Dim conn As SqlConnection Dim da As SqlDataAdapter Dim ds As DataSet conn = New SqlClient.SqlConnection("Data Source=.;Initial Catalog=财务 管理;Integrated Security=True") conn.Open() da = New SqlDataAdapter("INSERT INTO 会计科目表( 科目代码,科目 名称,科目类别,余额方向,科目级别) VALUES('" &; TextBox4.Text.ToString() &; "','" &; TextBox5.Text.ToString() &; "','" &; TextBox1.Text.ToString() &; "','" &; TextBox2.Text.ToString() &; "','" &; TextBox3.Text.ToString() &; "')", conn) ds = New DataSet da.Fill(ds, "dat") GridView1.DataSource = ds.Tables("dat")
conn.Close() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = ""
更新
Dim conn As SqlConnection Dim da As SqlDataAdapter Dim ds As DataSet conn = New SqlClient.SqlConnection("Data Source=.;Initial Catalog=财务 管理;Integrated Security=True") conn.Open() da = New SqlDataAdapter("UPDATE 会计科目表 SET 科目名称='" &; TextBox5.Text.ToString() &; "',科目类别='" &; TextBox1.Text.ToString() &; "',余额方 向='" &; TextBox2.Text.ToString() &; "',科目级别='" &; TextBox3.Text.ToString() &; "' WHERE [科目代码] = '" &; TextBox4.Text.ToString() &; "'", conn) ds = New DataSet da.Fill(ds, "dat") GridView1.DataSource = ds.Tables("dat") conn.Close() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = ""
删除
Dim conn As SqlConnection Dim da As SqlDataAdapter Dim ds As DataSet conn = New SqlClient.SqlConnection("Data Source=.;Initial Catalog=财务 管理;Integrated Security=True") conn.Open() da = New SqlDataAdapter("DELETE FROM 会计科目表 WHERE [科目 代码] = " &; GridView1.DataKeys(e.RowIndex).Value.ToString().Trim() &; "", conn) ds = New DataSet da.Fill(ds, "dat") GridView1.DataSource = ds.Tables("dat") conn.Close()
更改密码
Dim conn As SqlConnection Dim da As SqlDataAdapter Dim ds As DataSet conn = New SqlClient.SqlConnection("Data Source=.;Initial Catalog=财务 管理;Integrated Security=True") conn.Open() If TextBox4.Text.ToString() = TextBox5.Text.ToString() Then MsgBox("密码修改成功!") Else MsgBox("新密码与确认密码输入不一致!") End If conn.Close() da = New SqlDataAdapter("UPDATE 用 户 信 息 表 SET 密 码 ='" &; TextBox4.Text.ToString() &; "'WHERE [密码] = '" &; TextBox3.Text.ToString() &; "'AND [
用户名称]='" &; TextBox2.Text.ToString() &; "'", conn) ds = New DataSet da.Fill(ds, "dat") conn.Close() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = ""