|
摘要：
1、客户端直接运行SQL命令，使用TDARemoteCommand2、服务器端直接运行SQL命令，使用TDALocalCommandfunction DeleteRowFromTable1(aID:integer):integer;var lCommand:TDALocalCommand; linp, lout: DataParameterArray; i: integer;begin try lCommand:=TDALocalCommand.Create(nil); lCommand.ServiceName:='MyService'; linp := DataParamet 阅读全文
posted @ 2011-08-09 12:06 colincode 阅读(631) 评论(0) 推荐(0) 编辑
摘要：
dxSkinController可以在运行时动态调入皮肤，不用在设计期Use一大串文件，把要用的皮肤用安装程序自带的Skin Editor编辑一个SkinRes文件，然后在程序中动态调入就可以了。uses dxSkinsDefaultPainters;procedure TForm1.FormCreate(Sender: TObject);begincxComboBox1.Properties.Items.Clear;dxSkinsUserSkinPopulateSkinNames(ExtractFilePath(ParamStr(0))+'\bsSkins.skinres', 阅读全文
posted @ 2011-04-01 13:31 colincode 阅读(1285) 评论(0) 推荐(0) 编辑
摘要：
1.FastReport中如果访问报表中的对象？可以使用FindObject方法。TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’;2.FastReport中如何使用上下标？设置frxmemoview.AllowHTMLTags := True;在Text输入如下上标：mm<sup>2</sup>下表：k<sub>6</sub>举一反三，你还可以使用其他HTML标记。3.FastReport中如何打印总页数？设置两次报表后加入引号内内容 “第[Page#]页 共[Tot 阅读全文
posted @ 2011-03-30 11:16 colincode 阅读(34767) 评论(1) 推荐(2) 编辑
摘要：
1、要使打印预览有office风格 要引用上dxPSPrVwRibbon。2、保存控件属性和还原属性（可用于保存打印设置）procedure TfmFtpUpdater.PropertiesStore;Var AStoreComponent: TcxPropertiesStoreComponent;begin try cxPropertiesStore1.StorageName := ExtractFilePath(ParamStr(0)) + 'options.ini'; cxPropertiesStore1.StorageType := stIniFile; AStoreC 阅读全文
posted @ 2011-03-25 15:02 colincode 阅读(644) 评论(0) 推荐(0) 编辑
摘要：
在cxTreeList的OnClick的事件下面，获取节点为ClickNode，然后1.向上移动ClickNode.MoveTo(ClickNode.getPrevSibling,tlamInsert);2.向下移动//在cxTreeList 的OnClick 的事件下面，获取节点为ClickNode，然后1.向上移动 ClickNode.MoveTo(ClickNode.getPrevSibling,tlamInsert);2.向下移动 //方法是对象的下一个节点上移就对了 ClickNode.getNextSibling.MoveTo(ClickNode.getNextSibling.ge 阅读全文
posted @ 2011-03-19 21:30 colincode 阅读(1632) 评论(0) 推荐(0) 编辑
摘要：
http://www.birdol.com/article/delphi-duoxiancheng-1.htmlhttp://www.birdol.com/article/delphi-duoxiancheng-2.html 阅读全文
posted @ 2011-02-24 16:55 colincode 阅读(148) 评论(0) 推荐(0) 编辑
摘要：
WIN 98/NT/2000/XP 是个多任务操作系统，也就是：一个进程可以划 分为多个线程，每个线程轮流占用CPU 运行时间和资源，或者说，把CPU 时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂起”和“唤醒”，由于时间片很小，给人的感觉是同时运行的。 多线程带来如下好处：（自己阅读） 1）避免瓶颈； 2）并行操作； 3）提高效率； 在多线程中，通过优先级管理，可以使重要的程序优先操作，提高了任务管理的灵活性。 另一方面，在多CPU 系统中，可以把不同的线程在不同的CPU 中执行，真正做到同时处理多任务（Win 98 只是模拟的，而Win/NT/2000是真正的多CPU同时操作） 阅读全文
posted @ 2011-02-24 16:53 colincode 阅读(194) 评论(0) 推荐(0) 编辑
摘要：
有两种方法：一、首先要设置服务端的服务AllowWhereSQL为True;客户端with ClientDataModule.dtCustomers do begin Close; // Prepares the custom WHERE clause Where.Clear; Where.AddConditions(['CustomerIdx','FirstName','LastName','City'], [cEqual,cLike,cLike,cLike], [eCode.Text,eFirstName.Text,eLastName.Text, eCity.Text], opAnd); 阅读全文
posted @ 2010-12-21 16:08 colincode 阅读(641) 评论(0) 推荐(0) 编辑
摘要：
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var pt: TPoint;begin Windows.GetCursorPos(pt); FMenu.Popup(pt.X, pt.Y);endMouse.CursorPos.X, Mouse.CursorPos.Y 阅读全文
posted @ 2010-12-03 17:11 colincode 阅读(163) 评论(0) 推荐(0) 编辑 |
||
