超市销售系统的设计与实现

1、超市销售系统的设计与实现目：超市管理系统1、相关技术介绍1.1、SQL Server 2000 的特性Microsoft? SQL Server? 2000 的特性包括：1、Internet 集成SQL Server 2000数据库引擎提供完整的 XML支持。它还具有构成最大的 Web站点的数据存储组件所需的可伸缩性、可用性和安全功能。SQLServer 2000 程序设计模型与 Windows DNA构架集成，用以开发 Web应用程序，并且SQL Server 2000支持English Query和Microsoft搜索服务等功能，在 Web应用程序中包含了用户友好的查询和强大的搜索功能。

2、2、可伸缩性和可用性同一个数据库引擎可以在不同的平台上使用，从运行 Microsoft Windows? 98的便携式电脑，到运行Microsoft Windows2000数据中心版的大型多处理 器服务器。SQL Server 2000企业版支持联合服务器、索引视图和大型内存支 持等功能，使其得以升级到最大 Web站点所需的性能级别。3、企业级数据库功能SQLServer 2000关系数据库引擎支持当今苛刻的数据处理环境所需的功能。 数据库引擎充分保护数据完整性，同时将管理上千个并发修改数据库的用户的 开销减到最小。SQL Server 2000分布式查询使您得以引用来自不同数据源的 数据，就

3、好象这些数据是 SQL Server 2000数据库的一部分，同时分布式事务 支持充分保护任何分布式数据更新的完整性。复制同样使您得以维护多个数据 复本，同时确保单独的数据复本保持同步。可将一组数据复制到多个移动的脱 接用户，使这些用户自主地工作，然后将他们所做的修改合并回发布服务器。4、易于安装、部署和使用SQL Server 2000中包括一系列管理和开发工具，这些工具可改进在多个站 点上安装、部署、管理和使用 SQL Server的过程。SQL Server 2000还支持 基于标准的、与 Windows DNA集成的程序设计模型，使 SQL Server数据库和 数据仓库的使用成为生成

4、强大的可伸缩系统的无缝部分。这些功能使您得以快 速交付SQL Server应用程序，使客户只需最少的安装和管理开销即可实现这 些应用程序。5、数据仓库SQL Server 2000中包括析取和分析汇总数据以进行联机分析处理(OLAP)的工具。SQL Server中还包括一些工具，可用来直观地设计数据库并通过 English Query 来分析数据1.2、介绍Delphi是Borland公司研制的新一代可视化开发工具，可在Windows3.x、Windows95 WindowsNTWindowsXPWindowsVista 等环境下使用。当前，DELPHI 也可以在LINUX平台上开发应用，其在

5、 LINUX上的对应产品Kylix 。(1)直接编译生成可执行代码，编译速度快。由于Delphi编译器采用了条件 编译和选择链接技术，使用它生成的执行文件更加精炼，运行速度更快。在处 理速度和存取服务器方面，Delphi的性能远远高于其他同类产品。(2)支持将存取规则分别交给客户机或服务器处理的两种方案，而且允许开 发人员建立一个简单的部件或部件集合，封装起所有的规则，并独立于服务器 和客户机，所有的数据转移通过这些部件来完成。这样，大大减少了对服务器 的请求和网络上的数据传输量，提高了应用处理的速度。(3)提供了许多快速方便的开发方法，使开发人员能用尽可能少的重复性工 作完成各种不同的应用。

6、利用项目模板和专家生成器可以很快建立项目的构架， 然后根据用户的实际需要逐步完善。(4)具有可重用性和可扩展性。开发人员不必再对诸如标签、按钮及对话框 等Windows的常见部件进行编程。Delphi包含许多可以重复使用的部件，允许 用户控制Windows的开发效果。(5)具有强大的数据存取功能。它的数据处理工具 BDE(BorlandDatabaseEngine)是一个标准的中介软件层，可以用来处理当前流 行的数据格式，如xBase、Paradox等，也可以通过BDESQLLink直接与Sybase、 SQLServer、Informix、Oracle等大型数据库连接。Delphi既可用于开

