碟片出租课程设计报告

1、碟片出租管理信息系统目录一、 碟片出租管理信息系统(3 )1.1开发背景 (3)1.2新系统目标 (3)1.3系统的可行性分析 (3)二、碟片出租管理信息系统分析 (4)2. 1业务流程分析 (4)2.2数据流程分析 (5)2.3数据字典 (6)三、碟片出租管理信息系统设计(10 )3.1系统总体结构分析 (10 )3.2数据库设计 (10 )3. 3功能层次分析 (13 )3.4输入输出设计(14)3.5物理配置方案设计 (15)四、协会经费管理系统实施4.1系统开发环境(15)4.2 模块功能实现 (15 )4.3 代码设计 (20 )27 )五、总结28 )参考文献一、碟片出租管理信息系

2、统1.1 开发背景当今社会， 随着计算机科学技术的日异发展， 数据库技术被越来越多地应用 在互联网及其人们的日常生活中。 碟片出租管理信息系统是碟片出租店重要的部 分，应该能够为商店的管理者提供充足的信息和快捷的查询手段。一直以来， 人 们都使用传统的人工的方式来进行出租碟片的相关繁琐的工作， 这样的管理方式 已经不能适应时代的发展，它存在着效率低、性差、 添加和删除碟片信息不方便 等，而且碟片的管理工作量较大， 浪费了太多的人力和物力， 在当今的信息时代 这种传统的人工管理方法必然被计算机为基础的信息管理所取代。1.2 新系统目标 碟片出租系统是一个面向碟片出租者的管理信息系统，该系统的工作

3、目标是 使碟片的出租能有计划地进行，以有利于出租者的管理。本系统实现了以下功能： 影碟管理：包括影片入库、影片预览、旧影片删除以及用户口令的修改； 影碟租借：包括租借影碟、归还影碟以及浏览借出的影片； 影碟查询：包括按片名查询、按日期查询以及按主演查询； 月租管理：包括等级月租用户和查看月租用户；1.3 系统的可行性分析1.3.1 系统开发的必要性碟片管理是所有碟片出租公司所必须的， 可对碟片出租公司来说， 用人力对 任何资料进行管理和处理是一项耗时、 耗力且不准确的。 选择碟片出租管理系统 的开发， 可以帮助管理人员提高碟片出租的管理制度， 也减轻了工作人员的工作 量。使管理制度更加严密，

4、大大提高了碟片和客户的有关信息的可靠性。 本次开 发的目的是利用计算机完全代替手工，完成关于碟片出租的所有操作。所以， 碟 片出租管理信息系统是必要的。1.3.2 经济可行性 开发碟片管理信息系统只需要我们付出人力资本即可，设备费、材料费用和 运行费用均不涉及，而且人力资本也可以不计。 建立碟片出租管理系统之后， 可 以减轻营业员的工作量，同时也能方便管理者对于碟片出租信息的了解。1.3.3 技术可行性本系统采用delphi和SQLSERVE相结合的万法来实现。要求所有数据信息 的储存都由数据库来完成，而这些数据信息的调用由delphi完成。系统采用Client/Server （客户/服务器）

5、模式，与传统主机终端模式和文件服务器相比，既能够降低对服务器要求过高的要求，又能大大减少网络通信量，而且在结构上也具有很大的灵活性，在安全上也可以得到充分地保证。所以本系统在技术上是完全可行的。二、碟片出租管理信息系统分析2.1业务流程分析碟片出租管理信息系统登查 询 碟 片 信 息现 金 收 支 记 录查 询 碟 片 信 息查 询 出 租 日查 询 碟 片 信 息会员信息管理碟片出租业务流程碟片出租主要以会员出租为主，流程如下：1、顾客到店里登记注册为会员，并缴纳会费，即可租借碟片。2、租借过程：查询库存，若没有，立即告知会员下次再来；若有，则进入出 租处理阶段。3、出租处理阶段：由计算机自

