发新话题
打印

学习BCB第六天:修改了库结构,修正了自动编号问题

学习BCB第六天:修改了库结构,修正了自动编号问题

今天修改了数据库的库结构,主要是修改月末结算的imbalance和exbalance两个数据表
先说明一下这两个数据表的作用:当用户点击月末结算后,入库单与出库单将被清除,而当月出入库单将结合产品库数据再经过一定的计算产生完整出/入库数据表,完整出入库数据表除了包括基本数据外,还计算得到销售税金、价税合计、应收金额、折扣金额等数据,这些在生成其它数据报表时就无须再计算,而只需要从完整出/入库数据表中挑数据即可。

到今天为止,财务共给了下面6个报表需求:
.华仪公司库房入库单
.x年x月销售流水报表
.x年x月销售结算报表
.x年x月销售结算汇总报表
.x年x月华仪公司库房明细帐
.x年x月华仪公司库房总帐

目前已经生成了其它的三个报表,但还有三个报表需要进行上期与本期的比较,这个还没有做。另外,生成的数据报表能按月生成,这个也没有做,现在是全部生成,不过我想修改这些应该不难。

编号问题:

我使用的数据库是Access(单机使用),相信大家都知道其中的自动编号有好处,但也有坏处。好处就是能自动递增,方便。但坏处是编号具有记忆功能,即例如当前记录编号值是20,将其中所有记录全部删除后,再添加一条新记录,则编号值是从21开始,而不会从1开始递值,因此,我用如下代码来修正自动编号功能。
      
        s3="select * from imbalance";
        DataModule1->ClientQuery->Close();
        DataModule1->ClientQuery->SQL->Clear();
        DataModule1->ClientQuery->SQL->Add(s3);
        DataModule1->ClientQuery->Open();
        DataModule1->ClientQuery->Last();
        if(DataModule1->ClientQuery->FieldByName("编号"->AsString==""
        {
                Num="0";
        }
        else
        {
               Num=DataModule1->ClientQuery->FieldByName("编号"->AsString;
        }

另外,今天还重写了"月末结算"功能代码,同时写了生成三个数据报表的模块代码,另外还修正了产品库、客户库、出入库单中的自动编号问题。

众里寻它千百DO

TOP

是不是你的毕业设计你又重做了?
只要给我一个支点,我可以把地球给翘起来! 只要给我一定的时间,我可以忘记一切的痛苦!

TOP

不是啊,我才没那么无聊呢,是去年公司叫我编的一个软件,没有编完
前阵子找顾玮帮忙写,不过最近自己也有空,所以借此学学了!
你可以看前面的贴子,里面有说明
众里寻它千百DO

TOP

发新话题