新农村信息化管理系统

2019-03-22杜钦生

长春大学学报 2019年2期

关键词：补贴界面成员

杜钦生，朱妍

(长春大学计算机科学技术学院，长春 130022)

1 系统功能介绍

课题组对农村进行认真调研，确立了所建系统的功能需求[1-2]。总体目标是对村委会信息、村民信息、村务信息等进行信息化管理。系统功能图，如图1所示。

图1 系统功能图

1.1 村委会管理模块

该模块的主要功能包括对村委会成员管理信息、农业补贴信息、村建设办证的信息的增、删、改、查。

1.1.1 村委会成员管理

用于记录村委会的个人基本信息，统计村委会的成员信息，主要包括姓名、性别、籍贯等。

1.1.2 农业补贴

用于统计村民的农业补贴情况，便于对村民的生活情况进行监督；还可以统计村民的其他补贴情况，有利于村委会对村民各方面补助的安排。

1.1.3 村建设办证

用于记录村建设的信息，统计村民的成员信息以及建设情况的信息，有利于对农村进行规划。

1.2 村民管理模块

该模块的主要功能包括对村民资料信息、耕作登记信息的增加、删除、修改和查询。

1.2.1 村民资料

可以对辖区内的常住人口和暂住人口登记，并进行管理。

1.2.2 耕作登记

统计村民耕作的类型和面积等信息。

1.3 村务管理模块

实现农村日常综合性事务的治理。

1.4 党务管理模块

对党员个人和党组织进行统一管理。

1.5 信息维护管理模块

用于维护村、村委会成员、部门、党员等信息资料。

2 系统设计

2.1 开发技术

我们以Visual Basic为开发工具、Access为后台数据库开发完成新农村信息化管理系统。

2.2 数据库设计

以村委会成员实体为例进行数据库设计[3]。村委会成员E-R图，如图2所示。

图2 村委会成员E-R图

村委会成员的结构如表1所示，其中允许空字段中的0表示关键字不允许空，1表示允许空。

表1 村委会成员表

下面简要列出本系统中主要表的属性信息：

(1)农业补贴表：包括编号、姓名、水费、电费、住宿费、其他费用、总补贴、经手人和补贴日期等。

(2)村建设办证表：包括证件号、姓名、村民编号、时效、证件类型和办证日期等。

(3)村民资料表：包括村民编号、姓名、贫富等级、登记日期和办公电话等。

(4)耕作登记表：包括登记编号、姓名、耕作面积、耕作类型、登记日期、备注等。

(5)任务表：包括村民编号、姓名、部门编号、部门名称、任务编号、任务名称等。

本系统还有事务表、文件表、土地变更表、党员信息表、发展党员表、党员变动表和用户表等共13张表，它们的E-R图和表结构可以参照图2和表1来完成。

2.3 系统功能实现

2.3.1 主界面

系统主界面如图3所示。

图3 系统主界面

系统的所有功能都通过下拉式菜单展现给了用户。随着用户权限的不同，菜单可用的菜单项也随之不同。当不可用的菜单项变成灰色时，用户将无权使用此菜单项的功能。系统维护模块的主要功能是操作员的管理、密码修改管理、权限管理。为了系统使用的安全性，系统用户的账号是管理员创建的，用户可以更改初始密码[4]。

2.3.2 村委会管理模块设计

在村委会管理模块中，村委会成员管理负责管理村委会成员信息；农业补贴管理负责管理补贴金额信息；村建设办证管理负责管理证件信息[5]。

(1)村委会成员管理。管理人员登录系统后，单击【村委会管理】|【村委会成员管理】命令，弹出【村委会成员管理】界面，如图4所示。

图4 村委会成员管理主界面

村委会成员信息的添加、修改、删除、查询等功能的核心实现代码[6]，如下所示：

①添加成员档案。

If flag = 1 Then

sql1 = "select * from村委会成员表 where 编号='" & Text1(0).Text & "'or 姓名='" & Text1(1).Text & "'"

Set rs1 = TransactSQL(sql1)

If Not rs1.EOF Then

MsgBox ("您要添加的成员已经存在！")

Exit Sub

End I

sql2 = "insert into村委会成员表 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Combo1(0).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Combo1(1).Text & "','" & Combo1(2).Text & "','" & Combo1(3).Text & "','" & Combo1(4).Text & "','" & Combo1(5).Text & "','" & Text1(4).Text & "','" & Text1(5).Text & "')"

Set rs1 = TransactSQL(sql2)

MsgBox ("成员信息添加成功！")

End If

②修改成员档案。

If flag = 2 Then

sql2 = "update村委会成员表 set 姓名='" & Text1(1).Text & "',所在村名='" & Combo1(1).Text & "',所在小组='" & Combo1(2).Text & "',所在部门='" & Combo1(3).Text & "',所在职位='" & Combo1(4).Text & "' ,政治面貌='" & Combo1(5).Text & "' ,家庭住址='" & Text1(4).Text & "' ,备注='" & Text1(5).Text & "'where 编号='" & Text1(0).Text & "' "

Set rs1 = TransactSQL(sql2)

MsgBox ("成员信息修改成功！")

End If

③删除成员档案。

If Text1(0).Text <> "" Then

sql2 = " delete * from村委会成员表 where 编号='" & Text1(0).Text & "'"

Set rs1 = TransactSQL(sql2)

MsgBox ("成员信息删除成功！")

Else

MsgBox ("成员信息为空，无信息可删除！")

End If

④查询成员档案。