小型自选商场商品管理系统.docx
- 文档编号:15352614
- 上传时间:2023-07-03
- 格式:DOCX
- 页数:16
- 大小:997.74KB
小型自选商场商品管理系统.docx
《小型自选商场商品管理系统.docx》由会员分享,可在线阅读,更多相关《小型自选商场商品管理系统.docx(16页珍藏版)》请在冰点文库上搜索。
小型自选商场商品管理系统
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.数据库设计
数据库概念设计
具体的进货和销售属性,请参考基本表的逻辑设计。
数据逻辑设计
数据库概要说明
本系统数据库采用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]on
fordelete
as
updatetb_storageset库存数量=库存数量-deleted.数量fromdeletedwheretb_storage.商品编号=deleted.商品编号
2)添加进货单的触发动作
createtrigger[import_insert_storage]on
forinsert
as
updatetb_storageset库存数量=库存数量+inserted.数量frominsertedwheretb_storage.商品编号=inserted.商品编号
3)添加销售单的触发动作
createtrigger[sale_insert_storage]on
forinsert
as
updatetb_storageset库存数量=库存数量-数量frominsertedwheretb_storage.商品编号=inserted.商品编号
需要注意的是在准备销售某件商品的时候,如果该商品的库存量减去本次销售量低于最低库存量的时候,此时不能销售,给出提示信息。
为了使程序更加紧凑,该安全检查设置在前台程序中,在数据库设计中不再涉及。
统计存储过程的设计
根据输入的日期,查询该时间段进货、销售的商品编号,商品名称,总数量等信息。
!
)进货统计:
createprocedure[import_analysis]@dateonedatetime,@datetwodatetime
as
declare@bTable(商品编号varchar(20),商品名称varchar(20),进价float,数量float,进货日期datetime)
insertinto@bselecttb_import.商品编号,tb_storage.商品名称,tb_import.进价,tb_import.数量,进货日期fromtb_import,tb_storage
wheretb_import.商品编号=tb_storage.商品编号and进货日期between@dateoneand@datetwo
select
商品编号,商品名称,avg(进价)as平均进价,sum(数量)as总数量from@bgroupby商品编号,商品名称orderby商品编号
2)销售统计:
createprocedure[sale_analysis]@dateonedatetime,@datetwodatetime
as
declare@bTable(商品编号varchar(20),商品名称varchar(20),售价float,数量float,销售日期datetime)
insertinto@bselecttb_sale.商品编号,tb_storage.商品名称,tb_sale.售价,tb_sale.数量,售货日期fromtb_sale,tb_storage
wheretb_sale.商品编号=tb_storage.商品编号and售货日期between@dateoneand@datetwo
select
商品编号,商品名称,avg(售价)as售价,sum(数量)as总数量from@bgroupby商品编号,商品名称orderby商品编号
5.前台应用设计
系统规划
小型自选商场商品管理系统是一个典型的数据库应用程序,由登陆模块,主界面、库存管理、进货管理,销售管理,统计管理,系统管理模块组成。
特规划功能模块如下。
名称
功能
库存管理
及时更新显示所有库存商品信息
查询供应商信息
添加新商品
进货管理
录入进货单信息
自动生成编号
支持删除,修改
销售管理
录入销售单信息
显示购物清单和收付款情况
自动生成销售单编号
统计管理
按时间段统计销售情况以及进货情况
统计出交易数量总额
系统管理
系统退出等基本功能
表2系统功能表
Delphi窗体构架如下:
具体模块设计
数据模块(DataModule)
本系统采用BolandDelphi提供的ADO组件与本地数据库连接。
为了避免重复连接操作,我们建立一个包含ADOConnection组件数据模块,为其他模块的查询提供公共数据库连接。
考虑到在不同的计算机的服务器的名称,密码不一定相同,为了增强程序的可移植性,我们通过读取工程文件夹下的文件来动态设置ADOConnection组件的连接属性。
同时工程文件夹中的Data文件夹中包含了jsc的数据库文件,用户只要将该数据库附加到服务器上,然后修改中服务器的名称和密码就可以正常运行该软件了。
在登陆窗口显示的时候,即完成数据库的连接操作。
关键代码如下:
procedure(Sender:
TObject);
var
ini:
TIniFile;
alue:
=trim;
('b').Value:
=trim;
('c').Value:
=catalogue;
Open;
Active:
=True;
ifRecordCount=0then
begin
MessageDlg('用户名或密码不正确!
',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)then
begin
ShowMessage('库存不够!
');
Exit;
end
else
begin
total:
=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)then
begin
ShowMessage('库存不够!
');
Exit;
end
else
begin
total:
=price*qty;
sum:
=sum+total;
:
=FormatFloat('',sum);
withADOQuery1do
begin
Close;
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;
withADOQuery2do
begin
Close;
;
('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;alue:
=trunc;alue:
=ExecSQL;
end;
withADOQuery1do
begin
Close;
;
('select*fromtb_importorderby进货单编号');
Open;
Active:
=True;
end;
end;
procedure(Sender:
TObject);alue:
=Open;
Active:
=True;
:
=fieldbyname('进货单编号').AsString;
:
=False;
:
=fieldbyname('商品编号').AsString;
:
=fieldbyname('进价').AsString;
:
=fieldbyname('数量').AsString;
:
=fieldbyname('进货日期').AsDateTime;
EXECSQL;
Close;
;
('deletefromtb_importwhere进货单编号=:
value');
('value').Value:
=trim;
ExecSQL;
Close;
;
end;
end;
procedure(Sender:
TObject);//新添进货单,自动生成编号
var
billcode:
String;
begin
billcode:
='JH'+FormatDateTime('yyyymmddhhmmss',now);;
:
=billcode;
end;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 小型 自选商场 商品 管理 系统