小型超市管理信息系统课程设计

文档格式：DOCX| 25 页|大小 171.54KB|积分 20|2022-09-24 发布|文档ID：155670766

下载文档

下载文档到电脑，查找使用更方便还剩页未读，继续阅读>>

侵权申诉举报

1 / 25

此文档下载收益归作者所有下载文档

版权提示

文本预览

常见问题

小型超市管理信息系统课程设计小型超市管理系统小型超市管理系统摘要：小型超市管理系统在现代社会中的应用十分广泛，它是用 delphi幵发的基于windows 的小型数据库管理软件后台数据库的设计采用 SQL server2000，这些流行软件的应用也使系统更容易维护该系统使用结构化方法，按照系统调查、系统分析、系统设计、系统实施的步骤，采用结构化的编程方法而完成的在设计中，对系统总体方案的设计，采用了 “自上而下”的方法，而对于信息系统具体业务采用了 “自下而上”的方法尤其是数据窗口这一方便而简洁操纵数据库的智能化对象，从而建立一套完善科学的管理信息系统，对超市进行进货、销售发货、库存等实现全面、动态、与时的管理因此，该设计的方案基本上满足了系统的业务需求，具有一定的可用性关键词：数据表；SQL server 2000 ;控件绑定ODBC数据源1、需求分析1.1应用背景最初的超市资料管理，都是靠人力来完成的但近几年我国超市经营规模日趋扩大，销售额和门店数量大幅度增加，而且许多超市正在突破以食品为主的传统格局，向品种多样化发展小型超市在业务上需要处理大量的库存信息，还要时刻更新产品的销售信息，不断添加商品信息，并对商品各种信息进行统计分析。

因此，在超市管理中引进现代化的办公软件，实现超市庞大商品的控制和传输，从而方便销售行业的管理和决策，为超市和超市管理人员解除后顾之忧1.2设计目标幵发这个系统的目的就是帮助超市管理部门提高工作效率通过本管理系统软件，能帮助超市工作人员利用计算机，极为方便的对超市的有关数据进行管理、输入、输出、查找等有关操作，使杂乱的超市数据能够具体化、直观化、合理化等2、总体方案设计2.1系统的目标1 / 24小型超市管理信息系统课程设计小型超市管理系统能减少很多不必要的资源，不用象以前那样用冗余的纸张式管理大大节省了管理人员的工作量，并且计算机的存储与系统快速查询功能大大提高了，提高管理人员的效率方便快捷的操作界面，提高工作效率2.2系统处理流程1. 启动系统，激活登陆口令界面；2. 通过验证后，对系统进行初始化；3. 进入系统，通过事件驱动机制激活相应的功能模块，并执行相应的功能；4. 通过关闭系统事件，激活关闭系统模块，退出系统系统处理流程如图2.2所示：图2.2系统处理流程图2.3系统功能模块设计通过对上面有关小型超市管理系统的功能需求分析以后，可知小型超市管理系统的功能有：系统管理，商品管理，销售管理。

系统功能菜单按以下方法进行设计小型超市管理系统系统管理用户管理备份管理5 / 24退出系统商品管理商品管理商品报表销售管理销售商品销售报表销售历史今日盘点系统功能模块设计如图2.3所示:2.4系统设计分析用户管理：添加用户账号，密码，类型等信息备份管理：数据库的备份，数据库还原商品管理：商品的信息录入，包括商品的编号、名称、单价、单位等销售管理：商品的销售信息，销售金额等销售历史：商品的销售时间，销售数量等今日盘点：商品的当日销售总额3、数据库设计小型超市管理信息系统课程设计作为Windows数据库家族中出类拔萃的成员，SQL Server2000这种关系型数据库管理系统能够满足各种类型的企业客户和独立软件供应商构建商业应用程序的需要SQL的主要功能之一是实现数据库查询你使用查询来取得满足特定条件的信息在逻辑查询中，你可以包括特殊的运算符如 AND、OR和NOT，你使用这些运算符来选择特定的记录例如，你可以用 AND来限制查询结果SQL的另一主要功能是数据更新，它通过 INSERT、DELETE、UPDATE等语句实现另外利用SQL Server我们可以很轻松地进行建表、维护等数据库操作。

