基于VB.net的资产管理信息系统的设计

时间:2022-06-15 06:26:45

基于VB.net的资产管理信息系统的设计

摘要:该系统以Visual 作为前端开发语言,以Visual Studio 2008为开发平台,以SQL Server2005为数据库,设计开发了资产管理信息系统,实现了利用信息化综合平台在线管理资产,改变了传统管理中收集录入的落后局面,减少了纸张的浪费,极大地提高了资产管理的效率。

关键词:Visual ;Visual Studio 2008;SQL Server2005;资产;在线管理

中图分类号:TP311 文献标识码:A 文章编号:1009-3044(2016)22-0067-03

Abstract: The system to visual as the front-end development language, based on Visual Studio 2008 development platform, SQL Server2005 database, design and development of the assets management information system, realize the utilization of information integrated platform for online asset management, changed the traditional management to collect and input the backward situation, reduce the waste of paper and greatly improve the efficiency of asset management.

Key words: Visual ; Visual Studio 2008; SQL Server2005; assets;Online management

1 概述

近年来,各院校均在扩大招生规模,所使用的教学装备、设备等资产也在逐年增加,传统的依靠手工操作管理资产的方式费时、费力,工作效率不高,已不能适应院校的信息化管理的需求。为了更有效地提高资产管理的工作效率,方便资产的实时添加、修改、删除、查询、统计及打印等功能的实现,特设计开发了基于的资产管理信息系统,实现了资产管理实时在线核算、快速获得信息、管理科学规范的目标。

2系统总体框架设计

该系统是用户在线实现资产登记、查询等和管理员在线实现资产管理的系统,根据资产管理所要实现的功能,在系统设计阶段结合调研结果,科学地设计了资产管理信息系统的各功能模块。该系统主要由综合平台、资产登记、资产处置、资产查询、资产报表、产权管理等六个模块组成,每个模块又包含若干个子模块,如资产增加模块下就包含固定资产增加、库存物资增加、土地资产增加和无形资产增加共4个子模块,系统功能结构图如图1所示。

3 数据库设计及连接

3.1数据库设计

数据库(Database)是按照数据结构来组织、存储和管理数据的仓库,是系统数据的集合。本系统所使用的SQL Server是一个关系数据库管理系统,是一个可扩展的、高性能的数据库管理系统,通过对资产管理系统的实际功能需求的分析,本系统在进行数据库设计时,为了方便数据的维护,应该包括多张表,如单位信息表、用户信息表、资产增加表、资产减少表、资产处置表、产权登记表等,由于涉及的表较多,这里以资产增加中的库存物资增加表这个典型的数据表设计来进行说明,其表结构如表1所示。

3.2数据库连接

对SQL Server数据库进行操作使用的是技术,对于检索结果,可以将其放在DataSet对象中或者直接进行处理,使得来自多个数据源或不同层间进行远程处理的数据组合在一起,向用户公开。连接SQL Server数据库,首先需要启动可连接的一个SQL Server的数据库服务,以及一个可用的数据库。还要用到System.Data.SqlClient命名空间下的SqlConnection类。

定义一个SqlConnection对象,可以使用如下语句:

Dim sqlcon as new system.data.sqlclient.sqlConnection("myconnectionstring")

而myconnectionstring则可如下定义:

Data Source=localhost;Initial Catalog=xt;Persist Security Info=True;User ID=sa;Password=sa111" providerName="System.Data.SqlClient”

其中localhost为数据库所在电脑的IP地址,xt为要连接数据库的名称,sa为连接数据库的登录名,sa111为连接密码。

打开和关闭数据库连接分别采用如下语句实现:

sqlcon.Open()

sqlcon.Close()

4功能模块设计

在进行具体的程序开发时,我们要对每个子功能模块进行设计。由于本系统所涉及的子功能模块较多,这里以库存物资增加功能模块的设计为例来介绍一下功能模块设计的方法。

4.1设计模块界面

设计模块界面,就是要根据前面的系统功能设计的要求进行页面的设计,主要操作步骤如下:

1)在解决方案资源管理器中添加一个Web窗体,并进行重命名;

2)打开Web窗体,根据需要的行数和列数插入表格;

3)添加相应的控件,设置好数据表字段的位置和属性;

4)给相应的控件事件编写代码,实现不同的功能。

按照以上步骤,我们设计的库存物资增加模块页面如图2所示。前面的3步都比较容易实现,主要难点在控件事件代码的编写,下面以Page_Init过程为例来分析一下代码功能。

4.2编写程序代码

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