7、发系统 软件，也适合于应用软件的开发。(6)拥有强大的网络开发能力，能够快速的开发B/S应用，它内置的IntraWeb 和ExpressWebg得对于网络的开发效率超过了其他任何的开发工具。2、需求分析2.1 系统目标设计要求对商品等信息分类管理，对表中商品信息、入库信息和销售信息、员工信息、会员信息、供应商信息进行系统性的分析、设计，并形成系统设计说明书；2.2 系统功能分析该教务信息统计系统需要提供便捷、美观及丰富的界面以便能录入各类数 据；动态查询各类信息；能用图形、报表和表格三种形式对教务信息网中的人员 的各种情况进行分析和统计；能打印各类统计信息；应用程序采用多文挡界面的 风格，尽量

8、用菜单。界面的风格要多样化，但必须满足用户的要求。1、登录权限：只限员工登录：需用数据库中的登录名和密码。2、员工权限：员工信息录入与浏览：添加员工用户名和密码；商品信息查询：根据索引进行信息查询，方便修改编辑； 销售信息查询：员工可以进行信息查询，方便修改编辑； 入库信息浏览与录入：经操作后可对信息进行浏览与录入; 会员信息浏览与录入：经操作后可对信息进行浏览与录入;会员充值信息录入：员工可以给会员充值；供应商信息浏览：经浏览操作后可对信息进行浏览；2.3 数据字典1、员工信息表字段名员工编号char (10)员工姓名char (10)密码char(10)性别Char(2)职务char(20

9、)2、会员信息表字段名会员卡号Char(10)会员姓名char (10)会员积分char(10)联系电话Char(20)账户余额Float(8)3、会员充值记录表字段名会员卡号char (10)充值金额char (10)账户余额Int(4)4、供应商信息表字段名供应商编Char(10)供应商名称char (10)联系人char(10)联系电话Char(10)联系地址Char(10)5、入库信息表字段名入库单Char(10)入库日期char (10)商品名称char(10)进货量Char(10)进货单价float(8)库存量Int(4)6、商品信息表字段名商品类别Char(10)商品名称char

10、 (10)供应商char(10)商品规格Char(10)商品进价float(8)商品售价Float(8)库存量Char(10)6、销售信息表字段名销售账号Char(10)商品类别char (10)商品名称char(10)商品数量Char(10)销售总额float(8)销售日期Char(10)3、数据库概念设计3.1 数据库的物理设计1、数据库的存放位置：按要求运用的是SQLServer2000中新建的数据库，即教务信息数据库下建立 了相关的表，向表中输入一些数据。2、系统配置：微机一台，window XP系统，Delphi7英文版程序开发开发，数据库 DBMS1 sql server2000。

11、3、系统索引：数据索引在各个表中都建立了索引，目的是为了搜索的方便。比如：在学生 信息表中除学生编号这个主键外，还设有姓名、性别、家庭地址等索引，其他的 表也根据查询要求建立了一些索引，详细情况参照上面的数据字典。3.2 数据库的实现数据备份和恢复方式数据库的备份和恢复是管理人员的权限，在应用程序中管理人员有备份数据 库的功能，当管理员登陆时，就可以在应用程序中执行，数据库备份就会备份到 应用程序目录下的一个 Backup目录的db_schools.bak。数据库的恢复要在 DBMS 中去完成，在sql server2000中可以把备份文件 db_schools.bak 还原到应用程 序目录下

12、的Database的目录下。其实在DBMS勺sql server2000中，数据库管理员可以对数据库备份和恢复 数据库的备份可以是静态备份和动态备份，因为这个教学统计系统是一个小 的数据库管理系统，对数据库的备份用静态备份就行了。4、数据库逻辑结构设计4.1 系统模块图和系统模块功能信息添加信息修改信息查询4.2 模块功能说明：1、信息管理模块：实现对员工、商品、供货商、会员等基本信息管理的功能，管理层对整个超市的人事及商品有详细的了解，这个模块包括“员工管理”、“商品管理”、“供应商管理”、“会员管理”四个功能模块。(1)员工信息管理，这个模块对超市的所有员工的信息进行登记管理，包括添加、

