SET QUOTED_IDENTIFIER ON GO
SET ANSI_NULLS ON GO
CREATE VIEW dbo.会员资金流量 AS
SELECT 编号, 收入, 办理时间, 经办人 FROM dbo.会员资金记录表 GO
SET QUOTED_IDENTIFIER OFF GO
SET ANSI_NULLS ON GO
SET QUOTED_IDENTIFIER ON GO
SET ANSI_NULLS ON GO
CREATE PROCEDURE [insert_资金记录表_1] (@编号_1 [char](10), @编号_2 [char](10), @压金_4 [money], @收入_5 [money], @支出_6 [money], @余额_7 [money], @借或还_8 [char](10), @日期_9 [datetime], @备注_11 [char](10))
AS INSERT INTO [碟片出租系统].[dbo].[资金记录表] (客户号,碟片编号,操作员号)
select 客户号,碟片号,租碟操作员 from 借还过程表
where 自动编号=@编号_2 insert into 资金记录表 ( [编号], [压金], [收入], [支出], [余额], [借或还],
[日期], [备注])
VALUES ( @编号_1, @压金_4, @收入_5, @支出_6, @余额_7, @借或还_8, getdate(), @备注_11) GO
SET QUOTED_IDENTIFIER OFF GO
SET ANSI_NULLS ON GO
SET QUOTED_IDENTIFIER ON GO
SET ANSI_NULLS ON GO
CREATE PROCEDURE [update_会员用户_1] (@编号_1 [int])
AS UPDATE [碟片出租系统].[dbo].[会员用户]
SET [剩余碟数]= [剩余碟数]-1
WHERE ( [编号] = @编号_1) GO
SET QUOTED_IDENTIFIER OFF GO
SET ANSI_NULLS ON GO
SET QUOTED_IDENTIFIER ON GO
SET ANSI_NULLS ON GO
CREATE TRIGGER [dp_zj] ON [dbo].[借还过程表]
FOR INSERT,update As
declare @pd datetime select @pd=归还时间 from 借还过程表 if (@pd=null) begin
update 碟片管理表 set 库存数量=库存数量-1 end else
update 碟片管理表
set 库存数量=库存数量+1 GO
SET QUOTED_IDENTIFIER OFF GO
SET ANSI_NULLS ON GO
在前台，我们选择了Insprise Delphi 7.0 企业版作为前台开发工具。Delphi支持市面上绝大多数的关系数据库。并且，作为一款优秀的RAD开发工具，其集成的大量数据库连接、控制的控件，可以使得开发难度低，开发周期缩短。
部分前台开发的功能模块截图说明如下：
四、前台开发
图1：登陆界面
图2会员管理界面：
图3：操作员管理界面
图4：碟片查询界面
图5：碟片出租界面
图6：流水账查询界面
五、开发心得
通过这个系统的开发，让我本人初步的了解到了做一个小项目的全过程。让我们经历了从系统规划、分析、设计到后台数据库的搭建和前台开发的一个相对较为完整的过程。在此过程中我们遇到了许多实际的问题在课堂讲的教材上是找不到的。为了解决这些实际的问题我们要实际调查，查询资料等等，在这过程中不仅让我们学到了许多专业知识而且锻炼了我的分析问题、解决问题的能力以及实际的动手能力。并且让我们感受最深的一点是做项目最最重要的是一个团队的团结协作，只有这样才能很好的完成一个工程项目
1．SQL Server 2000 基础教程 清华大学出版社 DUSAN PETKOVIC 著 2．SQL Server 2000 实用教程 人民邮电出版社 黄梯云 编著 3.DELPHI 6.0 数据库开发与专业应用 国防工业出版社 扬锋 编筑 4.程序设计 DELPHI 7.0 中国铁道出版社 魏志强 编著 5．DELPHI 7.0 开发指南 清华大学出版社 施云锋 编著 6.DELPHI 课程设计与系统开发案例 清华大学出版社 伍俊良 编著 7.DELPHI 6.0 数据库系统开发实例导航 人民邮电出版社 陈预龙 编著 8．软件工程 清华大学出版社 王春生 编著
六、参考资料
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库数据库课程设计 碟片出租系统(4)在线全文阅读。
相关推荐：