6、动完成，分为三项工作。先将“碟片资料”表中此碟片的状态由“在库”改为“借出”，更改其“租借次数”字段的值 增加1;修改“会员资料”表对应会员的“已租借数量”字段增加1；添加一条租借记录。4、碟片交付给会员。散客租借的流程与会员租借类似，没有上面的第1步。碟片归还业务流程现以会员归还碟片为例说明，散客归还情况类似。归还业务流程：1、会员持碟片到店归还。2、店员检查碟片是否损坏，若是，则告诉会员，需要扣留一部分押金，并作 记录，进入归还登记阶段；若没损坏，直接进入归还登记阶段。3、归还登记阶段：由计算机自动完成，共有两项工作。修改碟片资料中此碟 片的状态为“在库”，在租借记录表上相对应的条口的“归

7、还日期”字段 填写上当前日期。2.2数据流程分析图是会员租借碟片的数据流程图，图 是归还碟片数据流程图信入会登记注册添加处理i反 馈查询1碟片资料库和修 租改 借碟 次片 数状L态ir十会员出租处理碟片交付租借记录表修改会员资料图2.2.1会员租借碟片的数据流程图碟片资料库2.4数据字典数据项卡片（1）数据项名：碟片编号别名：碟片简述：碟片的唯一标识类型及宽度：整型，4位（2）数据项名：租借者编号别名：租碟者简述：租借人员的唯一标识类型及宽度：整型，4位（3）数据项名：碟片名称别名：碟片名字简述：整个字符串组成碟片名称类型及宽度：变长字符型，20位（4）数据项名：租借者别名：租碟的人都名字简述

8、：前面一位或两位为姓，后面为名类型及宽度：变长字符型，20位（5）数据项名：租借日期别名：出租时间简述：租借的时间类型及宽度：时间数据类型，8位（6）数据项名：押金别名：担保金 简述：顾客预存的现金，以防止碟片的人为损坏 类型及宽度：货币数据类型， 8 位（7）数据项名：租金别名：租碟费用 简述：顾客租碟所付的费用 类型及宽度：货币数据类型。 8 位（8）数据项名：剩余数量别名：剩余量 简述：碟片的剩余库存量 类型及宽度：整型， 4 位（9）数据项名：会员编号别名：会员 简述：会员的唯一标识 类型及宽度：整型， 4 位（10）数据项名：会员别名：会员名字 简述：会员的名字 类型及宽度：变长字符

9、型， 20 位（11）数据项名：碟片类型别名：碟片样式 简述：可根据此来分辨碟片的类型 类型及宽度：变长字符型， 10 位2.4.2 数据流卡片（1）数据流名：系统设置 简述：据管理员输入的信息要求修改密码并将修改后的密码保存进系统 数据流来源：管理员输入数据流去向：存入系统 数据流组成：组成密码的字符（2）数据流名：查询碟片信息 简述：从系统中查询出碟片的各种信息，并反馈给顾客 数据流来源：查询得出的结果 数据流去向：反馈给顾客 数据流组成：查询出的符合顾客要求的碟片的信息（3）数据流名：出租碟片给顾客 简述：记录出租碟片给顾客的过程 数据流来源：碟片查询子系统查得信息 数据流去向：碟片出租

10、总系统 数据流组成：碟片出租的租金、押金和租借日期等（4）数据流名：顾客归还碟片 简述：消除碟片出租子系统中相关的租借记录 数据流来源：管理员输入相关信息 数据流去向：碟片归还子系统 数据流组成：碟片名称，归还日期等（5）数据流名：库存管理 简述：存储商店库存中碟片的各种详细信息 数据流来源：管理员输入相关信息 数据流去向：库存管理子系统 数据流组成：碟片信息，碟片状态等（6）数据流名：资金结算 简述：用于结算租金，归还押金等 数据流来源：顾客租借行为 数据流去向：资金结算子系统 数据流组成：租金，押金（7）数据流名：会员管理 简述：管理会员信息，查询会员租借状态等 数据流来源：管理员输入相关

11、信息 数据流去向：会员管理子系统 数据流组成：会员信息，租借状态等2.4.3 数据结构卡片（1）数据结构名：碟片 简述：碟片查询系统的主题数据结构，解释了一盘影碟的详细信息 组成：碟片编号，碟片名称，主演，导演，进货时间（2）数据结构名：租借者 简述：碟片出租系统的数据结构，记录了顾客的详细信息 组成：顾客编号，顾客，性别，联系（3）数据结构名：租借管理 简述：碟片出租系统的主题数据结构，记录了顾客租碟过程的详细信息 组成：DVD编号，租借者编号，租借日期，归还日期，押金，租金（ 4）数据结构名：碟片库存 简述：碟片库存系统的主题数据结构，记录了商店碟片的库存信息 组成：碟片编号，碟片名称（

