鉴于大家对JSP,NET,JAVA类别十分关注，我们编辑小组在此为大家搜集整理了“VB.NET高校科研信息系统的设计与实现”一文，供大家参考学习
3.2 后台数据库的配置 本系统的开发是在 windows xp 下开发的，开发数据库使用的是sql server具体配置步骤如下： ● 打开 sql server 企业管理器，新建一个数据库，将其命名为jiaoshi.mdb ● 在jiaoshi.mdb中建表 管理表 userstudy等数据库表。在 yslmv4.mdb中建表user,topic,admin等数据库表。在bbs.mdb中建表bbs数据库表。 ● 完成数据初始化工作，将表中各字段与域值添加进去。 ● 由于考虑到程序移植后的路径问题，所以本系统利用Server对象的Mappath方法，将虚拟路径转化为实际的物理路径。从而进行数据库的连接。这种连接方法的好处就是程序移植到别的服务器上后，不必在设置数据源，马上就可以使用。 具体的表结构设计如下描述所示。 数据库的需求分析 根据系统需求，可以列出以下数据项和数据结构： ●用户信息管理：包括用户名称、密码、注册时间、登录次数、电子邮箱等； ●研究人员表：包括人员编号 ，姓名，单位，学历，职称等 ●项目表：包括项目标号，名称，内容，负责人，工作人员，是否审批，负责人，是否到款，项目期限等 ●学术表：包括著作编号，题目，出版社，出版日期，描述等 ●论文表：包括论文编号，题目，出版日期，描述等 登陆界面代码： 登陆代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try conn.Open() Me.Label4.Text = "正在验证 ..." Dim adp As New SqlDataAdapter("select 密码 from 管理员 where 帐号=''" & Trim(TextBox1.Text) & "''and 类型= ''管理员'' ", conn) adp.Fill(ds, "管理员") conn.Close() If ds.Tables("管理员").Rows(0).Item(0) = Trim(TextBox2.Text) Then from2.Show() Me.Visible = False Else MessageBox.Show("帐号或密码错误！", "错误提示！") Me.Label4.Visible = False End If Catch ex As Exception MessageBox.Show("帐号或密码错误！", " 错误提示！") Me.Label4.Visible = False End Try End Sub 
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
