小型自选商场商品管理系统设计.docx

上传人:b****6 文档编号:15562813 上传时间:2023-07-05 格式:DOCX 页数:26 大小:1,005.53KB
下载 相关 举报
小型自选商场商品管理系统设计.docx_第1页
第1页 / 共26页
小型自选商场商品管理系统设计.docx_第2页
第2页 / 共26页
小型自选商场商品管理系统设计.docx_第3页
第3页 / 共26页
小型自选商场商品管理系统设计.docx_第4页
第4页 / 共26页
小型自选商场商品管理系统设计.docx_第5页
第5页 / 共26页
小型自选商场商品管理系统设计.docx_第6页
第6页 / 共26页
小型自选商场商品管理系统设计.docx_第7页
第7页 / 共26页
小型自选商场商品管理系统设计.docx_第8页
第8页 / 共26页
小型自选商场商品管理系统设计.docx_第9页
第9页 / 共26页
小型自选商场商品管理系统设计.docx_第10页
第10页 / 共26页
小型自选商场商品管理系统设计.docx_第11页
第11页 / 共26页
小型自选商场商品管理系统设计.docx_第12页
第12页 / 共26页
小型自选商场商品管理系统设计.docx_第13页
第13页 / 共26页
小型自选商场商品管理系统设计.docx_第14页
第14页 / 共26页
小型自选商场商品管理系统设计.docx_第15页
第15页 / 共26页
小型自选商场商品管理系统设计.docx_第16页
第16页 / 共26页
小型自选商场商品管理系统设计.docx_第17页
第17页 / 共26页
小型自选商场商品管理系统设计.docx_第18页
第18页 / 共26页
小型自选商场商品管理系统设计.docx_第19页
第19页 / 共26页
小型自选商场商品管理系统设计.docx_第20页
第20页 / 共26页
亲,该文档总共26页,到这儿已超出免费预览范围,如果喜欢就下载吧!
下载资源
资源描述

小型自选商场商品管理系统设计.docx

《小型自选商场商品管理系统设计.docx》由会员分享,可在线阅读,更多相关《小型自选商场商品管理系统设计.docx(26页珍藏版)》请在冰点文库上搜索。

小型自选商场商品管理系统设计.docx

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

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:

=

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 经管营销 > 经济市场

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2