25分 特简单对高手来说！！ (25分)

新建了一个tbutton,name为btn_add,
现在要在运行时点击btn_add实现向数据库写入数据的功能，但我不知道
这段代码写在哪？谢谢，请给出代码！！！

对不起，我忘说了！btn_add是自动生成的
btn.create

onClick事件里面

写在ONCLICK时间里

双击 btn_add.

onClick

编辑时，双击按钮就会自动出现代码框架！填入即可！

在button的click中如下：
procedure TFrm_main.Menu_ywcx_spfbClick(Sender: TObject);
begin
with ADOTable1 do
begin
append;
ADOTable1['姓名']：=Edit1.text;
post;
end;
end;
建议你看看Delphi方面的书。

procedure TFrm_main.Menu_ywcx_spfbClick(Sender: TObject);
begin
with ADOTable1 do
begin
append;
ADOTable1.FieldByName('姓名').AsString：=Edit1.text;
post;
end;
end;
混点分[]

给你一点提示：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure runme(sender:Tobject);

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
btn:Tbutton;
begin
btn:=tbutton.Create(self);
btn.Parent :=form1;
btn.Caption :='hello';
btn.onClick :=runme;
end;
procedure TForm1.runme(sender: Tobject);
begin
showmessage('hello');
end;

end.

写一存储数据的过程mysave(sender:Tobject),
然后在btn.create之后写：btn.onclick:=mysave;

谢谢老大