Delphi双击DBGrid如何实现调用另一窗体功能？

本文共计193个文字，预计阅读时间需要1分钟。

plaintextunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;type TForm1=class(TForm) DataSource1: TDataSource; ADOTable1: TADOTable; DBGrid1: TDBGrid; end;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
Button1: TButton;
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
// var
DataSet : TDataSet

end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.DBGrid1DblClick(Sender: TObject);
//var
//DataSet : TDataSet
begin
DataSet := DBGrid1.DataSource.DataSet;
with TForm2.Create(nil) do begin
edit1.text :=DataSet.FieldByName(‘客户‘).Asstring;
ShowModal;
Free;

end;
end;
end.
连上面

procedure TForm2.Button1Click(Sender: TObject);beginwith adoquery1 dobeginclose;sql.clear;sql.add(‘select * from 销售表 where 客户=‘‘‘+trim(edit1.text)+‘‘‘‘);open;end;end;