摘要：请问在RichEdit中我想将游标(文字)移动到某一位置要怎麽用呢？ 我用SendMessage可以取得行数、列数,然後要用那个叁数或是函数才能移动游标呢？ 这个需要自已处理, 例如本信所附的程式 --// 指定输入游标的位置 procedure SetCaret(RTF: TRichEdit; var Row, Col: word); var i, iStopLine, ...
阅读全文
01 2005 档案
摘要：一、概述 在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。那么，有没有简单有效而又灵活的方法实现上述功能呢？ 二、基本思路 分析上述单据的特征，可以发现：此类打印输出的信...
阅读全文
摘要：Outlook 2000 不 仅 是 一 个 功 能 强 大 的 电 子 邮 件 软 件， 而 且 还 是 一 个 自 动 化 服 务 器（Automation servers）。 第 三 方 的 软 件 开 发 人 员 根 据 需 要 可 以 对Outlook 进 行 定 制 和 扩 充， 同 时 开 发 者 还 可 以 通 过 编 写 Outlook 自 动 化 服 务 器 的 客 户 方 程...
阅读全文
摘要： 由于种种原因，我们如果当时仅仅备份了mdf文件，那么恢复起来就是一件很麻烦的事情了。
如果您的mdf文件是当前数据库产生的，那么很侥幸，也许你使用sp_attach_db或者
sp_attach_single_file_db可以恢复数据库，但是会出现类似下面的提示信息 ...
阅读全文
摘要：以前CSDN上有好多人问过这个问题，但是好象没有人给出满意的答案。我也是经过好长时间摸索才找到答案，现在在这给大家分享： procedureTForm1.FormCreate(Sender:TObject); var NewField:TField; i:integer; begin //表中有两字段SName,Birth，现在我们动态生成一个计算字段Age，显示出年龄 NewFi...
阅读全文
摘要：procedureKillProgram(Classname:string;WindowTitle:string); const PROCESS_TERMINATE=$0001; var ProcessHandle:THandle; ProcessID:Integer; TheWindow:HWND; begin TheWind...
阅读全文
摘要：/修改 var Form1:TForm1; StartButton:hWnd; OldBitmap:THandle; NewImage:TPicture; /将代码放入FormCreate事件 procedureTForm1.FormCreate(Sender:TObject); begin NewImage:=TPicture.c...
阅读全文
摘要：有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的HTTP头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手来DIY吧. 拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域网上所有的数据包,二是HOOK目标进程的发送和接收的API函数,第三种...
阅读全文
摘要：不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数，利用它与FindVCLWindow()的结合就可以轻易地获得鼠标指针下的VCL可视组件，但当一个窗体中不只一个VCL可视组件，例如可能还有TPanel、TMemo等等类型时，那么我们...
阅读全文
摘要：开发中有时需要在流中查找某个字串,这些字串有可能是ASCII表后半部分或混杂.但是网上提供的例程效果不佳而且代码冗长. 后来自己抽个时间写了一个,代码极少,效率很高.仅供各位参考: function ScanStream(T:Tstream;S:String):integer; var i,j:integer; p:Pchar; begin getMem(p,T.size);//分配...
阅读全文
摘要：procedure TForm1.FormCreate(Sender: TObject); begin AnimateWindow(Handle,2000{速度：2秒},AW_BLEND); { AW_HOR_POSITIVE = $00000001; AW_HOR_NEGATIVE = $00000002; AW_VER_POSITIVE = $00000004; AW_VER_...
阅读全文
摘要：如果你想要改变Windows的缺省打印机,你必须在Windows的WIN.INI中改变设备键。 发送一条 WM_WININICHANGE 消息： var strIni: array[0..MAX_PATH] of Char; arrWindows: array[0..64] of Char; begin GetWindowsDirectory(strIni, SizeOf(strI...
阅读全文
摘要：uses dao97,dao2000; procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true); var idbEngine:_dbEngine; begin if oldpwd '' then oldpwd := ';pwd='+oldpwd; if ne...
阅读全文
摘要：// 方法一 ：利用不规则图片 (1) procedure TForm1.FormCreate(Sender: TObject); begin self.ClientWidth := HotImage1.Width ; self.ClientHeight := HotImage1.Height ; brush.style:=bsClear; end; (2)把Form1 的 Bor...
阅读全文
摘要：类 别:COM & ActiveX (一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口: ExcelApp.Visible := True; 2) 更改 Excel 标题栏: ExcelApp.Captio...
阅读全文
摘要：用C#实现生成PDF文档（原码） //write by wenhui.org using System; using System.IO; using System.Text; using System.Collections; namespace PDFGenerator { public class PDFGenerator { static float pageWi...
阅读全文
摘要：任务栏（Taskbar）是微软公司在Windows 95中引入的一种特殊的桌面工具条，它为用户快速访问计算机资源提供了极大的方便，而状态栏（以下称通知栏）无疑是任务栏上较为特殊的一个窗口。编程人员可以调用API函数Shell_NotifyIcon向通知栏发送消息来添加、删除或修改图标，当在图标上发生鼠标或键盘事件时，系统会向应用程序发送编程时预先定义的消息，通知栏处理回调函数就会被自动调用以做出相...
阅读全文
摘要：自己捕捉WM_MOUSEWHEEL消息处理 private OldGridWnd : TWndMethod; procedure NewGridWnd (var Message : TMessage); public procedure TForm1.NewGridWnd(var Message: TMessage); var IsNeg : Boolean; begin if Me...
阅读全文
摘要：procedure TForm1.DBGrid1TitleClick(Column: TColumn); var I,ii:Integer; cStr:string; c:TColumn; begin for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do begin c:=TDBGrid(Column.Grid).Columns[...
阅读全文
摘要：unit net; interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet; //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean; //...
阅读全文
摘要：procedureTForm1.dbgrd1DrawColumnCell(Sender:TObject;constRect:TRect; DataCol:Integer;Column:TColumn;State:TGridDrawState); FunctionGetRowIndex()functionGetRowIndex:Integer;...
阅读全文
摘要：http://www.ddvip.net/program/uml/index1/15.htm
阅读全文
摘要： 物料及产品零部件代号编码是ERP系统中工程数据管理的重要依据。为进一步规范公司的ERP系统物料编码流程，对以前发布过的一系列ERP项目编码相关文件进行汇总和统一，以强化ERP系统工程数据管理，确保ERP系统高效、稳定、安全运行。
阅读全文
摘要：在理解MRP的时候关键是一些业务概念以及计算逻辑，这里引用了运作管理教程里的一个百叶窗的例子来说明计算过程以及所需要的数据。 主生产计划： BOM： 库存信息以及提前期： 物料的需求计划： 在物料需求计划制定出来之后就会参考能力需求计划来决定是否可行，如果可行那么就生成真正的执行物料计划，如果不可行...
阅读全文
摘要：在数据库编程中，我们常常要将主表和子表分别绑定到两个DataGrid，同时还有一些TextBox之类的 控件要显示相应DataGrid中的数据，...
阅读全文
摘要：看到许多人经常问到这个问题： 怎么由字符串 “126 + (256- 2^4 )”，或者怎么判断 “115 > 56 || 14<45”的结果...
阅读全文
摘要：下面這篇文章是關於.net編程的，個人認為實現方法有點過於繁瑣了（我沒有研究 過.net 2003，如有有謬誤之處請見諒)，其實在VS C# 2005中，很多部分直接在IDE下 就可直接設置，而不用手工編寫代碼，真正的節省時間，實現快速開發。 ...
阅读全文
摘要：usesTLHelp32,PsAPI; (1)显示进程列表： procedure TForm1.Button2Click(Sender: TObject); var lppe: TProcessEntry32; found : boolean; Hand : THan...
阅读全文
摘要：這裡轉載VS C# 2005幫助文件中的一章，有時間我會翻譯出來，不知大家有沒有興趣？ WiththereleaseofVisualStudio2005,theC#languagehasbeenupdatedtoversion2.0. Generics(C#) Generictypesareaddedtothe...
阅读全文