我用delphi编写一个程序，想在程序中添加从服务器下载word文档到本地的功能

有两种实现方法。
第一种 就是用DELPHI的TCP空间，把服务器的WORD传输到客户端中，通过文件流传输。然后放一个保存控件，触发。
第二种：就是利用SQL存入WORD功能。客户端直接访问这个SQL来下载这个文档

关系数据库体系结构与客户/服务器模式

关系数据库概述

关系数据库被定义为一种特殊的数据库 其中各个文件（称作关系）以平面文件（FlatFiles）或表的形式保持数据 表必须只含有一种记录类型 每个记录具有固定数目的字段 所有字段皆显示命名 表内的字段内容是各不相同的 不允许重复组（repeating groups） 不含有复制记录和预定的记录序列

在构造关系数据库时 必须特别注意关系的内容以及记录的各属性（字段）之间的内在联系

关系数据库上的基本 *** 作有选择 投影 连接和除法 选择建立一个含有与原始关系相同列数的新表 但是行只包括那些满足某些特写标准的原始关系行 投影 *** 作指定将被选择的列 因而形成的表只含有原始表列的一个子集 如果在投影 *** 作删除的列中有两个行不同 那么将只有一个记录被转入新的关系 连接 *** 作从两个或多个表中组合信息 两个表中的公用字段用作组合记录的基础字段 在公用字段中具有相等值的记录被连接在结果关系内

关系数据库实现的任务

实现关系数据库所涉及的任务分为三组

● 为DBMS定义数据库结构的任务

● 将数据库分配给物理存储介质的任务

● 建立数据库数据的任务

执行这些任务的方法取决于所采用的DBMS产品

各种不同的DBMS产品提供定义数据库结构的实用程序 这些实用程序使用一种专用的数据定义语言（DDL） 某些DBMS产品含有一些规定 一旦数据库已被定义到DBMS 即将该数据库分配到物理介质 根据应用程序处理的特点 数据可以定位在指定表上或定位在同一磁盘上 它有些DBMS产品偏重于数据库数据的建立

如上所述 数据库定义 存储分配以及数据建立过程都将取决于应用需求和所选择的特定DBMS产品的特征

关系数据 *** 作

为了开发数据库应用 需要使用一种语言来表达处理逻辑 关系数据 *** 作语言共有四类

● 关系代数 它是一种语言 提供一组远算符处理关系数据库中的关系

● 关系演算 它是一种语言 在该语言中用户指定一组来自关系数据库内数据 *** 作的结果

● 面向变换的语言 它们构成一类非过程语言 这类语言将表示为关系的输入数据变换成表示为单个关系的结果 SQL就是一种面向变换的语言

● 面向图形的系统 它们为用户提供一个关系结构的图形 如Borland的Paradox 和IBM公司的QBE（Query By Example）

用户可以采用多种方法与关系数据库进行联系

● 某些DBMS产品 包括有生成表格的工具并提供表格和报告的处理

● 通过查询语言提供一个接口 它们执行查询和更新功能 最重要的查询语言是SQL

● 与关系数据库联系的第三种方法是通过应用程序

扩展关系系统

众多的销售商都在积极扩展关系模型 这些扩展包括在关系表中存储复杂数据类型 存储过程 触发器以及二进制大对象（BLOB） 目前正在SQL 标准中考虑的SQL扩展将包括对对象的进一步支持 还有可能包括对用户定义数据类型及嵌套表的支持 向关系模型提供对象扩展的产品包括Sybase Informix Oracle和Borland

SQL:集成客户/服务器体系结构的基本链路

SQL为前面讨论的集成客户/服务器体系结构提供一条基本链路 目前美国国家标准局（ANSI）已认可SQL作为 *** 作数据库的正式工业标准 它是许多数据库管理系统（DBMS）产品都采用的数据存取语言

SQL允许用户在关系表数据上进行查询 建立新表 存取现有的远程表 *** 作数据 建立应用程序存取SQL数据 运行SQL语句 处理错误以及访问多个服务器 SQL数据库服务器是多用户关系数据库管理系统（DBMS）

SQL可以作为一个查询语言用于交互式使用或嵌入在应用程序中 在执行查询时 SQL接受一个或多个关系作为输入并产生一个关系作为输出 结果是一个表或平面文件 例如 一批不含有重复组的同一类型记录 在查询多个表时 SQL将这些表连接起来 SQL内还含有一些规定 用来向表中插入新数据 从表中删除数据或修改表中的数据

各种数据库服务器功能介绍

