zoukankan      html  css  js  c++  java
  • (转载)通过dbgrideh 从数据集中选择合适的记录

    通过dbgrideh 从数据集中选择合适的记录

    //---------------------------------------------------------
    // 通过dbgrideh 从数据集中选择合适的记录
    //---------------------------------------------------------

    比较常用,前几天好像论坛上有人提过类似问题,哪位朋友有更好的办法,请不吝赐教。

    通过dbgrideh 从数据集中选择合适的记录,可以通过鼠标拖动选择,shift 多选。

    1、dggrideh 的 options = [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
    主要是 dgRowSelect 和 dgMultiSelect;
    2、optionsEH = [dghFixed3D,dghHighlightFocus,dghDialogFind]
    dghClearSelection = false; // 可以避免自动清除前面的选择
    3、添加一个标示列
    4、通过标示列显示用户选择的情况:
    procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
    const Rect: TRect; DataCol: Integer; Column: TColumnEh;
    State: TGridDrawState);
    begin
    if (DataCol = 3) and DBGridEh1.SelectedRows.CurrentRowSelected then //3 标示列的index
    begin
    DBGridEh1.Canvas.Brush.Color:=clGray;
    DBGridEh1.Canvas.FillRect(Rect);
    DBGridEh1.Canvas.font.color:=clRed;
    DBGridEh1.Canvas.Textout(rect.Left,rect.Top,'√');
    end;
    end;
    5、全选和全不选
    DBGridEh1.SelectedRows.SelectAll;
    DBGridEh1.SelectedRows.Clear;
    6、如何使用 (delphi help)
    procedure TForm1.Button1Click(Sender: TObject);
    var
    i, j: Integer;
    s: string;
    begin
    if DBGridEh1.SelectedRows.Count>0 then
    with DBGridEh1.DataSource.DataSet do
    for i:=0 to DBGridEh1.SelectedRows.Count-1 do
    begin
    GotoBookmark(pointer(DBGridEh1.SelectedRows.Items[i]));
    for j := 0 to FieldCount-1 do
    begin
    if (j>0) then s:=s+', ';
    s:=s+Fields[j].AsString;
    end;
    Listbox1.Items.Add(s);
    s:= '';
    end;
    end;
    7、缺陷:不能用dbgrideh的自动排序功能。

  • 相关阅读:
    SharePoint提交前有效性验证
    showModalDialog/showModelessDialog弹出窗刷新例子
    在多选用户字段中查找是否存在某个用户(转自JianYi博客)
    SQL获得月第一天等
    SQL如何将Null不参与计算
    自定义Icon字段
    Backup Exec Remote Agent 在远程服务器上启动时挂起,一直显示Starting状态
    一个好用的日期控件My97DatePicker
    使用错误页统一处理错误(转)
    MS SQL游标的使用
  • 原文地址:https://www.cnblogs.com/angelbd/p/3373083.html
Copyright © 2011-2022 走看看