" "
Dim count As Integer = obj.JudgeWhetherExist("aa", bbstr)
//调用datebaseclass类里面定义的连接数据库的方法JudgeWhetherExist查询photos表里面有没有图片
....................................
sstr = "delete from catalog where catalog_id=" & Integer.Parse(i) & ""
obj.DelData(sstr)
//调用datebaseclass类里面定义的连接数据库的方法DelData,删除 catalog里面以catalog_id为关键字的内容
.................................................................
4.2登陆页面
4.2.1功能描述
输入正确用户名和密码,点击登陆按钮登陆入网站,可进行相关权限的操作,登陆成功返回首页,密码错误或者用户名错误,提示"密码错误"或者"用户名不存在",不输入用户名点击登陆按钮提示"用户名不能为空"。
4.2.2 界面设计
添加一个窗体,设置6个linkbutton控件,连接到其他页面。一个linkbutton控件退回初时状态;设置四个label控件,其中两个用来提示用户名和密码输入是否正确等信息;设置2个textbox,分别用来输入用户名和密码;2个button,用来确定登陆和返回。
添加完成后的界面,运行如图5所示:
图5 登陆页面
4.2.3工作流程和代码设计
登陆页面,在文本框内输入用户名和密码,密码为暗码格式,点击"登陆"按钮,用户登陆成功,并返回到首页。密码错误,用户名错误或者用户名没有输入,都会在文本框后面用一个label提示,核心代码如下:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
.....................................
pass = TextBox2.Text
str = "select password from userInfo where username='" & TextBox1.Text & "' "
astr = "select username ,userID from userInfo where username='" & TextBox1.Text & "' "
count = obj.JudgeWhetherExist("user", astr)
obj.BindingsDataSet("user1", str)
.............................
..............................
obj.BindingsDataSet("user2", astr)
...........................................
..............................................
4.3创建目录页面
4.3.1 功能描述
登陆用户,输入要创建的目录的名字,点击"确定"弹出对话框"新建成功",点击确定后跳转到上传页面,如果新建一个目录名相同的文件夹,提示"此文件名存在",页面不跳转。
4.3.2 界面设计
添加一个窗体,设置6个linkbutton控件,连接到其他页面。一个linkbutton控件退回初时状态;设置2个label控件,2个button控件分别用来确定创建目录和取消此次操作;设置两个image控件,在页面上添加两张图片。
添加完成后的界面,运行如图6所示:
图6 创建目录页面
4.3.3 工作流程和代码
创建目录页面,在文本框内输入要创建的目录名称,如果目录不存在,点击"确定"目录创建成功,点击"取消"取消此次操作,如果目录存在,创建失败,并且会弹出一条提示信息"此文件名存在"。核心代码如下:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
........................
Dim count As Integer
bstr = "select catalogname from catalog where catalogname='" & TextBox1.Text & "' and userid=" & a & ""
count = obj.JudgeWhetherExist("catalog", bstr)
...................................
//调用datebase类定义连接数据库的JudgeWhetherExist方法查询目录名是否有重复
Else
str = "insert into catalog(catalogname,userid,[time],broustimes) values('" & TextBox1.Text & "'," & a & ",'" & System.DateTime.Now() & "',0 ) "
obj.InsertData(str)
..............................
4.4 上传页面
4.4.1 功能描述
输入相册标题类别和相片说明等信息,点击浏览输入要上传相片的路径及文件名,点击"保存"上传,点击"取消",取消此次操作
4.4.2 界面设计
添加一个窗体,设置6个linkbutton控件,连接到其他页面。一个linkbutton控件退回初时状态;设置5个label,2个textbox,分别输入相册相片的相关信息;设置一个dropdownlist,用来选定相册的目录名;设置2个button,确定上传相片和取消此次操作;设置一个sqldatasource绑定数据源。
添加完成后的界面,运行如图7:
图7 上传页面
4.4.3 工作流程和代码
在相应的文本框内输入图片的名称,图片的说明即描述,用dropdownlist选择要上传的目录即文件名称,在点击"上传相片"旁边的"浏览"按钮来选择要上传图片的路径和名称,点击"保存",图片便上传到相应的目录下面,点击"取消",取消该此操作,其中,dropdownlist选择的相册名称和当前用户数据绑定,所以只能选择当前用户创建的文件夹。核心代码如下:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
................................
If Session("photoid") = "" Then
If DropDownList1.Text <> "" Then
bstr="select catalog_id from catalog where catalog_id='" & DropDownList1.Text & "' "
obj.BindingsDataSet("catalog", bstr)
.........................
.........................
str = "insert into photos(phototitle,photopath,photodesc,cateid,userid,[time] ) values('" & TextBox1.Text & "','" & c & "','" & TextBox2.Text & "'," & cataid & "," & Session("userid") & ",'" & System.DateTime.Now & "')"
a = obj.InsertData(str)
.................................
.................................
astr = "update photos set phototitle='" & TextBox1.Text & "',pho
上一篇:
基于net毕业论文管理系统
下一篇:
马原:环境保护与可持续发展论文(word)