‘说明:以下代码用于实现对用户选择的年度进行分析,如果不是2016,则进入初始化库存物资增加凭证界面,如果是2016,则进入2016年度库存物资增加凭证界面。

Dim y As String

y = Request.QueryString("niandu").ToString

Dim Year As Integer

If (y "") Then

Year = Convert.ToInt32(y)

Else

Year = Convert.ToInt32(page.Session("year").ToString())

End If

Page.Session("year") = Year.ToString()

If Page.Session("year") "2016" Then

Label10.Text = "" + Page.Session("year") + "年度库存物资增加凭证"

Else

Label10.Text = "" + "初始化库存物资增加凭证"

End If

‘说明:以下代码用于实现对库存物资增加记录的显示,如果有记录则显示第1条记录,如果没有记录则将所有输入框清空,以方便用户录入。

Dim sqlcon As New SqlConnection

sqlcon.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings("cwconnectionstring").ToString()

Dim sqlcmd As New SqlCommand

sqlcmd.Connection = sqlcon

Dim sql1 As String = "select count(*) from kcwz where isadd='" + isadd.Text + "' and year=" & y & ""

mandText = sql1

sqlcon.Open()

max = sqlcmd.ExecuteScalar

If max > 0 Then

Dim sql As String = "select top 1 * from kcwz where isadd='" + isadd.Text + "' and year=" & y & ""

mandText = sql

Dim sqlreader As SqlDataReader

sqlreader = sqlcmd.ExecuteReader(CommandBehavior.CloseConnection)

sqlreader.Read()

Dim aa As New basic

Ttzdw.Text = aa.GetBmName(sqlreader("tzdw")):txtpzid.Text = Convert.ToString(sqlreader("pzid"))

txtKmCode.Text = sqlreader("zckm"):txtKmName.Text = sqlreader("zcname")

txtzcid.Text = sqlreader("zcid"): tzcgg.Text = sqlreader("zcgg")

tzysm.Text = sqlreader("zysm"): dhqfs.Text = sqlreader("hqfs")

Tlbkm.Text = sqlreader("lbkm"):Tdate.Text = sqlreader("date")

Tbgr.Text = sqlreader("bgr"): Tyxqx.Text = sqlreader("yxqx")

Dcwbm.Text = sqlreader("cwbm"):Tdanjia.Text = sqlreader("danjia")

Tcount.Text = sqlreader("count"):Tjine.Text = sqlreader("jine")

Label2.Text = sqlreader("state"):txtKmPath.Text = Convert.ToString(sqlreader("kmfn"))

lblId.Text = Convert.ToString(sqlreader("id"))

Tglbm.Text = bb.GetBmName(sqlreader("glbm"))

lblxlbz.Text = bb.getYsXl(sqlreader("zckm").ToString(), sqlreader("tzdw")).ToString()

Tjingshouren.Text = Convert.ToString(sqlreader("jingshouren"))

Djldw.Text = Convert.ToString(sqlreader("jldw"))

sqlreader.Close()

sqlcon.Close()

Else

txtKmCode.Text = "" : txtKmName.Text = "" : txtzcid.Text = "" : tzcgg.Text = "" : Tglbm.Text = ""

tzysm.Text = "" : Tlbkm.Text = "" : Tdate.Text = "" : lblyue.Text = "" : lblljje.Text = "": Tbgr.Text = "" Tyxqx.Text = "" : Tdanjia.Text = "" : Tcount.Text = "" : Tjine.Text = "" : txtKmPath.Text = ""

lblqcsl.Text = "" : lblljsl.Text = "": dhqfs.Text = "" : Dcwbm.Text = "" : Tjingshouren.Text = ""

End If

End Sub

对于其它控件的功能实现,我们也可以分别进行代码的编写,在此需要注意的是,为了提高代码的利用率,简捷代码编写,我们可以将需要反复使用的代码段单独放在一个过程中,然后通过代码的调用实现相同的功能。由于篇幅所限,这里就不一一列举。

5结论

通过以上的分析和设计, 我们完成了一个基于的资产管理信息系统的设计。该系统较好地解决了资产管理过程中存在的问题,有效地提高了工作效率,减少了管理部门和用户部门的工作量,为资产的实时在线管理提供了有效的手段。

参考文献:

[1] 张智毅. Visual +SQL Server数据库开发从基础到实践[M].北京:电子工业出版社,2006.

[2] 明日科技.SQL Server从入门到精通[M].北京:清华大学出版社,2012.

上一篇:“风筝效应”点亮数学课堂 下一篇:机电技术应用专业课程标准解读