机房收费系统之结账

来源:互联网 发布:西安监测数据造假 编辑:程序博客网 时间:2024/03/29 23:16

关于机房收费系统的结账问题大家有着不一样的见解,所以整体的结账我不再赘述,不过其中的一个问题我想说明一下,就是那个上期余额的获取。
在日结账的那张表里,关于上期余额,大家普遍认为是昨天的allcash本期余额,可是如果今天已经结过账,然后又有人上机,那再次结账时,那个上期余额怎么算?
所以,我说一下我的解决方案。
在解决之前,我把里边的原来某些不合格的记录都删除,可是报错了。
上网查后,解说:错误原因是表里有重复记录,所以不能直接右击删除,只能写sql语句:
delete from CheckDay_Info where date = '2014-9-2'
这样就轻松搞定了。
进入正题:
1·考虑如何获得checkday_info最后一行?
select top 1 * from Line_Info order by serial desc
这样
可以,可是另一个问题有出来了,checkday_info表中没有标示列,其他也没有合适的列供排序找最后一行,怎么办?
2·添加标识列
(1)如何添加一列?
<span style="white-space:pre"></span>alter table checkday_info add serial numeric(18, 0)
(2)修改属性(注意箭头指的位置)
3)标识列添加成功
3·vb里写代码
  '获取上期余额remaincash,这里的上期余额就是上一条记录的allcash    txtsql = "select top 1 * from checkday_Info order by serial desc"    Set mrc = ExecuteSQL(txtsql, msgtext)    remaincash = mrc!allcash        mrc.Close

4·成功获取(如图)



5一些sql语句小结
1· 往表里添加一列
alter table checkday_info add serial numeric(18, 0)
添加标识列:不允许有空值,且在属性中“是否标示”选择是,就ok了
格式:alter table 表名 add 列 类型
2· 加一行数据:
insert into 表名 values(数据1,数据2,。。。)
3·选取数据库表中最后一行数据
select top 1 * from Line_Info order by serial desc
4·选取第一行数据
select * from CheckDay_Info order by serial asc
5·删除某条记录
delete fromCheckDay_Info where date = '2014-9-2'

























0 0