13、修改、删除、查询操作。(2)商品信息管理和供货商信息管理，这两个模块功能同员工信息管理模块。 会员管理，对会员进行添加、修改、删除、充值等操作。(4)销售查询，这个模块实现对销售商品、销售金额等的查询功能。5、Delphi界面设计5.1 Delphi的一些简单控件：在Delphi中有很多设计界面的控件，用控件和程序的结合可以实现界面和数 据库的连接。一些简单的空间可以实现界面的优化，如添加 image控件可以在界面当中插入 一些非常精彩的图片，exit控件是用来设置键入信息框架的控件，他与 memO空 件相似，但是exit中一般是添加比较短的信息输入，如信息，名片编号等，而 mome中可以加入

14、比较长的文本字符，如个人简历，个人介绍等等。还有就是 button控件，使用设置按钮键的，在界面中运用程序按下按钮就可以实现查询， 添加，修改，删除等功能。5.2 基本界面的展示，其中会附加上功能与解释:1、员工登陆界面注释：如上面显示的一样，输入用户名和密码点击“确认”就可以进入下一个相 应的界面了，如果用户名和密码不正确那么就会显示密码错误或者用户名不存在 的提示语。如果想要退出，点击“退出”就可以回到原来的登录选择界面了。2、员工进入系统：主菜单界面含有5个子菜单，单击可以进入。3.商品信息查询4.销售信息查询5.入库信息查询6.会员信息录入与浏览7.会员充值8.供应商信息录入与浏览7

15、f Fora89.员工信息录入7rFor>90®®6、结束语与体会经过几周在电脑面前的操作，我实现了Delphi与SQL Server2000的连接于界面的运行，实现了界面上控件的基本功能。由于经验的匮 乏，难免有许多考虑不周全的地方，由于时间有限，系统功能实现不 够完善，离实际使用也还有一定的距离，需要以后进行不断地补充和 完善。如果没有导师的督促指导，同组同学的支持，以及室友的无私 帮助，想要完成这个设计是难以想象的。 从开始对Delphi一窍不通到后来能够用Delphi的语言来写程序确实很艰苦，这次程序设计让我深刻体会到编程是一项非常艰巨的工作，除了扎实的理论基

16、础，还需要 反复的动手实践，运用自己的聪明才智，克服一个个问题难关，但是令我很欣慰的是我的程序最后实现了，还算令自己满意。此次程序设计最大的意义是让我体会到了编程的乐趣，提高了我解决实际问题的能力，在今后的工作生活中，这将是一笔宝贵的财富。7、附录：含代码FORM1unit Unitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, StdCtrls, ADODB, DB;typeTForm1 = class(TForm)Label1: TLabel;L

17、abel2: TLabel;Edit1: TEdit;Edit2: TEdit;Button1: TButton;ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;Button2: TButton;Labe TLabel;procedure button1click(sender: tobject);procedure Button2Click(Sender: TObject);private Private declarations public

18、Public declarations end;varForm1: TForm1; implementationuses Unit2;$R *dfmprocedure tform1.button1click(sender: tobject); beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select * from员工信息表 where 员工姓名='''+ edit1.Text + '''and密码='"+edit2.Text + '

19、9;'');adoquery1.Open;adoquery1.Open;if adoquery1.RecordCount=1 then begin form1.hide;form2.Show;end else begin showmessage('用户名或密码错误'); end;end;procedure TForm1.Button2Click(Sender: TObject);beginform1.close; end;End.FORM2 unit Unit2;interfaceusesWindows, Messages, SysUtils, Variants

20、, Classes, Graphics,Controls, Forms,Dialogs, Menus, jpeg, ExtCtrls;typeTForm2 = class(TForm)MainMenu1: TMainMenu;N1: TMenuItem;N2: TMenuItem;N3: TMenuItem;N4: TMenuItem;N5: TMenuItem;N6: TMenuItem;N7: TMenuItem;N8: TMenuItem;N9: TMenuItem;N10: TMenuItem;Image1: TImage;procedure N2Click(Sender: TObje

21、ct);procedure N3Click(Sender: TObject);procedure N7Click(Sender: TObject);procedure N5Click(Sender: TObject);procedure N6Click(Sender: TObject);procedure N8Click(Sender: TObject);procedure N9Click(Sender: TObject);procedure N10Click(Sender: TObject);private Private declarations public Public declara

