2008年4月1日
ShellExecute
摘要： ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。 有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序 ShellExecute(Handle, 'open', PChar('c:/test/app.exe'), nil, nil, SW_SHOW);打开记事本，并打开一个文件(系统能识别记事本应用程序的路径，因此a56爆大奖在线娱乐们不必使用绝对路径） ShellExecute(Han 阅读全文
posted @ 2008-04-01 15:55 delphi中间件 阅读(197) 评论(0) 推荐(0) 编辑
Delphi控制Excel
摘要： (一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿：ExcelApp.WorkBooks.Open( 'C:/ 阅读全文
posted @ 2008-04-01 15:11 delphi中间件 阅读(315) 评论(0) 推荐(0) 编辑
包含图形、动画、进度条等等的状态栏
摘要： {在Delphi中，一个控件上能否成为其它控件的父控件取决于此控件的ControlStyle属性。ControlStyle属性是集合类型的，如果此集合包含csAcceptsControls元素，则它能接受其它控件；否则，它就不能成为其它控件的父控件。ControlStyle属性只能在控件的构造函数（Constructor）中指定，在程序运行时它是不能被改变的。a56爆大奖在线娱乐如果希望窗口状态条上面能包含其它控件，a56爆大奖在线娱乐们只需要在继承类中重载TStatusBar控件的Constructor函数，并且让控件的集合属性ControlStyle中包含csAcceptsControls即可。 }unit StatusB 阅读全文
posted @ 2008-04-01 14:11 delphi中间件 阅读(370) 评论(0) 推荐(0) 编辑
2008年3月31日
dbchart
摘要： procedure TForm1.Button1Click(Sender: TObject);var// series1:TBarSeries;// series2:TPieSeries;// series3:TAreaSeries;// series4:TCircledSeries;// series5:TFastLineSeries; myseries:TBarSeries;begin with ADOQuery1 do begin close; sql.Clear; SQL.Text:='select 客户编号,sum(订单数量) 订单数量 from lsddbiao group 阅读全文
posted @ 2008-03-31 16:53 delphi中间件 阅读(372) 评论(0) 推荐(0) 编辑
2008年3月30日
使用原生ADO编程
摘要： {*******************************************************}{ }{ 原生ADO }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uADO;interfaceuses Variants,ComObj;const adOpenDynamic = $00000002; adOpenStatic = $00000003; adLockOptimistic = $00000003; adLockBatch 阅读全文
posted @ 2008-03-30 10:53 delphi中间件 阅读(395) 评论(0) 推荐(0) 编辑
软件的商业智能
摘要： 分析危机管理者对数据作分析，通常都会有不同的观察角度，以期通过这些角度来获得不同的信息，比如，表1是最常见的销售分析。 应该说，这个表算是做得不错了，它给出了各个分店在某一时间段里的综合经营情况。但如果要通过这张表去反映某段日期经营效益的详细情况，就只能把每天的经营情况打出来拼在一起去看了。这样，老总们就会说，太累。于是产生了以时间为主线索的分析表（见销售分析表2）。 这张表虽然将日期表达清楚了，但分店的信息又不全面，老总们还不满意，于是又产生了下一张表（见销售分析表3）。 这张表是以日期为线索的，除了稍长了一点以外，老总还挺满意，能不能以分店为线索呢？IT专家说... 阅读全文
posted @ 2008-03-30 10:35 delphi中间件 阅读(270) 评论(0) 推荐(0) 编辑
定时关闭各种对话框
摘要： {*******************************************************}{ }{ 定时关闭各种对话框 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}unit uTimerDlg;interfaceuses Windows, Messages, SysUtils, Classes, Forms, ExtCtrls;// 如果指定的时间没有操作对话框,则自动关闭procedure ResetDlgAutoClose;pr 阅读全文
posted @ 2008-03-30 09:16 delphi中间件 阅读(435) 评论(0) 推荐(0) 编辑
dbgrideh通用打印
摘要： {*******************************************************}{ }{ 通用打印模块 } { }{ 版权所有 (C) 2008 咏南工作室（陈新光） }{ }{*******************************************************}unit uPrint;interfaceuses DBGridEh,PrnDbgeh,SysUtils,Graphics,Forms,Printers,windows;procedure Prnt(AGrid:TDBGridEh;AOwner:Tform;APageHead 阅读全文
posted @ 2008-03-30 09:15 delphi中间件 阅读(1378) 评论(0) 推荐(0) 编辑
通用分组统计
摘要： {*******************************************************}{ }{ 分组统计 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uGroup;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, CheckLst, D 阅读全文
posted @ 2008-03-30 09:12 delphi中间件 阅读(808) 评论(0) 推荐(0) 编辑
设置dbgrideh可显示的列
摘要： {*******************************************************}{ }{ 格式显示 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}unit uFormatDisplay;interfaceuses DB,DBGridEh,SysUtils,Classes; { 设置数字或金额字段的显示格式 }procedure SetDisplayFormat(ADataset:TDataSet);{ 设置财务栏 }proc 阅读全文
posted @ 2008-03-30 09:10 delphi中间件 阅读(605) 评论(0) 推荐(0) 编辑