草根

摘要： 八、数据敏感控件的制作。Delphi的一大亮点就是它的数据库开发能力。而数据敏感组件则在这中间起着很重要的作用。在Delphi的Data Control页面下的控件都是用于显示和编辑数据库中的数据的。相信大家已经体会到数据敏感控件的好处了。我们这一节就给大家演示一下数据敏感控件的开发方法。需要提醒大家的是，不像其他体系的控件，数据敏感控件并没有一个统一的基类，只要是从TwinControl类或其子类派生就可以，数据敏感控件的特殊之处就在于我们下面提到的数据连接。相信用Delphi开发过数据库的人一定对delphi中没有一个日期数据敏感控件而恼火。每次都要我们自己处理数据的更新与显示。所以我们就 阅读全文

摘要： procedure TNewService.testoperation;var Cmd : IDASQLCommand; acon: IDAConnection; SqlDST: IDADataset;begin acon := ServerDataModule.ConnectionManager.NewConnection('New ADO Connection to ColinCodeData',true) ; Cmd := acon.NewCommand('',stSQL); Cmd.SQL := 'update table_1 set a = & 阅读全文

摘要： 定义一个消息需要两个步骤： 1.声明一个消息标识符 2.声明一个消息记录类型一个消息标识符是一个整数大小的常数。Windows自用低于1024的消息，所以当你声明你自己的消息，你应该开始高于这一数字。 常数WM_APP代表了用户定义的消息开始编号。当定义消息标识符，你应该基于WM_APP它们。（这是因为WM_USER所代表1024以后的消息编号，有一些已经被Windows标准组件占用了，为了避免冲突，使用WM_APP） 如果你想给你的消息一个有用的参数名，你需要声明该消息的消息记录类型。消息记录是传递给消息处理方法的参数类型。如果你不使用消息的参数，或者如果你想使用旧风格的参数表示法（wPar 阅读全文

摘要： Perform(Msg: Cardinal; WParam: WPARAM; LParam: LPARAM): LRESULT; overload;其中Msg用WM_SYSCOMMANDWParam用SC_SIZE OR 9LParam用0就可以实现已生成组件的拖动。?123456procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Button1.Perform(WM_SYSCOMMAND 阅读全文

摘要： oot user（又名超级用户 - superuser）是一个非常有权力的 unix 账户，root 的账户能在整个系统里任何部份进行任何操作，包括：拷贝档案、移动／移除档案及系统、执行程式等。所以，通常 root 的账户都只会指派给高级专业的用户使用。该账号即是权力最大的账号，也是最危险的账号，使用不当将严重破坏系统（当然你非要说重装系统就行，我也米话说了）。因此，苹果选择把root user 隐藏在 mac os x 里。但我们仍然可以透过以下几种方法把 root 的账户启动：方法一：启动 mac os x 的安装光碟，在安装菜单里选择「password reset」项目，便能更改密码或启 阅读全文

摘要： 在Delphi过程、函数中传递参数几个修饰符为Const、Var、Out。另一种不加修饰符的为默认按值传递参数。一、默认方式以值方式传递参数procedure TForm1.ProcNormal(Value: string);beginOrigNum:=Value+' Me';lblReturn.Caption:=OrigNum;//OrigNum为'Hello Me'lblOrig.Caption:=Value;//Value为'Hello'end;调用：OrigNum:='Hello';ProcNormal(OrigNum); 阅读全文

摘要： 一个公共单元unit ITest; interface type IT = interface function GetString:string; procedure ShowMsg(p:PChar); procedure Msg; end; implementation end.类单元，这个写在DLL里面的unit UTest; interface uses SysUtils, Windows, ITest; type TTest = class(TInterfacedObject,IT) private i:Int... 阅读全文

摘要： Delphi Project 之工程选项（Project Options）工程选项是另一个容易忽视的特性。因为对于初学者，缺省设置就足够用了。毕竟，当一个人忙于学习一个新编程环境时，哪有时间去关心那些编译器/链接器选项呢？但是，到一定时候，就会开始对这些选项感兴趣，并想知道它们是作什么用的。下面将讲述工程选项对话框。可从主菜单选择【Project | Options】来调用该对话框。工程选项对话框是一个多页面对话框，它有如下页面：FormsApplicationCompilerCompiler MessagesLinkerDirectories/ConditionalsVersion Info 阅读全文

摘要： 在Eclipse里自动导入相应包的类名的快捷键在Eclipse里，写一个没有导入相应包的类名(这个类名已经完全写全,比如LayoutManager)， 可以用ctrl+shift+M/Ctrl+Shift+o/Ctrl+1导入相应的包. MyEclipse 快捷键1(CTRL) ------------------------------------- Ctrl+1 快速修复 Ctrl+D: 删除当前行 Ctrl+Q 定位到最后编辑的地方 Ctrl+L 定位在某行 Ctrl+O 快速显示 OutLine Ctrl+T 快速显示当前类的继承结构 Ctrl+W 关闭当前Editer Ctrl+K 阅读全文

摘要： 1 unit UAccessOperate; 2 3 interface 4 5 uses Windows, Sysutils, ComObj, Dialogs, ActiveX; 6 7 8 9 //修改ACCESS数据库密码 10 function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean; 11 12 //压缩与修复数据库,覆盖源文件 13 function CompactDatabase(AFileName,APassWord:string):bo... 阅读全文