DELPHI语法请教

[Jackasdf]

unit usegl;

interface

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

type
Tusegl_Form = class(TForm)
yhm_Edit: TEdit;
mm_Edit: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
qx_edit: TComboBox;
comadd: TButton;
commodi: TButton;
comdel: TButton;
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
yulabtn: TButton;
ADOQuery1Yhm: TStringField;
ADOQuery1Mm: TStringField;
ADOQuery1Qx: TStringField;
procedure commodiClick(Sender: TObject);
procedure comaddClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure yulabtnClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
usegl_Form: Tusegl_Form;

implementation

{$R *.dfm}
procedure Tusegl_Form.DBGrid1CellClick(Column: TColumn);
begin
if ADOQuery1.RecordCount>0 then
begin
yhm_edit.Text:= ADOQuery1.FieldValues['yhm'];
mm_edit.Text:=ADOQuery1.FieldValues['mm'];
qx_edit.ItemIndex:=ADOQuery1.FieldValues['qx'];
end;
end;

procedure Tusegl_Form.commodiClick(Sender: TObject);
var
yhm,mm,qx,id,sqlstr:string;
begin
yhm:=Trim(yhm_edit.Text);
mm:=Trim(mm_edit.Text);
qx:=IntToStr(qx_edit.ItemIndex);
if (length(yhm)<1) or (length(mm)<1) then
begin
showmessage('请输入修改用户名,密码,权限!!!!');
yhm_edit.SelectAll;
end
else
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select* from yhb where (yhm='''+yhm+''')');
open;
if RecordCount >0 then
begin
showMessage('修改的系统用户有重复,请重入!');
end
else
begin
sqlstr:='update [yhb] set (yhm='''+yhm+''',mm='''+mm+''',qx='''+qx+''')';
close;
SQL.Clear;
SQL.Add(sqlstr);
ExecSQL;
showMessage('修改成功');
end;
end;
end;
我这样写一个修改程序,但每次修改都说'(',语法附近有错,我真百思不解,究竟里出错,还有都不能修改成功,查验还是没改,请教!

[feizi10512]

应该是 sqlstr:='update [yhb] set (yhm='''+yhm+''',mm='''+mm+''',qx='''+qx+''')';吧

试试 sqlstr:='update [yhb] set yhm='''+yhm+''',mm='''+mm+''',qx='''+qx+'''';

[dreamover]

set后面没有括号

[CentaurCao]

同意楼上的。
估计是分行所致。

[bsmqu]

呵呵，肯定一點的是你的SQL語句那裡有錯誤，仔細檢查應該沒問題

[流水寿司殿]

哪一行错了?