del.pas

来自「delphi编写的联合管理程序,很不错的哦」· PAS 代码 · 共 81 行

unit del;

interface

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

type
  Tfrmdel = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    btndelcurrent: TButton;
    btndelall: TButton;
    btnreturn: TButton;
    procedure btnreturnClick(Sender: TObject);
    procedure btndelcurrentClick(Sender: TObject);
    procedure btndelallClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdel: Tfrmdel;

implementation

uses datacont;

{$R *.dfm}

procedure Tfrmdel.btnreturnClick(Sender: TObject);
begin
close;
end;

procedure Tfrmdel.btndelcurrentClick(Sender: TObject);
begin
if not(dataconnect.adoqrycomm.Eof) then
   begin
   dataconnect.adoqrycomm.Delete;
   end
else
    begin
    if application.messagebox('您删除的记录是最后一条记录,确认删除该记录吗?','警告',mb_okcancel)=idok then
       if dataconnect.adoqrycomm.RecordCount=0 then
          begin
          showmessage('数据表的记录是空的!');
          activecontrol:=btnreturn;
          abort;
          end
       else
          begin
          dataconnect.adoqrycomm.Delete;
          end;
    end;
end;

procedure Tfrmdel.btndelallClick(Sender: TObject);
begin
//删除全部记录
if application.messagebox('确认删除全部记录吗?','警告',mb_okcancel)=idok then
   with dataconnect.adoqrycomm do
   begin
   close;
   sql.Clear;
   sql.Add('delete from comm1');
   execsql;
   end;
end;
procedure Tfrmdel.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
close;
end;

end.