qqq.rar_教材订购

五、界面设计及主要代码

本系统主要有登陆界面 load.aspx,显示书目信息及功能模块选择页面 book.aspx,添加

新 记 录 页 面 new.aspx, 添 加 历 史 记 录 页 面 history.aspx 和 history1.aspx, 修 改 记 录

update.aspx 和 update1.aspx 以及删除记录 delete.aspx 八个页面组成.其中登陆与用

datagrid 两大模块的代码编写与设计.具体设计如下:

5.1 登陆界面

当单击确定按钮时,连接数据库,确定输入的帐号和密码是否匹配,跳转到书目的页面，

若不匹配,则弹出帐号错误或密码错误的提示。如图 5-1 所示

图 5-1

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)

End If

Else

Response.Write("用户名不存在!")

End If

End Sub

End Class

5.2 用 datagrid 显示数据

首先建立 datagrid,通过连接数据库，将数据显示在 datagrid 中。如图 5-2 所示

图 5-2 书目页面 book.aspx

具体代码如下：

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

myda.SelectCommand = mycommand

Dim myds As New DataSet

myda.Fill(myds)

DataGrid1.DataSource = myds

DataGrid1.DataBind()

End Sub

5.3 添加历史书目

(1)history.aspx 在登陆系统并选择插入历史书本后，进入添加历史书目的页面，决定

图 5-3 插入历史书目图

页面登陆事件代码：

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

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）

End Sub

Button_click事件，重定向到book.aspx页面

Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As

Response。Redirect（“book.aspx”）

End Sub

End class

(2)history1.aspx 页面：通过上一个页面的选择后，该页面进行修改并添加的操作。如图 4-4