请教问题

Question

unit Unit_insert;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls, Db, DBTables;type
   TF_insert = class(TForm)
    DS_personal: TDataSource;
    table_personal: TTable;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    number: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    nameedit: TDBEdit;
    age: TDBEdit;
    education: TDBEdit;
    school: TDBEdit;
    B_ok: TBitBtn;
    B_cancel: TBitBtn;
    sex: TComboBox;
    _Run: TQuery;    procedure B_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  F_insert: TF_insert;implementation{$R *.DFM}procedure TF_insert.B_okClick(Sender: TObject);
     var
     sname: string;
begin
   sname:=nameedit.text;
   _Run.Close;
   _Run.SQL.Clear;
   _Run.SQL.ADD('update personal set name='''+sname+'''');
 //  _Run.SQL.ADD('update tanggj_data.personal set number=:snumber, name=:sname');
 //  _Run.SQL.ADD('sex=:ssex, age=:sage,education=:seducation,scholl=:sschool');
   _Run.open
end;end.

Answer 1

unit Unit_insert;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls, Db, DBTables;type
   TF_insert = class(TForm)
    DS_personal: TDataSource;
    table_personal: TTable;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    number: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    nameedit: TDBEdit;
    age: TDBEdit;
    education: TDBEdit;
    school: TDBEdit;
    B_ok: TBitBtn;
    B_cancel: TBitBtn;
    sex: TComboBox;
    _Run: TQuery;    procedure B_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  F_insert: TF_insert;implementation{$R *.DFM}procedure TF_insert.B_okClick(Sender: TObject);
     var
     sname: string;
begin
   sname:=nameedit.text;
   _Run.Close;
   _Run.SQL.Clear;
   _Run.SQL.ADD('update personal set name='''+sname+'''');
 //  _Run.SQL.ADD('update tanggj_data.personal set number=:snumber, name=:sname');
 //  _Run.SQL.ADD('sex=:ssex, age=:sage,education=:seducation,scholl=:sschool');
   _Run.open
end;end.
ms sql server 6.5