dbgrideditbutton事件

Question

在這個事件中我要求彈出一新的窗口﹐雙擊某一所需記錄即返回一個對應的值更新原dbgrid中相對一概的值﹐同時此窗口關閉

Answer 1

我今天偶然发现了
兄弟不妨试是主窗体unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, DBCtrls;type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Query1: TQuery;
    DBComboBox1: TDBComboBox;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
  DT:TdateTime;
  Dw:Integer;
  S:String;
begin
  Dt:=now;
  Dw:=DayOfWeek(Dt);
  StatusBar1.Panels[0].Text:=SysUtils.DateToStr(Dt);
  Case Dw of
  1:S:='星期天';
  2:S:='星期一';
  3:S:='星期二';
  4:S:='星期三';
  5:S:='星期四';
  6:S:='星期五';
  7:S:='星期六';
  end;
  StatusBar1.Panels[1].Text:=S;
  ShowScrollBar(dbgrid1.Handle,SB_BOTH,false);//去掉水平和垂直
 end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
form2.show;
 form1.DBGrid1.ReadOnly:=true;
Form2.TabSheet1.Caption:=Table1.fields[1].asstring+'个人资料';
form2.Caption:=table1.fields[0].asstring+'个人资料';form2.edit1.text:=table1.fields[0].asstring;form2.edit2.text:=table1.fields[1].asstring;form2.edit3.text:=table1.fields[2].asstring;
form2.edit4.text:=table1.fields[3].asstring;
form2.edit5.text:=table1.fields[4].asstring;
form2.edit6.text:=table1.fields[5].asstring;
form2.edit7.text:=table1.fields[6].asstring;  end;
end.
从窗体
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    TabSheet2: TTabSheet;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation
   
uses Unit1;{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Close;
Form1.DBGrid1.Enabled:=true;end;