注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

宋渭涛的博客

虚能引和静能生悟,仰以察古俯以观今。

 
 
 

日志

 
 

物业水电费管理系统编写  

2013-04-03 14:58:14|  分类: 软件学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

物业水电费管理系统编写及安装操作说明

    本系统为单机版,属于数据库应用系统,可主要管理单位、公司、小区等住户的水电费计算和报表、收据打印,以及水电费历史库报表以及收据的查询和打印,用Access2003编写,功能简单实用,使用方便。

一、系统安装需求:

1、硬件:

CPUIntel Pentium 500MHZ及以上

内存:64M 及以上

硬盘:10GB及以上,其他硬件兼容即可。

2、软件:

微软WINDOWS 2000 SP4中文版WINDOWS XP中文版及以上操作系统,

微软Office的套件Access 2002中文版及以上版本。

二、系统数据库实体关系示意图如下:

物业水电费管理系统编写 - 骊泉 - 骊泉居
 三、系统基本架构组成

(一)底层数据表编写简要参数如下:

1、单位表:

名称

类型

长度

ID

长整型

4

单位名称

文本

30

2、姓名表:

名称

类型

长度

ID

长整型

4

单位编码

长整型

4

姓名

文本

8

3、水电费表:

名称

类型

长度

ID

长整型

4

姓名编码

长整型

4

月份

日期/时间

8

-上月度数

长整型

4

本月度数

长整型

4

每度费用

货币

8

水费

货币

8

取暖费

货币

8

备注

备注

 

4、历史库表:

名称

类型

长度

ID

长整型

4

姓名编码

长整型

4

月份

日期/时间

8

-上月度数

长整型

4

本月度数

长整型

4

每度费用

货币

8

水费

货币

8

取暖费

货币

8

备注

备注

 



表间关系见图

物业水电费管理系统编写 - 骊泉 - 骊泉居
 



(二)主要查询编写简要SQL代码如下:

  1、提取上月度数生成Tmp表查询:

SELECT sdflsk.姓名编码, Last(sdflsk.本月度数) AS 上月度数 INTO tmp

FROM (dwmc INNER JOIN xmb ON dwmc.ID = xmb.单位编码) INNER JOIN sdflsk ON xmb.ID = sdflsk.姓名编码

GROUP BY sdflsk.姓名编码;

2、更新上月度数从tmp表:

UPDATE tmp INNER JOIN kfqsd ON tmp.姓名编码 = kfqsd.姓名编码 SET kfqsd.上月度数 = tmp!上月度数;

3、追加历史库:

INSERT INTO sdflsk ( 姓名编码, 月份, 上月度数, 本月度数, 每度费用, 水费, 取暖费, 备注 )

SELECT kfqsd.姓名编码, kfqsd.月份, kfqsd.上月度数, kfqsd.本月度数, kfqsd.每度费用, kfqsd.水费, kfqsd.取暖费, kfqsd.备注

FROM (dwmc INNER JOIN xmb ON dwmc.ID = xmb.单位编码) INNER JOIN kfqsd ON xmb.ID = kfqsd.姓名编码;

(三)主要窗体编写简要VBA代码如下:

1、开始水电费计算编辑的代码:

Private Sub Command2_Click()

On Error GoTo Err_Command2_Click

    If IsNull(Me.Text0) Then

       MsgBox "请你输入开始水电费计算编辑的月份", vbInformation, "请注意"

       Me.Text0.SetFocus

    Else

    DoCmd.SetWarnings False

    DoCmd.OpenQuery "beizhu(sc)", acViewNormal

    DoCmd.OpenQuery "yuef(gx)", acViewNormal

    DoCmd.OpenQuery "syds(tiqu)", acViewNormal

    DoCmd.OpenQuery "syds(gx)", acViewNormal

    DoCmd.OpenForm "bianjisdf", acNormal

    DoCmd.Close acForm, "date"

    DoCmd.SetWarnings True

    End If

Exit_Command2_Click:

    Exit Sub

Err_Command2_Click:

    MsgBox Err.Description

    Resume Exit_Command2_Click

End Sub

2、存入历史库代码:

Private Sub Command8_Click()

On Error GoTo Err_Command9_Click

    If MsgBox("您已经将本月水电费计算正确并存入历史库吗?", _

    vbExclamation + vbYesNo, "请注意!") = vbYes Then

    DoCmd.SetWarnings False

    DoCmd.OpenQuery "sdflsk(zj)", acViewNormal

    DoCmd.SetWarnings True

    End If

Exit_Command9_Click:

    Exit Sub

Err_Command9_Click:

    MsgBox Err.Description

    Resume Exit_Command9_Click

End Sub

3、打开背景代码:

Private Sub Form_Current()

    DoCmd.Maximize

    If IsNull(Me.单位名称) Then

       MsgBox "请输入您要管理水电费的单位或者公司名称!", vbInformation, "请注意!"

       DoCmd.OpenForm "dwmc", acNormal

    Else

      DoCmd.OpenForm "main", acNormal

      DoCmd.OpenForm "whxmb", acNormal

    End If

 End Sub

四、系统基本功能

1、单位、公司、社区名称输入和编辑;

2、住户姓名输入和编辑;

3、修改每度电费;

4、修改收据备注内容;

5、月份水电费编辑:

上月度数自动读入。

⑴预览打印月份水电费总报表;

⑵预览打印月份水电费收据表;

⑶存入历史库。

6、水电费历史库查询和打印。
  评论这张
 
阅读(732)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018