2010年09月_bdmh

12月 09月 08月

原创在Win7系统中安装Delphi7

最近本本里新装了Win7 32位系统，安装其他软件，一切正常，偏偏安装Delphi7时，遇到了头疼的麻烦，怎么也装不上，安装过程嗖的就过去了，安装失败，查了很多网络资料，也没搞定，很偶然的一次看到了兼容性这个东东，改一下试试，结果安装顺利完成。 右键点击Delphi7的安装程序，选择‘兼容性’页签，打上那个勾勾就可以了。

2010-09-21 18:28:00 5386 7

DDE(Dynamic Data Exchange)，称为动态数据交换。用于进程间的通讯，看看他如何来和Word交互。 在System页签下有TDdeClientConv组件，拖一个放到界面上，然后我们写如下代码： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleServer

2010-09-21 13:25:00 2402

原创禁止用键盘左右箭头，去切换PageControl页签

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls;type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabShee

2010-09-19 16:08:00 1874

原创 Delphi实现全局鼠标钩子

其中涉及到的一些API，网上均能查到详细的解释，这里不再熬述。因为是全局钩子，所以要用dll注入。用到的鼠标消息结构如下： PMouseHookStruct = ^TMouseHookStruct; {$EXTERNALSYM tagMOUSEHOOKSTRUCT} tagMOUSEHOOKSTRUCT = packed record pt: TPoint; hwnd: HWND; wHitTestCode: UINT; dwExtraInfo: DWO

2010-09-16 14:11:00 5582 1

原创 Delphi实现软件中登录用户的操作权限

经常在坛子里看到有朋友问如何对软件的登录用户，进行权限控制，可以设定到每一个菜单或按钮上，这里来实现一个最普通的方法，通过数据库，维护一个权限列表（里面有一个字段和节目上菜单项或Button等的tag对应），在执行时，通过到数据库去查询与之匹配的记录是否开通，来决定用户是否有权限。数据库结构：包括两张表BaseData和UserRightData，BaseData中是一张基本表，里面不区分用户，UserRightData是用户权限表，结构和BaseData一样，只是多了用户字段，增加用户时，

2010-09-02 13:00:00 8727 16

原创 C#将数据集连接到Excel并显示

using Microsoft.Office.Interop.Excel; 需要引用Microsoft Excel 12.0 Object Library private void WriteExcel(string filename,string sql) { Application excel; _Workbook xBk; _Worksheet

2010-09-02 10:19:00 5247 1

原创根据数据库结构生成TreeView

现在大多数的方法是采用递归，但这种操作会频繁的去select数据库，降低了执行效率，稍微改动一些，效果会好不少，这里介绍一种方法，即一次性select出所有数据，然后按照ParentID排序，逐条添加到TreeView，添加前，先遍历TreeView，查找他的上一级节点，遍历Treeview可比select数据快啊，下面看代码：数据表结构，最顶级parentid值我用的是-1，大家也可以用其他值，但要保证最顶级parentid值最小，层次越深，parentid越大procedure TUIOperate.F

2010-09-02 09:04:00 5831 7