小型自选商场商品管理系统设计.docx
- 文档编号:27840035
- 上传时间:2023-07-05
- 格式:DOCX
- 页数:26
- 大小:1,005.53KB
小型自选商场商品管理系统设计.docx
《小型自选商场商品管理系统设计.docx》由会员分享,可在线阅读,更多相关《小型自选商场商品管理系统设计.docx(26页珍藏版)》请在冰豆网上搜索。
小型自选商场商品管理系统设计
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;//驱动程序
DataSource=MYServer;//服务器名称
InitialCatalog=MyDatabase;//数据库名称
UserID=MyUID;//用户名
Password=MyPassword;//密码
另外,利用ADO可以很方便的连接远程数据库,此时只要在DataSource中指定服务器的IP地址即可。
可以说,ADO技术极大的推动了数据库应用程序的开发和发展,它使开发人员将更多的精力放在数据库的设计和工程规划上,而忽略底层技术问题,提高了软件开发效率。
2.设计要求
对小型自选商场的商品进货、销售、库存等环节进行管理
3.需求分析
3.1信息要求
本系统包含商场库存基本信息,供应商基本信息,进货单记录信息,销售单记录信息以及操作员权限信息等。
3.2功能要求
本系统要求能对小型自选商场的商品进货、销售、库存等环节进行管理。
主要有:
1)能记录每一笔进货,查询商品的进货记录,并能按月进行统计。
2)能记录每一笔售货,查询商品的销售情况,并能进行日盘存、月盘存。
3)在记录进货及售货的同时,必须动态刷新库存。
4)能查询某个厂商或供应商的信息。
5)设计收银台程序,能根据输入的商品编号、数量,显示某顾客所购商品的清单,并显示收付款情况。
3.3可行性分析
系统数据库采用目前比较流行的MicrosoftSQLServer,开发本地数据库。
该数据库系统在安全行、准确性、运行速度方面有绝对的优势,并且处理数据库量大,效率高;开发工具采用Delphi7。
Delphi7是目前应用最广泛的数据库系统开发工具,可以快速开发Windows应用程序。
4.数据库设计
4.1数据库概念设计
具体的进货和销售属性,请参考基本表的逻辑设计。
4.2数据逻辑设计
4.2.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
销售单添加减少库存量
4.2.2基本表
图2、tb_storage(库存表)
图3、tb_import(进货表)
图4、tb_sale(销售表)
图5、tb_supplier(供应商表)
图6、tb_power(用户权限表)
4.2.3触发器
某一商品的库存总量随着进货和销售而变化。
为了提高前台应用程序的运行效率,在后台数据库设置了相应的触发器,相关代码如下:
1)删除进货单的触发动作
createtrigger[import_delete_storage]ondbo.tb_import
fordelete
as
updatetb_storageset库存数量=库存数量-deleted.数量fromdeletedwheretb_storage.商品编号=deleted.商品编号
2)添加进货单的触发动作
createtrigger[import_insert_storage]ondbo.tb_import
forinsert
as
updatetb_storageset库存数量=库存数量+inserted.数量frominsertedwheretb_storage.商品编号=inserted.商品编号
3)添加销售单的触发动作
createtrigger[sale_insert_storage]ondbo.tb_sale
forinsert
as
updatetb_storageset库存数量=库存数量-数量frominsertedwheretb_storage.商品编号=inserted.商品编号
需要注意的是在准备销售某件商品的时候,如果该商品的库存量减去本次销售量低于最低库存量的时候,此时不能销售,给出提示信息。
为了使程序更加紧凑,该安全检查设置在前台程序中,在数据库设计中不再涉及。
4.2.4统计存储过程的设计
根据输入的日期,查询该时间段进货、销售的商品编号,商品名称,总数量等信息。
!
)进货统计:
createprocedure[import_analysis]dateonedatetime,datetwodatetime
as
declarebTable(商品编号varchar(20),商品名称varchar(20),进价float,数量float,进货日期datetime)
insertintobselecttb_import.商品编号,tb_storage.商品名称,tb_import.进价,tb_import.数量,进货日期fromtb_import,tb_storage
wheretb_import.商品编号=tb_storage.商品编号and进货日期betweendateoneanddatetwo
select
商品编号,商品名称,avg(进价)as平均进价,sum(数量)as总数量frombgroupby商品编号,商品名称orderby商品编号
2)销售统计:
createprocedure[sale_analysis]dateonedatetime,datetwodatetime
as
declarebTable(商品编号varchar(20),商品名称varchar(20),售价float,数量float,销售日期datetime)
insertintobselecttb_sale.商品编号,tb_storage.商品名称,tb_sale.售价,tb_sale.数量,售货日期fromtb_sale,tb_storage
wheretb_sale.商品编号=tb_storage.商品编号and售货日期betweendateoneanddatetwo
select
商品编号,商品名称,avg(售价)as售价,sum(数量)as总数量frombgroupby商品编号,商品名称orderby商品编号
5.前台应用设计
5.1系统规划
小型自选商场商品管理系统是一个典型的数据库应用程序,由登陆模块,主界面、库存管理、进货管理,销售管理,统计管理,系统管理模块组成。
特规划功能模块如下。
名称
功能
库存管理
及时更新显示所有库存商品信息
查询供应商信息
添加新商品
进货管理
录入进货单信息
自动生成编号
支持删除,修改
销售管理
录入销售单信息
显示购物清单和收付款情况
自动生成销售单编号
统计管理
按时间段统计销售情况以及进货情况
统计出交易数量总额
系统管理
系统退出等基本功能
表2系统功能表
Delphi窗体构架如下:
5.2具体模块设计
5.2.1数据模块(DataModule)
本系统采用BolandDelphi提供的ADO组件与本地数据库连接。
为了避免重复连接操作,我们建立一个包含ADOConnection组件数据模块,为其他模块的查询提供公共数据库连接。
考虑到在不同的计算机的服务器的名称,密码不一定相同,为了增强程序的可移植性,我们通过读取工程文件夹下的config.ini文件来动态设置ADOConnection组件的连接属性。
同时工程文件夹中的Data文件夹中包含了jsc的数据库文件,用户只要将该数据库附加到服务器上,然后修改config.ini中服务器的名称和密码就可以正常运行该软件了。
在登陆窗口显示的时候,即完成数据库的连接操作。
关键代码如下:
procedureTLogin.FormShow(Sender:
TObject);
var
ini:
TIniFile;//InI文件操作类
server,database,user,password,curpath:
String;
begin
curpath:
=ExtractFilePath(Application.ExeName);//获取exe文件所在路径
ifNotFileExists(curpath+'config.ini')then
begin
ShowMessage('配置信息不存在!
');
Application.Terminate;
end
else
begin
Try
ini:
=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
server:
=ini.ReadString('配置信息','服务器','');//获取配置信息小节服务器关键字的值
database:
=ini.ReadString('配置信息','数据库','');
user:
=ini.ReadString('配置信息','用户名','');
password:
=ini.ReadString('配置信息','密码','');
Try
DataModule2.ADOConnection1.ConnectionString:
='Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID='+trim(user)+';InitialCatalog='+trim(database)+';DataSource='+trim(server)+';Password='+trim(password);//连接字符串属性设置
DataModule2.ADOConnection1.Open;
Except
begin
ShowMessage('数据库连接失败');
Application.Terminate;
end;
end;
Finally
ini.Free;
end;
end;
Edit1.SetFocus;
end;
注:
INI文件的结构:
[小节名]关键字=值;注释
5.2.2登陆模块(FLogin)
该模块通过访问后台数据库的tb_power表进行操作员身份和权限验证,如果用户信息不符合给出提示信息。
该窗体运行结果如图。
图8、登陆界面
当按下“登陆”按钮时,即对后台数据库查询访问。
关键代码如下:
procedureTLogin.BitBtn1Click(Sender:
TObject);
begin
ifRadioButton1.Checkedthencatalogue:
=1;//catalogue为public变量
ifRadioButton2.Checkedthencatalogue:
=0;
withADOQuery1do
begin
SQL.Clear;
Parameters.Clear;
SQL.Add('select*fromtb_powerwhere用户名=:
aand密码=:
band权限=:
c');
Parameters.ParamByName('a').Value:
=trim(Edit1.Text);
Parameters.ParamByName('b').Value:
=trim(Edit2.Text);
Parameters.ParamByName('c').Value:
=catalogue;
Open;
Active:
=True;
ifRecordCount=0then
begin
MessageDlg('用户名或密码不正确!
',mtError,[mbok],0);
Edit1.Clear;
Edit2.Clear;
Exit;
end;
MainForm.operator:
=trim(Edit1.Text);
self.Release;//销毁登陆窗体
MainForm.Show;//显示主窗体
end;
end;
5.2.3主窗体设计(FMainForm)
主窗体主要功能是组织和整合各个子窗体。
当用户按下某一菜单键时,即动态创建该窗体,实现相应功能。
为了使界面更加整洁,紧凑,我们将动态创建的子窗体嵌入主窗体。
以进货子窗体为例,将该窗体的“DragKing”属性为“dkDock”;“DragMode”属性为“dmAutomatic”。
创建该窗体时需要添加相关代码如下:
procedureTMainForm.N9Click(Sender:
TObject);
var
importanalysis:
TImportAnalysis;
rect1:
Trect;
begin
importanalysis:
=TImportAnalysis.Create(self);
importanalysis.Show;
importanalysis.Visible:
=False;
Rect1:
=Panel2.ClientRect;//得到主窗体的panel2区域
importanalysis.Dock(Panel2,rect1);
importanalysis.Visible:
=True;
end;
图9、主界面
5.2.4进货管理(TImportRecord)
该模块支持自动生成进货单编号,实际上就是“JH”+当时时间所组成的字符串。
显示部分采用DBGrid组件,同时支持按行选中删除或者修改,并且DBGrid可动态及时显示所有进货情况。
图10、进货单录入界面
5.2.5销售窗体设计(TSaleRecord)
同样,为了方便使用,销货单编号和存根号根据当时时间自动生成。
一销货单可包括多种商品,但是不允许重复,并且显示在左边的DBGrid组件中。
需要注意的是商品的销售量要受到库存量和最低库存量的限制,如果超过了可销售的商品总量,则给出错误提示,销售单无效。
另外为了方便售货框和收款框的通信,我们为收宽框设置了一个公共变量charge,表示找零金额。
相关代码实现如下:
withADOQuery1do//按下“确定”按钮的操作
begin
Close;
SQL.Clear;
SQL.Add('select*fromtb_storagewhere商品编号=:
a');
Parameters.ParamByName('a').Value:
=trim(Edit1.Text);
Open;
Active:
=true;
price:
=fieldbyname('售价').AsFloat;//得到商品价格
least:
=fieldbyname('最低存量').AsFloat;
count:
=fieldbyname('库存数量').AsFloat;
end;
qty:
=strtofloat(trim(Edit2.Text));
ifqty>(count-least)then
begin
ShowMessage('库存不够!
');
Exit;
end
else
begin
total:
=price*qty;
sum:
=sum+total;
Label5.Caption:
=FormatFloat('0.0',sum);
……..//具体代码如附录
procedureTSaleRecord.BitBtn4Click(Sender:
TObject);//按下“收款”按钮的操作
var
Dlg:
TTrancationDlg;
begin
Dlg:
=TTrancationDlg.Create(self);
Dlg.charge:
=strtofloat(Label5.Caption);//窗体间的通信
Dlg.Show;
end;
图11销售界面
5.2.6统计窗体设计(FSaleAnalysis,FImportAnalysis)
销售统计和进货统计设计方法异曲同工,均是通过DataTimePicker组件让用户输入统计时间段,通过调用存储过程,得到满足条件的商品信息,然后通过DBGrid组件显示出来。
利用ADOQuery组件对存储过程进行调用的关键代码如下:
withADOQuery1do
begin
Close;
SQL.Clear;
SQL.Add('execsale_analysis:
date1,:
date2');
//设定存储过程的参数
Parameters.ParamByName('date1').Value:
=trunc(DateTimePicker1.Date);
Parameters.ParamByName('date2').Value:
=trunc(DateTimePicker2.Date);
Open;
Active:
=true;
图12销售统计界面
5.2.7其他
为了使界面更加人性化,我们做了一些修饰性的工作,比如添加任务栏,显示日期,插入图片,按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年
核心代码如下:
//销售窗体
procedureTSaleRecord.BitBtn1Click(Sender:
TObject);//确定
begin
if(trim(Edit1.Text)='')or(trim(Edit2.Text)='')then
begin
ShowMessage('请输入完整信息!
');
Exit;
end
else
begin
withADOQuery1do
begin
Close;
SQL.Clear;
SQL.Add('select*fromtb_storagewhere商品编号=:
a');
Parameters.ParamByName('a').Value:
=trim(Edit1.Text);
Open;
Active:
=true;
price:
=fieldbyname('售价').AsFloat;//得到商品价格
least:
=fieldbyname('最低存量').AsFloat;
count:
=fieldbyname('库存数量').AsFloat;
end;
qty:
=strtofloat(trim(Edit2.Text));
ifqty>(count-least)then
begin
ShowMessage('库存不够!
');
Exit;
end
else
begin
total:
=price*qty;
sum:
=sum+total;
Label5.Caption:
=FormatFloat('0.0',sum);
withADOQuery1do
begin
Close;
Active:
=False;
SQL.Clear;
SQL.Add('Insertintotb_sale(售货单编号,商品编号,售价,数量,金额,存根号,售货日期)values(:
a,:
b,:
c,:
d,:
e,:
f,:
g)');
Parameters.ParamByName('a').Value:
=trim(Edit4.Text);
Parameters.ParamByName('b').Value:
=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 小型 自选商场 商品 管理 系统 设计