机房收费系统总结七

 

     上机就需要收费，关系到钱的事了，得好好算这个账，算算收入。

   

   敲结账窗体时没有创建新表，但涉及到好几张表的计算，此窗体是针对操作员的，即对操作员值班期间，注册，充值，退卡这三项关系到金钱的功能结个帐。

  

   用到语句类似下面的语句，求退卡表中由此操作员进行退卡的所有退卡金额之和：

     txtSQL="Select isnull(sum(cash),0) from recard_Info where userID='" & Trim(Combo1.Text) & "'"

    

   这正是针对操作员个人业务情况的汇总结账，对于一段时间内总得收入情况还需要进行归账，因此，下面的日结账单和周结账单就是此功能。因为以前从没有看到过这方面的材料，所以折腾了一个星期，才勉强做出了个样子。

   

   进一步学习的知识：

 

   1、制作报表：这是长海的博客总结，我觉得收获很大，很详细，很容易理解。还有就是在Grid++Report 文件夹里有详细的说明和例子源码，非常受益。http://blog.163.com/tcl_6688/blog/static/16886425720117109047348/?newFollowBlog

    下面是老万的总结，也详细到可以了，再次粘贴

http://wjk1987110.blog.163.com/blog/static/1630728612011627112439405/

 

     2、在报表中显示时间：借鉴小崔的博客http://blog.csdn.net/xiaoxian8023/article/details/6689474

Private WithEvents Report As grproLibCtl.GridppReport           '定义事件接口

'*************************************************************************
'**函 数 名：Report_Initialize
'**输    入：无
'**输    出：无
'**功能描述：初始化报表：给各个参数的传值
'**作    者：龙轩
'**日    期：2011-08-15
'**版    本：V1.1.4
'*************************************************************************
Private Sub Report_Initialize()

    '设置各个参数的值
    Report.ParameterByName("UserName").AsString = g_strUserName                             '登录的用户
    Report.ParameterByName("DateStart").AsString = Format$(DTPStart.Value, "yyyy-mm-dd")    '显示开始日期
    Report.ParameterByName("DateEnd").AsString = Format$(DTPEnd.Value, "yyyy-mm-dd")        '显示结束日期

End Sub

    因为自己走得慢，所以遇到自己无法解决的问题就喜欢去看同学们的博客，总会有人和我遇到同样的问题，但是人家自己解决了，为什么我就不可以呢？我不知道这是不是一种依赖一种懒惰，还是对自己的轻视，总是认为自己不可以，总是想去问别人，自己始终无法做到独立的思考，也无法抒发独特的见解，这种感觉很不好。就像今天早上，有种特别想要学习的冲动，想要优化自己的代码，不再让它羞嗒嗒，有时候，人很自卑，连代码都自卑起来，曾经建立起来的自信也会轰然崩塌，还好自己怀着不服输的精神，铁杵还能磨成绣花针呢，我有时间，我不怕！