【DELPHI设计栏目提醒】:网学会员为广大网友收集整理了,超市销售论文Delphi+SQL,希望对大家有所帮助!
1.1 Delphi 6.0简介
Delphi6.0是著名的Borland(现在已和Inprise合并)公司开发的可视化软件开发工具。“真正的程序员用c,聪明的程序员用Delphi”,这句话是对Delphi最经典、最实在的描述。Delphi被称为第四代编程语言,它具有简单、高效、功能强大的特点。和VC相比,Delphi更简单、更易于掌握,而在功能上却丝毫不逊色;和VB相比,Delphi则功能更强大、更实用。可以说Delphi同时兼备了VC功能强大和VB简单易学的特点。它一直是程序员至爱的编程工具。
Delphi具有以下的特性:基于窗体和面向对象的方法,高速的编译器,强大的数据库支持,与Windows编程紧密结合,强大而成熟的组件技术。但最重要的还是Object Pascal语言,它才是一切的根本。 Object Pascal语言是在Pascal语言的基础上发展起来的,简单易学。
Delphi提供了各种开发工具,包括集成环境、图像编辑(Image Editor),以及各种开发数据库的应用程序,如DesktopDataBase Expert等。除此之外,还允许用户挂接其它的应用程序开发工具,如Borland公司的资源编辑器(Resourse Workshop)。
在Delphi众多的优势当中,它在数据库方面的特长显得尤为突出:适应于多种数据库结构,从客户机/服务器模式到多层数据结构模式;高效率的数据库管理系统和新一代更先进的数据库引擎;最新的数据分析手段和提供大量的企业组件
1.1.1专业的客户/服务器开发工具
客户/服务器是一种将任务进行分解,然后协同解决的计算模式。客户端的应用程序负责提出任务需求,服务器端的应用程序则为客户提供服务,例如数据查询、打印等。用Delphi6.0开发出的应用程序能够与数据库服务器完美地协同工作,构成客户/服务器计算模式。
1.1.2 面向对象的编程
在Delphi6.0中创建的窗口、菜单、数据窗口等都是对象。除了使用系统预先定义的对象外,开发人员可以自行构造新的对象,扩展系统的预定义对象,将各种对象有机地组合起来就构成了Delphi应用程序。
直到目前为止,计算机软件的开发分为两个不同的体系,其中一个体系是使用传统的程序设计语言(如Pascal、Basic和C等)开发数值控制、数值运算等软件,围绕它们的重点是算术、数据结构以及近年产生的面向对象技术。另一个体系则是通用的数据库管理软件领域(数据库应用程序的开发)。这两个体系的发展都极为迅猛,但是二者并没出现混合渗透迹象。如果使用数据库语言进行传统的算术编程,虽然也能完成相应的功能,但是其编程过程可能极为复杂。如果使用传统的编程语言进行数据库编程,通过调用专用的数据库应用程序接口函数和过程,利用这些函数和过程提供的功能,可能也能做得比较完善,但这做起来大多是极其困难的。而Delphi结合了两个体系的优点,它结合了传统的编程语言Object Pascal和数据库语言的强大功能, 它即可以用于传统的算术编程又可以用于数据库编程,特别是Delphi具有强大的数据库功能,利用Delphi的数据库工具,我们根本不需要编写任何Object Pascal代码便可以创建一个简单的数据库应用。
数据流程图描绘了系统的逻辑模型,图中没有任何具体的物理元素,只是描绘信息在系统中的流动和处理情况。对数据流的分析,主要是整体数据流、单元模块数据流。整体数据流概括为进入计算机操作员系统的操作过程和用户(各部门或个人)进入系统的数据流向。
整体数据流:用户通过密码进入系统,分别对上述几大功能逐一实现,其中涉及到模块数据流分析。
根据上一节业务流程的分析以及业务流程图我们可以得出系统的数据流
数据库是信息管理的基础。数据库结构直接关系到各种功能的实现和程序运行的效率。
进行数据库设计首先必须准确了解与分析用户需求(包括数据与处理)。需求分析是整个设计过程的基础,是最困难、最耗费时间的一步。需求分析的结果是否准确地反映了用户的实际要求,将直接影响到后面各个阶段的设计,并影响到设计结果是否合理和实用。
根据上一章的流程图,可以列出以下各模块记录信息所需的数据项和数据结构:
1.入库信息管理
•入库记录:商品编号(SPNO)、商品名称(SPNAM)、经办人员(JBREN)、进货数量(JHNUM)、进货小计(inprice)、备注(BEIZHU)
2.销售信息管理
•销售记录:商品编号(SPNO)、商品数量(SPNUM)、经办人员(JBREN)、商品名称(SPNAM)、标准价格(BZJG)、销售小计(XSXJ)
3.商品信息管理
•商品信息记录:商品编号(SPNO)、商品名称(SPNAM)、本店库存量(BDKCL)、默认成本(MORCB)、供应商编号(GYSNO)、商品分类(SPKIN)、安全存量(SAFCL)、商品规格(SPGG)、库存单位(KCDW)、商品颜色(SPCOL)、商品尺寸(SPSIZ)、标准价格(BEIZHU BZJG)、会员价格(HYJG)、批发价格(PFJG)、备注(BEIZHU)
4.员工信息管理
•员工信息:用户名(user)、口令(password)
商品信息管理子系统包括三个小的基本功能,即:
1. 现有库存,本功能是统计现在库存中所有的商品的信息,包括商品的代号,商品名,进价,售价,还有库存量等,主要是要库存量,因为后面的库存警报和进货报表都要建立在现在库存量的基础上。同样,点击“打印”按钮便可打印现有商品的库存信息了。
2. 库存警报,本功能是根据现有商品的库存量来判断哪种商品的库存量少于最小库存量,这就能提示管理员哪些商品需要进货。一开始打开窗口时,数据窗口内也是显示所有的库存商品信息,通过点击“安存不足”按钮便可查询库存量过少的商品信息了。
3. 进货报表,本功能是显示要进货的商品的信息,它是建立在库存警报窗口中的过少的商品的信息上的。点击“打印安存不足”便可打印出进货报表,供进货员去进货。
procedure TFMMAIN.BitBtn1Click(Sender: TObject);
begin
FMSPXXB.SHOW;
end;
//当点击商品信息按纽时调用show方法打开商品信息管理界面。
procedure TFMMAIN.BitBtn2Click(Sender: TObject);
begin
FMGYSB.Show;
end;
//当点击供应商信息按纽时调用show方法打开供应商信息管理界面。
procedure TFMMAIN.BitBtn3Click(Sender: TObject);
begin
FMJH.Show;
end;
//当点击进货作业按纽时调用show方法打开进货作业界面。
procedure TFMMAIN.BitBtn4Click(Sender: TObject);
begin
FMXSB.SHOW;
end;
//当点击销售作业按纽时调用show方法打开商品销售界面。
1. 入库子系统
procedure TFMJH.BitBtn2Click(Sender: TObject);
VAR
LOC1:BOOLEAN;
LOC2:BOOLEAN;
N:REAL;
Na:REAL;
STR1:STRING;
begin
IF (EDIT1.Text='''') OR (EDIT2.Text='''') THEN
BEGIN
SHOWMESSAGE(''请输入商品编号和进货数量!'');
ABORT;
END;
LOC1:=FMSPXXBD.TSPXXB.Locate(''SPNO'',EDIT1.Text,[LOCASEINSENSITIVE]);
IF LOC1=TRUE THEN
BEGIN
FMSPXXBD.TSPXXB.Edit;
FMSPXXBD.TSPXXB.FieldByName(''BDKCL'').Value:=FMSPXXBD.TSPXXB.FieldByName(''BDKCL'').Value+STRTOINT(EDIT2.Text);
FMSPXXBD.TSPXXB.Post;
参 考 文 献
[1] 飞思科技产品研发中心. SQL Server 2000数据库和数据仓库.电子工业出版社出版, 2001年6月;
[2] 王志伟、黄超. Delphi 企业经营管理系统开发实例导航.人民邮电出版社出版, 2003年6月;
[3] 张春林. Delphi6 程序设计导学. 清华大学出版社出版,2004年4月;
[4] 段兴、唐一丁、李宝. Delphi6 数据库实用程序设计100例. 人民邮电出版社出版,2002年10月;
[5] 清宏计算机工作室.Delphi编程技巧网络与数据库篇.机械工业出版社出版,2001年4月;
[6] 狄宏运,陈战林,赵宗福,钟显宏. Delphi6组件大全. 电子工业出版社出版,2002年7月.
上一篇:基于FTP协议的文件访问控制系统Delphi