计算机毕业设计功能模块介绍：
系统窗体模块组成
数据模块窗体的设置
在编写数据库应用程序时，经常要遇到这样的情况，即好多组件、窗体同时访问相同的数据源，如果为每一个组件或者窗体都设置一个数据源将是十分耗时的工件，而且要保证这些数据源的确是相同的也需花一番功夫。那么，能不能将这些数据源集中管理，最好是做成一个统一的模块，需要时就将该模块引入而不必直接操作数据源本身呢？数据模块（DataModule）是解决这个问题最好的答案。简单说来，数据模块是用来集中管理数据源的一个窗体，该窗体可被需要的地方随时引入。
5.3 用户登陆窗体的实现
在每次登入页面以前，系统都将调用initPage()函数来初始化页面，如果是第一次使用，系统将提示，用户名与密码都是admin，进入后操作员就可以进行密码更换。
源代码如下： Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
Call initPage()
End If
End Sub Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
'判断输入的用户名和密码 是否正确
Dim tmpCnn As New ClsConn(Session("DBPath"))
Dim da As New DataTable
If TD1.InnerText = "第一次使用系统帐号密码都为'admin'" Then
If Me.TextBox1.Text = "admin" And Me.TextBox2.Text = "admin" Then
Session("admin_sysId") = Me.TextBox1.Text
Response.Redirect("index.aspx")
Else
Response.Write("")
Exit Sub
End If
End If
da = tmpCnn.Get_Table("select * from qx where sysId='" & Trim(Me.TextBox1.Text) & "' and sysPas='" & Trim(Me.TextBox2.Text) & "'")
If da.Rows.Count <= 0 Then
Response.Write("")
Exit Sub
End If
Session("admin_sysId") = Me.TextBox1.Text
Response.Redirect("index.aspx")
End Sub Private Sub initPage()
'判断是否是第一次使用系统
Session("DbPath") = Server.MapPath("Data\YcMis.mdb")
Dim tmpCnn As New ClsConn(Session("DBPath"))
Dim da As New DataTable
da = tmpCnn.Get_Table("select * from Qx")
If da.Rows.Count <= 0 Then
Me.TD1.InnerText = "第一次使用系统帐号密码都为'admin'"
End If
End Sub
End Class |
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第5页为计算机毕业论文用户管理页面介绍......