基建报表管理系统

目录

一、系统需求分析 (2)

二、系统概要设计 (2)

三、系统详细设

计 (2)

四、系统部分源代码 (4)

五、系统测试及调试 (16)

六、心得体会 (18)

七、主要参考文献 (19)

一、需求分析

基建报表管理系统是确保政府投资方向、控制学校投资规模、执行国家投资计划的重要环节。基本建设资金量大,情况复杂,要管理好基本建设资金,只有依靠现代化手段,利用网络化管理,才能最科学地使用建设资金,提高建设资金的使用效率,保证基本建设事业的健康发展。基建报表管理系统是为了适应新形势下基本建设财务管理的需要,针对基建财务核算和业务管理日益繁杂,不同层面信息使用者对会计信息披露具有不同的要求等问题而研发的。

二、系统概要设计

设计一个供财政部门管理各机关事业单位基建报表的管理系统，主要有四张表需要管理：基本情况表、预算审批表、资金到位表、拨付申请表。要求能在软件同显示这四张表、允许用户在显示的表上输入数据以及编辑修改操作。填写好的表

能保存到数据库中，并能提供各种类型的检索与查询，并具有自动生成、预览、打印、下载、导出等各个功能。随着基建财务业务的不断发展,下一步将从业务和系统两个不同的角度进行进一步的完善,使系统的界面更加完善,交互更加人性化,查询、统计和决策支持功能更加强大。

三、系统详细设计

（一）基本情况表

1．项目编码：指为区分不同建设项目而对项目做出的规范化的数字形式。

2．项目名称：指经有权部门批准立项的建设项目的全称。

3．建设单位：指纳入基本建设计划的独立建设单位，是基建投资资金的使用者，也是工程建设的组织者和监督者。在行政上有独立的组织形式，经济上实行独立核算，能够组织编制独立总体设计、基本建设计划、财务决算及工程预决算的建设机构。

4．项目负责人：指组织建设项目实施并承担相应责任和义务的项目责任人。也称项目法人。

5．开工日期：指经有权部门批准的开工报告上注明的开工日期。

6．竣工日期：指建设项目按设计要求全部建成后，工程竣工验收报告中所注明的竣工日期。

7．立项审批机关：指有权批准建设项目立项的审批机关。

8．立项审批文号：指项目审批机关下发的项目立项批准文件号。

9．概算批准文号：指经有权部门批准的建设项目从筹建到竣工验收交付所需全部建设资金的批准文件号。

10．初始概算总投资：指经有权部门批准的建设项目从筹建到竣工验收及交付所需的全部建设投资。

（二）预算审批表

主要包括以下费用项目的申请支出额、计算依据。核定初额等

其他费用

（三）资金到位表

1．“国债专项资金”：国债专项资金包括国债补助和国债转贷两个部分。

国债补助：指国家无偿拨付用于补助地方项目建设的国债专项资金；

国债转贷：指中央将国债建设资金转贷给地方政府，用于地方项目建设的资金。

2．“中央预算内基建资金”：反映中央财政预算内基建拨款。

“基建基金拨款”，反映由中央财政预算投入的基本建设基金拨款。

“专项建设基金拨款”：反映由中央预算安排的政府性基金。

专项建设基金指养路费、车辆购置附加费、铁路建设基金、电力建设基金、三峡工程建设基金、新菜地开发基金、公路建设基金、民航基础设施建设基金、农村教育事业附加费、邮电附加、港口建设费、市话初装基金、民航机场管理建设费政府性基金。

“国家资本金”：反映由中央财政预算安排的，以基本建设支出预算拨款形式注入到项目企业的国家资本金。

“财政专项”，反映财政部门追加安排的基本建设支出预算拨款。

“其他”，反映上述四项之外财政预算安排的基本建设支出。

3．“地方预算内基建资金”：反映市、县级财政基建预算拨款。

“中央补助”，反映由中央财政划转预算给地方的基本建设支出预算拨款，用于补助地方项目的基建资金。

“预算拨款”，反映由地方财政安排的年度投资预算内拨款。

“国家资本金”，反映由地方财政以基本建设支出预算拨款形式注入的国家资本金。

“财政专项”，指除财政年初切块给计划部门统筹安排的基建资金之外，在年度预算执行中单独由财政部门追加安排的基本建设支出预算拨款。

“专项建设基金拨款”：指地方财政预算安排的政府性基金。如：养路费、车辆购置附加费拨款、水利基金、地方教育基金等。

“其他”反映以上各项没有包括用于基本建设的资金。

4．“银行贷款”：指从国内各银行（包括政策性银行和商业银行）以及其他社会金融机构取得的基本建设贷款。其中，开发银行贷款单独反映。

5．“利用外资”：指从世界经济组织、外国政府及外国银行取得的建设资金和外商投资等。

6．“其他建设资金”：指以上各项没有包括的用于基本建设的支出。其中，预算外资金反映财政部门安排用于基本建设的土地批租、基础设施费、其他投资等。

（四）拨付申请表

四、系统的部分源代码

Option Explicit

Private Sub Command1_Click() '确定按扭

Dim i As Integer, y As Integer

On Error Resume Next

Me.Hide

If Check1.Value = 1 Then

activeflag = 1

Form1.Show

Form1.Data1.Recordset.MoveLast '若无此句，存在首次计算计录数不准问题

y = Form1.Data1.Recordset.RecordCount '以下循环查找，直到找到记录位置等于在用户在form5窗口中指定的记录位置的记录

With Form1.Data1.Recordset

.MoveFirst

For i = 0 To y

If .AbsolutePosition = Data1.Recordset.AbsolutePosition Then GoTo end1

.MoveNext