音像店管理系统毕业设计论文.doc

一、引言就一般情况而言，音像店主要经营售碟和租碟业务，日常业务中信息简单但数量众多，单靠人工进行这种大量信息的处理工作，难免会造成信息统计及业务管理上的不便，为此，受一位音像店业主的委托，本文作者设计了这套系统。本系统由进货、售碟、租碟、还碟、数据维护和决策支持等六个主要子系统组成，可实现查询、插入、删除和修改等对数据库的基本操作，并可完成报表打印及业务统计（包括财务统计）等业务管理功能，为业主管理和决策提供方便。本系统用Delphi语言设计和实现。Delphi是著名的Borland公司开发的可视化软件开发工具，“真正的程序员用C，聪明的程序员用Delphi”，这句话是对Delphi最经典、最实在的描述。Delphi被称为第4代编程语言，它具有简单、高效、功能强大的特点。和VC相比，Delphi更简单、更易于掌握，而在功能上却毫不逊色；和VB相比，Delphi则功能更强大、更实用。可以说Delphi同时兼备了VC功能强大和VB简单易学的特点，所以它一直是程序员至爱的编程工具。Delphi发展至今，从Delphi 1 、Delphi 2到现在的Delphi 7，不断添加和改进各种特性，功能也越来越强大，这也是我选择Delphi语言作为开发工具的重要原因。由于本文作者是第一次接触实际项目，水平和经验有限，在设计中难免漏洞百出，遇到许多始料不及的困难和问题，在老师、同学们和单位科技科同志们的指导和帮助下，大部分问题都已经解决，但不可避免地仍存在着一些不足之处。具体情况见后文详述。二、VSMS设计2.1需求分析2.1.1 组织机构情况该音像店规模不大，店面面积30平方米左右，其中营业区面积约占2/3，业主夫妇二人共同经营，店内仅有一台计算机，且近期内无再购买计算机之计划，故本系统可设计为PC版。该店经营的音像业务主要是租碟和售碟，碟片种类包括各种VCD、DVD和CD碟片；业务对象包括当地的电视台和电台（赞助形式），更多的是零买零租的顾客；日常业务记录本主要有四个，分别用于进货、售碟、租碟和碟片编号。店内有两个大货架，分别用于存放销售用的碟片和租阅用的碟片；营业区内有几个大展板（展台），用于展放店内已有的所有碟片的宣传资料，资料上都贴有该碟片的编号，方便业主和顾客的查找和存取。2.1.2 业务活动情况平时由男业主外出进货，回来后先作进货登记，同时对新进的店内原来没有的碟片进行编号（已有碟片无需再编号），然后再分发到租碟用和售碟用的两个大货架上。售碟和租碟时，通常是顾客说出碟片名称，店主根据记忆或翻看编号本查出碟片的相应编号，或者顾客从展板资料上直接查出碟片编号告诉业主，业主然后根据编号从货架相应位置上取碟片。还碟时，顾客说出租碟日期和自己的姓名，业主根据租碟业务本查找相应记录，办理还碟手续。2.1.3 对新系统的各种要求a.进货登记时，应记录所进碟片的名称、种类、进价、进量、总额、进货日期及租售分配情况等，还可包括货源情况（如供应商、地址、联系方式等）。b.售碟时，应记录所售碟片的名称、种类、单价、销量、总额及出售日期等，顾客情况可记可不记。c.租碟时，应记录所租碟片的名称、数量、押金、客户及出租日期等，碟片编号可记可不记。d.还碟时，应能快速查找出相应记录，并作已归还标志。e.当发现登记的信息有误或根据实际情况需要更改或删除某些记录信息时，应能方便、安全地进行记录的修改和删除。f.应能对业务情况有所统计，包括销售情况、租还情况和账目情况（或资金流动情况），比如说哪几部碟片销量最好，哪几部碟片出租次数最多，哪些碟片尚未归还，每天的收支情况如何等等，为以后的进货计划提供依据。2.1.4 确定新系统的边界通过调查分析，最终确定除了存取碟片、向碟片贴编号标签及通过键盘向系统输入一些必要的信息这些操作由人工来完成之外，其他功能均由系统来完成，通过鼠标点击即可完成决大多部分功能，比如查询、插入、删除和修改记录，财务统计，租售统计，检索和排序等等。整个系统大致可分为六个子系统，即进货子系统、销售子系统、租碟子系统、还碟子系统、数据维护子系统和决策支持子系统等。2.2 概念结构设计2.2.1 系统说明书 该系统由以下各子系统组成：（见图一）音像店管理系统进货子系统销售子系统租碟子系统还碟子系统数据维护子系统决策支持子系统图一、系统功能结构其中各子系统主要功能为：进货子系统：除了登记进货信息，还要给新碟片编号，建立新记录，并确定其分别用于销售和租阅的分配量；若已有该碟编号，则只需修改其相应可售量和可租量即可。具备查询功能，用于查看店内是否已有该碟记录。另外，对财务支出进行统计。销售子系统：登记销售信息，并具备查询功能，在销售之前能先确认店内是否有客户所欲购之碟片，若有，其数量能否满足客户之欲购量等等。交易完成之后记录销售收入。租碟子系统：登记租碟信息，并能查询是否有客户之欲租碟供租。记录押金收入。还碟子系统：根据客户提供的信息（碟名、客户名或出租日期等）查找相应租碟记录，办理还碟手续，记录租金收入和押金支出。 数据维护子系统：根据业主需要，查找相应记录并修改或删除之。决策支持子系统：主要有业务统计和报表打印两大功能。业务统计包括进货统计、销售统计、租还统计及最重要的财务统计，业主根据多种统计和排序方式，可方便地搜集和整理出多种业务信息，供业主决策之用。另外可打印店内各种业务报表，如进货、销售、租还、库存及财务等。 2.2.2 概念模型的建立和表示 概念模型的建立：本系统涉及到的实体有：碟片、进货表、销售表、租还表和财务表，其中： 碟片：即店内所有库存碟片，属性包括编号、名称、种类、单价、单位、可售量、已售量、可租量、已租量、出租次数等。 进货表：每次进货后登记所进货物的业务表，属性包括项目编号、碟片名称、种类、进价、单位、进量、总额、日期等。 销售表：登记每次销售情况的业务表，属性包括项目编号、碟片编号、碟片名称、单价、单位、销量、总额、日期等。 租还表：登记每次租碟和还碟情况的业务表，属性包括项目编号、碟片编号、碟片名称、租量、押金、客户、出租日期、归还日期、受否已还标志、租金收入等。 财务表：统计每日财务收支情况，属性包括日期、销售收入、租金收入、押金收入、进货支出、押金支出等。这些实体之间的联系如下：a 一次进货可进多种碟片，一种碟片可多次进货，因此碟片和进货表具有多对多的联系（m：n）。b 一次销售可售多种碟片，一种碟片可被多次销售（量足的话），因此碟片和销售表是多对多的联系（m：n）c 一次租碟可租多种碟片，一种碟片可被多次租阅，因此碟片和租还表是多对多的联系（m：n）。d 每日财务最终统计为一项纪录，而每日进货、销售、租还业务均可多次，因此财务表和进货表、销售表、租还表均为一对多的联系（1：n）。 概念模型的表示：概念模型的表示方法很多，此处用E-R方法（Entity-Relationship Approach）表示，并用E-R图来表示，方法为： 实体型：用矩形表示，矩形框内写明实体名。 属性：用椭圆形表示，并用无向边将其与相应的实体连接起来。 联系：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型（1:1，1:n或m:n ）。本系统E-R图为：（见下页图二）2.3 逻辑结构设计 2.3.1 E-R图向关系模型的转换 将本系统的E-R图转换为关系模型，如下所示：（关系的码用下划线标出） 进货碟片进货表销售表租还表销售租还进货支出销售收入租金押金财务表 m m m n n n nn n 1 1 1 图二、系统E-R图（因篇幅原因，各实体的属性未列出） 碟片实体对应的关系模式为：碟片（碟片编号，碟片名称，种类，单价，单位，可售量，已售量，可租量，已租量，出租次数） 进货表实体对应的关系模式为：进货表（项目编号，碟片名称，种类，进价，单位，进量，总额，日期） 销售表实体对应的关系模式为：销售表（项目编号，碟片编号，碟片名称，单价，单位，销量，总额，日期） 租还表实体对应的关系模式为：租还表（项目编号，碟片编号，碟片名称，租量，押金，客户，出租日期，归还日期，是否已还，租金收入） 财务表实体对应的关系模式为：财务表（日期，销售收入，租金收入，押金收入，进货支出，押金支出）2.3.2 数据表的设计和建立用sVcd表来代替“碟片”实体，具体设计为：属性数据类型规格说明碟片编号长整型主键碟片名称字符串20种类字符串8单价货币单位字符串4可售量整型已售量整型默认值为0可租量整型已租量整型默认值为0出租次数整型默认值为0用stock表来代替“进货表”实体，具体设计为：属性数据类型规格说明项目编号长整型主键碟片名称字符串20种类字符串8进价货币单位字符串4进量整型总额货币日期日期用sell表来代替“销售表”实体，具体设计为：属性数据类型规格说明项目编号长整型主键碟片编号长整形碟片名称字符串20单价货币单位字符串4销量整型总额货币日期日期用hire表来代替“租还表”实体，具体设计为：属性数据类型规格说明项目编号长整型主键碟片编号长整型碟片名称字符串20租量整型押金货币客户字符串10出租日期日期是否已还字符串2若已还，设为“是”，否则为“否”归还日期日期默认值为空租金收入货币默认值为0用finance表来代替“财务表”实体，具体设计为：属性数据类型规格说明日期日期主键销售收入货币默认值为0租金收入货币默认值为0押金收入货币默认值为0进货支出货币默认值为0押金支出货币默认值为02.4 数据库的具体设计2.4.1 进货子系统的实现:设计思路: 该功能模块要记录的信息有项目编号、碟片名称、种类、进价、单位、进量、总额及进货日期,其中碟片名称、进价和进量由人工输入,其他由系统自动完成: 项目编号由系统自动无重复编号,种类和单位由系统提供可选项,总额由系统自动计算,日期由系统自动显示.进行碟片编号的时候,要先查询店内是否已有该碟编号,此时可人工查询,也可由系统提供模糊查询功能,用户只需向系统提供碟名关键字和种类这两个条件中的一个或两个,系统即可完成模糊查询,并将结果显示于窗体界面上.若无已存记录,则系统自动为该碟片进行编号.当将该项进货记录插入进货表之后,系统将自动将该项记录的进货总额统计进财务表中的当日财务记录上.具体实现: 项目自动编号和碟片自动编号的实现:加入两个Ttable组件,分别用于连接进货表(stock.db)和碟片表(sVcd.db),其中对进货表的操作为:table1.active:=true; 打开表 with table1 do if not eof then last; 找到最后一条记录edit1.text:=inttostr(table1.fields.fields0.value+1); 最后一条记录的编号加1,并把结果显示出来table1.active:=false; 关闭表对碟片表的操作类似,只需将table1 换为table2, edit1 换为edit2即可. 总额计算和日期显示:if (edit5.text=) or (edit6.text=) then 确保进价和数量均非空 showmessage(请将进价和数量填写完整)else edit7.text:=inttostr(strtoint(edit5.text)*strtoint(edit6.text); 计算总额并显示 edit9.text:=datetostr(now); 显示日期对碟片信息的模糊查询功能： 用一个Tedit组件输入碟名关键字，用一个TComboBox组件选择碟片种类,用一个Tquery组件实现SQL查询，用一个TDBGrid组件显示查询结果。 SQL语句的生成：if (edit1.text=) and (combobox1.text= ) then 若没有输入查询条件 str:=select * from svcd 则默认为显示所有记录 else if (combobox1.text=) then 若“种类”为空 str:=select * from svcd where 碟片名称 like +%+trim(edit1.text)+%+ 则按碟名关键字模糊查询 else if (edit1.text=) then 若碟名为空，则按种类搜索 str:=select * from svcd where 种类=+trim(combobox1.text)+else 若两者均非空 str:=select * from svcd where碟片名称 like +%+trim(edit1.text)+%+ and种类=+trim(combobox1.text)+ 则按两个条件复合查询SQL语句的执行： With Query1 do Begin close ; clear ; sql.text:=str ; ExecSql ; open ; end ;查询结果的显示： 只需将DBGrid1组件的数据源设为query1 即可。根据查询结果建立新记录： 如果查询结果数为0（dbgrid1.RecordCount=0）,则为该碟片自动生成一个新编号即可（碟片自动编号如本模块所示）。在进货表中插入记录： table1.active:=true; 打开表 table1.InsertRecord(strtoint(edit1.text),.各个字段值，略); 插入记录的各个字段值 table1.active:=false; 关闭表 在财务表中统计支出： table2.active:=true; 打开表 with table2 do if locate(日期,edit9.text,lopartialKey)=false 搜索，若无当日财务记录then 则插入新记录 InsertRecord(strtodate(edit9.text),0,0,0,strtocurr(edit7.text),0) else 否则，修改当日财务记录 begin edit ; fields4.value:=fields4.value+strtocurr(edit7.text); post; end; table2.active:=false; 关闭表2.4.2 销售子系统的实现:设计思路：该模块要记录的信息有项目编号、碟片编号、碟片名称、单价、单位、销量、总额和日期等，其中项目编号由系统自动生成，碟片编号、碟片名称、单价和单位通过查询由系统自动显示，销量由人工输入，总额由系统计算，日期由系统自动显示。系统提供模糊查询功能，用户只需提供碟名关键字和种类这两个条件中的一个或两个，便可得到该碟片的各种库存信息，包括碟片编号、碟片名称、种类、单价、单位、可售量和已售量等。在向销售表插入记录的同时，将本次销售收入统计入财务表中。具体实现：除操作的表对象不同外，其余类似进货子系统。2.4.3 租碟子系统的实现：设计思路：该模块要记录的信息有项目编号、碟片编号、碟片名称、租量、押金、客户和出租日期等，除租量和押金由人工输入外，其他信息均由系统自动提供。系统提供模糊查询功能，用户只需提供碟名关键字和种类这两个条件中的一个或两个，便可得到该碟片的库存信息，包括碟片编号、碟片名称、种类、单位、可租量、已租量和出租次数等。将本次记录插入租还表的同时，将本次押金收入统计进财务表中。具体实现：除操作的表对象不同外，其余类似进货子系统。2.4.4 还碟子系统的实现：设计思路：本功能模块要记录的信息有项目编号、归还日期、租金收入和押金支出等，无需人工输入，全部由系统提供。本模块的关键是找到以前相应的租碟记录，因此系统提供了模糊查询功能，用户只需提供碟名关键字和客户名关键字这两个条件中的一个或两个，便和得到相应的一条或多条租碟记录供用户查询和选择，并显示相应的租碟信息，包括项目编号、碟片编号、碟片名称、租量、押金、客户和出租日期等，供用户计算租金收入和办理还碟手续。在租还表中记录归还信息并设置相应的已还标志后，将本次租金收入和押金支出统计进财务表中。具体实现：模糊查询的实现：同进货子系统略微不同的是，此处用两个Tedit组件提供查询条件,生成SQL语句 if (edit1.text=) and (edit2.text= ) then str:=select * from hire else if (edit2.text=) then str:=select * from hire where 碟片名称 like +%+trim(edit1.text)+% + else if (edit1.text=) then str:=select * from hire where 客户 like +%+trim(edit2.text) +%+ else str:=select * from hire where碟片名称 like +%+trim(edit1.text) +%+ and客户 like +%+trim(edit2.text)+%+; SQL语句的执行同进货子系统。对租还表的操作不是插入记录，而是修改记录： table1.active:=true; with table1 do begin edit; fields7.value:=是; fields8.value:=strtodate(edit8.text);post; end;对财务表的操作同进货子系统，也是先查询是否有当日财务记录，若有，则修改当日财务记录中的租金收入和押金支出；否则建立新记录。2.4.5 数据维护子系统的实现：设计思路：为方便管理和维护，本模块能在一个窗体内实现对整个系统内所有数据表的修改和删除。本模块要实现的功能是修改和删除记录，此处提供了两种操作模式直接和间接模式，既可在原表上直接进行修改和删除，也可先将所选定的记录的信息全部另外单独显示出来，在表外进行修改和删除，最后再将操作后的新信息返回表中。除删除操作外，修改操作应设置权限，不能所有信息都可修改，此处设置为各表的主码不能修改。系统提供模糊查询功能，能快速查到所要修改或删除的记录，因为四个数据表（进货表、销售表、租碟表、库存表）都要用到此功能，为方便起见，用其共有属性“碟片名称”作为查询条件，用户只需提供碟名关键字即可；财务表可用主码“日期”作为查询条件。具体实现： 选择数据表对象：利用一个Ttable组件和五个Tradiobutton组件，分别实现对整个系统的五个数据表的连接，并将各个表的属性名都单独显示出来（因为各个表的属性个数不同，为方便起见，按最多的十个为限，设置了10个TLabel组件和10个TEdit组件用于显示，属性个数少的表显示时可将剩余的组件都隐藏起来），以便用间接模式对数据表进行操作。五个Tradiobutton组件实现的功能类似，现以连接进货表(stock.db)的Radiobutton1组件为例，其所要实现的功能为： 表的连接self.Table1.Active:=false; self.Table1.TableName:=stock.db; self.Table1.Active:=true; 显示属性名 label1.Caption:=项目编号; label2.Caption:=碟片编号; label3.Caption:=种类; label4.Caption:=进价; label5.Caption:=单位; label6.Caption:=进量; label7.Caption:=总额 ; label8.Caption:=日期; label9.Caption:=; label10.Caption:=; 输入框清空edit1.Text:=; edit2.Text:=; edit3.Text:=; edit4.Text:=; edit5.Text:=; edit6.Text:=; edit7.Visible:=true; edit7.Text:=;edit8.Visible:=true; edit8.Text:=; edit9.Visible:=false; edit10.Visible:=false;直接模式（在原表上直接进行修改或删除）的实现：本子系统用一个TDBGrid组件显示查询结果，在此模式下只需将TDBGrid组件的ReadOnly属性值改为false即可。间接模式（先将所要修改或删除的记录信息显示于表外，进行修改或删除后再返回表中）的实现：先将TDBGrid组件的ReadOnly属性值改为true，然后再进行相应操作，以进货表为例（即点击了Radiobutton1组件），“修改记录”操作为if radiobutton1.checked=true thenbegin with table1 do if Locate(str2,edit1.Text,lopartialkey)=true 查找记录then begin 设置为编辑状态edit; 修改记录 fields1.value:=edit2.text; fields2.value:=edit3.text;fields3.value:=strtocurr(edit4.text); fields4.value:=edit5.text;fields5.value:=strtoint(edit6.text); fields6.value:=strtocurr(edit7.text); fields7.value:=strtodate(edit8.text); 状态返回 post; end else showmessage(无此记录)end；“删除记录”操作为：with table1 do if Locate(str2,edit1.Text,lopartialkey)=true then delete 删除记录 else showmessage(无此记录);模糊查询功能的实现：同进货子系统类似，此处更为简单，只有碟名关键字一个条件。2.4.6 决策支持子系统的实现：设计思路：此模块主要功能之一是统计和排序，操作对象是整个系统的所有五个表，可按多种方式进行统计和排序，比如对租还情况可按“已还”和“未还”两种情况统计，对库存情况可按“可售量”、“已售量”、“可租量”、“已租量”等几种情况进行排序等等，排序方式可选“升序”和“降序”两种。此模块另一功能是报表打印，可将所有的业务登记表打印出来供业主参考决策和存储备份。具体实现：统计和排序功能的实现：此处用了多个TRadioButton组件、一个TQuery组件和一个TDBGrid组件，分别用于选择方式、生成和执行SQL语句、显示结果。SQL语句比较简单，统计功能用的基本语句是select * from xxx where yyy=zzz ，排序功能用的基本语句是select * from xxx order by yyy desc (asc)，在具体的统计和排序操作中只需将表名和属性名更改一下即可。报表打印功能的实现：此处用一个TTable组件、一个TQuickRep组件、多个TQRLabel组件和TQRExpr组件共同来实现，在打印具体的业务表时，只需修改一下TTable组件和TQRExpr组件的数据表连接和TQRLabel组件的属性名显示即可。2.5 系统的调试和试运行在系统的设计、调试和试运行过程中，遇到许多意想不到的问题，现总结如下：数据库的连接和操作问题：数据库连接问题：本系统建的数据表类型都是Delphi自带的默认的Paradox类型，在建立数据库时，最初是直接利用Delphi自带的DBDEMOS数据库，把所建的表都直接放在其中，在程序中各组件的“数据源”、“数据集”属性都直接设为DBDEMOS数据库，对各数据表的访问和操作也都很方便。但是当把该系统移植到其他计算机上时，若主机未装有Delphi软件工具，则该程序无法运行。解决方法：把数据表和系统源程序放在同一个文件夹里，利用开放式数据库连接驱动引擎ODBC建立一个驱动程序为“Driver to Microsoft Paradox（*.db）”的数据源My database ，并选择其目录，将其指向该文件夹，然后把源程序里各组件的“数据源”、“数据集”属性都改为My database 。数据库操作问题：在设计过程中，对数据库进行插入、修改、删除操作时，经常遇到“cannot operate on a closed dataset”的提示信息，经分析，原因是对各个TTable组件的Active属性值设置不一，有的为true，有的为false，造成操作时不知其Active值到底为何值而导致错误。解决方法：将各个TTable组件的Active属性初始值均设为false，每次具体操作时都先设为true，操作完毕再恢复为false。SQL语句的生成和执行问题：SQL语句的生成问题：问题之一，在好多模块的SQL语句中均需要单引号，刚开始时在源程序中我一直用双引号以便能在最终的SQL语句中生成单引号，结果以失败告终。解决方法：在源程序中用四个连续的单引号，可在最终的SQL语句中生成单引号。问题之二：在好多模块中都是把对多个数据表的操作集中放在一起，比如数据维护子系统中的修改和删除操作、决策支持子系统中的统计和排序操作等等，这时通常是用一个TQuery组件来生成和执行所有的SQL语句，作者在设计系统的时候，开始时是以SQL语句一次性完整生成为目标，结果因为判断语句的多重嵌套使用，造成系统工作量的增加和运行效率的降低。解决方法：因为在这些模块的操作中SQL语句的基本骨架是相同的，区别仅在于表名和属性名的不同，所以以表名和属性名为界，将一个SQL语句分为几部分，将相同的部分设为字符串常量，将表名和属性名设为字符串变量，在选择数据表的时候就给这两个变量赋值，最后到生成SQL语句的时候只需将这些字符串常量和变量联接在一起即可。SQL语句的执行问题：经常遇到的问题是类型不匹配。例如，在还碟子系统中，在为查找相应租碟记录而实现模糊查询功能的时候，原本设想是提供碟名关键字、客户名关键字和出租日期三个条件中的一个或多个来实现模糊查询，结果运行的时候，是只要牵涉到日期，就会出现“Type mismatch in expression”的提示信息，当时的实际过程为：租还表（hire.db）中属性