unitdel1.pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

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.