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的自动排序功能。

  • 相关阅读:
    错位排序
    不容易系列之(4)——考新郎
    大数乘法
    神、上帝以及老天爷(错位排序)
    学生成绩……
    蛇形矩阵
    topcoder
    进制转换
    问题 1011
    topcoder 针对C程序员的TopCoder C++ (快速掌握)_ixigua—仅有杀毒软件是不够的…… .
  • 原文地址:https://www.cnblogs.com/angelbd/p/3373083.html
Copyright © 2011-2022 走看看