unit6.~pas

来自「简单的一个computer系统」· ~PAS 代码 · 共 62 行

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit3, StdCtrls, Grids, DBGrids, ExtCtrls;

type
  TForm6 = class(TForm)
    Button5: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}








procedure TForm6.Button5Click(Sender: TObject);
begin
try
  dm.ADOConnection1.Open();
  dm.ADOConnection1.BeginTrans;
  dm.ADOQuery1.Close;
  dm.ADOQuery1.SQL.Text:='update customers set name where name='+self.Edit2.Text;
  dm.ADOQuery1.ExecSQL;

  dm.ADOConnection1.CommitTrans;
  showmessage('成功');
  except
  dm.ADOConnection1.RollbackTrans;
  showmessage('失败');
 end
end;

end.