2012年04月_chelen_jak

12月 11月 10月 09月 07月 06月 05月 04月 03月 02月 01月

原创 cxGrid合计时忽略某些记录

方法由俊哥提供某些报表要求在Grid中进行分类小计，如下图:合计时应将“小计”行忽略，否则数重复计算了。第1步：定义一个合计过程 procedure cxGrid1DBBandedTableView1DataControllerSummaryFooterSummaryItemsSummary( ASender: TcxDataSummaryItems

2012-04-28 12:32:57 1533

转载 SQL SERVER2000使用AWE进行内存优化

来源：http://www.soaspx.com/dotnet/sql/mssql/sql2000/sqlserver2000_20110919_8067.html 今年年初的时候一个客户打电话抱怨系统随着时间的推移越来越慢，在正常情况下还能够忍受，如果系统出现数据问题需要重新执行，那可以想象在某一个时间急着需要报告而系统确是默默唧唧在拉破车，换谁都无法忍受。随之，我们调查这个问

2012-04-28 10:58:59 6494 1

原创设定快搜Caption时注意

意外发现更改TSmartRadioGroupCondition.Caption时竟然会触发重新打开数据，所以设定TSmartRadioGroupCondition.Caption时应将ImmediateExecute为False，当高置完后再将ImmediateExecute为True, 其它用于快搜内的控件有没有此问题有待验证。procedure TfrmCarHelp.SetHelpCon

2012-04-23 10:15:05 677

转载关于Delphi中预编译指令的使用方法

来源：http://www.mscto.com/delphi/2009022777313.html在Delphi中，也有与C相似的预编译指令，虽然该类指令只在当前的单个文件有效（也有可能是笔者未全面了解该类指令的真正用法），但是这一类指令对于进行多版本的制作工作（如从标准版中出学习版），确实有着相当不错的用途。一．指令介绍： 1． DEFINE指令：格式：{$DEFINE名称

2012-04-21 15:01:02 614

转载 Delphi 的编译指令

Delphi 的编译指令: $DEFINE、$UNDEF、$IFDEF、$ELSE、$ENDIF来源:http://tech.ddvip.com/2009-04/1239360770114444.html 原排版更易阅读　一个程序从无到有的过程是这样的: 编辑代码 -> 预处理 -> 编译(成dcu等) -> 链接(为exe等).　　什么是预处理? 　　譬如

2012-04-21 14:46:49 1916

原创在编辑窗口中调用另一窗口并回写数据

procedure TfrmVSEditor.BOBrokerAfterApplyUpdates(Processor: TSmartProcessor; var Applied: Boolean);var ds1: TSmartDataSet;begin inherited; //后续拜访 if (processor.State in [psInsert])

2012-04-21 11:48:00 702

原创取日期相交記錄

declare @Holiday table ( ID int identity(1,1), SDate DateTime, EDate DateTime, Remark varchar(30) )insert into @Holiday(SDate, EDate, Remark) values('2012-03-10', '2012-03-15', 'A')

2012-04-17 16:31:58 948

原创令编辑窗口只能保存，不能取消

思路： 1.点击“取消”按钮时拦截并给出提示（aCancelExecute方法）； 2.点击右上角的交叉时拦截并给出提示(CloseQuery方法)；实现方法： procedure TfrmAskVSEditor.aCancelExecute(Sender: TObject);begin if (processor.State in [p

2012-04-07 14:42:25 753

原创取当前cxGrid

use SmartGridvar aGridView: TSmartGridDBBandedTableView; aGrid: TcxGrid;begin .. //当前Grid(多个Grid时) if Self.ActiveControl is TcxGridSite then begin aGridView := TcxGridSi

2012-04-03 17:49:54 884

转载 richedit读写image字段

来源：http://hi.baidu.com/%D6%D0%CC%EC%B4%F3%C3%D7/blog/item/31ea821fdbc05467f724e41e.htmlprocedure TForm2.Button1Click(Sender: TObject);var ms:tmemorystream;begin ms:=tmemorystream.Crea

2012-04-03 12:12:27 752

原创在BO中写类似 Exists 的方法

protected override bool DoApprove(MyStatusChangeEventArgsSdEntities,SdPriceChk> e) {//更新价格清单 UpdatePubItemPrice(e.ctx, e.MasterEntity); return base.DoAppro

2012-04-02 11:24:04 553

原创明细合计回写总表的处理，应在Presenter的DoBeforePost中处理,如

protected override void DoBeforePost(object sender, BeforeEventArgs e){ base.DoBeforePost(sender, e); MasterEntitySet.Current.Quantity = MasterEntitySet.Current.SdQuotationItem.Sum(i => i.

2012-04-02 11:22:12 577

原创在SmartDataGrid底部显示合计栏的方法

1.SmartDataGrid 的 ShowColumnFooters="True"2.如果将其中一栏显示“合计”两个字，将对应列的 Footer="合计"3.在需要合计的列增加合计，如金额" Binding="{Binding Amount}" Width="100" IsReadOnly="True"> 其中:是合计，还有其它

2012-04-02 11:18:09 1032