1、建立与数据库连接获取系统设置能够跳转至子模块:登陆、注册等模块。2.3输入、输出项用户鼠标点击登陆、注册按钮跳转至相应模块界面2.5流程逻辑2.6界面设计2.7功能实现方法跳转登陆页面 Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbtnLogin.Click If Request.Cookies(UserName) Is Nothing Then Response.Redirect(Login.aspx) Else Page.ClientScript.Registe
2、rStartupScript(Page.GetType(), , alert(您已成功登陆);/script End If End Sub 跳转注册页面 Protected Sub lbtnRegister_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lbtnRegister.ClickRegister.aspxEnd Sub三、程序(二)设计说明3.1程序描述登陆模块3.2功能实现管理员账号登陆,以便继续后面操作3.3输人项输入:管理员账号、密码。输出:登陆成功界面3.4流程逻辑登陆界面登录 Protected Su
3、b btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click Dim Count As Integer返回受影响的行数 Dim cookies As New HttpCookie( managemodel.ManageId = txtName.Text.Trim() managemodel.ManagePassword = txtPassWord.Text.Trim() Count = managebll.Login(managemodel)注销登录Protected Sub Page
4、_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then If Not Request.Cookies() Is Nothing Then 如果Cookie中有值则把值赋给标签并显示一些登陆后才显示的控件 lblUser.Text = Request.Cookies().Value lbtnSearch.Visible = True lblSucces.Visible = True lbtnOut.Visible = True lblWelcome.Visi
5、ble = False四、程序(三)设计说明4.1程序描述注册模块4.2功能提供管理员账号注册功能4.3输入项新管理员账号、密码信息注册成功提示4.4流程逻辑注册Check = managebll.Check(managemodel) 执行判定 If Check = 0 Then 若表括中无同名用户则行添加用户 Count = managebll.Register(managemodel) If Count 0 Then 若受影响行数大于0说明添加成功注册成功); Else 否则添加不成功注册失败有同名用户时弹出提示该用户名已被注册五、程序(四)设计说明5.1程序描述查询模块5.2功能提供员工
6、信息查询全部查询:显示所有员工信息按员工ID查询:显示指定ID的员工信息按性别查询:显示指定性别的员工信息5.3输人、输出项选择查询条件,如员工ID或性别等。显示满足条件的员工。5.4流程逻辑全部查询按员工ID查询按性别查询Protected Sub btnOk_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnOk.Click If rblSelect.SelectedValue = 0 Then SelectAllInfo() ElseIf rblSelect.SelectedValue = 1 SelectIdI
7、nfo()2 SelectSexInfo()六、程序(五)设计说明6.1程序描述管理模块6.2功能实现员工信息的添加、删除、修改6.3输入、输出项员工信息变更后的员工信息6.4流程逻辑添加员工信息修改员工信息删除数据 Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting Dim index As Integer = Convert.ToInt32(
8、GridView1.DataKeys(e.RowIndex).Value.ToString) 获得主键 Dim Count As Integer调用业务逻辑层 Count = staffbll.DeleteInfo(index)刷新页面? Bind()更新 Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating Dim index As Intege
9、r = Convert.ToInt32(GridView1.DataKeys(e.RowIndex).Value.ToString) 获取主键 staffmodel.StfId = index staffmodel.StfName = (CType(GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text.Trim() staffmodel.StfSex = (CType(GridView1.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text.Trim() staffmod
10、el.StfAge = (CType(GridView1.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text.Trim() staffmodel.StfJob = (CType(GridView1.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text.Trim() staffmodel.StfTime = (CType(GridView1.Rows(e.RowIndex).Cells(6).Controls(0), TextBox).Text.Trim() staffbll.UpdataI
11、nfo(staffmodel) GridView1.EditIndex = -1执行添加 staffmodel.StfId = txtId.Text.Trim() staffmodel.StfName = txtName.Text.Trim() staffmodel.StfSex = txtSex.Text.Trim() staffmodel.StfAge = txtAge.Text.Trim() staffmodel.StfJob = txtJob.Text.Trim() staffmodel.StfTime = txtTime.Text.Trim() Check = staffbll.Check(staffmodel) 如果表括中无值 则可进行添加 staffbll.AddInfo(staffmodel)如果有值则不能添加ID已存在,请重新输入七、参考资料(1)张俊兰等。软件工程西安电子科技大学出版社,2003年8月。(2)萨师煊等。数据库系统概论(第三版)高等教育出版社,2000年。(3)郝兴伟。Web开发技术清华大学出版社,2004年。
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1