分析的时候,有一点就是要保持数据的统一性,完整性,开始的时 候我还不是很注意这一点就是在做简单的数据的增删改的操作,但是后来仔细的想一想还是不对
,我 们经过仔细的商量和在网上的
搜索,结果还是想到了,必须把这三个表连在一起,不管是入库还是出 库都要对库存信息进行修改才对, 我们是通过用 adoquery 的 locate 的功能进行查找记下查找到的库 存信息,取一个 i 对这个数据先进行保存,然后要是入库的话就是把新加进来的数量加上这个 i 然后 再赋给库存信息的库存数量, 代码如下:i:=strtoint(DBEdit19.text); ADOQuery3.Post; ADOQuery2.Active:=true; ADOQuery2.Locate('商品编号',DBEdit21.text,[]); j:=strtoint(DBEdit15.Text); ADOQuery2.Edit; DBEdit15.Text:=IntToStr(i+j); ADOQuery2.Post; 出库也是一样的, 利用这个 i 把原有的库存信息的库存数量进行保存提取然后减去出库的数量结果再 赋给库存量就行了,我们也是不太会做问别人还有在网上查资料才找到的。 (3)在做查询的时候,我们基本上都是用的 adoquery 的 select 语句做的,刚刚开始的时候我们的 select 的语句总是写错,执行不了,我们的
查询语句不知道该怎么写是好了所以后来就全部用 like 写了,这样写就没有那么多的错误了,如我们的对库存的查询: ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from 库 存 信 息 where 商 品 编 号 like '''+edit1.Text+'%'''); ADOQuery1.Open; 我们的查询就是用 like 做的,通过参数的查询查找到相应的数据,刚开始的时候我们写的是 ADOQuery1.SQL.Add('select * from 库存信息 where 商品编号'''+edit1.Text+'%''');但 是就是运行部出来,写法上应该是没有问题但是就是运行部出来,后来就加了一个 like 就对了,也 许是 like 的查询更广吧! (4) 在做对供应商的查询的时候,我们做的是一个下拉的 combox,下拉下来选择相应的项目进行参
计算机与信息工程 5/10
《Delphi 程序设计》设计型实验报告
数查询,但是所有的语法都是没有问题的,只有在对供应商 ID 的进行参数查询的时候出问题了,就 是查不出来,为此还专门找人帮我调了好久,结果是问题在对 ACCESS 的建表的时候‘供应商 ID’输 成了‘供应商 ID ’多了一个空格,查询的时候计算机不认就查不出来,这样的
问题真的是不应该 犯啊,为此我们可是费了好大的劲啊! (4)在对修改的数据进行保存的时候出了点问题,就是如果数据并没有修改如果直接点击保存的话 会报错,原因是数据并没有做任何的修改,adiquery 并不支持这样的保存,起初并不是很在意都是 修改了一下然后就点保存是可以的,但是后来发现是不完善的,后来就做了简单的修改,如果没有进 行修改则,保存按钮时灰色的,不能点击,而且一旦进行修改了之后它也会变成灰色,避免了因为没 有修改而点击报错的问题。 (5)还有就是我在做这个登录
界面的时候,由于开始的时候不是先做的登录界面,我们是直接做的 主界面,做完主界面的时候发现没有做登录界面,我们找了一些资料,做了一下这个登陆界面,但是 刚刚开始的时候连接不上,找到的一些方法好像就是用不成,本来也是想做一个权限的限制的但是发 现不好做,一个权限就要对应一个主界面,无疑是增加了很大的
工作量,综合考虑我们就没有做这个 权限的问题。最后还是就现在这个登录界面,输入用户名,密码正确则进入错误就不能进行访问
五系统评价
我们组的这个我觉得做的不是很好,用的方法都很简单,但是总的来说还是挺好的,我们给自 己打个 84 分吧,感觉还行,基本的功能都已经完成了,也没有什么大的问题,当然还是有不好的不 完善的地方,有些地方时没有做好的,做的不对,就像是查询的时候查询完第一次当把当前