unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit2, Unit10;

{$R *.dfm}



procedure TForm8.BitBtn1Click(Sender: TObject);

   begin
   if MessageBox(handle, '真的要刪除全部信息嗎?', '提示', mb_IconQuestion + mb_YesNo) = idYes then
   begin
   WITH dm.adoquery1 do
   begin
   SQL.Clear;
   Close;
   sql.Add('DELETE  from RY ' );

   execsql;
   end;
   WITH dm.adoquery2 do
   begin
   SQL.Clear;
   Close;
   sql.Add('DELETE  from GZ ' );

   execsql;
   end;
   WITH dm.adoquery3 do
   begin
   SQL.Clear;
   Close;
   sql.Add('DELETE  from JT ' );

   execsql;
   end;
  MessageBox(handle,'刪除完畢！','提示',MB_OK or MB_ICONINFORMATION);



end;
end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
if edit1.Text='' THEN
application.MessageBox('姓名不能為空！','提示',mb_ok)
ELSE if MessageBox(handle, '真的要刪除此信息嗎?', '提示', mb_IconQuestion + mb_YesNo) = idYes then
begin
with dm.Adoquery1 do
begin
   SQL.Clear;
   Close;
   sql.Add('DELETE  from RY where RY.姓名='''+Edit1.Text+'''');
   execsql;
   end;
  // with dm.Adoquery2 do
//begin
  // SQL.Clear;
  // Close;
  // sql.Add('DELETE  from GZ where GZ.姓名='''+Edit1.Text+'''');
  // execsql;
  // end;
  // with dm.Adoquery3 do
//begin
  // SQL.Clear;
  // Close;
  // sql.Add('DELETE  from JT where JT.姓名='''+Edit1.Text+'''');
  // execsql;
  // end;
   edit1.Text:='';
application.MessageBox('數(shù)據(jù)已刪除!','完成提示',mb_ok);
end;
end;
procedure TForm8.BitBtn3Click(Sender: TObject);
begin
Form8.Visible:=false;
Form2.show;
end;

end.