服务器数据管理包括若干软件 它们使用户可以访问网络中的任何节点以及确保多用户环境下的保密性 可恢复性和完整性 如前面所提到的 客户/服务器计算中的基本存取链路是SQL 它是一种高级非过程数据库语言 现在已开发出很多支持SQL 的后端服务器及DBMS 下面将描述这些产品

DB

DB 是一种由IBM公司开发的RDBMS 它使用SQL执行所有的数据库 *** 作 数据定义 数据存取 数据 *** 作以及授权功能 SQL语句由用户在一个客户机节点从键盘输入或嵌套在应用程序中

DB 的结构包括表 视图 表空间 索引 索引空间 数据库和存储组 这种RDBMS提供有允许用户动态建立和修改这些结构的工具 DB 还包括一些并行处理软件 以控制和限制干预 后备和恢复功能以及安全性保证等

并行处理通过锁来完成 当应用程序读数据库数据时 DB 在该数据上获取一个共享锁 允许其他应用程序读这个相同的数据 如果一个应用程序需要修改数据 那么DB 将一个互斥型锁放在该数据上 以阻止其它应用程序访问这个数据 DB 还提供一些关于锁的级别或锁的大小的任选项

DB 周期性地存储并检查所有数据库变化 所有驻留在系统缓冲区中的变化被写到数据库 并将一个变化的记录载入日志 以最近一次写到日志的变化起所建立的全部映像可用于完成系统故障的恢复 DB 包括一些用来从备份拷贝重新建立数据库的实用程序 这种实用程序含有一个选择项 允许用户只拷贝表空间中那些自最后一个备份后新被修改的页面

DB 还含有一些用来保护数据库的安全性规定

Borland对象成分体系结构（BOCA）

BOCA建立了一个既考虑开发工具又考虑数据库管理工具的客户/服务器体系结构 它将一级面向对象的工具 中间件和数据库服务器技术集中在一起提供客户/服务器的解决方案 该体系结构的组成部分有

先进的面向对象工具

Borland建立有广泛基础和紧密集成的面向对象的工具 这些工具充分利用了当前客户/ 服务器变革的优点 使用面向对象的方法学 建立了如下产品 Borland C++ Borland Delphi Paradox QuattroPro Visual dBase以及ObjectVision等

IDAPI

IDAPI（集成数据库应用程序设计接口）是Borland公司的SQL连通性解决方法 IDAPI使得开发人员能够以更高的效率建立数据库应用 允许用户在多种硬件和 *** 作系统平台以及网络环境下访问 以多种数据库格式存储的数据

InterBase

InterBase是一种分布式SQL数据库服务器 它支持每个数据库系统查询数据并将信息返回到其它任何一个InterBase服务器 InterBase 的可变体系结构代表了关系系统技术的第三次浪潮 可变引擎使得InterBase可以以最少的锁支持高效事务处理和决策支持事务处理

Borland公司的面向对象技术使得开发人员可以通过构造模块化的应用成分来建立复杂客户/服务器系统 这些模块化应用成分可以很容易地开发 测试 维护和增强 并可方便地装配到复杂的应用程序包中 此外Borland公司的可视化技术极大地提高了软件生产率

Informix SQL服务器系列

Informix公司推出了多种产品来满足特定的客户/服务器需求 它们包括Informix On Line Informix TP/XA Informix Star Informix On Line/Optical和Informix On Line工作站版

Informix On Line是一个联机事务处理（OLTP）数据库服务器 具有可用性 数据完整性以及多媒体数据管理能力 它建立有效的数据存储方法进行快速数据存取 缓冲数据于内存最低限度地使用磁盘存取 利用多处理器特征 允许不同处理器同时存取 以及自动确定是有效的搜索策略等 从而获得极高的性能

Informix TP/XA将On Line连接到事务处理管理程序 支持那些涉及多个数据库以及多个DBMS（由不同的销售商提供）的事务处理 在众多RDBMS中 Informix 第一个向依从于X/Open XA的事务处理管理程序提供了这种基于标准的接口

Informix STAR是一种用于On Line的分布式客户/服务器数据库产品 它提供最佳的性能 并且具有最小的网络通信量 站点透明性以及在不同站点 *** 作数据库的高度可靠性

Informix On Line/Optical是一种针对On Line用户的附加产品 这些用户想在他们的数据库系统上使用具有大容量存储能力的光学设备 On_Line/Optical允许用户在 写一次读多次 （WORM）的光学子系统上存储BLOB 用户必须拥有On Line/Optical On Line和一个光学子系统 那当然 如果没有这个On Line/Optical产品用户仍可以使用On LIne在磁存储设备上 *** 作BLOB

