unitdel.~pas

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

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.