自来水收费系统

wzw190

请各位老师帮我设计一个收费系统。

思路：1、输入户主姓名，自动调出“上月水表读数”。2、收费月份，每个月手动输入。3、“当月水表读数”，手动输入，输入后自动存入“数据库”对应的月份内，数据保留一位小数。4、“上月水表读数”，输入户主姓名，自动调出该数据。5、“当月用水量”，自动计算。6、“当月水费”根据最新“单价”自动计算。

如有更好的建议也请老师帮忙优化，谢谢！！

学良

可参阅下贴：
https://club.excelhome.net/thread-1112777-1-1.html

wengjl

办公电脑有加密，传不附件，故发个图

wengjl

Sub 水费开单()
    ' https://club.excelhome.net/threa ... tml?_dsign=d73b2d5b
    ' 2024-8-27
    '
    Sheet1.Activate
    xm = Sheet1.Cells(6, 1).Value
    yf = Sheet1.Cells(6, 2).Value
    sbds = Sheet1.Cells(6, 3).Value
    foun = False
    x2 = 5
    Do While Not (IsEmpty(Sheet2.Cells(x2, 2).Value))
      If Sheet2.Cells(x2, 2).Value = xm Then
        foun = True
        Sheet2.Cells(x2, yf * 3 + 1).Value = sbds
        Sheet2.Cells(x2, yf * 3 + 2).Value = sbds - Sheet2.Cells(x2, yf * 3 - 2).Value
        Sheet2.Cells(x2, yf * 3 + 3).Value = Sheet2.Cells(x2, yf * 3 + 2).Value * Sheet1.Cells(3, 2).Value
        Sheet1.Cells(6, 4).Value = Sheet2.Cells(x2, yf * 3 - 2).Value
        Sheet1.Cells(6, 5).Value = sbds - Sheet2.Cells(x2, yf * 3 - 2).Value
        Sheet1.Cells(6, 6).Value = Sheet1.Cells(6, 5).Value * Sheet1.Cells(3, 2).Value
      End If
      x2 = x2 + 1
    Loop
    If foun = False Then
      MsgBox "该用户未找到，请仔细核对姓名输入是否有误！！！"
    Else
      ActiveWindow.SelectedSheets.PrintPreview   ' 先预览，再决定是否打印
    End If
   
End Sub

wzw190

wengjl 发表于 2024-8-27 13:59
Sub 水费开单()
    ' https://club.excelhome.net/thread-1700400-1-1.html?_dsign=d73b2d5b
    ' 2024 ...

非常感谢！基本功能都实现了。但我又发现了一个问题：应该再加几个判断。1、判断当月的读数应该大于等于上一个月的计数。2、判断上个月是否有数据，如果有则计算，没有则提示“上月没有数据无法计算用水量”，选择确定后，录入当月数据至数据库，不计算当月用水量。现在的问题是：假设7月没有数据，8月新录入数据，程序会直接用读数*单价。  
老师请帮我再完善一下。另外，请再帮我设计一个不用每月收费的：例如1月份收费后，2、3月没有收，直到4月份才收，能不能让系统从1月取读数。

wzw190

wengjl 发表于 2024-8-27 13:59
Sub 水费开单()
    ' https://club.excelhome.net/thread-1700400-1-1.html?_dsign=d73b2d5b
    ' 2024 ...

烦请老师再帮我获取一下这两个数据：合计用水量和合计费用。谢谢

wzw190

学良 发表于 2024-8-27 13:28
可参阅下贴：
https://club.excelhome.net/thread-1112777-1-1.html

谢谢，下来学习学习

wengjl

全年合计那里你输入一个公式即可。
1月份抄表有数数，2月、3月不抄表，那么在数据表上手工处理一下，把1月份的抄表数依次填到2月、3月中，这样4月抄表时就很顺利地可以计算了

wengjl

一个村，一般是老用记，都要在数据表里有用户信息的。
如果有新增用户或新装水表，则需要手工在数据表上，先添加用户信息。
数据表上的序号，最好是换成用户的手机号，因为手机号有唯一性，姓名是有可能出现同姓同名的，一旦有同姓名的，VBA是会出错的！！！

wzw190

wengjl 发表于 2024-8-27 15:54
一个村，一般是老用记，都要在数据表里有用户信息的。
如果有新增用户或新装水表，则需要手工在数据表上， ...

好的，其它问题我已处理。请老师再帮我看看这两个问题如何处理：1、判断当月的读数应该大于等于上一个月的计数。2、判断上个月是否有数据，如果有则计算，没有则提示“上月没有数据无法计算用水量”，选择确定后，录入当月数据至数据库，不计算当月用水量。现在的问题是：假设7月没有数据，8月新录入数据，程序会直接用读数*单价。

我想加入判断可减少一些操作上的失误。