Informix On Line工作站版是On Line管理员手册的图形化版本 该工作站版具有与硬件版本相同的技术内容 但它是构造在一个窗口化 点一揿式（Point and Click）图形接口 采用关键字交叉查阅 这使得用户可以在某一窗口中存取所需信息的同时 在另一窗口中配置监视或调节On Line

lishixinzhi/Article/program/Delphi/201311/25138

我的是Delphi 6，不知Delphi 7中的netchart示例中用的是什么通信组件？如果是ServerSocket与ClientSocket，则看一看下面的程序：
在Delphi中，用ServerSocket与ClientSocket组件，建立TCP/IP通信非常容易。
1、创建2个应用程序，一个是Server，另一个是Client。
2、Server程序的窗体上放置ServerSocket组件，并设置其port属性（如：设置为5000）,并将Active属性设置为True;
3、Client程序的窗体上放置ClientSocket组件，也设置其port属性，与ServerSocket组件的port属性相同，也设置为5000;设置Adress属性为Server程序所在的机器的IP地址。如果Server程序与Client程序在同一台机器上，则设置Address 为127001 。
再放一个命令按钮，在OnClick事件中添加一行事件处理程序：
ClientSocket1Open;
在OnConnect事件中添加事件处理程序：
procedure TForm1ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1linesadd('已经建立连接');
end;
4、Server端：利用ServerSocket1socketconnections[i]sendtext('')
发送文本。在OnClientRead事件中接收Client端发送来的信息：
procedure TForm1ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1linesadd(socketReceiveText);
end;
5、Client端：利用ClientSocket1SocketSendText('')
发送文本。在OnRead事件中接收Server端发送来的信息：
procedure TForm1ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1linesadd(socketReceiveText);
end;
行了，可以运行了。

CREATE TABLE EMPLOYEE （EMP_NO EMPNO NOT NULL

FIRST_NAME FIRSTNAME NOT NULL

LAST_NAME LASTNAME NOT NULL

PHONE_EXT VARCHAR（ ）

HIRE_DATE DATE DEFAULT NOW NOT NULL

DEPT_NO DEPTNO NOT NULL

JOB_CODE JOBCODE NOT NULL

JOB_GRADE JOBGRADE NOT NULL

JOB_COUNTRY COUNTRYNAME NOT NULL

SALARY SALARY NOT NULL

FULL_NAME PUTED BY （last_name || || first_name）

PRIMARY KEY （EMP_NO））

CHECK语句是给数据库字段取值范围加约束条件 PRIMARY_KEY语句是给表建立关键字索引

如法炮制 就可以定义IBLOCAL中的所有表

IBLOCAL中的表包括

EMPLOYEE CUSTOMER DEPARTMENT EMPLOYEE_PROJECT

PROJECT SALES SALARY_HISCORY

各数据库表中的内容如下

表 EmployeeDemoDB中各数据库表的内容

━━━━━━━━━━━━━━━━━━━━━━━━━━━

数据库表名        表中内容

───────────────────────────

EMPLOYEE 雇员信息

CUSTOMER 客户信息

DEPARTMENT 部门信息

EMPLOYEE_PROJECT 雇员负责的工程

PROJECT 工程信息

SALES 销售信息

SALARY_HISTORY 雇员薪水调整的历史信息

━━━━━━━━━━━━━━━━━━━━━━━━━━━

每个数据库表中都定义了关键字段 关于数据库表中的字段名 类型 大小 这里不再赘述

应用程序分析

TDatabase部件的使用

CSDEMO程序中定义了一个数据库模块部件 TDmEmployee 它是继承于TDataModule TDataModule是在Delphi 中才出现的专门放置数据访问部件（如TDatabase TTable和TQuery等）的框架 其它涉及数据库访问的窗体 只要在uses语句中插入数据库模块所在的库单元 该窗体上的数据库部件就可引用相应的数据库访问部件

在TDmEmployee中定义了一个TDatabase类型的部件──EmployeeDatabase EmployeeDatagase的主要属性及属性值如下

表 EmployeeDatabase部件主要属性的取值

━━━━━━━━━━━━━━━━━━━━━━━

属性        属性值

───────────────────────

AliasName IBLOCAL

DatabaseName EmployeeDemoDB

KeepConnection True

LoginPrompt False

TransIsolation tiReadCommitted

Params USERNAME = SYSDBA

PASSWORD = masterkey

Connected True

━━━━━━━━━━━━━━━━━━━━━━━

