第1个回答 2008-04-07
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Form1{加上Form1};
type
TForm2 = class(TForm1{这里是Form1})
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.ButtonGet.Caption := '';
end;
也可以把查询、添加、删除等数据库操作做成函数,传递不同的参数。