[2]3.1系统数据流程图描述系统数据流程图分别由图 3.1所示图3.1浏览与录入管理3.2数据字典：是关于数据的信息的集合，对数据流程图中的各个元素做完整的定义与说明下面是超市管理系统几个数据元素的字典卡片与具体数据卡片的含义：名称：商品信息表描述：商品的基本信息定义：编号 +名称+单价 + 单位 + 货架号 + 库存 + 销售名称：商品销售报表描述：商品销售情况定义：商品编号 +商品名称+价格+数量+销售时间3.3系统设计具体实现目的：设计系统结构，根据需求分析给出的功能得出系统体系结构如划分模块目标：通过本系统软件，能帮助超市管理人员利用计算机，快速方便的对商品信息管理进行维护、输入、输出、查找的所需操作运行环境小型超市管理信息系统课程设计操作系统：Win dows2000/XP 或更高的版本支持环境：Borla nd Delphi7 3.4模块具体分析商品信息数据录入模块：主要用于商品基本信息的录入与初始化实体 E-R图如下：3.4 商品信息数据E-R图3.5出错处理设计本系统采用了典型的人-机对话模式，若操作失败则弹出对话框（如：出错信息等）出错处理对策：用户可以根据弹出的对话框的提示信息进行相应的处理。

安全保密设计：本系统设计了密码验证登陆窗口，具有权限控制3.6程序逻辑模块功能实现的算法流程图（数据录入）图3.6数据录入模块流程图4.1功能模块简介4.1.1系统功能维护模块用户管理：设定本系统的系统操作员，可以一个也可以多个管理员口令管理：在不退出系统的情况下，凭借原来的密码，可以修改管理员密码退出系统：在使用完系统之后，可以退出系统4.1.2基本资料管理模块商品资料管理：商品资料的添加、删除、编辑资料管理:新增、删除和编辑初期建帐：对采集到的数据在后台进行数据库管理4.1.3商品流通管理模块进货管理：当超市进货的时候，分为以下几个步骤：商品编号录入后台数据库在价格定义模块中使商品编号码和价格相对应，即使商品编号码一个码一个价格，保存之后，后台数据库中库存自动更新库存管理:当进货时，库存自动增加，当销售时，库存自动减少库存报警:设定库存的上限和下限值之后，当库存不符合要求的时候，系统报警盘点管理：系统自动产生盘点信息4.1.4销售实时控制模块由于超市要实时交易，所以对交易有一个界面实时控制商品的流出，当操作员扫7 / 24小型超市管理信息系统课程设计描一个物品的条形码之后，输入数量，再扫描下一个物品，输入数量 ,直到客户需要的物品输入完之后，点击一个按钮，系统自动产生每个货物应付款，总应收款 ,实收款和找零信息，并控制打印机打印一张热敏纸收据。

