学校教材订购系统编码设计.doc

软件工程课程设计题 目 学校教材订购系统编码 学 院 长安学院 专 业 软件工程 班级 09421 学 号 052 050 060 学生姓名 范文标 罗宇航 田翼彪 指导教师 刘锋 编写日期 2011-5-27 目录：目录：21登陆界面32用datagrid显示数据43添加历史书目54 删除记录9 主要代码1登陆界面/当单击确定按钮时,连接数据库,确定输入的帐号和密码是否匹配,跳转到书目的页面，若不匹配,则弹出帐号错误或密码错误的提示/具体代码如下：Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click Dim str As String Dim passstr As String passstr = Trim(CStr(TextBox2.Text) str = & TextBox1.Text & Dim sql As String = select * from adminlist where 帐号= & Trim(str) 在数据库中搜索帐号为textbox1.text的数据 Dim connstr As String = server=localhost;uid=sa;pwd=;database=book Dim myconn As New SqlClient.SqlConnection(connstr) Dim da As New SqlClient.SqlDataAdapter(sql, myconn) Dim ds As New DataSet da.Fill(ds, adminlist) Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da) If ds.Tables(adminlist).Rows.Count = 1 Then判断帐号密码是否和数据库匹配 If passstr = Trim(ds.Tables(adminlist).Rows(0)(密码) Then Response.Redirect(book.aspx) Else Response.Write(密码错误!) End If Else Response.Write(用户名不存在!) End If End SubEnd Class2用datagrid显示数据/首先建立datagrid,通过连接数据库，将数据显示在datagrid中/具体代码如下：Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load binddata()End SubSub binddata() Dim myconnection As New SqlConnection(initial catalog=book;uid=sa;pwd=) Const strsql As String = select * from book08 order by 书号 Dim mycommand As New SqlCommand(strsql, myconnection) Dim myda As New SqlDataAdapter myda.SelectCommand = mycommand Dim myds As New DataSet myda.Fill(myds) DataGrid1.DataSource = myds DataGrid1.DataBind() End Sub3添加历史书目/history.aspx在登陆系统并选择插入历史书本后，进入添加历史书目的页面，决定选择哪条记录进行添加/在单击左侧的选择后，自动跳转到update1.aspx，根据所选择的书目，进行相应的修改后添加到记录中去/具体代码如下：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles MyBase.Load If Not Page.IsPostBack Then binddata（） End If End Sub连接数据库： Sub binddata（） Dim myconnection As New SqlConnection（“initial catalog=book;uid=sa;pwd=“） Const strsql As String = “select * from book07 order by 书号” Dim mycommand As New SqlCommand（strsql， myconnection） Dim myda As New SqlDataAdapter Myda.SelectCommand = mycommand Dim myds As New DataSet Myda.Fill（myds） DataGrid1.DataSource = myds DataGrid1.DataBind（） End Sub确定所选择的行的数据，并把该行相应的内容分别通过session变量储存下来。Private Sub DataGrid1_ItemCommand（ByVal source As Object， ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs） Handles DataGrid1.ItemCommand Dim b_no As TableCell = e.Item.Cells（1） Dim b_name As TableCell = e.Item.Cells（2） Dim b_a As TableCell = e.Item.Cells（3） Dim b_b As TableCell = e.Item.Cells（4） Dim b_c As TableCell = e.Item.Cells（5） Session（“a”） = b_no.Text Session（“b”） = b_name.Text Session（“c”） = b_a.Text Session（“d”） = b_b.Text Session（“e”） = b_c.Text Response.Redirect（“history1.aspx”）End SubButton_click事件，重定向到book.aspx页面 Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click Response。Redirect（“book.aspx”） End SubEnd class/history1.aspx页面：通过上一个页面的选择后，该页面进行修改并添加的操作/当管理员修改完成后，则可单击确定添加操作，将数据添加到11年的数据库中/具体代码如下：页面登陆代码：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles MyBase.Load If Not IsPostBack Then Dim str As String str = “ & Label6.Text & “ Dim sql As String = “select * from book11 where 书号 =“ & Trim（Session（“a”） Dim connstr As String = “server=localhost;uid=sa;pwd=;database=book” Dim myconn As New SqlClient.SqlConnection（connstr） Dim da As New SqlClient.SqlDataAdapter（sql， myconn） Dim ds As New DataSet Da.Fill（ds, “book11”） Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder（da） Label6.Text = ds.Tables（“book11”）.Rows（0）（“书号”） Label7.Text = ds.Tables（“book11”）.Rows（0）（“书名”） Label8.Text = ds.Tables（“book11”）.Rows（0）（“作者”） TextBox1.Text = ds.Tables（“book11”）.Rows（0）（“征定时间”） TextBox2.Text = ds.Tables（“book11”）.Rows（0）（“数量”） End If End Sub修改后添加到数据库的代码：Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click Dim str As String Dim litem As ListItem str = “ & Label6.Text & “ Dim sql As String = “select * from book08 where 书号=“ & Trim（str） Dim connstr As String = “server=localhost;uid=sa;pwd=;database=book” Dim myconn As New SqlConnection（connstr） Dim da As New SqlDataAdapter（sql， myconn） Dim ds As New DataSet da。Fill（ds， “book08”） Dim myrow As DataRow Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder（da） If ds.Tables（“book08”）.Rows.Count = 1 Then Response.Write（“此书已存在”） End If myrow = ds.Tables（“book11”）.NewRow myrow（“书号”） = Trim（Label6.Text） myrow（“书名”） = Trim（Label7.Text） myrow（“作者”） = Trim（Label8.Text） myrow（“征定时间”） = Trim（TextBox1.Text） myrow（“数量”） = Trim（TextBox2.Text） ds.Tables（“book11”）.Rows.Add（myrow） da.UpdateCommand = dacomm.GetUpdateCommand da.Update（ds， “book11”） Response.Redirect（“book.aspx”） End Sub单击返回按钮后，重定向到history.aspx的代码：Private Sub Button2_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button2.Click Response.Redirect（“history.aspx”） End SubEnd Class4 删除记录/在登陆系统后点击修改按钮进入修改页面delete.aspx，通过复选框的选择，删除数据/该页面通过复选框的操作删除数据后，重定向回该页面，以便显示删除后数据的更新/具体代码如下：页面登陆代码：Private Sub Page_Load（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles MyBase.Load If Not Page.IsPostBack Then 用来确认页面是否第一次登陆 binddata（） End If End Sub Sub binddata（） 连接到数据库 Dim myconnection As New SqlConnection（“initial catalog=book;uid=sa;pwd=“） Const strsql As String = “select * from book08 order by 书号” Dim mycommand As New SqlCommand（strsql， myconnection） Dim myda As New SqlDataAdapter Myda.SelectCommand = mycommand Dim myds As New DataSet Myda.Fill（myds） DataGrid1.DataSource = myds DataGrid1.DataBind（） myda.Update（myds， “book11”） End SubButton_click事件： Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click Dim i As Integer Dim x As String Dim item As DataGridItem For i = 0 To DataGrid1.Items.Count 1 item = DataGrid1.Items（i） Dim bookcheckbox As CheckBox = item.FindControl（“checkbox1”） If bookcheckbox.Checked Then 确认数据是否被点击进行删除 x = item.Cells（1）.Text x为datagrid第二列的数据的内容 deletedataset（x） End If Next binddata（） Response.Write（“删除成功!”） End Sub Sub deletedataset（ByVal y As String） Dim con As New SqlConnection（“initial catalog=book;uid=sa;pwd=“） Dim cmd As SqlCommand Dim qry As String Con.Open（） qry = “delete book08 where 书号=“ & y & “ cmd = New SqlClient.SqlCommand（qry， con） cmd.ExecuteNonQuery（） con.Close（） End SubButton_click的重定向事件 Private Sub Button2_Click（ByVal sender As System。Object， ByVal e As System.EventArgs） Handles Button2.Click Response.Redirect（“book.aspx”）End subEnd class/添加新教材和修改记录两大模块共三个页面的代码编写与设计/添加新教材。在登陆系统并选择录入新书后，进入添加新教材页面/对textbox1到textbox5添加RequiredFiledValidator控件，并设置相应属性使textbox中的文本不能为空。对textbox1添加RegularExpressionValidator控件，设置ValidationExpression属性为”d4”，ErrorMessage为”书号的格式为0001”。对textbox1添加RangeValidator控件，设置MinimunValue为”0001”，MaxmumValue为”9999”。使书号的取值范围为00019999。对textbox4添加RegularExpressionValidator控件，设置ValidationExpression属性为”d4-d1，2”，使时间格式为2011-1。对textbox5添加RangeValidator控件，设置MinimunValue为”1”，MaxmumValue为”99”，使订阅的教材数量在1-99本之间。该页面程序代码如下：Page Load事件代码Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubButton Click事件代码Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String Dim litem As ListItem str = & TextBox1。Text & Dim sql As String = select * from book11 where 书号= & Trim(str) Dim connstr As String = server=localhost;uid=sa;pwd=;database=book Dim myconn As New SqlConnection(connstr) Dim da As New SqlDataAdapter(sql, myconn) Dim ds As New DataSet da。Fill(ds, book11) Dim myrow As DataRow Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da) If ds.Tables(book08).Rows.Count = 1 Then Response.Redirect(new.aspx) Response.Write(书号重复，请重新输入) End Ifmyrow = ds.Tables(book08).NewRow myrow(书号) = Trim(TextBox1.Text) myrow(书名) = Trim(TextBox2.Text) myrow(作者) = Trim(TextBox3.Text) myrow(征定时间) = Trim(TextBox4.Text) myrow(数量) = Trim(TextBox5.Text) ds.Tables(book08).Rows.Add(myrow) da.UpdateCommand = dacomm.GetUpdateCommand da.Update(ds, book11) Response.Redirect(book.aspx)End Sub/修改记录。在登陆系统后点击修改按钮进入修改页面update.aspx/页面中textbox的文本来自与update.aspx中定义并赋值的Session变量。用户通过修改其中的文本值并单击确定完成修改/修改部分代码如下：update.aspx中的Page Load事件Private Sub Page_Load(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles MyBase.Load If Not Page.IsPostBack Then binddata() End IfEnd Sub用于加载页面及确认是否第一次访问。Update.aspx中的binddata事件private Sub binddata() Dim myconnection As New SqlConnection(initial catalog=book;uid=sa;pwd=) Const strsql As String = select * from book08 order