有个数据库,里面有张表,表的字段有姓名,性别等.....现在想实现                 张三         李四
                 张三         李四
                 张三         李四
                 张三         李四
                 张三         李四
                 张三         李四
                 张三         李四
                 张三         李四
                 张三         李四
                 张三         李四
                
在一个框里这样显示,只显示姓名,显示10行记录,要是超过10旁边出现scrollbars,双击当中的某个记录弹出新窗口显示双击记录的其他字段。不知可以实现吗?怎样实现?谢谢!

解决方案 »

  1.   

    现在主要的问题时我不知怎样这样显示呀!用DBGri好你这样显示不了。
      

  2.   

    为什么非要显示10行呢?如果非要的话,我想你可以调整dbgrid的高度正好是10条记录就可以了吧.
    至于:双击当中的某个记录弹出新窗口显示双击记录的其他字段.可以在DblClick事件中写代码,弹出另一个dbgrid或是其他什么控件来显示全部的字段.
      

  3.   

    可以用StringGrid来显示:
    procedure TForm1.Button1Click(Sender: TObject);
    const
      sList: array[1..10] of string = ('张三','李四','王朝 ','马汉','张三','李四','王朝 ','马汉','张三','李四');
    var
      Index, Row: Integer;
    begin
      Row := 1;
      for Index := 1 to 10 do
      begin
        if Index mod 2 = 1 then
          StringGrid1.Cells[0,Row] := sList[Index]
        else
        begin
          StringGrid1.Cells[1,Row] := sList[Index];
          Inc(Row);
        end;
      end;
    end;