学校教材订购系统编码设计方案.docx
- 文档编号:12966539
- 上传时间:2023-06-09
- 格式:DOCX
- 页数:14
- 大小:18.71KB
学校教材订购系统编码设计方案.docx
《学校教材订购系统编码设计方案.docx》由会员分享,可在线阅读,更多相关《学校教材订购系统编码设计方案.docx(14页珍藏版)》请在冰点文库上搜索。
学校教材订购系统编码设计方案
软件工程课程设计
题目学校教材订购系统编码
学院长安学院
专业软件工程
班级09421
学号052050060
学生姓名范文标罗宇航田翼彪
指导教师刘锋
编写日期2011-5-27
目录:
目录:
2
1登陆界面3
2用datagrid显示数据4
3添加历史书目5
4删除记录9
主要代码
1登陆界面
//当单击确定按钮时,连接数据库,确定输入的帐号和密码是否匹配,跳转到书目的页面,若不匹配,则弹出帐号错误或密码错误的提示//
具体代码如下:
PrivateSubbutton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbutton1.Click
DimstrAsString
DimpassstrAsString
passstr=Trim(CStr(TextBox2.Text))
str="'"&TextBox1.Text&"'"
DimsqlAsString="select*fromadminlistwhere帐号="&Trim(str)
‘在数据库中搜索帐号为textbox1.text的数据’
DimconnstrAsString="server=localhost;uid=sa;pwd=;database=book"
DimmyconnAsNewSqlClient.SqlConnection(connstr)
DimdaAsNewSqlClient.SqlDataAdapter(sql,myconn)
DimdsAsNewDataSet
da.Fill(ds,"adminlist")
DimdacommAsSqlClient.SqlCommandBuilder=NewSqlClient.SqlCommandBuilder(da)
Ifds.Tables("adminlist").Rows.Count=1Then
’判断帐号密码是否和数据库匹配’
Ifpassstr=Trim(ds.Tables("adminlist").Rows(0)("密码"))Then
Response.Redirect("book.aspx")
Else
Response.Write("密码错误!
")
EndIf
Else
Response.Write("用户名不存在!
")
EndIf
EndSub
EndClass
2用datagrid显示数据
//首先建立datagrid,通过连接数据库,将数据显示在datagrid中//
具体代码如下:
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
binddata()
EndSub
Subbinddata()
DimmyconnectionAsNewSqlConnection("initialcatalog=book;uid=sa;pwd=")
ConststrsqlAsString="select*frombook08orderby书号"
DimmycommandAsNewSqlCommand(strsql,myconnection)
DimmydaAsNewSqlDataAdapter
myda.SelectCommand=mycommand
DimmydsAsNewDataSet
myda.Fill(myds)
DataGrid1.DataSource=myds
DataGrid1.DataBind()
EndSub
3添加历史书目
//history.aspx在登陆系统并选择插入历史书本后,进入添加历史书目的页面,决定选择哪条记录进行添加//
//在单击左侧的选择后,自动跳转到update1.aspx,根据所选择的书目,进行相应的修改后添加到记录中去//
具体代码如下:
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
IfNotPage.IsPostBackThen
binddata()
EndIf
EndSub
连接数据库:
Subbinddata()
DimmyconnectionAsNewSqlConnection(“initialcatalog=book;uid=sa;pwd=“)
ConststrsqlAsString=“select*frombook07orderby书号”
DimmycommandAsNewSqlCommand(strsql,myconnection)
DimmydaAsNewSqlDataAdapter
Myda.SelectCommand=mycommand
DimmydsAsNewDataSet
Myda.Fill(myds)
DataGrid1.DataSource=myds
DataGrid1.DataBind()
EndSub
确定所选择的行的数据,并把该行相应的内容分别通过session变量储存下来。
PrivateSubDataGrid1_ItemCommand(ByValsourceAsObject,ByValeAsSystem.Web.UI.WebControls.DataGridCommandEventArgs)HandlesDataGrid1.ItemCommand
Dimb_noAsTableCell=e.Item.Cells
(1)
Dimb_nameAsTableCell=e.Item.Cells
(2)
Dimb_aAsTableCell=e.Item.Cells(3)
Dimb_bAsTableCell=e.Item.Cells(4)
Dimb_cAsTableCell=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”)
EndSub
Button_click事件,重定向到book.aspx页面
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Response。
Redirect(“book.aspx”)
EndSub
Endclass
//history1.aspx页面:
通过上一个页面的选择后,该页面进行修改并添加的操作//
//当管理员修改完成后,则可单击确定添加操作,将数据添加到11年的数据库中//
具体代码如下:
页面登陆代码:
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
IfNotIsPostBackThen
DimstrAsString
str=“'“&Label6.Text&“'“
DimsqlAsString=“select*frombook11where书号=“&Trim(Session(“a”))
DimconnstrAsString=“server=localhost;uid=sa;pwd=;database=book”
DimmyconnAsNewSqlClient.SqlConnection(connstr)
DimdaAsNewSqlClient.SqlDataAdapter(sql,myconn)
DimdsAsNewDataSet
Da.Fill(ds,“book11”)
DimdacommAsSqlClient.SqlCommandBuilder=NewSqlClient.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)(“数量”)
EndIf
EndSub
修改后添加到数据库的代码:
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimstrAsString
DimlitemAsListItem
str=“'“&Label6.Text&“'“
DimsqlAsString=“select*frombook08where书号=“&Trim(str)
DimconnstrAsString=“server=localhost;uid=sa;pwd=;database=book”
DimmyconnAsNewSqlConnection(connstr)
DimdaAsNewSqlDataAdapter(sql,myconn)
DimdsAsNewDataSet
da。
Fill(ds,“book08”)
DimmyrowAsDataRow
DimdacommAsSqlClient.SqlCommandBuilder=NewSqlClient.SqlCommandBuilder(da)
Ifds.Tables(“book08”).Rows.Count>=1Then
Response.Write(“此书已存在”)
EndIf
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”)
EndSub
单击返回按钮后,重定向到history.aspx的代码:
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Response.Redirect(“history.aspx”)
EndSub
EndClass
4删除记录
//在登陆系统后点击修改按钮进入修改页面delete.aspx,通过复选框的选择,删除数据//该页面通过复选框的操作删除数据后,重定向回该页面,以便显示删除后数据的更新//
具体代码如下:
页面登陆代码:
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
IfNotPage.IsPostBackThen‘用来确认页面是否第一次登陆’
binddata()
EndIf
EndSub
Subbinddata()‘连接到数据库’
DimmyconnectionAsNewSqlConnection(“initialcatalog=book;uid=sa;pwd=“)
ConststrsqlAsString=“select*frombook08orderby书号”
DimmycommandAsNewSqlCommand(strsql,myconnection)
DimmydaAsNewSqlDataAdapter
Myda.SelectCommand=mycommand
DimmydsAsNewDataSet
Myda.Fill(myds)
DataGrid1.DataSource=myds
DataGrid1.DataBind()
'myda.Update(myds,“book11”)
EndSub
Button_click事件:
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger
DimxAsString
DimitemAsDataGridItem
Fori=0ToDataGrid1.Items.Count–1
item=DataGrid1.Items(i)
DimbookcheckboxAsCheckBox=item.FindControl(“checkbox1”)
Ifbookcheckbox.CheckedThen‘确认数据是否被点击进行删除’
x=item.Cells
(1).Text‘x为datagrid第二列的数据的内容’
deletedataset(x)
EndIf
Next
binddata()
Response.Write(“删除成功!
”)
EndSub
Subdeletedataset(ByValyAsString)
DimconAsNewSqlConnection(“initialcatalog=book;uid=sa;pwd=“)
DimcmdAsSqlCommand
DimqryAsString
Con.Open()
qry=“deletebook08where书号='“&y&“'“
cmd=NewSqlClient.SqlCommand(qry,con)
cmd.ExecuteNonQuery()
con.Close()
EndSub
Button_click的重定向事件
PrivateSubButton2_Click(ByValsenderAsSystem。
Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Response.Redirect(“book.aspx”)
Endsub
Endclass
//添加新教材和修改记录两大模块共三个页面的代码编写与设计//
//添加新教材。
在登陆系统并选择录入新书后,进入添加新教材页面//
对textbox1到textbox5添加RequiredFiledValidator控件,并设置相应属性使textbox中的文本不能为空。
对textbox1添加RegularExpressionValidator控件,设置ValidationExpression属性为”\d[4]”,ErrorMessage为”书号的格式为0001”。
对textbox1添加RangeValidator控件,设置MinimunValue为”0001”,MaxmumValue为”9999”。
使书号的取值范围为0001——9999。
对textbox4添加RegularExpressionValidator控件,设置ValidationExpression属性为”\d{4}-\d{1,2}”,使时间格式为2011-1。
对textbox5添加RangeValidator控件,设置MinimunValue为”1”,MaxmumValue为”99”,使订阅的教材数量在1-99本之间。
该页面程序代码如下:
PageLoad事件代码
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
EndSub
ButtonClick事件代码
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimstrAsString
DimlitemAsListItem
str="'"&TextBox1。
Text&"'"
DimsqlAsString="select*frombook11where书号="&Trim(str)
DimconnstrAsString="server=localhost;uid=sa;pwd=;database=book"
DimmyconnAsNewSqlConnection(connstr)
DimdaAsNewSqlDataAdapter(sql,myconn)
DimdsAsNewDataSet
da。
Fill(ds,"book11")
DimmyrowAsDataRow
DimdacommAsSqlClient.SqlCommandBuilder=NewSqlClient.SqlCommandBuilder(da)
Ifds.Tables("book08").Rows.Count>=1Then
Response.Redirect("new.aspx")
Response.Write("书号重复,请重新输入")
EndIf
myrow=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")
EndSub
//修改记录。
在登陆系统后点击修改按钮进入修改页面update.aspx//
//页面中textbox的文本来自与update.aspx中定义并赋值的Session变量。
用户通过修改其中的文本值并单击确定完成修改//
修改部分代码如下:
update.aspx中的PageLoad事件
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
IfNotPage.IsPostBackThen
binddata()
EndIf
EndSub
用于加载页面及确认是否第一次访问。
Update.aspx中的binddata事件
privateSubbinddata()
DimmyconnectionAsNewSqlConnection("initialcatalog=book;uid=sa;pwd=")
ConststrsqlAsString="select*frombook08orderby书号"
DimmycommandAsNewSqlCommand(strsql,myconnection)
DimmydaAsNewSqlDataAdapter
Myda.SelectCommand=mycommand
DimmydsAsNewDataSet
Myda.Fill(myds)
DataGrid1.DataSource=myds
DataGrid1.DataBind()
EndSub
用于连接数据库并定义相关操作。
Update.aspx中设置DataGrid中的ItemCommand
PrivateSubDataGrid1_ItemCommand(ByValsourceAsObject,ByValeAsSystem.Web.UI.WebControls.DataGridCommandEventArgs)HandlesDataGrid1.ItemCommand
Dimb_noAsTableCell=e.Item.Cells
(1)
Dimb_nameAsTableCell=e.tem.Cells
(2)
Dimb_aAsTableCell=e.Item.Cells(3)
Dimb_bAsTableCell=e.tem.Cells(4)
Dimb_c
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学校 教材 订购 系统 编码 设计方案