VB528 高校固定资产管理系统VB+ACCESS

随着电脑的普及与使用，现在的管理也提升了一个档次，渐渐实现了无纸化办公，即从原来的人工记录管理模式转变为电脑一体化管理。高校是科研的阵地，后勤的高校固定资产管理系统也应该一改传统的人工管理，更加信息化，时代化，节省人力物力，提高效率。基于这一点，开发此高校固定资产管理系统。
高校固定资产管理系统，是以高校的管理方式为实例而设计的一种实用型管理系统。本系统最大的特点是通用性、简单操作性，适用于同行业以及一些同类型的企业管理。随着学校寄宿人员的增多，高校固定资产管理系统人员的负担越来越重，为了让所有高校固定资产管理系统人员能从繁重的工作中解脱出来，实现无纸化办公；使工作更有条理，更方便，更有效率而开发出这套高校固定资产管理系统软件。
软件从对学生的分房开始到最后的高校固定资产管理系统全部电脑化。它主要包括：公寓、寝室的配置、住宿人员登记、资产检查、公寓资产情况,使公寓的管理效率更高，做的更好！ think58好，好think58 [资料来源：www.THINK58.com]

作为一个学生公寓的管理软件，要十分全面的贴近以及适合大学公寓的管理方法。本软件的参考资料主要有两种来源：一是参考本学校公寓的管理结构，管理方法。如各个公寓的分布特色，以及公寓的各种管理制度。这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个公寓最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。
本软件主要包括以下方面：系统设置、高校固定资产管理系统、卫生检查、公寓资产、记录查看、记录删除、值班记录、帮助制作。
高校固定资产管理系统目前在功能上，以及操作的简便上有很大的改进。但是还是存在一些不足，在有些功能的实现上还不是十分的理想，这也是本人在时间和精力上留下的遗憾。但是相信这些会在以后的版本中得到完善，使这个软件成为一个功能上最全，使用上最简捷方便的管理软件。

think58.com

[来源：http://www.think58.com]

[资料来源：http://www.THINK58.com]

我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。高校固定资产管理系统主要是对公寓、寝室的配置、住宿人员登记、卫生检查、公寓资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生高校固定资产管理系统系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生高校固定资产管理系统系统是完全可行的。
1．3．2 经济上的可行性
本单位有自己的微机室可以使用，不必重新购置计算机，不需要花费大量资金，是一个节约人力物力的好办法。
1．3．3 组织管理上的可行性
本单位的领导干部具有较高的素质，它们对管理现代化有较高的认识水平，并且有各级领导的大力支持和重视。
综上所述，建立一个高校固定资产管理系统与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个高校固定资产管理系统是必要可行。

think58

[资料来源：http://THINK58.com]

[来源：http://think58.com]

② 界面制作与实现方法
在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。
在右下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。
在进行所有操作前，先要确定数据库已连接。
在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则对数据库表进行查找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示，不存在，添加成功。
Adodc1.Recordset.Find "公寓名称='" & Text2.Text & "'"
If Adodc1.Recordset.EOF = False Then
MsgBox "此公寓已存在", , "提示"
Adodc1.Recordset.MoveFirst
Exit Sub
End If
Text3.Text = ""
If Text2.Text = "" Then

copyright think58 [来源：http://think58.com]

MsgBox "输入所要添加公寓的名称", , "提示"
Exit Sub
End If
添加：
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("公寓名称") = Text2.Text
Adodc1.Recordset.Update
Adodc1.RecordSource = "gongyu"
Text2.Text = ""
Set DataGrid2.datasource = Adodc1
DataGrid2.Refresh think58好，好think58 [资料来源：www.THINK58.com]

修改公寓名称：
If Text3.Text = "" Then
MsgBox "选择要修改的公寓", , "提示"
Exit Sub
End If
If Command12.Caption = "修改" Then
Text2.Text = Text3.Text
Label6.Caption = "输入想要修改的公寓名称"
Command12.Caption = "更新"
Command3.Enabled = False
Command7.Enabled = False
ElseIf Command12.Caption = "更新" Then
Command3.Enabled = True
Command7.Enabled = True
Label6.Caption = "输入想要添加的公寓名称"
Adodc1.Recordset.Fields("公寓名称") = Text2.Text
Adodc1.Recordset.Update
Adodc2.Recordset.ActiveConnection.Execute "update qinshi set 公寓名称='" & Text2.Text & "' where 公寓名称='" & Trim(Text3.Text) & "'"
Adodc2.Recordset.Update
Command12.Caption = "修改"
End If
Set DataGrid2.datasource = Adodc1
DataGrid2.Refresh
Adodc5.Recordset.Update
Set main.DataGrid1.datasource = Adodc5
main.DataGrid1.Refresh

[版权所有：http://think58.com]

删除公寓名称
If Text3.Text = "" Then
MsgBox "选择所要删除公寓的名称", , "提示"
Exit Sub
End If
If (MsgBox("你真的想删除公寓名称为  " & Text3.Text & "  的记录吗？", vbOKCancel, "系统提示")) = vbOK Then
    Adodc1.Recordset.Delete
    Adodc1.Recordset.Update
End If
Text3.Text = ""
Set DataGrid2.datasource = Adodc1
DataGrid2.Refresh think58 [来源：http://think58.com]

.ConnectionString = provider & ";" & datasource
.CommandType = adCmdTable
.RecordSource = "weigui"
.Refresh
End With
日期后面的下拉列表框中可以显示出所有已经录入记录的日期，它是通过对当前表进行分类查询后得到的结果，然后将其添加在combo中，实现代码如下：
s = "select distinct 日期 from weisheng"
With Adodc2
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdText
.RecordSource = s
.Refresh
End With

think58.com

[资料来源：http://THINK58.com]

For I = 1 To Adodc2.Recordset.RecordCount
Combo1.AddItem (Adodc2.Recordset.Fields("日期"))
Adodc2.Recordset.MoveNext
Next
查看全部，即把当前表中的记录全部赋给当前用来显示的表格，按日期查看，则是在表中先进行查询，然后对结果进行重绑定，在赋值。它们的判断主要是通过单选框的选取来完成的，实现方法如下：
s = Combo1.Text
If Option1.Value = True Then
Set main.DataGrid1.datasource = Adodc1
main.DataGrid1.Refresh
ElseIf Option2.Value = True Then
sql = "select * from weisheng where 日期='" & Trim(s) & "'"
With Adodc3
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdText
.RecordSource = sql
.Refresh
End With
Set main.DataGrid1.datasource = Adodc3
main.DataGrid1.Refresh
End If
参考文献
[1]Visual Basic 程序设计      王栋       清华大学出版社
[2]Visual Basic 高级编程宋伟  吴建国     清华大学出版社
[3]Visual Basic 6.0 入门与提高 戴红 陈哲 清华大学出版社

[4]Visual Basic 6.0应用指南  何斌 王运坚
冯峰 刘醒   人民邮电出版社
[5] Visual Basic 高级编程技术 陈 明
杨劲松  北京希望电子出版社
[6] Visual Basic实用教程      陈弘原  中国水利水电出版社
[7]数据库系统概论   　　　    萨师煊、王珊 高等教育出版社　
[8]软件系统开发技术    潘锦平
施小姚 西安电子科技大学出版
think58好，好think58 [资料来源：http://THINK58.com]