小型自选商场商品管理系统

1.读书笔记Delphi与SQL数据库的连接1）Client/Server模型客户/服务器系统将处理任务分开在客户系统和数据库机器上进行处理，客户PC上运行数据库应用程序，数据库服务器运行全部或部分的实际DBMS，增强了系统处理能力。在DelphiC/S版环境中，结合其优秀的数据库操作，以及BDE（BorlandDatabaseEngine）对开发客户机/服务器系统下的网络数据库软件提供更加了快速有效的途径。因此，在C/S系统中，通常用Delphi处理用户界面及做大量复杂的计算。服务器断采用安全高效的后台数据库系统SQLServer，来处理前台所需的数据。在网络连接方面，选择高效的数据访问连接软件，例如SQLLink，ODBC等，加上TCP/IP或NAMEPIPES等网络通信协议及运行效率良好的各种网络软硬件，构成一个完整的C/S系统。2）基于ADO技术的数据库访问研究 ADO（MicrosoftActiveXDataObjects）是微软通用数据访问的组成之一。利用ADO提供的API，开发人员可以访问任何数据类型，支持关系和非关系型的数据库。ADO集成了OLEDB和ODBC，它可以直接通过OLEDB提供者获取数据或者间接的通过ODBC获取数据。因为ADO没有在已经有的数据库结构上添加其他层次，所以ADO层十分瘦，执行起来十分高效。ADO是建立COM（组件对象模型）基础之上的，提供了自动服务的接口。开发人员可以在Delphi、C++Bulider、VisualC＋＋以及其他支持COM的语言中实用它，也同样可以在脚本语言中使用该方法。以Delphi为利，连接SQLServer数据库，需要指定本机OLEDB提供的程序、SQLServer的位置，所使用的数据库以及安全性信息。ADO连接组件的连接字符串应写为：Provider＝SQLOLEDB；需求分析信息要求本系统包含商场库存基本信息，供应商基本信息，进货单记录信息，销售单记录信息以及操作员权限信息等。功能要求本系统要求能对小型自选商场的商品进货、销售、库存等环节进行管理。主要有：1）能记录每一笔进货，查询商品的进货记录，并能按月进行统计。2）能记录每一笔售货，查询商品的销售情况，并能进行日盘存、月盘存。3）在记录进货及售货的同时，必须动态刷新库存。 4）能查询某个厂商或供应商的信息。5）设计收银台程序，能根据输入的商品编号、数量，显示某顾客所购商品的清单，并显示收付款情况。可行性分析系统数据库采用目前比较流行的MicrosoftSQLServer，开发本地数据库。该数据库系统在安全行、准确性、运行速度方面有绝对的优势，并且处理数据库量大，效率高；开发工具采用Delphi7。Delphi7是目前应用最广泛的数据库系统开发工具，可以快速开发Windows应用程序。4.数据库设计数据库概念设计进货进货销售供应商商品顾客mnmn图1、数据库概念设计具体的进货和销售属性，请参考基本表的逻辑设计。数据逻辑设计数据库概要说明本系统数据库采用SQLServer2000数据库，数据库名称为jsc，其概要说明如下表1、数据库概要说明jsc数据库类型名称描述基本表tb_import进货单记录表tb_power操作员权限表tb_sale销售记录单表tb_storage商品库存明细表tb_supplier供应商信息表存储过程import_analysis进货单统计sale_analysis销售单统计触发器import_delete_storage进货单添加增加库存量import_insert_storage进货单删除减少库存量sale_insert_storage销售单添加减少库存量基本表图2、tb_storage（库存表）图3、tb_import（进货表）图4、tb_sale（销售表）图5、tb_supplier（供应商表）图6、tb_power（用户权限表）触发器某一商品的库存总量随着进货和销售而变化。为了提高前台应用程序的运行效率，在后台数据库设置了相应的触发器，相关代码如下：1)删除进货单的触发动作createtrigger[import_delete_storage]onfordeleteasupdatetb_storageset库存数量=库存数量-deleted.数量fromdeletedwheretb_storage.商品编号=deleted.商品编号2)添加进货单的触发动作createtrigger[import_insert_storage]onforinsertasupdatetb_storageset库存数量=库存数量+inserted.数量frominsertedwheretb_storage.商品编号=inserted.商品编号3)添加销售单的触发动作createtrigger[sale_insert_storage]onforinsertasupdatetb_storageset库存数量=库存数量-数量frominsertedwheretb_storage.商品编号=inserted.商品编号需要注意的是在准备销售某件商品的时候，如果该商品的库存量减去本次销售量低于最低库存量的时候，此时不能销售，给出提示信息。为了使程序更加紧凑，该安全检查设置在前台程序中，在数据库设计中不再涉及。统计存储过程的设计根据输入的日期，查询该时间段进货、销售的商品编号，商品名称，总数量等信息。!)进货统计：createprocedure[import_analysis]@dateonedatetime,@datetwodatetimeasdeclare@bTable(商品编号varchar(20),商品名称varchar(20),进价float,数量float,进货日期datetime)insertinto@bselecttb_import.商品编号,tb_storage.商品名称,tb_import.进价,tb_import.数量,进货日期fromtb_import,tb_storagewheretb_import.商品编号=tb_storage.商品编号and进货日期between@dateoneand@datetwoselect商品编号,商品名称,avg(进价)as平均进价,sum(数量)as总数量from@bgroupby商品编号,商品名称orderby商品编号2)销售统计：createprocedure[sale_analysis]@dateonedatetime,@datetwodatetimeasdeclare@bTable(商品编号varchar(20),商品名称varchar(20),售价float,数量float,销售日期datetime)insertinto@bselecttb_sale.商品编号,tb_storage.商品名称,tb_sale.售价,tb_sale.数量,售货日期fromtb_sale,tb_storagewheretb_sale.商品编号=tb_storage.商品编号and售货日期between@dateoneand@datetwoselect商品编号,商品名称,avg(售价)as售价,sum(数量)as总数量from@bgroupby商品编号,商品名称orderby商品编号5.前台应用设计系统规划小型自选商场商品管理系统是一个典型的数据库应用程序，由登陆模块，主界面、库存管理、进货管理，销售管理，统计管理，系统管理模块组成。特规划功能模块如下。名称功能库存管理及时更新显示所有库存商品信息查询供应商信息添加新商品进货管理录入进货单信息自动生成编号支持删除，修改销售管理录入销售单信息显示购物清单和收付款情况自动生成销售单编号统计管理按时间段统计销售情况以及进货情况统计出交易数量总额系统管理系统退出等基本功能 表2系统功能表Delphi窗体构架如下： FSaleRecordFSaleRecord（销售统计）FLogin（登陆窗口）FMainForm（系统主窗口）FImportRecord（进货管理）FSaleAnalysis（销售统计）FImportAnalysis（进货统计）FStorage（库存管理）图7、系统窗体构架具体模块设计数据模块（DataModule）本系统采用BolandDelphi提供的ADO组件与本地数据库连接。为了避免重复连接操作，我们建立一个包含ADOConnection组件数据模块，为其他模块的查询提供公共数据库连接。考虑到在不同的计算机的服务器的名称，密码不一定相同，为了增强程序的可移植性，我们通过读取工程文件夹下的文件来动态设置ADOConnection组件的连接属性。同时工程文件夹中的Data文件夹中包含了jsc的数据库文件，用户只要将该数据库附加到服务器上，然后修改中服务器的名称和密码就可以正常运行该软件了。在登陆窗口显示的时候，即完成数据库的连接操作。关键代码如下：procedure(Sender:TObject);varini:TIniFile;alue:=trim;('b').Value:=trim;('c').Value:=catalogue;Open;Active:=True;ifRecordCount=0thenbeginMessageDlg('用户名或密码不正确!',mtError,[mbok],0);;;Exit;end;:=trim;;alue:=trim;Open;Active:=true;price:=fieldbyname('售价').AsFloat;sFloat;count:=fieldbyname('库存数量').AsFloat;end;qty:=strtofloat(trim);ifqty>(count-least)thenbeginShowMessage('库存不够！');Exit;endelsebegintotal:=price*qty;sum:=sum+total;:=FormatFloat('',sum);……..alue:=trunc;('date2').Value:=trunc;Open;Active:=true;图12销售统计界面其他为了使界面更加人性化，我们做了一些修饰性的工作，比如添加任务栏，显示日期，插入图片，按F5退出等等，在强大的Delphi的支持下，这些很容易通过设置相应组件的属性来实现。具体代码请参考附录或者源代码。6总结本次课程设计历时两周，完成了设计题目所要求的基本功能，并于9月7日顺利通过验收。数据库课程设计包括后台数据库的设计和前台应用程序的编制，涉及项目规划，功能划分，模型建立等一些软件工程的概念和方法，在考虑系统安全性的同时，还要考虑用户使用的方便性。总体来讲，设计编制一个既实用又美观的数据库应用程序算是一个比较复杂的工程，特别是在对Delphi还不够熟悉的情况下，更显得比较困难。事实上，本次课程设计前期开发工作一度缓慢。然而，通过查找资料等多种努力，最终解决了问题，完成了任务。本次课程设计极大的锻炼了我的自学能力和实际动手能力，对软件工程思想有了一定的了解，也进一步掌握了Delphi和MSSQLServer的程序编制。虽然在安全性和功能完善性上有待进一步完善，但是本次课程设计为我今后的软件设计奠定了基础，积累了宝贵的经验。7附录或参考资料[1]萨师煊、王珊.数据库系统概论（第三版）.高等教育出版社.2000年[2]黄明等Delphi7信息系统设计与开发实例（第二版）机械工业出版社2005年[3]周兴话等Delphi7数据库项目案例导航清华大学出版社2005年[4]兰红等Delphi简明教程清华大学出版社2005年[5]张海 卿、张占军编著Delphi7编程技巧与实例精解国防工业出版社2003年[6]明日科技李文立等编著Delphi数据库系统开发案例精选人民邮电出版社2006年核心代码如下：alue:=trim;Open;Active:=true;price:=fieldbyname('售价').AsFloat;sFloat;count:=fieldbyname('库存数量').AsFloat;end;qty:=strtofloat(trim);ifqty>(count-least)thenbeginShowMessage('库存不够！');Exit;endelsebegintotal:=price*qty;sum:=sum+total;:=FormatFloat('',sum);withADOQuery1dobeginClose;Active:=False;;('Insertintotb_sale(售货单编号,商品编号,售价,数量,金额,存根号,售货日期)values(:a,:b,:c,:d,:e,:f,:g)');('a').Value:=trim;('b').Value:=trim;('c').Value:=price;('d').Value:=qty;('e').Value:=total;('f').Value:=trim;('g').Value:=trunc;Execsql;end;withADOQuery2dobeginClose;;('selecttb_sale.商品编号,商品名称,tb_sale.售价,tb_sale.数量,tb_sale.金额fromtb_storage,tb_salewheretb_storage.商品编号=tb_sale.商品编号and售货单编号=:a');('a').Value:=trim;Open;Active:=True;end;;;;;:=False;;end;end;end;procedure(Sender:TObject);alue:=trim;alue:=trim;alue:=price;alue:=qty;alue:=sum;al