12、5）数据结构名：会员 简述：会员管理系统的主题数据结构，记录了会员的详细信息 组成：会员编号，会员，会员类型，联系，性别，联系地址2.4.4 数据存储卡片（ 1）数据存储名：碟片信息表 简述：记录碟片的详细信息 组成：DVD标号，DVD名称，主演，导演，进货日期 有关的数据流：管理员输入信息，查询后显示的结果 数据量：每天一份（2）数据存储名：租借者信息表 简述：记录租借者的相关信息组成：租借者。性别。联系 有关的数据流：管理员输入信息，输入信息完成后的结果 数据量：每天一份（ 3）数据存储名：租借管理表 简述：记录租借者的相关信息 组成：DVD编号，租借日期，归还日期，租金，押金 数据量：每

13、天一份（ 4）数据存储名：碟片库存表 简述：记录商店的碟片库存信息 组成：DVD编号，DVD名称，数量 数据量：每天一份（ 5）数据存储名：会员信息表 简述：保持会员的各种信息 组成：会员编号，会员名字，会员类型，联系，性别，地址 数据量：每天一份2.4.5 处理逻辑卡片（ 1）处理过程名：系统设置 输入数据流：输入信息 输出数据流：修改后的信息处理过程逻辑：根据用户自己想法修改（2）处理过程名：查询碟片信息输入数据流：根据顾客要求输入查询关键字输出数据流：得到查询结果处理过程逻辑：根据顾客要求查询的碟片查询（3）处理过程名：出租碟片给顾客输入数据流：查询碟片信息后的结果输出数据流：出租碟片处

14、理过程逻辑：根据系统数据库要求录入信息（4）处理过程名：碟片归还输入数据流：已出租碟片的信息输出数据流：碟片库存子系统的信息处理过程逻辑：根据顾客归还的碟片输入信息三、碟片出租管理信息系统设计3.1系统总体结构分析碟片出租系统，从总体结构上包括七个部分：登录、碟片出租归还、用户管 理、碟片管理、用户碟片统计、出租碟片统计、帮助如下图所示。主系统图3.1.1系统总体结构图3.2数据库设计321概念模型设计E-R 图:图 E-R图数据库逻辑结构设计对以上的E-R图所需的实体西药的几个关键表的设计如下: 表名：一般用户字段名编号办理时间经办人类型:整型时间字符型长度4810约束主键表

15、名：会员客户字段名编号名字证件号密码办理时间经办人剩余碟数类型整型字符型字符型字符型时间字符型整型长度41010108104约束主键表名：会员资金记录表字段名编号收入办理时间经办人类型整型money时间:字符型长度48810约束:主键表名：借还过程表字段名类型长度约束自动编号字符型10主键碟片号字符型10客户号字符型10租借时间时间8归还时间时间8租碟操作员字符型10还碟操作员字符型10会员验证整型4：0/1备注字符型20表名：操作员管理表字段名编号性别身份密码工作时间类型:整型字符型字符型字符型:字符型时间长度41024108约束主键表名：碟片管理表字段名类型长度约束编号整型4名称字符型10

16、类别字符型10国家字符型10主演字符型10表名资金记录表字段名类型长度约束编号字符型10主键:客户号字符型10押金money8碟片号字符型10余额money8操作字符型2交易时间时间8操作员号字符型10收入Money8支出money8备注字符型10323关系描述设计从理论“ E-R模型”到理论“关系模型”的整理转换。 通过E-R模型到关系模型的转化，可以得到如下关系模式：操作员（操作员编号，性别，密码，工作时间）一般顾客（编号，经办人，经办时间）会员（会员编号,，证件号，密码，剩余碟数，经办人，经办时间） 碟片信息表（碟片编号，名称，类型，国家，主演，单价，库存，购入时间，经办人）资金记录表（

17、自动编号，客户编号，碟片编号，交易时间，操作员编号， 操作，支出，收入，余额，备注）会员资金记录表（会员编号，收入，经办时间，经办人）借还过程表（自动编号，碟片编号，客户编号，租借时间，归还时间，租 碟操作员，还碟操作员，会员验证，备注）3.3功能层次分析331系统的具体功能本系统实现了以下的功能：（1）管理者（店长）模块：查询碟片的信息；查询相关的财务信息； 会员的管理。（2）营业员（操作员）模块：查询碟片信息；进行碟片的出租；进行 碟片的归还；现金的收支记录；会员的管理。（3）顾客模块：一般的顾客只能进行碟片信息的查询，会员可以查询 碟片信息；查询自己的碟片出租日志。系统功能模块图店长（管

