procedure Tfrm_Main.ShowForm(AFormClass:TFormClass);

begin

with AFormClass.Create(Self) do

try

ShowModal;  // 阻塞或者模态窗口，只有你把当前窗口关闭后，才能去操作父亲窗口。

finally

Free;

end;

end;

//这个例子打开有异常，提示单元chart 引用本身，

因为工程命名为program Chart;和所用的控件类名称 Tchart冲突了，

将工程名改成program MyChart; 编译即可。

 implementation

 uses printers;

 {$R *.dfm}

 procedure Tfrm_Print.btn_PrintClick(Sender: TObject);

 var h,w:longint;

 begin

   Screen.Cursor := crHourGlass;

   try

     Printer.BeginDoc;

     try

       h:=Printer.PageHeight;

       w:=Printer.PageWidth;

       Chart1.PrintPartial(  Rect(  w div ,

                                    h div  ,

                                    w - (w div ),

                                    h - (h div ) ));

       Printer.EndDoc;

     except

       on Exception do

       begin

         Printer.Abort;

         Printer.EndDoc;

         raise;

       end;

     end;

   finally

     Screen.Cursor:=crDefault;

   end;

 end;

第1章介绍了Delphi数据库开发工具，包括BDE Administrator、SQL Explorer、SQL

Monitor和Database Desktop等数据库工具的使用。还介绍了SQL语言，包括通用SQL查

询语句、更新查询语句、表之间的连接和数据定义语言，并且着重说明了如何在Delphi中

使用SQL语句创建查询。

第2章首先介绍Delphi文件管理的基本概念和标准过程/函数，并提供了一个记录文件

的应用实例，最后提供了一个综合应用Delphi文件管理功能的文件管理程序实例。

第3章通过“学生名册管理系统”的开发介绍了如何使用DAO技术来设计数据库应

用程序。

第4章介绍了Delphi支持的4种数据交换方式，即剪贴板、动态数据交换(DDE)、对

象连接与嵌入(OLE)，以及动态连接库(DLLs)，并讨论了如何利用这4种方式实现应用程

序间的数据交换。

第5章介绍了报表和图表，从QReport组件开始讲述了报表的概念、实现的主要功能，

以及创建报表的方法，还通过一个具体的示例程序说明了如何在Delphi中处理图表。

第6章的实例是一个投递邮件处理系统，该实例能够根据邮件投递人提供的资料管理

邮件系统。

第7章介绍了书店租赁管理系统的开发过程，从中读者可学习如何尽可能节省人力，

自动地完成数据的更新操作。

第8章介绍了基于数据库的闹铃程序设计，该实例的特点在于程序界面的背景和程序

的声音文件均存储在数据库中，其中涉及到3种数据库存储方式，即简单数据存储(如字符

串和整型数等)、图像数据存储和声音文件存储。

附录A介绍了SQL查询语言。

附录B列出了Delphi中常用组件及其属性、方法和事件。

附录C中介绍了在示例中未涉及的有关DAO技术。