deletereader.pas

图书馆管理系统设计用delphi开发的系统

unit deletereader;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids, ExtCtrls;

type
  TdeletereaderForm7 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deletereaderForm7: TdeletereaderForm7;

implementation

uses module;

{$R *.dfm}

procedure TdeletereaderForm7.BitBtn1Click(Sender: TObject);
begin
deletereaderform7.close;
end;

procedure TdeletereaderForm7.Button1Click(Sender: TObject);
begin
with DataModule1.ADOQuery1  do
begin
if(trim(Edit1.Text)='')  then
        begin
           showmessage('请输入学生证号！');
        end
 else
 begin
close;
sql.clear;
sql.add('select * from borrow_view');
sql.add('where 学生证号 ='''+Edit1.Text+'''');
open;
DataModule1.ADOQuery1.Active:=true;
end
end;
end;

end.