利用 Delphi 实现两层 C/S 数据库应用程序设计简介 利用 Delphi 实现两层 C/S 数据库应用程序
设计 关键词 Delphi C/S 数据库结构模式 数据库管理 MS-SQL server 引言 Delphi 具有非常强大的数据库管理功能, 能适应多种数据库结构, 从桌面数据库到 客户机/服务器模式再到多层数据库结构模式,都能胜任。本文以数据库服务端软件 Microsoft SQL Server 2000 及客户端开发
软件 Delphi 6.0 为例,简要介绍开发两层 C/S 结构 数据库应用程序的一般步骤、方法和部分实例。 一、应用程序开发环境 客户/服务器(C/S)结构包括连接在一个网络中的多台计算机。请求另一台计算机为之服务 的
计算机称为客户机(Client)。而处理数据库的计算机称为服务器(Server)。下面是本文使 用的开发环境。 1、服务端网络数据库系统 目前,在开发 C/S 数据库应用程序时,可以在服务器端使用的数据库管理系统有:ORACLE 公司的 ORACLE 数据库,Sybase 公司的 Sybase 数据库,DB2 服务端
网络数据库,微软公 司的 Microsoft SQL Server 等等。本文使用的是 Microsoft SQL Server 2000,安装后可以很方 便地使用 SQL Server 服务器管理工具启动后台数据库服务程序, 为客户端提供数据库服务。 2、客户端数据源的配置 C/S 数据库应用程序的客户端必须能与服务端的数据库
管理系统进行网络
通信。 本文的客户 端使用的是 ODBC for SQL Server 驱动程序及 TCP/IP 协议与服务端进行连接。在 ODBC 管 理器中的
系统 DSN 中增加两个驱动为 SQL Server 的数据源连接,名称为 MSSQL1 和 MSSQL2,分别连接 Microsoft SQL Server 2000 中的例行数据库 pubs 和 Northwind。ODBC 配置完成后,打开 BDE Administrator 便可看到,在 BDE Administrator 已经自动创建了别名 为 MSSQL1 和 MSSQL2 的数据库。 二、创建客户端数据库应用
程序 SQL 语言作为关系数据库管理系统中的一种通用的结构化查询语言,已被众多的数据库管 理系统采用,Delphi 通过 TQuery, TStoredProc, UpdateSQL, TDatabase, TSession 等组件支持 SQL Server 数据库编程。下面介绍通过
Delphi 的相关组件开发客户端应用程序的一般步骤 和方法。 1、建立与数据库的连接 Delphi 使用 Tdatabase 控件控制程序与数据库的连接, 并使用 Tsession 控件对所有 Tdatabase 控件进行全局控制,当创建数据库应用程序时,应用程序会自动创建一个默认的 BDE 会话 期对象 Session,新加入的 TDatabase 对象会默认地处于 Session 管理之下 。 在窗体上放四个命令按钮:FirstOpen, FirstClose, SecondOpen 和 SecondClose,放两个 TDatabase 组件 Database1 和 Database2,其相关代码如下: procedure TForm1.FirstOpenClick(Sender: TObject); begin database1:=session.OpenDatabase(’MSSQL1’); end; procedure TForm1.SecondO
penClick(Sender: TObject); begin
database2:=session.OpenDatabase(’MSSQL2’); end; procedure TForm1.FirstCloseClick(Sender: TObject); var db:TDatabase; begin db:=session.FindDatabase(’MSSQL1’); //查找是否有以 MSSQL1 为别名的 database 对 象 IF (DB<>NIL) THEN db.Close; end; procedure TForm1.SecondCloseClick(Sender: TObject); var db:TDatabase; begin db:=session.FindDatabase(’MSSQL2); IF (DB<>NIL) THEN db.Close; end; Session 调用 Opendatabase 方法打开与别名为 MSSQL1 的数据库的连接 (连接的是 Microsoft SQL Server 中的数据库 pubs)并返回 database 对象给 database1,打开别名为 MSSQL2(连 接 Microsoft SQL Server 中的数据库 Northwind)并返回 database 对象给 database2,用 FindDatabase 方法找到别名为 MSSQL1 和 MSSQL2 的数据库,返回给临时数据库对象 db, 并使用 TDatabase 组件的 Close 方法关闭数据库连接。
2、在程序中操纵数据库 (1)建立查询并使其结果集可编辑 当