AliasName属性所指定的IBLOCAL 必须已经在BDE中配置好 DatabaseName属性指定要使用的数据库名 该数据库名是由应用程序自己定义的 因此不反应到BDE中 该属性值被TTable TQuery等DataSet部件引用 并且出现在DataSet部件的DatabaseName 下拉式列表框中 本例中的 EmployeeDemoDB 被EmployeeTable SalesTable等所有DataSet部件引用

Connected为True表明 应用程序与数据库将保持联接

KeepConnection属性为True 表明多次打开和关闭EmployeeDemoDB数据库中的任意表 应用程序将始终与数据库保持联接 这省却了重复注册的开销

LoginPrompt 属性为False 表明应用程序自动处理与数据库的联接注册 因此 Params属性中定义了注册的用户名和口令

USERNAME = SYSDBA

PASSWORD = masterkey

TransIsolation属性为tiReadCommitted表明 如果存在多个同时事务 则某一事务只允许读由其它事务提交了的数据

程序中EmployeeDatabase的应用还与事务控制等有关 下文中会介绍这方面的内容

不同数据库表的切换

在许多数据库应用中都要在不同数据库表之间相互切换 以响应用户输入条件或系统状态的变化 这时 往往需要特别的处理 例如改变光标形状或隐藏数据改变等 尤其是在客户/服务器应用程序中 因为是用SQL语句访问远程数据库 有时还要在服务器端执行计算任务 所以客户端的数据变化会有一定的间隔 因此应该让用户明白发生了什么 下面是CSDEMO在数据库表切换时的处理办法

procedure TFrmViewDemo ShowTable（ ATable: string ）

begin

Screen Cursor := crHourglass; { 向用户提示当前 *** 作状态 }

VaryingTable DisableControls; { 隐藏数据变化 }

VaryingTable Active := FALSE; { 关闭原来的数据库表 }

VaryingTable TableName := ATable; { 更新数据库表名 }

VaryingTable Open; { 打开数据库表 }

VaryingTable EnableControls; { 显示所作的修改 }

Screen Cursor := crDefault; { 重新设置光标形状 }

end;

crHourglass型光标表明正在执行SQL查询 DisableControls和EnableControls的作用是隐藏和显示数据变化

InterBase触发器（Trigger）的应用

在CSDEMO应用程序中 演示触发器应用的窗体是TFromTriggerDemo;

在该窗体中包含两个TDBGrid对象 DBGrid 显示EmployeeTable中的数据 DBGrid 显示SalaryHistoryTable中的数据 它们的主要属性及属性值如下

表 EmlpoyeeTable部件主要属性的取值

━━━━━━━━━━━━━━━━━━━━━

属 性       属 性 值

─────────────────────

DatabaseName EmployeeDemoDB

IndexFieldName Emp_No

TableName EMPLOYEE

━━━━━━━━━━━━━━━━━━━━━

表 SalaryHistoryTable部件主要属性的取值

━━━━━━━━━━━━━━━━━━━━━

属 性       属 性 表

─────────────────────

DatabaseName EmployeeDemoDB

IndexFieldName Emp_No

MasterFields Emp_No

MasterSource EmployeeSource

TableName SALARY_HISTORY

━━━━━━━━━━━━━━━━━━━━━

这两个表之间存在两种关系

● 连接关系

EmployeeTable的记录变化时 SalaryHistoryTable的数据要作相应的变化 这种连接关系是通过索引来实现的

● 数据一致性

对EmployeeTable中的Salary字段的值作修改必须反映到SalaryHistoryTable中 SalaryHistoryTable维护的是Salary变化的历史信息 这种数据一致性要求在本程序中是通过触发器实现的

触发器是在SQL服务器端执行的一段程序 它在服务器端被触发执行完成一定的数据计算任务

下面是InterBase服务器上与Employee表相关的触发器程序

Triggers on Table EMPLOYEE:

SAVE_SALARY_CHANGE Sequence: Type: AFTER UPDATE Active AS

BEGIN

IF （old salary <> new salary） THEN

INSERT INTO salary_history

（emp_no change_date updater_id old_salary percent_change）

VALUES （

old emp_no

now

user

old salary

（new salary old salary） / old salary）

END

因为触发器是相应于EMPLOYEE表上的数据修改由服务器自动触发执行的 所以在客户应用程序上没有显式的调用 在客户端有打开并显示数据库表内容的程序和当SALARY_HISTORY表中数据变化时的更新显示的 *** 作

lishixinzhi/Article/program/Delphi/201311/25126

---