18、理者）所涉及到的相关活动如下图所示:店长在这里参与的活动主要是查询日常的碟片出租情况和财务状况以便了解该 店的经营状况，作出相应的决策。 还有就是对会员的管理，店长对会员的管理主 要是了解会员的数量等查询工作并有权注消有问题的会员；而对员工的管理只是了解不同员工的上班时间和他的相关的业绩。营业员的活动图如下:由于营业员是本系统的主要的使用者所以其涉及的活动较多。碟片管理是指对碟片信息的录入、更新、修改和删除。查询碟片信息是在出租碟片时进行的，以了 解是否有该碟片和库存等信息。碟片的出租和归还是指在碟片的出租和归还时进 行信息的记录。现金收支是指对进出帐目的记录统计等。顾客的活动图如下:顾客分为

19、一般顾客和会员，他们都能对碟片信息进行查询以便其出租，而会员还 可以查询他自己的出租日志，了解其已租的碟数、信息和未租碟数。3.4输入输出设计341输入设计目标：提高效率，和减少错误 输入方式：米用键盘输入的方式输入格式：根据容采用规定好的格式，如年月日等校对方式： 系统中有相应的程序设计，如果有不适当的信息输入， 将会有 对应当信息框进行提示一阻止不适当的信息输入3.4.2 输出设计输出设方式：采用报表输出的方式报表输出的是查询结果、统计信息等可以应用 TXT格式输出的容。3.5 物理配置方案设计开发环境：CPU ： Intel Pentium4 2GHz存：512MB操作系统： Micro

20、soft Windows Server 2000 + IIS5数据库在 Microsoft SQL Server 2000中文企业版推荐用户配置：CPU ： Intel Pentium3 1.2GHz 或更高存：256MB或更高操作系统： Microsoft 2000 Server或更高数据库系统： Microsoft SQL Server 2000四 协会经费管理系统实施4.1 系统开发环境系统开发工具 DELPHI7.0Delphi作为一种可视化的编程环境，提供了方便、简介的 Windows应用程序 开发工具。Delphi 使用了 Microsoft Windows 图形用户界面的许多先进

21、特性和设计思 想，采用了可重复利用的完整的面向对象的程序语言，是当今最快的编辑器， 拥 有领先的数据库技术。4.2 模块功能实现4.2.1 创建数据库并建立数据库别名选择“开始” | “程序” |Borland Delphi 7|BDE Administrator, 即可打开 下图所示的BDE管理器。图 4.2.1 是协会经费管理信息系统 BDE Adminstrator 截图图421 :协会经费管理信息系统 BDE Adminstrator截图422应用SQLServer数据库管理系统创建数据库和表。在D盘新建一个文件夹，名为“ custom”。打开“企业管理器”，并将“控制台根目录”里面的

22、各级子目录一一点开 一右 键点“数据库” 一给数据库命名为“ custom”，点“数据文件”页面，点“位置”， 将“ custom_Data”文件存入D盘我们刚建的“ custom”文件夹；同样点“事务 日志”，将“custom_Log”存入D盘我们刚建的“ custom”文件夹，并点“确定”。 如此就建立了一个参数为缺省值的新数据库一右键点” custom”数据库，然后点“新建”选项，然后点“表”，如此可在数据库YGG中建立了一个表，并设计表 的结构、连接SQLServer数据库中的表。1 创建一个新项目。2.设计窗体。在ADO组件面板上放置一个 TADOConnection和TADOQue

23、r组件；在Data Access组件面板上放置一个 TDataSource组件；在 Data Controls 组件面板上 放置一个 TDBGrid TDBNavigator 组件。.J Fpr>l_ T" |x 设置ADOConnection1组件属性。该组件专门用于连接数据库。点“ ConnectionString ”属性“ Build ”“ Microsoft OLEDBprovider forSQLServer ” “下一步”选“使用 WindowsNT集成安全设置”在服务器上 选择数据库“ yggl“测试连接”“确定” “OK 点ADOConnection1组件“ C