此时，在系统的后台数据库中自动减少相应库存4.1.5 报表生成模块报表生成模块将担当起智能化的报表生成的任务此模块将利用 SQL server2000 和数据库功能，一步一步地完成所要求的动态统计结果可以完成商品基本信息报表、销售报表等不同条件下任意组合而成的报表，能够以快速、准确等优点取代人工操作，提高了管理工作效率4.1.6 查询模块可以根据某个条件进行查询，如 :日期产品等，查询日销售量产品销售量等4.1.7 本软件可以实现的功能如下：用户管理，包括用户的添加、删除、密码和权限的修改；商品管理，商品的添加、删除、修改、销量统计和分类查询；商品报表；销售商品：通过输入货物编号和数量实现商品销售，并提供库存判断、找零计算等功能；销售报表和销售历史；今日盘点，告诉用户当天的销售额是多少；5、系统运行与调试5.1 数据复制数据复制实际上是为了提高查询处理的本地性，对同一数据复制多个副本，根据需要将副本存放在不同的电脑中．数据信息包括商品名、库存量、销售量、商品单价、生产日期、生产厂家等．通过事务提交的方式保证避免由于其它一些电脑故障造成的在数据库更新过程中数据的不一致．5.2. 数据库备份对数据库进行备份是一项很重要的工作，本系统采用在启动数据上传模块的同时自动备份数据库的方法，从而既提高了数据库的可靠性和安全性，同时也减轻了数据库管理员的工作，降低了备份的复杂性．当数据库中的数据遭到破坏需要恢复时，可以从自动备份中恢复．本系统利用 SQL DMO(DatabaseManagement Object) 实现数据库备份． SQLDistributed Management Framework小型超市管理信息系统课程设计(SQL — DMF，即SQL分布式管理框架)是一组集成API和服务，用与管理SQLServer . SQL_DMO是SQL_DMF中的一个组件.本系统实现数据库备份程序示例如下：Dim mySvr As New SQLDMO ．SQLServerDim myDB As SQLDMO ． DatabaseDimmyBKAs New SQLDMO ．BackupDim myDv As NewSQLDMO ．BaekupDeviceSet mySvr=New SQLDMO ．SQLServermySvr ． Connect ” DAQING”，” 8a”，” 1111 ”生成SQLSerwr对象，传递服务器名、用户名和口令Set myDB=mySw ． Databases( ” DAQING”)MyDv Type=SQLDMODevice_DiskDump 备份设备的类型myDv ． Name = ” ZxDB_ baekup ”myDv . Physical . location= ” D中心数据库备份\ ZxDB — back . Up”'备份设备的逻辑位置On ErrorResume NextmySvr ．BackupDevices ．Add myDvOn Error GoTo 0myBK ． Database= ” DAQING”myBK ． Devices = “ ZxDB_backup ”myBK ．Initialize = TruemyBK ．SQLBackup mySvrmySvr.BackupDcwices ．Remove ” DB_backup ” mySw ．DisConnect5.3 系统测试5.3.1 测试的意义在开发软件系统的过程中，面对错综复杂的问题，人的主观认识不可能完全符合客观现象，与工程密切相关的各类人员之间的通讯和配合也不可能完美无缺，因此，在软件生命周期的每个阶段都不可避免地会产生错误。

在每个阶段结束之前通严格11 / 24小型超市管理信息系统课程设计的技术审查，尽可能早的发现所有差错此外，在编码过程中还会不可避免地引入新的错误测试的目的就是在软件投入生产性运行之前，尽可能多地发现软件中的错误5.3.2 本系统的测试结果登录界面测试运行本软件后，首先出现登录界面，后台连接数据库成功后，进入登录界面测试时，先输入错误的用户名或密码，此时系统给用户提示小相应的错误信息，然后输入不同的正确用户名和密码，系统根据不同的用户给予不同的使用权限，这在进入程序主界面后，从菜单中可以看出使用权限的不同无操作权限的菜单暗色显示，不可操作因此测试成功，功能基本实现 [3]各子系统的测试进入主界面后，对不同的子系统进行操作先正确输入各项信息，点击运行按钮后，发现系统运行正常，结果显示正确；然后错误输入某些信息，或者进行某些错误操作，发现有的能够给出错误提示，并返回让用户重新操作，有的则直接显示错误信息，而后自动退出系统这说明软件的某些地方容错性不够完善，影响了它的易操作性于是着手进行修改后重新进行测试，结果显示软件的容错性基本达到了用户要求经过对各个子系统全部功能项的不同测试，结果显示以基本达到设计要求。