22、tions end;varForm2: TForm2;implementationuses Unit3, Unit5, Unit4, Unit6, Unit7, Unit8, Unit9, Unitl;$R *dfmprocedure TForm2.N2Click(Sender: TObject);beginform3.show;end;procedure TForm2.N3Click(Sender: TObject); beginform4.Show;end;procedure TForm2.N7Click(Sender: TObject); beginform5.show;end;proc

23、edure TForm2.N5Click(Sender: TObject); beginform6.show;end;procedure TForm2.N6Click(Sender: TObject); beginform7.show;procedure TForm2.N8Click(Sender: TObject); beginform8.show;end;procedure TForm2.N9Click(Sender: TObject);beginform9.show;end;procedure TForm2.N10Click(Sender: TObject); beginform1.sh

24、ow;form2.close;end;End.FORM3unit Unit3;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;typeTForm3 = class(TForm)ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;Edit1:

25、TEdit;Labell: TLabel;Buttonl: TButton;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;Edit6: TEdit;Edit7: TEdit;Label2: TLabel;Labe TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);

26、 private Private declarations public Public declarations end;var Form3: TForm3;implementationuses Unit2, Unit1;$R *dfmprocedure TForm3.Button1Click(Sender: TObject);beginedit2.Text尸adotable1.FieldByName('商 品 类别').asstring ;edit3.Text尸adotable1.FieldByName('供应商').asstring ;edit4.Text尸

27、adotable1.FieldByName(edit5.Text尸adotable1.FieldByName(edit6.Text尸adotable1.FieldByName(商品规格').asstring ;商品进价').asstring ; 商品售价').asstring ; 库存量').asstring ;ADOTablel.Edit;ADOTable1.FieldValues'ADOTable1.FieldValues'ADOTable1.FieldValues'ADOTable1.FieldValues'ADOTable

28、1.FieldValues'ADOTable1.FieldValues'商品类别':=Edit2.Text;供应商':=Edit3.Text;商品规格':=Edit4.Text;商品进价':=Edit5.Text;商品售价':=Edit6.Text;库存量':=Edit7.Text;edit7.Text尸adotable1.FieldByName( end;procedure TForm3.Button2Click(Sender: TObject);beginform3.close;end;End.FORM4unit Unit4;

29、interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;typeTForm4 = class(TForm)ADOQuery1: TADOQuery;DBGrid1: TDBGrid;Edit1: TEdit;BitBtn1: TBitBtn;Label1: TLabel;DataSource1: TDataSource;ADOConnectionl: TADOConne

30、ction;Buttonl: TButton;procedure BitBtn1Click(Sender: TObject);procedure Button1Click(Sender: TObject);private Private declarations public Public declarations end;varForm4: TForm4;implementationuses Unit1;$R *dfmprocedure TForm4.BitBtn1Click(Sender: TObject);var Tno:string;beginTno:=trim(Edit1.Text)

31、;beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('SELECT * FROM 销售信息表 WHERE (商品名称='"+Tno+'")');ADOQuery1.Open;ShowMessage('查询成功');end;end;procedure TForm4.Button1Click(Sender: TObject);beginform4.close;end;End.FORM5unit Unit5;interfaceusesWindows, Message

32、s, SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;typeTForm5 = class(TForm)ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;Labe TLabel;Label4: TLabel;L

33、abel5: TLabel;Edit1: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;Button1: TButton;Edit6: TEdit;boBox1: TboBox;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private Private declarations public Public declarations end;varForm5: TForm5; implementation

34、 uses Unitl;$R *dfm procedure TForm5.Button1Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select * from入库信息表 where 商品类别='''+ bobox1.text + '''and商品名称="'+edit3.Text + '''');adoquery1.Open;adoquery1.Open;if adoqu

35、ery1.RecordCount=1 then beginedit6.Text尸inttostr(strtoint(edit4.Text)+库存量').AsInteger);入库单').asstring尸editl.text;商品类另卜).asstring尸boboxl.text;商品名称').asstring尸edit3.text;进货量').asstring尸edit4.text;进货单价').asstring尸edit5.text;库存量').asstring尸edit6.text;adotable1.FieldByName( begina

36、dotable1.Insert;adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' edit1.Text尸”;bobox1.text:="edit3.Text:=''edit4.Text:=''edit5.Text:=''end;endelsebeginad

37、otablel.Insert;adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.FieldByName(入库单').asstring尸editl.text;商品类另卜).asstring尸boboxl.text;商品名称').asstring尸edit3.text;进货量').asstring尸edit4.text;进货单价

38、').asstring尸edit5.text;库存).AsInteger:=strtoint(edit4.Text)+ 0;editl.Text尸''bobox1.text:="edit3.Text尸”；edit4.Text:=''edit5.Text:=''end;end;procedure TForm5.Button2Click(Sender: TObject); beginform5.close; end;End.FORM6 unit Unit6;interface usesWindows, Messages, SysUt

39、ils, Variants, Classes, Graphics,Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;typeTForm6 = class(TForm)ADOConnectionl: TADOConnection;ADOTablel: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;DBGrid1: TDBGrid;Edit1: TEdit;Edit2: TEdit;Label1: TLabel;Label2: TLabel;Edit3: TEd

40、it;Labe TLabel;Label4: TLabel;Edit4: TEdit;Edit5: TEdit;Label5: TLabel;Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;varForm6: TForm6;implementationuses Unit1;$R *dfmproce

41、dure TForm6.Button1Click(Sender: TObject); beginadotablel.Insert;会员卡号').asstring尸edit1.text;会员姓名').asstring尸edit2.text;会员积分').asstring尸edit3.text;联系电话').asstring尸edit4.text;账户余额').asstring尸edit5.text;adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( adotable1.f

