delphi中间件

2010年5月27日

摘要：阅读全文

posted @ 2010-05-27 22:08 delphi中间件阅读(252) 评论(0) 推荐(0) 编辑

摘要：数据驱动采用数据驱动进行系统实现时通常采用的是一个这样的过程，建立数据源(DataSource)，同时根据业务对象模型进行数据库表设计，在数据库表设计完成后根据业务场景构成数据集(DataSet)，通常这个时候DataSet本身就是一种业务场景所需的业务数据，在简单的情况下有可能就是对某张表的操作，复杂的情况下则是对于多张表的操作，在DataSet构成后将此DataSet绑定到页面即可进行数据的展现了，如需对数据进行增加、编辑、删除同样通过DataSet方式来进行，这个过程基本上就是一个基于数据驱动进行系统实现的过程了。数据驱动采用的方式是根据对业务的分析建立数据模型来进行系统设计的一种方法阅读全文

posted @ 2010-05-27 19:54 delphi中间件阅读(255) 评论(0) 推荐(0) 编辑

2010年5月25日

脚本适用场合

摘要：常常遇到要写一些客户端程序，其中90%以上的代码都是一样的，但10%是不一样的。最土的办法自然是copy一个老程序过来，改一点就行了。但是从软件重用精神讲还是处于初级阶段。但那些不同之处又是不能通过参数来调整这么简单的，有时还非得代码不可。我能想到的对策就是2种：插件和脚本。插件比较重量级，需要编译，需要开发环境。适合逻辑比较复杂的情况。脚本不是万能的，只适合于逻辑比较简单的情况。但是插件和脚本逻辑上是完全一样的，都是定义一组回调函数以符合预定义的接口规范，供主程序调用。这样一来，我就把不变的部分逻辑用主程序实现。变化的部分用脚本定义。主程序随时可以根据用户的选择，装入不同的脚本，实现不同的阅读全文

posted @ 2010-05-25 10:13 delphi中间件阅读(279) 评论(0) 推荐(0) 编辑

2010年5月24日

动态设置和访问cxgrid列的Properties

摘要：设置： cxGrid1DBTableView1Column.PropertiesClass = TcxTextEditProperties; cxGrid1DBTableView1Column.PropertiesClass = TcxDateEditProperties; cxGrid1DBTab 阅读全文

posted @ 2010-05-24 09:49 delphi中间件阅读(2239) 评论(0) 推荐(0) 编辑

cxgrid导出excel

摘要： uses cxexportgrid4link;var SaveDialog: TSaveDialog;begin SaveDialog:=TSaveDialog.Create(nil); with SaveDialog do begin Filter := '*.xls|*.xls'; if Exe... 阅读全文

posted @ 2010-05-24 09:44 delphi中间件阅读(1812) 评论(0) 推荐(0) 编辑

cxgrid在内置右键菜单的后面增加菜单项

摘要：在内置右键菜单的后面增加菜单项首先应在Form上加一个cxGridPopupMenu控件以启用右键菜单 UseBuildInPopupMenus设为True procedure TFormItemList.FormCreate(Sender: TObject); var AMenu: TComp 阅读全文

posted @ 2010-05-24 09:39 delphi中间件阅读(1575) 评论(0) 推荐(0) 编辑

cxgrid在当前View插入记录

摘要：使用FocusedView属性得到当前焦点View，用View.DataController得到对应的Data Controller，之后使用Data Controller的方法来操作数据： - Append - Insert - Post - Cancel - DeleteFocused - DeleteSelection 示例： var ARecIndex: Integer; … View.DataController.Append; ARecIndex := View.DataController.FocusedRecordIndex; View.DataController.Valu 阅读全文

posted @ 2010-05-24 09:30 delphi中间件阅读(450) 评论(0) 推荐(0) 编辑

cxgrid动态生成BandedView

摘要： var AView: TcxCustomGridView; begin AView := .CreateView(TcxGridDBBandedTableView); TcxGridDBBandedTableView(AView).DataController.DataSource := ; TcxGridDBBandedTableView(AView).Bands.Add; with TcxGridDBBandedTableView(AView).Bands.Add do begin Visible := False; FixedKind := fkLeft; end; TcxGridDBB 阅读全文

posted @ 2010-05-24 09:28 delphi中间件阅读(311) 评论(0) 推荐(0) 编辑

保存/恢复cxGrid布局

摘要： //恢复布局 IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini'; if FileExists(IniFileName) then Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复 else begin Self.tvResult.BeginUpdate; for i := 0 to Self.tvResult.ItemCount - 1 do Self.tvResult.Items 阅读全文

posted @ 2010-05-24 09:26 delphi中间件阅读(837) 评论(0) 推荐(0) 编辑

cxgrid按条件计算合计值

摘要：在Footer的第一列显示[合计:] 加一个Summary项,Column设为Grid的第一列,Kind设为skNone 在该Summary项的OnGetText事件中,输入: procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText( Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: String); begin AText := '合计: 阅读全文

posted @ 2010-05-24 09:22 delphi中间件阅读(1256) 评论(0) 推荐(0) 编辑

QQ:254072148；中间件QQ群：92449782；有源码的中间件才放心，有配套CS\BS\APP开发框架的才是好中间件