1、小型自选商场商品管理系统设计1. 读书笔记Delphi与SQL数据库的连接1）Client/Server模型客户/服务器系统将处理任务分开在客户系统和数据库机器上进行处理，客户PC上运行数据库应用程序，数据库服务器运行全部或部分的实际DBMS，增强了系统处理能力。在Delphi C/S版环境中，结合其优秀的数据库操作，以及BDE（Borland Database Engine）对开发客户机/服务器系统下的网络数据库软件提供更加了快速有效的途径。因此，在C/S系统中，通常用Delphi处理用户界面及做大量复杂的计算。服务器断采用安全高效的后台数据库系统SQL Server，来处理前台所需的数据。
2、在网络连接方面，选择高效的数据访问连接软件，例如SQL Link，ODBC等，加上TCP/IP 或 NAME PIPES等网络通信协议及运行效率良好的各种网络软硬件，构成一个完整的C/S系统。2）基于ADO技术的数据库访问研究 ADO（Microsoft ActiveX Data Objects）是微软通用数据访问的组成之一。利用ADO提供的API，开发人员可以访问任何数据类型，支持关系和非关系型的数据库。ADO集成了OLE DB和ODBC，它可以直接通过OLE DB提供者获取数据或者间接的通过ODBC获取数据。因为ADO没有在已经有的数据库结构上添加其他层次，所以ADO层十分瘦，执行起来十分
3、高效。ADO是建立COM（组件对象模型）基础之上的，提供了自动服务的接口。开发人员可以在Delphi、C+Bulider、VisualC以及其他支持COM的语言中实用它，也同样可以在脚本语言中使用该方法。以Delphi为利，连接SQL Server数据库，需要指定本机OLE DB提供的程序、SQL Server的位置，所使用的数据库以及安全性信息。ADO连接组件的连接字符串应写为：ProviderSQLOLEDB；/驱动程序 Data SourceMYServer；/服务器名称Initial CatalogMyDatabase;/数据库名称User IDMyUID；/用户名PasswordMy
4、Password；/密码另外，利用ADO可以很方便的连接远程数据库，此时只要在Data Source中指定服务器的IP地址即可。可以说，ADO技术极大的推动了数据库应用程序的开发和发展，它使开发人员将更多的精力放在数据库的设计和工程规划上，而忽略底层技术问题，提高了软件开发效率。2设计要求对小型自选商场的商品进货、销售、库存等环节进行管理3. 需求分析3.1信息要求本系统包含商场库存基本信息，供应商基本信息，进货单记录信息，销售单记录信息以及操作员权限信息等。3.2功能要求本系统要求能对小型自选商场的商品进货、销售、库存等环节进行管理。主要有：1）能记录每一笔进货，查询商品的进货记录，并能按月
5、进行统计。2）能记录每一笔售货，查询商品的销售情况，并能进行日盘存、月盘存。3）在记录进货及售货的同时，必须动态刷新库存。 4）能查询某个厂商或供应商的信息。5）设计收银台程序，能根据输入的商品编号、数量，显示某顾客所购商品的清单，并显示收付款情况。3.3可行性分析系统数据库采用目前比较流行的Microsoft SQL Server，开发本地数据库。该数据库系统在安全行、准确性、运行速度方面有绝对的优势，并且处理数据库量大，效率高；开发工具采用Delphi7。Delphi7是目前应用最广泛的数据库系统开发工具，可以快速开发Windows应用程序。4. 数据库设计4.1 数据库概念设计具体的进货
6、和销售属性，请参考基本表的逻辑设计。4.2数据逻辑设计4.2.1 数据库概要说明本系统数据库采用SQL Server2000数据库，数据库名称为jsc，其概要说明如下表1、数据库概要说明jsc数据库类型名称描述基本表tb_import进货单记录表tb_power操作员权限表tb_sale销售记录单表tb_storage商品库存明细表tb_supplier供应商信息表存储过程import_analysis进货单统计sale_analysis销售单统计触发器import_delete_storage进货单添加增加库存量import_insert_storage进货单删除减少库存量sale_inse
7、rt_storage销售单添加减少库存量4.2.2基本表图2、tb_storage（库存表）图3、tb_import（进货表）图4、tb_sale（销售表）图5、tb_supplier（供应商表）图6、tb_power（用户权限表）4.2.3触发器某一商品的库存总量随着进货和销售而变化。为了提高前台应用程序的运行效率，在后台数据库设置了相应的触发器，相关代码如下：1) 删除进货单的触发动作create trigger import_delete_storage on dbo.tb_import for deleteasupdate tb_storage set 库存数量=库存数量-delete
8、d.数量 from deleted where tb_storage.商品编号=deleted.商品编号2) 添加进货单的触发动作create trigger import_insert_storage on dbo.tb_import for insertasupdate tb_storage set 库存数量=库存数量+inserted.数量 from inserted where tb_storage.商品编号=inserted.商品编号3) 添加销售单的触发动作create trigger sale_insert_storage on dbo.tb_sale for insertasu
9、pdate tb_storage set 库存数量=库存数量-数量 from inserted where tb_storage.商品编号=inserted.商品编号需要注意的是在准备销售某件商品的时候，如果该商品的库存量减去本次销售量低于最低库存量的时候，此时不能销售，给出提示信息。为了使程序更加紧凑，该安全检查设置在前台程序中，在数据库设计中不再涉及。4.2.4统计存储过程的设计 根据输入的日期，查询该时间段进货、销售的商品编号，商品名称，总数量等信息。!) 进货统计：create procedure import_analysis dateone datetime,datetwo dat
10、etimeasdeclare b Table (商品编号 varchar(20),商品名称 varchar(20),进价 float,数量 float,进货日期 datetime)insert into b select tb_import.商品编号,tb_storage.商品名称,tb_import.进价,tb_import.数量,进货日期 from tb_import ,tb_storage where tb_import.商品编号=tb_storage.商品编号 and 进货日期 between dateone and datetwoselect 商品编号,商品名称,avg(进价) as
11、 平均进价,sum(数量) as 总数量 from b group by 商品编号,商品名称 order by 商品编号2) 销售统计：create procedure sale_analysis dateone datetime,datetwo datetimeasdeclare b Table (商品编号 varchar(20),商品名称 varchar(20),售价 float,数量 float,销售日期 datetime)insert into b select tb_sale.商品编号,tb_storage.商品名称,tb_sale.售价,tb_sale.数量,售货日期 from t
12、b_sale ,tb_storage where tb_sale.商品编号=tb_storage.商品编号 and 售货日期 between dateone and datetwoselect 商品编号,商品名称,avg(售价) as 售价,sum(数量) as 总数量 from b group by 商品编号,商品名称 order by 商品编号5. 前台应用设计5.1 系统规划小型自选商场商品管理系统是一个典型的数据库应用程序，由登陆模块，主界面、库存管理、进货管理，销售管理，统计管理，系统管理模块组成。特规划功能模块如下。名称功能库存管理及时更新显示所有库存商品信息查询供应商信息添加新商
13、品进货管理录入进货单信息自动生成编号支持删除，修改销售管理录入销售单信息显示购物清单和收付款情况自动生成销售单编号统计管理按时间段统计销售情况以及进货情况统计出交易数量总额系统管理系统退出等基本功能 表2 系统功能表 Delphi窗体构架如下： 5.2具体模块设计5.2.1 数据模块（DataModule）本系统采用Boland Delphi提供的ADO组件与本地数据库连接。为了避免重复连接操作，我们建立一个包含ADOConnection组件数据模块，为其他模块的查询提供公共数据库连接。考虑到在不同的计算机的服务器的名称，密码不一定相同，为了增强程序的可移植性，我们通过读取工程文件夹下的con
14、fig.ini文件来动态设置ADOConnection组件的连接属性。同时工程文件夹中的Data文件夹中包含了jsc的数据库文件，用户只要将该数据库附加到服务器上，然后修改config.ini中服务器的名称和密码就可以正常运行该软件了。在登陆窗口显示的时候，即完成数据库的连接操作。关键代码如下：procedure TLogin.FormShow(Sender: TObject);varini:TIniFile;/InI文件操作类server,database,user,password,curpath:String;begin curpath:= ExtractFilePath(Applica
15、tion.ExeName);/获取exe文件所在路径 if Not FileExists(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(配置信息,数据库,);
16、 user:=ini.ReadString(配置信息,用户名,); password:=ini.ReadString(配置信息,密码,); TryDataModule2.ADOConnection1.ConnectionString:=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=+trim(user)+;Initial Catalog=+trim(database)+;Data Source=+trim(server)+;Password=+trim(password);/连接字符串属性设置 DataModule2.ADOCo
17、nnection1.Open; Except begin ShowMessage(数据库连接失败); Application.Terminate; end; end; Finally ini.Free; end; end; Edit1.SetFocus;end;注： INI 文件的结构： 小节名 关键字=值 ;注释5.2.2登陆模块（FLogin）该模块通过访问后台数据库的tb_power表进行操作员身份和权限验证，如果用户信息不符合给出提示信息。该窗体运行结果如图。图8、登陆界面当按下“登陆”按钮时，即对后台数据库查询访问 。关键代码如下：procedure TLogin.BitBtn1Cl
18、ick(Sender: TObject);begin if RadioButton1.Checked then catalogue:=1;/catalogue为public变量 if RadioButton2.Checked then catalogue:=0; with ADOQuery1 do begin SQL.Clear; Parameters.Clear; SQL.Add(select * from tb_power where 用户名=:a and 密码=:b and 权限=:c); Parameters.ParamByName(a).Value:=trim(Edit1.Text)
19、; Parameters.ParamByName(b).Value:=trim(Edit2.Text); Parameters.ParamByName(c).Value:=catalogue; Open; Active:=True; if RecordCount=0 then begin MessageDlg(用户名或密码不正确!,mtError,mbok,0); Edit1.Clear; Edit2.Clear; Exit; end; MainForm.operator:=trim(Edit1.Text); self.Release;/销毁登陆窗体 MainForm.Show;/显示主窗体
20、end;end;5.2.3 主窗体设计(FMainForm)主窗体主要功能是组织和整合各个子窗体。当用户按下某一菜单键时，即动态创建该窗体，实现相应功能。为了使界面更加整洁，紧凑，我们将动态创建的子窗体嵌入主窗体。以进货子窗体为例，将该窗体的“DragKing”属性为“dkDock”；“DragMode”属性为“dmAutomatic”。创建该窗体时需要添加相关代码如下：procedure TMainForm.N9Click(Sender: TObject);var importanalysis:TImportAnalysis;rect1:Trect;begin importanalysis:
21、=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可动态及
22、时显示所有进货情况。图10、进货单录入界面5.2.5销售窗体设计（TSaleRecord）同样，为了方便使用，销货单编号和存根号根据当时时间自动生成。一销货单可包括多种商品，但是不允许重复，并且显示在左边的DBGrid组件中。需要注意的是商品的销售量要受到库存量和最低库存量的限制，如果超过了可销售的商品总量，则给出错误提示，销售单无效。另外为了方便售货框和收款框的通信，我们为收宽框设置了一个公共变量charge，表示找零金额。相关代码实现如下：with ADOQuery1 do /按下“确定”按钮的操作 begin Close; SQL.Clear; SQL.Add(select * from
23、 tb_storage where 商品编号=: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); if qty(count-least) then begin ShowMessage(库存不够！); Exit
24、; end else begin total:=price*qty; sum:=sum+total; Label5.Caption:=FormatFloat(0.0,sum); ./具体代码如附录procedure TSaleRecord.BitBtn4Click(Sender: TObject);/按下“收款”按钮的操作var Dlg:TTrancationDlg;begin Dlg:=TTrancationDlg.Create(self); Dlg.charge:=strtofloat(Label5.Caption);/窗体间的通信 Dlg.Show;end;图11 销售界面5.2.6 统
25、计窗体设计（FSaleAnalysis，FImportAnalysis）销售统计和进货统计设计方法异曲同工，均是通过DataTimePicker组件让用户输入统计时间段，通过调用存储过程，得到满足条件的商品信息，然后通过DBGrid组件显示出来。利用ADOQuery组件对存储过程进行调用的关键代码如下：with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(exec sale_analysis :date1,:date2);/设定存储过程的参数Parameters.ParamByName(date1).Value:=trunc(DateTimePic
26、ker1.Date); Parameters.ParamByName(date2).Value:=trunc(DateTimePicker2.Date); Open; Active:=true;图12 销售统计界面5.2.7 其他为了使界面更加人性化，我们做了一些修饰性的工作，比如添加任务栏，显示日期，插入图片，按F5退出等等，在强大的Delphi的支持下，这些很容易通过设置相应组件的属性来实现。具体代码请参考附录或者源代码。6 总结本次课程设计历时两周，完成了设计题目所要求的基本功能，并于9月7日顺利通过验收。数据库课程设计包括后台数据库的设计和前台应用程序的编制，涉及项目规划，功能划分，模
27、型建立等一些软件工程的概念和方法，在考虑系统安全性的同时，还要考虑用户使用的方便性。总体来讲，设计编制一个既实用又美观的数据库应用程序算是一个比较复杂的工程，特别是在对Delphi还不够熟悉的情况下，更显得比较困难。事实上，本次课程设计前期开发工作一度缓慢。然而，通过查找资料等多种努力，最终解决了问题，完成了任务。本次课程设计极大的锻炼了我的自学能力和实际动手能力，对软件工程思想有了一定的了解，也进一步掌握了Delphi和MS SQL Server的程序编制。虽然在安全性和功能完善性上有待进一步完善，但是本次课程设计为我今后的软件设计奠定了基础，积累了宝贵的经验。7 附录或参考资料1 萨师煊、
28、王珊. 数据库系统概论（第三版）.高等教育.2000年2 黄明等 Delphi7信息系统设计与开发实例（第二版）机械工业 2005年3周兴话等 Delphi7数据库项目案例导航 清华大学 2005年4 兰红等 Delphi简明教程 清华大学 2005年5 海 卿、占军编著 Delphi7编程技巧与实例精解 国防工业 2003年6明日科技 文立等编著 Delphi数据库系统开发案例精选 人民邮电 2006年核心代码如下：/销售窗体procedure TSaleRecord.BitBtn1Click(Sender: TObject);/确定begin if (trim(Edit1.Text)=)
29、or (trim(Edit2.Text)= )then begin ShowMessage(请输入完整信息！); Exit; end else begin with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(select * from tb_storage where 商品编号=:a); Parameters.ParamByName(a).Value:=trim(Edit1.Text); Open; Active:=true; price:=fieldbyname(售价).AsFloat;/得到商品价格 least:=fieldbyname(最低
30、存量).AsFloat; count:=fieldbyname(库存数量).AsFloat; end; qty:=strtofloat(trim(Edit2.Text); if qty(count-least) then begin ShowMessage(库存不够！); Exit; end else begin total:=price*qty; sum:=sum+total; Label5.Caption:=FormatFloat(0.0,sum); with ADOQuery1 do begin Close; Active:=False; SQL.Clear; SQL.Add(Insert into tb_sale(售货单编号,商品编号,售价,数量,金额,存根号,售货日期) values(:a,:b,:c,:d,:e,:f,:g) ); Parameters.ParamByName(a).Value:=trim(Edit4.Text); Parameters.ParamByName(b).Value:=