24、o nn ected”属性，设置为“true ”。(3) 设置ADOQuery组件属性。该组件用于通过数据库连接将数据库中符合需 要的数据选出，形成一个数据集合。点“ connecttion ” 属性设置为“ ADOConnection1'；点“ SQL 属性，写 下“ select * from employees ”语句。点“ Active ”属性为“ true ”。(4) 设置DataSourcel组件属性。该组件从数据集合中选出需要的数据显示在 DBGrid 窗口中。点“ DataSet ”属性选“ ADOQueryl。(5) 设置DBGridl组件属性。该组件用于显示数据。点

25、“ DataSource”属性，设置为“ DataSourcel ”。(6) 设置“TDBNavigatorl ”组件属性。该组件用于对数据集合中的数据(DBGrid 窗口显示的数据)进行浏览、修改、增加和删除等操作。点“ DataSource”属性，设置为“ DataSourcel ”。(7) 设计好的界面如 图421所示根据上图的做法，依次创建顾客管理表、碟片借还表、碟片管理表，分别 如图 423.图 424，图 425mu：S.：-T"卜1T l-kl"卜IMa4ua1.4Hhl 4E .1BIJliJa - J 编号姓名证件号密码办理时间0237367玉箫74494

26、4173E32007-3-3455陈一23444442002-9-835566献怡欣5?992345776200 託-23-56703王雨34578892004 吁 4<1ira r图423数据库、顾客管理表的创建截图数据库、碟片借还的创建截图餉号若称国家主窩炎别|A23B眼来了美国态兗动作245冲国谢卿搞笑3343无彬爱情754844妻孑的谜惡蘇国金秀崑V425数据库、碟片管理表的创建截图窗体1. 创建工程 DBDEMOS.dpr2. 登陆窗体图422登录窗体确定beg inwith q_yhgl dobeg inclose;/关闭yhgl数据集sql.Clear;/消除sql.add

27、('select * from yhgl where用户名=：a and 密码=:b');parambyname('a').asstring:=trim(edit1.text); /在 edit1 中输入用户名parambyname('b').asstring:=trim(edit2.text); /在 edit2 中输入密码ope n;/打开end;if q_yhgl.RecordCo un t>0 the nmai nform.show/如果用户名和密码输入都正确则显示主窗体elseshowmessage('用户名或密码错误，请

28、再输入)；/如果用户名或密码输入错误误则出现提示框提醒用户输入错误end;(2)取消Close;/取消操作图423主窗体i i！iilMirMii BirHiaiBiiraiB iiiaiair ii ! >i r i'iniiL i fa J L -.-.-I: i r h r a !- r w i ！!',",”2! i i L i b J i. J :s. . s 4i. iLuiaiiiJi. j:k j. .:a . aiL4i. s ,:. j . a : b J li a i甜；囲：駅;:;帕:; ：:;.tt"&»|S

29、ITftWMr/MW屍工g鬧2001； 12-1I577«7员工&82001-8754221昂工55&772008 5 9MGEI170U4-6-3性翳HABdladlBillidlK.IBi Alal h S IGalladBB Ihd/：；：|m图424员工管理图425 碟片借还记录查询代码如下：按归还时间查询with cuzudiepia n dobeg inclose;/sql.clear;/sql.add('select * from srgl where关闭srgl数据集 消除类型=:a');parambyname('a')

