主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制
\Delphi 6数据库开发典型实例\图表的绘制
1、在主窗体里面打开子窗体:ShowForm(Tfrm_Print);
procedure Tfrm_Main.ShowForm(AFormClass:TFormClass);
begin
with AFormClass.Create(Self) do
try
ShowModal; // 阻塞或者模态窗口,只有你把当前窗口关闭后,才能去操作父亲窗口。
finally
Free;
end;
end; //这个例子打开有异常,提示单元chart 引用本身, 因为工程命名为program Chart;和所用的控件类名称 Tchart冲突了, 将工程名改成program MyChart; 编译即可。
2、打印饼图;
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;
打印饼图

其他:
Chart1.CopyToClipboardMetafile(True); //将复制到粘贴板
if SavePictureDialog1.Execute then
begin
Chart1.SaveToMetafile(SavePictureDialog1.FileName); //保存 为 .wmf文件
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技术。
D:\Delphi3文件夹\Delphi 6数据库开发典型实例\OLE应用程序的开发\OLEMDI.DPR
剪贴板和DDE是Windows下数据交换的两种方法,Delphi以简便友好的方式实现了
相应的功能,为用户编程提供了方便。一般说来,剪贴板多用于静态数据传输,而DDE
用于动态数据交换、控制其他程序运行等场合。
Delphi支持OLE技术,本章通过例程介绍了OLE应用程序的开发技术。本章的另一
个重点就是动态链接库编程,特别是窗体重用机制是Delphi对Windows下DLLs编程的一
个重大改进。利用动态链接库,用户可以逐步构筑自己的程序模块库,为今后的工作积累
素材。
主窗体里面打开子窗体&&打印饼图《Delphi 6数据库开发典型实例》--图表的绘制的更多相关文章
- C#之菜单控件、主窗体打开子窗体、GroupBox控件使用
一.背景 一年前有学习过C#,但没有在项目中去实际做APP,重新捡起来应用到项目中.我同事本来做好一个CANOPEN设备管理的界面,由于近期搜索了别人的开发的界面,我觉得有很多东西要重新安排,以及我已 ...
- Caliburn.Micro 关闭父窗体打开子窗体
比如我们在做登录的时候需要关闭父窗体打开子窗体.使用Caliburn.Micro它的时候我们关闭登录窗口的时候主页面也会关闭. 解决方法就是在登录页面的CS里面写 IndexView iv = new ...
- window.open 打开子窗体,关闭全部的子窗体
需求:通过window.open方法打开了子窗体,当关闭主窗体时.子窗体应当也关闭. 实现思路: 1.打开子窗体函数window.open(url,winName)的第二个參数winName能够唯一标 ...
- 【winform】主窗体多线程给子窗体传值
1.主窗体多线程给子窗体传值 解决方案:主要使用委托,因为会出现跨线程错误 主窗体 public FormMain() { InitializeComponent(); //background th ...
- winform里操作打开在panel里的form窗体,子窗体操作同级子窗体或者父窗体的方法
最近开始了一个winform项目,原先一直都是web项目.遇到个问题,就是在框架内,左侧和中间的main都是用panel来实现的form,就是把form窗体打开到panel里,实现左侧是导航,中间是操 ...
- winform打开子窗体后,在子窗体中刷新父窗体,或者关闭子窗体刷新父窗体
winform打开子窗体后,在子窗体中刷新父窗体,或者关闭子窗体刷新父窗体,搜集了几个方法,列举如下: 一 . 所有权法 父窗体,名称为“fuForm”,在父窗体中有个公共刷新方法,也就是窗体数据初始 ...
- C#嵌入子窗体,判断子窗体是否打开了
/// <summary> /// 嵌入子窗体,判断子窗体是否打开了 /// </summary> public static Form1 f; public void For ...
- c# 子线程打开子窗体
下边是在子线程打开子窗口,结果跑到else 里边了跨线程操作窗体控件InvokeRequired失效,无法用于打开子窗体,addonetwo.InvokeRequired,访问不了呢? 大神知道帮忙回 ...
- WinForm------如何打开子窗体的同时关闭父窗体
方法: 如何打开子窗体的同时关闭父窗体 this.Hide(); new Frm_Management().ShowDialog(); this.Close();
随机推荐
- 【linux】ubuntu stmp服务器配置
来源:http://blog.itpub.net/786540/viewspace-1002077/ sudo apt-get install sendmail(其中已经包含了sendmail-bin ...
- LightOJ 1197 Help Hanzo(区间素数筛选)
E - Help Hanzo Time Limit:2000MS Memory Limit:32768KB 64bit IO Format:%lld & %llu Submit ...
- NIS 报错No such map passwd.byname. Reason: Can't bind to server which serves this domain
在NIS—client端使用命令:ypcat passwd ,把错如上题, 原因:client端ypbind服务未启动解决方法:当然是启动ypbind了,命令:service ypbind start ...
- myeclipse破解
由于内容比较多,我就直接转载了 ,同时感谢原博主 http://blog.itpub.net/27042095/viewspace-1164998/
- css3圣诞雪景球开源
css3圣诞雪景球开源 <!DOCTYPE html><html lang="en"><head> <meta charset=" ...
- 在R语言中无法设置CRAN镜像问题
很大的可能是因为使用的浏览器不是IE浏览器的问题,因为CRAN的镜像需要用IE浏览器来打开. 只需要按照下面设置即可: 1.打开IE-->设置-->Internet选项-->高级 2 ...
- Maven 在sts不会自动下载包的问题
1.查看maven配置setting.xml是否有设置远程仓库 2.sts是否正确配置指定了setting.xml 3.是否开启线上下载,如下图
- PostgreSQL中COUNT的各条件下(1亿条数据)例子
test=# insert into tbl_time1 select generate_series(1,100000000),clock_timestamp(),now(); INSERT 0 1 ...
- git 提交代码的流程
[root@ok-T IT-DOC]# ls hx-海星-wifi.rd web收藏.txt [root@ok-T IT-DOC]# git status -s ?? "web\346\22 ...
- Linq学习笔记---Linq to Xml操作
LINQ to XML的成员, 属性列表: 属性 说明 Document 获取此 XObject 的 XDocument EmptySequence 获取空的元素集合 FirstAttribut ...