- 博客(46)
- 收藏
- 关注
RSS订阅转载 解决“无法为更新定位行。。。。”
解决“无法为更新定位行。。。。”在Delphi中，如果使用ADOQuery对数据进行修改保存，在修改保存了第一次以后，如果再次进行修改保存，就会遇到“无法为更新定位行，一些值可能已在最后一次读取后已更改”的问题。原因有这样几种：1.在数据库设计时，为某些字段设置了默认值，在修改进行提交以后，数据库会自动修改对应字段的所有行的默认值，从而导致了数据库与数据集中数据的不一致，使ADOQue...
2009-06-14 22:56:00
786
转载 Delphi编程中备份和恢复Access
常用的是delphi备份SQL Server，较少用delphi备份Access的，今天有人问了一下，顺便把代码贴出来。有人可能会有需要。//(***本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ ****)procedure TBackup.Button1Click(Sender: TObject);varpath:string...
2009-02-03 11:58:00
144
转载 用Delphi压缩Access数据库
procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;beginif oldpwd <>'' then oldpwd := ';pwd='+oldpwd;if newpwd <>'' ...
2009-02-03 11:41:00
147
转载 如何在自己的系统中打开并关闭外部程序
大家知道，在一个大型复杂的系统中，有时会调用一些外部程序来帮助我们完成某些特定功能。 然而，如何打开并关闭这些外部程序呢？也许，这是一个老生常谈的话题，但笔者仍要继续讨论这个问题，原因有二：一是解决这个问题的方法很重要，并经常会遇到；二是大多数参考书提及的解决办法不全面,仍有很多朋友有疑问。下面，我将详细地阐述这个问题（提供的源代码均在WinNT/Delphi4.0环境...
2008-12-20 00:05:00
174
转载 delphi获取句柄:获取其他线程的光标句柄[DELPHI]
当光标被另外一个线程掌握时，就无法用GetCursor()应用接口获得光标句柄。本文阐述如何在任何线程掌握光标时都能够获取光标句柄。 ========================================================={ 当光标被另外一个线程掌握时，就无法用GetCursor()应用接口获得光标句柄。 本文阐述如何在任何线程掌握光标时都能够获取光标句...
2008-12-19 23:57:00
230
转载 dbgrideh如何实现点击标题排序
数据源为adoQuery 1、首先设置dbGridEh里需要排序的字段的Title->Titlebutton属性为true 2、设置dgGridEh的optionsEh->dbhautoSortMarking属性为true 3、在dbGridEh的ontitleButtonClick事件里面判断。 procedure Tfrmmain.dbg...
2008-11-15 13:46:00
113
转载 设定 DbGridEh 合计行信息
//--------------------------------------------------------------------------------// 功能：设定 DbGridEh 合计行信息// 参数： pDbGrid:TDBGridEh;// pcFields : string ; 字段列表，字段用逗号分隔// pvtT...
2008-11-12 01:00:00
163
转载 DBGridEh的学习笔记
整体描述：DBGridEh拥有DBGrid的所有功能，并有如下改进：1、允许选择记录、列、方形区域；2、多列合一的表头；3、页脚能够显示求和，计数其他字段值；4、自动调整列宽；5、能够改变行和标题的宽度；6、Allows automatic broken of a single line long title and datarow to a multili...
2008-11-12 00:59:00
169
转载 DBGridEh（增强型表格组件）功能详解
DBGRIDEH是Enlib3.0组件包中的组件之一。Enlib3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持BorlandDelphiversions4，5，6＆7和Borlan...
2008-11-12 00:58:00
312
转载 dbgrideh 单元格超出的文本用省略号替换
//这个问题困扰了我很久了，网上搜索了很长时间，下面这段代码只能在没有设置字段的情况下使用。//若设置了字段，drawdatacell就无法正常执行，可以改在DrawColumnCell事件中。//另外就是这段代码不能正常处理全角字符或者汉字，会有乱码出现。 procedureTForm1.DBGridEh1DrawDataCell(Sender: TObject; const R...
2008-11-12 00:56:00
173
转载 基于数据库（access）层次编码记录对TreeView的操作（实现自动编码，灵活控制编码规则和编码层次）...
{----------------------------------------------------------------------------- 根据有规则的编码层次结构数据构建TreeView 使用时直接引用此单元即可。 最后修改：米铁强 ...
2008-10-17 22:33:00
206
转载 一个简单的加密解密算法
//前面定义好常量const C1 = 123456; C2 = 234567; PASSKEY = '66666';//加密函数function Encrypt(const S: String; Key: Word): String;var I: byte;begin Result:=S; for I:= 1 to Length(S) do begin Result...
2008-10-16 20:39:00
187
转载 delhpi 数据库中的图像存储和读取
1 、如何实现在Microsoft Access数据库中的图像存储：这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序：procedure TForm1.Button1Click(Sender: TObject);var MyJPEG: TJPEGImage; MS:...
2008-10-16 20:36:00
123
转载 Delphi 预设参数
在程序或函数的标题部分，可以指定参数的预设值。指定预设值的方法就是在宣告参数之后加上等号和一个常数运算式，而且这个运算式运算之后的结果必须跟这个参数的声明类型一致才行。例如，给定下面的过程宣告：procedure FillArray(A:array of Integer; Value: Integer = 0);那么下面这两个使用过程的...
2008-10-14 23:58:00
85
转载 delphi-多态(overload,override)与接口(interface)
delphi-多态(overload,override)与接口(interface) 先来聊聊重载问题（也叫超载，总之是那个Overload）吧。在同一个类中，出现多个同名的方法的现象就是Overload。联系起上面提到的兄弟俩，我想这更好理解。他们从外观上是相似的，不同的是某些“参数”，类型上可能各异或是个数上不同。在Delphi中，所有方法都默认是静态的，便于编译器和链...
2008-10-14 23:57:00
321
转载 delphi 与 Excel数据交换
资料一。 从数据库导数据至excel 容易，但要是想把excel 里的数据通过delphi写的程式导入数据库就没那么简单了，并且网上讲的都不全面，没有几个完整可行的方案，以下是我收集的个人认为比较可行的方案，不敢独享，故拿出来供大家学习参考之用! procedure load(rowCount,colCount:integer; fil...
2008-10-14 23:37:00
174
转载 Delphi与Excel的亲密接触
Delphi作为一个出色的RAD，强大的数据库功能是其最重要的特色之一，但是操纵困难的QuickReport控件常常不能满足数据库报表的需要。如果你的报表非常复杂，或者要求灵活地改变格式，那么使用Excel作为报表服务器是一个不错的选择。Delphi从版本5开始提供的Excel组件极大地简化了OLE自动化技术的应用。不过缺漏多多的帮助文件一直是Delphi最令人诟...
2008-10-14 23:34:00
154
转载 Delphi中initialization和finalization
注：本文主要是讨论delphi程序启动时和退出时的执行顺序，期间有些知识来源于Delphi帮助，有些来自《Delphi7程序设计教程》（这本书只告诉我有initialization 和finalization这两个关键字，但是没讲明白）（唉，现在的书只讨论框框架架，不讨论细节，写出来的东西让你看能看懂，别人一问或者自己一想，就是什么都不懂！讲的不细致呀！唉，自己琢磨吧！！...
2008-09-08 19:53:00
99
转载 delphi操作word
delphi操作word一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application'...
2008-09-07 12:41:00
140
转载 枚举串口
procedure EnumComPorts(Ports: TStrings);var KeyHandle: HKEY; ErrCode, Index: Integer; ValueName, Data: string; ValueLen, DataLen, ValueType: DWORD; TmpPorts: TStringList;begin ErrCode := R...
2008-09-07 12:38:00
56
转载 动态创建菜单和动态关联菜单项事件
//动态创建四级菜单var MainMenu:TMainMenu; SubMenu,SubMenu2,submenu3,submenu4:TMenuItem; MainMenu:=TMainMenu.Create(self); MainMenu.AutoHotkeys:=maManual; SubMenu:=TMenuItem.Create(self); ...
2008-09-07 12:36:00
75
转载 进制转换
{*******************************************************}{ }{进制转换 }{...
2008-09-07 12:30:00
90
转载 获取当前系统版本号
获取当前系统版本号 unit WinVerUtils;{#===============================================================================# Name: WinVerUtils.pas# Author: Aleksander Oven# Created: 2007-02-2...
2008-09-07 12:27:00
95
转载 防止程序重复执行的单元
防止程序重复执行的单元 //工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAP...
2008-09-07 12:26:00
59
转载 操作TreeView（咏南工作室）
{*******************************************************}{ }{ 操作TreeView }{...
2008-09-07 12:23:00
76
转载 Delphi服务程序注册与卸载
//Delphi服务程序注册与卸载uses winsvc;function InstallService(ServiceName, DisplayName, FileName: string): boolean;varSCManager,Service: THandle;Args: pchar;beginResult := False;SCManager := OpenSCMana...
2008-09-07 11:42:00
61
转载 设置默认输入法
uses TypInfoprocedure SetImeA(AOwner:TForm);var i:Integer;begin for i := 0 to AOwner.ComponentCount - 1 do begin if GetPropInfo(AOwner.Components[i],'ImeName')<>nil then begin...
2008-09-07 11:41:00
53
转载 成本计算方法
1．加权移动平均核算成本单价=（不含税库存金额+不含税入库金额）/（库存数量+入库数量）2．先进先出按进货时的单价及数量记录序列，以日期升序提取进价作为销售出库成本单价，核算出库成本金额。3．后进先出按进货时的单价及数量记录序列，以日期降序提取进价作为销售出库成本单价，核算出库成本金额。 4．高进先出按进货时的单价及数量记录序列，以单价降序提取进价作为销售出库成本单价，核算出库成本金...
2008-09-07 11:30:00
144
转载 图像格式转换
uses Windows, Messages, SysUtils, Classes, Graphics, JPEG;function BmpToJpeg(Sou:TFileName;Des:TFileName):Boolean; //bmp转换成jpgfunction BmpToEmf(Sou:TFileName;Des:TFileName):Boolean; //bmp转换成e...
2008-09-07 11:23:00
69
转载 Enter键使用作Tab键
首先，在主窗体中声明以下private过程:procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);beginif Msg.Message = WM_KEYDOWN thenbeginif Msg.wParam = VK_RETURN thenKeybd_event(VK_TAB, 0, 0, 0);e...
2008-09-07 11:22:00
77
转载 ShellExecute的使用
ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。 有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序 ShellExecute(Handle, 'open', PChar('c:\te...
2008-09-07 11:20:00
58
转载 Delphi控制Excel
(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应用程序调用 Micros...
2008-09-07 11:19:00
52
转载 包含图形、动画、进度条等等的状态栏
{在Delphi中，一个控件上能否成为其它控件的父控件取决于此控件的ControlStyle属性。ControlStyle属性是集合类型的，如果此集合包含csAcceptsControls元素，则它能接受其它控件；否则，它就不能成为其它控件的父控件。ControlStyle属性只能在控件的构造函数（Constructor）中指定，在程序运行时它是不能被改变的。所以如果希望窗口状态条上面...
2008-09-07 11:15:00
52
转载 与Access数据库结构有关的一些函数
//与数据库结构有关的一些函数//1、动态改变字段名称uses ComObj;//Access//TableName: 表名; OldColName: 原字段名; NewColName: 新字段名;procedure RenameField(const TableName, OldColName, NewColName: string);var DB, Col: OleVariant;...
2008-09-07 10:56:00
96
转载 定时关闭各种对话框
{*******************************************************}{ }{ 定时关闭各种对话框 }{...
2008-09-07 10:52:00
69
转载 通用打印模块DBGridEh
{*******************************************************}{ }{ 通用打印模块 } {...
2008-09-07 10:50:00
75
转载 导出Tdbgrideh数据
{*******************************************************}{ }{ 导出Tdbgrideh数据 }{...
2008-09-07 10:45:00
92
转载 DES加解密算法
{*******************************************************}{ }{ DES加解密算法 }{...
2008-09-07 10:44:00
61
转载 公用函数（1）
{*******************************************************}{ }{ 公用函数 }{...
2008-09-07 10:21:00
76
转载 获取CPU的ID号
program Project2;$APPTYPE CONSOLE}uses SysUtils, StrUtils, Windows; //注重，要加入这个文件type //CPUID 一共有4组，4组连接成串是世界唯一的，常用于软件注册 TCPUID = array[1..4] of Longint;function GetCPUID: TC...
2008-09-07 00:02:00
67
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人