6.结束语经过 1 个多月的调查与研究，小型超市管理系统基本完成它的特点是实时性强，能够帮助超市管理人员与时方便地管理超市信息但由于开发者水平有限，仍存在系统功能不够完善，设计步骤欠完整等不足，这些需要在今后的设计中加以改进参考文献[1] 许志清 ,赵博.精通 SQL SERVER 2005 数据库系统管理 . [M] ．北京 :北京电子工业出版社， 2006[2] 王晟 , 马里杰 SQL Server 数据库开发经典案例解 [M]. 北京 :清华大学出版社 ,2006[3] 常利，肖立洪 Delphi 6 编程-- 数据库篇 [M]. 中国电力出版社， 2002附录：主要程序清单用户登陆unit UnitLogin;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Forms,Dialogs, ExtCtrls, StdCtrls, ADODB, jpeg, DB;typeTForm1 = class(TForm) Image1: TImage;Label1: TLabel;Label2: TLabel;Edit1: TEdit;Edit2: TEdit;Image2: TImage;Image3: TImage;Image4: TImage;Image5: TImage;ADOQuery1: TADOQuery;procedure FormCreate(Sender: TObject);procedure Image5MouseDown(Sender: TObject; TMouseButton;Shift: TShiftState; X, Y: Integer);procedure Image4Click(Sender: TObject);procedure Edit2KeyPress(Sender: TObject; var Key: Char);procedure Edit1KeyPress(Sender: TObject; var Key: Char);procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);procedure Image2Click(Sender: TObject);procedure Image3Click(Sender: TObject);privateControls,Button:{ Private declarations }public{ Public declarations }end;varForm1: TForm1;LogTimes: Integer;UserType: String;ExeRoot: String;DataFile: String;UserName: String; implementation uses UnitMain;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject); beginLogTimes := 0;end;Button:procedure TForm1.Image5MouseDown(Sender: TObject; TMouseButton;Shift: TShiftState; X, Y: Integer);beginapplication.Terminate;end;procedure TForm1.Image4Click(Sender: TObject); varADOQuery1: TADOQuery; beginif (edit1.Text<>'') and (edit2.Text<>'') thenbeginChDir(Extract(Application.ExeName));ChDir('..');ExeRoot := GetCurrentDir;Data GetCurrentDir+'\Data\dzyv1.mdb';ADOQuery1:= TADOQuery.Create(self);ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from t_user where user_name="'+edit2.Text+'" and user_pass="'+edit1.Text+'" ');ADOQuery1.Open;if ADOQuery1.Eof thenbeginLogTimes := LogTimes+1;if messagebox(handle,' 您填写的用户或密码有错误！是否重新输入？ ', 出错提示 ',mb_iconinformation+mb_okcancel)=IDcancel then application.Terminate;if LogTimes>=3 thenbeginmessagebox(handle,' 对不起，登录次数超过 3 次，程序自动关闭！ ',' 非法登录 ',MB_ICONWARNING+mb_ok);application.Terminate;end;endelsebeginUserType := ADOQuery1.FieldByName('user_type').AsString;UserName := ADOQuery1.FieldByName('user_name').AsString;LogTimes := 0;ADOQuery1.Free;Form1.Hide; form2.ShowModal;end;endelsemessagebox(handle,' 您没有填写用户和密码！ ',' 出错提示 ',mb_iconinformation+mb_ok) end;procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); beginif key=#13 then Edit1.SetFocus; end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); beginif key=#13 then Image4Click(self); end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);beginif (ssleft in shift) thenbeginreleasecapture;perform(wm_syscommand, $f012, 0);end; end; procedure TForm1.Image2Click(Sender: TObject); beginapplication.Terminate; end;procedure TForm1.Image3Click(Sender: TObject);beginapplication.Minimize; end; end.数据库还原，备份unit UnitDbBuckup;interfaceusesControls,Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms,Dialogs, ComCtrls, Gauges, ExtCtrls, StdCtrls;typeTFrameDbBuckup = class(TFrame)Image1: TImage;GroupBox1: TGroupBox;Image2: TImage;Image3: TImage;SaveDialog1: TSaveDialog;Gauge1: TGauge;OpenDialog1: TOpenDialog;procedure Image2Click(Sender: TObject);procedure Image3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end; implementation uses UnitLogin; {$R *.dfm} procedure TFrameDbBuckup.Image2Click(Sender: TObject); vari: integer;begintryif not savedialog1.Execute then exit;if (savedialog1.'.mdb') thenbeginif Messagebox（handle,' 存在数据库重名，是否覆盖？ ',' 存盘选项 ',mb_iconquestion+mb_yesno）=IDNo then Exit;end else beginfor i:=Gauge1.MinValue to Gauge1.MaxValue do Gauge1.Progress := i;Copy（Data（SaveDialog1.'.mdb'）,True）;Messagebox（handle,' 数据库备份成功！ ',' 备份数据 ',mb_iconinformation+mb_ok）;end;exceptMessagebox（handle,' 警告：数据库备份失败！ ',' 存盘错误 ',mb_iconwarning+mb_ok）;end;end;procedure TFrameDbBuckup.Image3Click（Sender: TObject）;vari: integer;begintryif not opendialog1.Execute then exit;if Messagebox（handle,' 警告：现有数据有可能丢失，确定还原？ ',' 确定还原 ',mb_iconquestion+mb_yesno）=IDNo then Exit;for i:=Gauge1.MinValue to Gauge1.MaxValue doGauge1.Progress := i;Messagebox（handle,' 数据库还原成功！ ',' 还原数据 ',mb_iconinformation+mb_ok）;exceptMessagebox（handle,' 警告：数据库还原失败！ ',' 读取错误 ',mb_iconwarning+mb_ok）;end;end;end.商品信息unit UnitProdList;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, StdCtrls, Mask, DBCtrls;typeTFrameProdList = class(TFrame)Image1: TImage;ADOQuery1: TADOQuery;DataSource1: TDataSource;DBGrid1: TDBGrid;GroupBox1: TGroupBox;Image2: TImage;Image3: TImage;Image4: TImage;Label1: TLabel;DBEdit1: TDBEdit;Label2: TLabel;DBEdit2: TDBEdit;DBEdit3: TDBEdit;Label3: TLabel;DBEdit4: TDBEdit;Label4: TLabel;DBEdit5: TDBEdit;Label5: TLabel;Image5: TImage;Image6: TImage;19 / 24小型超市管理信息系统课程设计GroupBox2: TGroupBox;Label6: TLabel;Edit1: TEdit;Image7: TImage;Label7: TLabel;procedure Image2Click(Sender: TObject);procedure Image5Click(Sender: TObject);procedure Image3Click(Sender: TObject);procedure Image4Click(Sender: TObject);procedure Image6Click(Sender: TObject);procedure Image7Click(Sender: TObject);procedure Edit1KeyPress(Sender: TObject; var Key: Char);function IsAllNum(s:string):bool;procedure Label7Click(Sender: TObject);procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);procedure DBEdit5KeyPress(Sender: TObject; var Key: Char); private{ Private declarations }public{ Public declarations }end;implementation{$R *.dfm}procedure TFrameProdList.Image2Click(Sender: TObject);begin{添加商品 }Image2.Enabled := False;Image3.Enabled := False;Image4.Enabled := False;小型超市管理信息系统课程设计DBEdit1.Color := clWhite;DBEdit2.Color := clWhite;DBEdit3.Color := clWhite;DBEdit4.Color := clWhite;DBEdit5.Color := clWhite;DBEdit1.Enabled := True;DBEdit2.Enabled := True;DBEdit3.Enabled := True;DBEdit4.Enabled := True;DBEdit5.Enabled := True;Image5.Visible := True;Image6.Visible := True;DBEdit1.SetFocus;ADOQuery1.Append;end;procedure TFrameProdList.Image5Click(Sender: TObject);begin{提交数据 }if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBEdit3.Text<>'')and (DBEdit4.Text<>'') and (DBEdit5.Text<>'') thenADOQuery1.Postelseif messagebox(handle,' 您的输入不正确(空值) ，放弃输入？ ',' 检查输入 ',mb_iconquestion+mb_yesno)=IDyes thenADOQuery1.Cancelelseexit;Image2.Enabled := True;Image3.Enabled := True;Image4.Enabled := True;DBEdit1.Color := $00FFF0DC;DBEdit2.Color := $00FFF0DC;小型超市管理信息系统课程设计DBEdit3.Color := $00FFF0DC;DBEdit4.Color := $00FFF0DC;DBEdit5.Color := $00FFF0DC;DBEdit1.Enabled := False;DBEdit2.Enabled := False;DBEdit3.Enabled := False;DBEdit4.Enabled := False;DBEdit5.Enabled := False;Image5.Visible := False;Image6.Visible := False;end;procedure TFrameProdList.Image3Click(Sender: TObject);begin',' 确认删除if messagebox(handle,' 删除的商品不能被恢复，是否删除？ ',mb_iconquestion+mb_yesno)=IDyes then ADOQuery1.Delete; end;procedure TFrameProdList.Image4Click(Sender: TObject);begin{修改用户 }Image2.Enabled := False;Image3.Enabled := False;Image4.Enabled := False;DBEdit1.Color := clWhite;DBEdit2.Color := clWhite;DBEdit3.Color := clWhite;DBEdit4.Color := clWhite;DBEdit5.Color := clWhite;DBEdit1.Enabled := True;DBEdit2.Enabled := True;DBEdit3.Enabled := True;DBEdit4.Enabled := True;DBEdit5.Enabled := True;21 / 24小型超市管理信息系统课程设计Image5.Visible := True;Image6.Visible := True;DBEdit1.SetFocus;ADOQuery1.Edit;end;procedure TFrameProdList.Image6Click(Sender: TObject); begin{放弃提交 }ADOQuery1.Cancel;Image2.Enabled:= True;Image3.Enabled:= True;Image4.Enabled:= True;DBEdit1.Color :=$00FFF0DC;DBEdit2.Color :=$00FFF0DC;DBEdit3.Color :=$00FFF0DC;DBEdit4.Color :=$00FFF0DC;DBEdit5.Color :=$00FFF0DC;DBEdit1.Enabled:= False;DBEdit2.Enabled:= False;DBEdit3.Enabled:= False;DBEdit4.Enabled:= False;DBEdit5.Enabled:= False;Image5.Visible :=False;Image6.Visible :=False;end;procedure TFrameProdList.Image7Click(Sender: TObject); varsqlstr:string;beginif Edit1.Text<>'' thenbeginsqlstr := 'select * from t_prod where prod_name like "%' + Edit1.Text+ '%"'if IsAllNum(Edit1.Text) then sqlstr := sqlstr + ' or prod_id=' + Edit1.Text;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(sqlstr);ADOQuery1.Open;endelsemessagebox(handle,' 请输入查询条件！ ',' 检查输入 ',mb_iconwarning+mb_ok) end;procedure TFrameProdList.Edit1KeyPress(Sender: TObject; var Key: Char);beginif key=#13 then Image7Click(self);end; function TFrameProdList.IsAllNum(s:string):bool;var i:integer;beginfor i := 1 To Length(s) doif (s[i] < '0') or (s[i] > '9') thenbeginIsAllNum := False;Exit;end;IsAllNum := True;end; procedure TFrameProdList.Label7Click(Sender: TObject);varsqlstr: string;beginsqlstr := 'select * from t_prod';ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(sqlstr);ADOQuery1.Open;end;procedure TFrameProdList.DBEdit1KeyPress(Sender:TObject;varKeyChar);beginif key=#13 then DBEdit2.SetFocus; end;procedure TFrameProdList.DBEdit2KeyPress(Sender:TObject;varKeyChar);beginif key=#13 then DBEdit3.SetFocus; end;procedure TFrameProdList.DBEdit3KeyPress(Sender:TObject;varKeyChar);beginif key=#13 then DBEdit4.SetFocus; end;procedure TFrameProdList.DBEdit4KeyPress(Sender:TObject;varKeyChar);beginif key=#13 then DBEdit5.SetFocus; end;procedure TFrameProdList.DBEdit5KeyPress(Sender:TObject;varKeyChar);beginif key=#13 then Image5Click(Self); end;end.25 / 24。

点击阅读更多内容