摘要：
二、dbgrideh标题排序:首先把需要排序的title.titlebutton:=trueehlib的optioneh中autosortmarking最好设为truetitelbutton事件中写：varsortstring:string;begin//进行排序with Column dobegi
阅读全文
posted @ 2011-12-29 19:16
del88
阅读(14)
推荐(0)
编辑
摘要：
Enlib3.0组件包安装成功后，在系统的组件面板中会显示“enlib”组件包标签（如图1），添加DBGridEh到窗体的方法与其它组件一样。在窗体中添加该组件后，请跟我一起来实现图2的一些特殊效果，具体属性设置请参考属性表的说明。A、定制标题行 1、制作复杂标题行 标题行可设为2行以上高度，并可以
阅读全文
posted @ 2011-12-29 19:02
del88
阅读(24)
推荐(0)
编辑
摘要：
DBGridEh导出功能详解(SaveDBGridEhToExportFile说明) 经常有用户要求数据导出，对此，我们一直用最原始的办法，打开查询，读取每个字段的数据，逐条的的写入文件。如下： procedure TForm10.prExpData(pMode:Byte);Var pFPath:S
阅读全文
posted @ 2011-12-29 10:59
del88
阅读(15)
推荐(0)
编辑
摘要：
在OnDrawCell中加入如下代码： procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin with Sender a
阅读全文
posted @ 2011-12-29 10:47
del88
阅读(10)
推荐(0)
编辑
摘要：
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);vars: String;R: TRect;beginwith StringG
阅读全文
posted @ 2011-12-29 10:46
del88
阅读(15)
推荐(0)
编辑
摘要：
uses DBGridEhImpExp; { 过程名: TfrmEmplyExport.OutToFile 作者: han 日期: 2007.08.08 参数: IADO : TADOQuery; DgEh : TDBGridEh 返回值: 无 说明: 导出查询结果到文件 }procedure Tf
阅读全文
posted @ 2011-12-29 10:14
del88
阅读(33)
推荐(0)
编辑
摘要：
uses DBGridEhImpExp;procedure TInvoiceManager.ppmSaveSelectionClick(Sender: TObject);var ExpClass:TDBGridEhExportClass; Ext:String;begin SaveDialog1.F
阅读全文
posted @ 2011-12-29 10:11
del88
阅读(9)
推荐(0)
编辑
摘要：
uses DBGridEhImpExp; 不要忘记引用这个 看下他实现的思路 procedure TForm1.Button3Click(Sender: TObject);var ExpClass:TDBGridEhExportClass; Ext,strDate:String;beginstrDa
阅读全文
posted @ 2011-12-29 10:09
del88
阅读(16)
推荐(0)
编辑
摘要：
dbgrideh 本身 导出就一个函数 这个人的这种写法是实际应用过程中的很不错的写法，可以研究 修改 借鉴下 uses DBGridEhImpExp; 不要忘记引用这个 procedure DBGridehToExport(lsdbgrideh:TDBGridEh);var ExpClass: T
阅读全文
posted @ 2011-12-29 09:52
del88
阅读(11)
推荐(0)
编辑
摘要：
偶然从 SysUtils 里发现了几个路径相关的函数, 以前没见过, 可能是 2010 新增的: GetLocaleDirectory(); GetLocaleFile(); LocaleDirectoryExists(); LocaleFileExists(); 应用测试: uses IOUtil
阅读全文
posted @ 2011-12-27 20:46
del88
阅读(24)
推荐(0)
编辑
摘要：
根据下面我总结出两个方法经常用到： ExtractFilePath(paramstr(0)); ExtractFilePath(Application.ExeName); 输出的都是：//C:\Documents and Settings\wy\My Documents\RAD Studio\Pro
阅读全文
posted @ 2011-12-27 17:00
del88
阅读(31)
推荐(0)
编辑
摘要：
函数功能 Chr 将一个有序数据转换为一个ANSI字符 Ord 将一个有序类型值转换为它的序号 Round 转换一个实型值为四舍五入后的整型值 Trunc 转换一个实型值为小数截断后的整型值 Int 返回浮点数的整数部分 IntToStr 将数值转换为字符串 IntToHex 将数值转换为十六进制数
阅读全文
posted @ 2011-12-27 15:50
del88
阅读(29)
推荐(0)
编辑
摘要：
Chr //将一个有序数据转换为一个 ANSI 字符 Ord //将一个有序类型值转换为它的序号 Round //转换一个实型值为四舍五入后的整型值 Trunc //转换一个实型值为小数截断后的整型值 Int //返回浮点数的整数部分 IntToStr //将数值转换为字符串 IntToHex //
阅读全文
posted @ 2011-12-27 15:46
del88
阅读(13)
推荐(0)
编辑
摘要：
Delphi与Windows平台紧密结合，编译代码快速高效。作为一种可视化的面向对象开发工具，Delphi可以帮助程序员更轻松、更快速地编写各种 Windows应用程序。而且通过编程可以方便地调用其它语言编写的动态库或应用程序，并在不需要时关闭这些外部程序。这一点对许多编程人员非常有用，例 如，在采
阅读全文
posted @ 2011-12-27 14:54
del88
阅读(23)
推荐(0)
编辑
摘要：
启动： 1、Winexec('NOTEPAD.EXE 文件名' ,SW_SHOW) 2、ShellExeCute(handle,'open','NOTEPAD.EXE 文件名',nil,nil,SW_SHOW) 注意加ShellAPI 关闭： procedure TForm1.Button21Cli
阅读全文
posted @ 2011-12-27 14:52
del88
阅读(96)
推荐(0)
编辑
摘要：
WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW); ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。 首先必须引用shellapi.pas单元：uses ShellAPI; 1.标准用法 ShellE
阅读全文
posted @ 2011-12-27 13:45
del88
阅读(19)
推荐(0)
编辑
摘要：
Delphi调用外部程序WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW);WinExec( lpCmdLine: LPCSTR; {文件名和参数; 如没指定路径会按以下顺序查找: 程序目录/当前目录/System32/Wind
阅读全文
posted @ 2011-12-27 13:37
del88
阅读(10)
推荐(0)
编辑
摘要：
WinExec, ShellExecute, CreateProcess 使用WinExec命令 ⑴ 函数原型： UINT Win Exec(LPCSTR lpCmdLine, UINT uCmdShow); ⑵ 参数： lpCmdLine：指向一个空结束的字符串，串中包含将要执行的应用程序的命令行
阅读全文
posted @ 2011-12-27 13:35
del88
阅读(12)
推荐(0)
编辑
摘要：
三个SDK函数: WinExec，ShellExecute ，CreateProcess可以实现调用其他程序的要求，其中以WinExec最为简单，ShellExecute比WinExec灵活一些，CreateProcess最为复杂。 WinExec 两个参数，前一个指定路径，后一个指定显示方式。 S
阅读全文
posted @ 2011-12-27 13:33
del88
阅读(8)
推荐(0)
编辑
摘要：
在MFC中打开其他可执行文件常用到的方法有：WinExec、ShellExecute、CreatProcess。 1.WinExec WinExec 主要运行EXE文件，用法简单，只有两个参数，前一个指定命令路径，后一个指定窗口显示方式： UINT WinExec(LPCSTR lpCmdLine,
阅读全文
posted @ 2011-12-27 13:32
del88
阅读(9)
推荐(0)
编辑
摘要：
vc中调用其他应用程序的方法（函数） winexec，shellexecute ，createprocess 三个SDK函数: WinExec，ShellExecute ，CreateProcess可以实现调用其他程序的要求，其中以WinExec最为简单，ShellExecute比WinExec灵活
阅读全文
posted @ 2011-12-27 13:31
del88
阅读(15)
推荐(0)
编辑
摘要：
在Delphi中隐藏PageControl的选项卡！ 隐藏的代码如下！ var i:integer;begin for i:=0 to page.PageCount -1 do begin page.Pages[i].TabVisible := false; end; 这就可以将此控件的选项卡全部隐
阅读全文
posted @ 2011-12-19 19:17
del88
阅读(24)
推荐(0)
编辑
摘要：
PageControl1.Pages[0].TabVisible := true;PageControl1.Pages[1].TabVisible := false;注意到这里是 tabvisible而不是visible 我就是想实现像傲游那样，双击空白处便可以新增一个空白页，双击已经存在的SHEE
阅读全文
posted @ 2011-12-19 19:15
del88
阅读(5)
推荐(0)
编辑
摘要：
先上图： 左侧treeview的onchange事件的代码为： for I := 0 to PageControl1.PageCount-1 do begin if PageControl1.Pages[I].Caption = BasicSetup_tv.Selected.Text then//这
阅读全文
posted @ 2011-12-19 17:39
del88
阅读(10)
推荐(0)
编辑
摘要：
73）问：PageControl组件好像比TabControl组件功能更强大，它是怎样使用的？ 答：与TabControl相比，PageControl组件的功能确实更加强大，但是却并不复杂。PageControl中的每一个页都是一 个TTabSheet组件，这个组件实际上是一个容器，你可以在上面放置
阅读全文
posted @ 2011-12-19 16:59
del88
阅读(21)
推荐(0)
编辑
摘要：
1 TTable组件 A、Active属性 只有当DataBaseName和TableName设置完成后，Active属性为 True时数据感知组件才能显示出数据库中的数据，注意，一旦改变数据源，Active的属性会自动的变成False，所以连接好数据源之后还要改变 Active属性。当然，上面激活
阅读全文
posted @ 2011-12-19 16:56
del88
阅读(24)
推荐(0)
编辑
摘要：
PageControl组件位于组件板的Win32页中，该组件用于实现窗体上多页面技术，每个页面上均能添加若干控件。程序运行时，单击页面标签就可以在多页之间切换。 1．建立多页 用鼠标右键单击PageControl组件，在弹出式菜单中选择New Page子菜单可添加新页，用Delete子菜单可删除当前
阅读全文
posted @ 2011-12-19 16:51
del88
阅读(4)
推荐(0)
编辑
摘要：
ShowMessage(BasicSetup_tv.Selected.Text); 终于发现了一种方法,偶尔测试发现的记录下 我的实力越来越强 看来这种学习方法真是不错
阅读全文
posted @ 2011-12-19 16:02
del88
阅读(17)
推荐(0)
编辑
