unit8.~pas

delphi开发的数据库系统,支持用户注册.管理员登陆,可以进行插入,修改,删除等操作. 普通用户可以对数据库进行查询.

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('数据已删除!','完成提示',mb_ok);
end;
end;
procedure TForm8.BitBtn3Click(Sender: TObject);
begin
Form8.Visible:=false;
Form2.show;
end;

end.