\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数据库开发典型实例》--图表的绘制的更多相关文章

  1. C#之菜单控件、主窗体打开子窗体、GroupBox控件使用

    一.背景 一年前有学习过C#,但没有在项目中去实际做APP,重新捡起来应用到项目中.我同事本来做好一个CANOPEN设备管理的界面,由于近期搜索了别人的开发的界面,我觉得有很多东西要重新安排,以及我已 ...

  2. Caliburn.Micro 关闭父窗体打开子窗体

    比如我们在做登录的时候需要关闭父窗体打开子窗体.使用Caliburn.Micro它的时候我们关闭登录窗口的时候主页面也会关闭. 解决方法就是在登录页面的CS里面写 IndexView iv = new ...

  3. window.open 打开子窗体,关闭全部的子窗体

    需求:通过window.open方法打开了子窗体,当关闭主窗体时.子窗体应当也关闭. 实现思路: 1.打开子窗体函数window.open(url,winName)的第二个參数winName能够唯一标 ...

  4. 【winform】主窗体多线程给子窗体传值

    1.主窗体多线程给子窗体传值 解决方案:主要使用委托,因为会出现跨线程错误 主窗体 public FormMain() { InitializeComponent(); //background th ...

  5. winform里操作打开在panel里的form窗体,子窗体操作同级子窗体或者父窗体的方法

    最近开始了一个winform项目,原先一直都是web项目.遇到个问题,就是在框架内,左侧和中间的main都是用panel来实现的form,就是把form窗体打开到panel里,实现左侧是导航,中间是操 ...

  6. winform打开子窗体后,在子窗体中刷新父窗体,或者关闭子窗体刷新父窗体

    winform打开子窗体后,在子窗体中刷新父窗体,或者关闭子窗体刷新父窗体,搜集了几个方法,列举如下: 一 . 所有权法 父窗体,名称为“fuForm”,在父窗体中有个公共刷新方法,也就是窗体数据初始 ...

  7. C#嵌入子窗体,判断子窗体是否打开了

    /// <summary> /// 嵌入子窗体,判断子窗体是否打开了 /// </summary> public static Form1 f; public void For ...

  8. c# 子线程打开子窗体

    下边是在子线程打开子窗口,结果跑到else 里边了跨线程操作窗体控件InvokeRequired失效,无法用于打开子窗体,addonetwo.InvokeRequired,访问不了呢? 大神知道帮忙回 ...

  9. WinForm------如何打开子窗体的同时关闭父窗体

    方法: 如何打开子窗体的同时关闭父窗体 this.Hide(); new Frm_Management().ShowDialog(); this.Close();

随机推荐

  1. vs win32 & MFC 指针默认位置

    一开始win32指针所在的位置是与debug文件夹同级的.即打开打开改程序的第一个文件夹这一级. MFC指针是在第二个debug下头,就是打开第二个project名词的文件夹下头,e.g., &quo ...

  2. WEB前端开发学习:源码canvas 雪

    WEB前端开发学习:源码canvas 雪 双旦节要到了,程序员们为了响应气氛,特别用代码制作了动态雪花,WEB前端开发学习的初学者们一起跟着案例做一遍吧! <!DOCTYPE html> ...

  3. 【SSO单点系列】(1):CAS4.0 环境的搭建

    一.概述 今天开始写CAS相关的第一篇文章,这篇文章主要是关于CAS环境的搭配,提供给刚刚接触CAS的一个入门指南,并演示一个CAS的最简单的实例 二.环境要求 博主的环境如下: win8.1 64 ...

  4. cf378D(stl模拟)

    题目链接:http://codeforces.com/contest/733/problem/D 用map<pair<int, int>int>标记(第一次用~)... 代码: ...

  5. jQuery - 4.简单选择器

    4.1 简单选择器   (1) :first 选取第一个元素.   (2) :last 选取最后一个元素.  (3) :not(选择器) 选取不满足"选择器"条件的元素   (4) ...

  6. ARPPING

    http://www.tuicool.com/articles/M7B3umj http://lixcto.blog.51cto.com/4834175/1571838/

  7. [LeetCode] Word Pattern

    Word Pattern Total Accepted: 4627 Total Submissions: 17361 Difficulty: Easy Given a pattern and a st ...

  8. 构造方法 static 块 {}块 执行顺序

    package com.test.innerclass; public class HelloB extends HelloA { public HelloB() { System.out.print ...

  9. Centos6.5里安装Hbase(伪分布式)

    首先我们到官方网站下载Hbase,而我使用的版本是hbase-0.94.27.tar.gz 解压下来: tar zxvf hbase-.tar.gz 寻找java安装路径 [root@localhos ...

  10. go sample - format

    go sample - format package mainimport "fmt"import "os"type point struct { x, y i ...