unit1.pas

DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, Buttons, ExtCtrls, DBCtrls;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    DBNavigator1: TDBNavigator;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    procedure GetSelectedRecord(DataSet:TDataSet;FieldName:string;
                                BookmarkList:TBookmarkList;Strings:TStrings);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.GetSelectedRecord(DataSet : TDataSet; FieldName : String;
                                   BookmarkList:TBookmarkList;Strings:TStrings);

var
  i: Integer;
  bm: TBookMark;
begin
  Strings.Clear;
  with Dataset do
  begin
    DisableControls; //屏蔽控制
    bm:=GetBookMark;//记录当前书签位置
    try
    //每个选择的记录都有一个书签标志,可据此进行处理
    for i := 0 to BookmarkList.Count - 1 do
    begin
      Bookmark := BookmarkList[i]; //处理每个选择的记录
      Strings.Add(DataSet.FindField(fieldname).AsString);
    end;
    finally
    GotoBookMark(bm);//恢复书签位置
    FreeBookMark(bm);//释放书签对象
    EnableControls;//恢复控制
  end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Form2.ListBox1.Items.Clear;
  GetSelectedRecord(Table1,'Name',DBGrid1.SelectedRows,Form2.ListBox1.Items);
  Form2.Show;
end;

end.