30、.asstring:=combobox1.text;/在表中显示comboboxl中所显示类型的全部列的数据open;/打开4.3 代码设计1.进入 Employees In foFrom 窗体的“ On Create ”事件代码： procedure TEmployeesInfoFopm.FormCreate(Sender: TObject); beginbutton5.Enabled:=false; /将保存按钮屏蔽with ADOQuery1 do / 将数据库表中数据取出，在存中形成数据集合beginclose;sql.Clear;sql.Add('Select * From

31、Employees'); open;end;如果取出了数据将ComboBox组件下拉框清空当数据集合中的数据未到最后一条if ADOQuery1.RecordCount>0 then / beginCombobox1.Clear;/while not adoquery1.Eof do /时将每条数据的项（员工编号）加入/ 到复合框中，移到下一条数据begin combobox1.Items.Add(ADOQuery1.Fields0.value); /第一ADOQuery1.Next;/end;end;/end;2. ComboBox的勺“KeyPress”事件代码：proced

32、ure TEmployeesInfoFopm.ComboBox1KeyPress(Sender: TObject;/ 保证往复var Key: Char;/合框中输入正确的字符varl:boolean;l:=(key<#8)or(key>#8)and(key<=#45)or(key>=#46)and(key<=#48)or(key>#57 );if l then key:=#0;end;/ 查询按钮3“查询”按钮代码： procedure TEmployeesInfoFopm.Button1Click(Sender: TObject);将对应的按钮屏蔽beg

33、inButton3.Enabled:=true; /Button4.Enabled:=true;Button5.Enabled:=false;with ADOQuery1 do / 将数据库表中数据取出，在存中形成数据集合 beginclose;sql.Clear;sql.Add('select * from employees where employeeid=:a');/ 把员工编号为动态参数 a 的数据从表中取出parameters.ParamByName('a').Value:=combobox1.Text;/ 给动态参数 a 赋值open; /执行SQ

34、L语句end;edit1.Text:=adoquery1.fieldbyname('name').AsString;/ 将表中一条数据的各属性赋值为各编辑框edit2.Text:=adoquery1.fieldbyname('sex').AsString;edit3.Text:=adoquery1.fieldbyname('statue').AsString;edit4.Text:=adoquery1.fieldbyname('code').AsString;edit5.Text:=adoquery1.fieldbyname(&#

35、39;test').AsString;end;4“添加”按钮代码：procedure TEmployeesInfoFopm.Button2Click(Sender: TObject);beginButton3.Enabled:=false; / 屏蔽各按钮Button4.Enabled:=false;Button5.Enabled:=true;Combobox1.Text:='' / 将各控件清空edit1.Text:=''edit2.Text:=''edit3.Text:=''edit4.Text:=''

36、edit5.Text:=''end;5“保存”按钮代码：/ 添加按钮/ 保存按钮procedure TEmployeesInfoFopm.Button5Click(Sender: TObject);if messagedlg(' 你 要 保 存 新 添 加 的 员 工 信 息 ？ ',mtconfirmation,mbyes,mbno,0)=mryes then / 对话框beginif (combobox1.Text='')or(length(combobox1.Text)<>6) then/ 如果输入的字符 / 为空或超过 6 位

37、则重新输入showmessage(' 请输入六位编号 ')elsebegintrywith adoquery1 dobeginclose;sql.Clear;sql.Add('Insert into employees values(:a,:b,:c,:d,:e,:f,)');/ 调用 Insert 语句往表中插入数据parameters.ParamByName('a').Value:=trim(combobox1.Text);/ 给各动态参数赋值parameters.ParamByName('b').Value:=trim(ed

38、it1.Text);parameters.ParamByName('c').Value:=strtodate(trim(edit2.Text);parameters.ParamByName('d').Value:=trim(edit3.Text);parameters.ParamByName('e').Value:=trim(edit4.Text);parameters.ParamByName('f').Value:=trim(edit5.Text);end;使按钮可用保存成功!','提示：MB_OK);/ 如果上

39、述代码出现故障则给出提示保存出错!','提示',MB_OK);Button3.Enabled:=true; /Button4.Enabled:=true;application.MessageBox('Button5.Enabled:=false;exceptapplication.MessageBox('end;end;end;end;6“修改”按钮的代码：procedure TEmployeesInfoFopm.Button3Click(Sender: TObject); / 修改按钮 beginif application.MessageBox(&

40、#39; 要 修 改 员 工 信 息 吗 ？ ',' 提 示 ',mb_yesno)=id_yes thenshowmessage(' 请输入六位编号 ')elsetryadoconnection1.BeginTrans;/ 开始一个事务，事务时数据库技术的一个概念，表示连续一段过程with adoquery1 dobeginclose;sql.Clear; /嵌入 Update 语句对表中数据进行修改setwheresql.Add('update employeesname=:b,birthday=:c,sex=:d,address=:e,zip=:f,');sql.Add('phonenumber=:g,email=:h,departmentid=:i employeeid=:a');parameters.ParamByName('a').Value:=trim(combobox1.Text);/ 给各动态参数赋值parameters.ParamByName('b').Value:=trim(edit1.Text);parameters.ParamByName('c').Value:=strtodate(trim(edit2.Text);param