用户公告
博客基本信息
用户名: 9128
等级: 小学生
在线时间: 478 分钟
日志总数: 43
评论数量: 1
访问次数: 27615
建立时间: 2007-04-28
等级: 小学生
在线时间: 478 分钟
日志总数: 43
评论数量: 1
访问次数: 27615
建立时间: 2007-04-28
最新评论
我的日志
判断TMSQuery是否更改过 2007-09-06
普通判断： if MSQuery.State in [dsEdit, dsInsert] then //变动过 else //未变动使用缓存控件TMSUpdateSQL MSQuery.CachedUpdates := True MSQuery.UpdateObject := MSUpdateSQL;变动判断： if MSQuery.UpdatesPending then //变动过 else //未变动
DBGridEh 按点击列进行排序 2007-08-21
当前使用TMSQuery作为数据集，在DBGridEh的OnTitleBtnClick事件中编写如下代码：procedure TfrmMain.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh);begin if (Column.Title.SortMarker = smNoneEh) or (Column.Title.SortMarker = smUpEh) then begin MSQuery.SetOrderBy(Column.FieldName+' desc'); end else begin MSQuery.SetOrderBy(Column.FieldName); end; MSQuery.Active := True;end;
DBGridEh 当前选择行背景色和字体设置 2007-08-21
在DBGridEh的OnDrawColumnCell中编写如下代码：procedure TfrmMain.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);begin if (gdSelected in State) then begin DBGridEh1.Canvas.Font.Color :=clBlack; DBGridEh1.Canvas.Brush.Color :=$00669988; DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column, State);&nb..
DBGridEh 行颜色交替显示 2007-08-21
在TDBGirdEh的OnGetCellParams事件中写如下代码： procedure TfrmMain.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);begin if DBGridEh1.SumList.RecNo mod 2 = 1 then Background := $00FFF6F6 else Background := $00FFFFFF;end;