Question

DELPHI 中,怎样在设置点击BUTTON触发SQL的UPDATE语句啊?

Answer 1

选择一个BUTTON控件然后又击进入到代码编写界面，写如下代码：
procedure TFrom.btButtonClick(Sender: TObject);
var SqlText: String;
begin
SqlText := ' UPDATE .......'; //在此处写你要update的代码
ExecuteSQL(SqlText );//ExecuteSQL这个语句要引用DBFUNC单元才行。(在uses里面加DBFUNC单元才行。)
end;

追问

在USES里面加DBFUNC单元?这个不懂哦

追答

就是把DBFUNC这个名称输入到uses哪段代码哪里，uses哪里有一些已经引用的单元，再把DBFUNC这个单元加上就可以了。

Answer 2

在BUTTON 的onclick事件里面直接写你要执行的语句啊

Answer 3

procedure TForm1.btn3Click(Sender: TObject);
var
con:TControl;
i:Integer;
begin
for i:=0 to Form1.ControlCount - 1 do
begin
con := Form1.Controls[i];
if con is TSpeedButton then
begin
con.Top := 1;
end;
end;

end;