unitdel1.pas

来自「档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示」· PAS 代码 · 共 44 行

unit Unitdel1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unitcomm,DB,ADODB, SUIButton, ExtCtrls, SUIForm, StdCtrls;

type
  TForm12 = class(TForm)
    suiForm1: TsuiForm;
    suiButton1: TsuiButton;
    Label1: TLabel;
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
      Tid:string;
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.suiButton1Click(Sender: TObject);
var
     myQuery:TADOQuery;
begin
     myQuery:=TADOQuery.Create(self);
     myQuery.Connection:=ADOConn;
     myQuery.SQL.Add('delete from lendm where b_id='''+Tid+'''');
     myQuery.ExecSQL;
     myQuery.Close;
     myQuery.SQL.Clear;
     showmessage('记录删除成功!');
     
end;

end.