unitdel.pas

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

unit Unitdel;

interface

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


type
  TForm9 = class(TForm)
    suiForm1: TsuiForm;
    suiButton1: TsuiButton;
    suiImagePanel1: TsuiImagePanel;
    Label1: TLabel;
    procedure suiButton1Click(Sender: TObject);
  private

    { Private declarations }
  public
      Tid:string;
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.suiButton1Click(Sender: TObject);
var
     myQuery:TADOQuery;
begin
     myQuery:=TADOQuery.Create(self);
     myQuery.Connection:=ADOConn;
     myQuery.SQL.Add('delete from record where d_bh='''+Tid+'''');
     myQuery.ExecSQL;
     myQuery.Close;
     myQuery.SQL.Clear;
     myQuery.SQL.Add('delete from record where d_bh='''+Tid+'''');
     myQuery.ExecSQL;
     myQuery.Close;
     myQuery.Free;
     self.Close;
     showmessage('删除操作完成!');
end;

end.