42、ieldbyname( adotable1.fieldbyname( edit1.Text尸”;edit2.Text:=''edit3.Text尸”； edit4.Text:='' edit5.Text:='' adotable1.Post; end;procedure TForm6.Button2Click(Sender: TObject); beginform6.close;end;End.FORM7 unit Unit7;interface usesWindows, Messages, SysUtils, Variants, Classes

43、, Graphics, Controls, Forms,Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;typeTForm7 = class(TForm)DBGrid1: TDBGrid;ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQueryl: TADOQuery;DataSourcel: TDataSource;Editl: TEdit;Edit2: TEdit;Labell: TLabel;Label2: TLabel;Buttonl: TButton;Edit4: TEdit;E

44、dit5: TEdit;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private Private declarations public Public declarations end;varForm7: TForm7;implementationuses Unit1;$R *dfmprocedure TForm7.Button1Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.

45、Clear;adoquery1.SQL.Add('select * from 会员充值记录表 where 会员卡 号二“'+ edit1.text + '''');adoquery1.Open;adoquery1.Open;if adoquery1.RecordCount=1 thenbeginedit5.Text尸inttostr(strtoint(edit2.Text)+账户余额').AsInteger);会员卡号').asstring尸editl.text;充值金额').asstring尸edit2.text;账户余

46、额').asstring尸edit5.text;adotable1.FieldByName( beginadotablel.Insert;adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' editl.Text尸”;edit2.Text:=''edit5.Text:=''end;endelsebeginadotablel.Insert;adotable1.fieldbyname(' 会员卡号').asstring尸editl

47、.text;adotable1.fieldbyname(' 充值金额').asstring尸edit2.text;adotable1.fieldbyname('账 户 余 额 ).AsInteger:=strtoint(edit2.Text)+0;editl.Text尸”;edit2.Text:=''end;end;procedure TForm7.Button2Click(Sender: TObject); beginform7.close;end;end.FORM8unit Unit8;interfaceusesWindows, Messages,

48、SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;typeTForm8 = class(TForm)ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DBGrid1: TDBGrid;DataSource1: TDataSource;Button1: TButton;Button2: TButton;Label1: TLabel;Edit1: TEdit

49、;Label2: TLabel;Edit2: TEdit;Labe TLabel;Label4: TLabel;Edit3: TEdit;Edit4: TEdit;Label5: TLabel;Edit5: TEdit;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private Private declarations public Public declarations end;Form8: TForm8;implementationuses Unitl;$R *dfm pro

50、cedure TForm8.Button1Click(Sender: TObject);beginadotable1.Insert;供应商编号').asstring尸edit1.text;供应商名称').asstring尸edit2.text;联系人').asstring尸edit3.text;联系电话').asstring尸edit4.text;联系地址').asstring尸edit5.text;adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( edit1.Text尸”;edit2.Text:=''edit3.Text尸”； edit4.Text:='' edit5.Text:=&