unit10.~pas

是用DELPHI编写的图书管理系统

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls;

type
  TFormdzzx = class(TForm)
    Panel1: TPanel;
    DBGriddzzx: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Editzxzh: TEdit;
    Label2: TLabel;
    Editzxxm: TEdit;
    btnzx: TButton;
    btnfh: TButton;
    Querydzzx: TQuery;
    DataSourcedzzx: TDataSource;
    procedure DBGriddzzxCellClick(Column: TColumn);
    procedure btnzxClick(Sender: TObject);
    procedure btnfhClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formdzzx: TFormdzzx;

implementation

{$R *.dfm}

procedure TFormdzzx.DBGriddzzxCellClick(Column: TColumn);
begin
editzxzh.Text :=dbgriddzzx.Fields [0].AsString ;
editzxxm.Text :=dbgriddzzx.Fields [1].AsString ;
end;

procedure TFormdzzx.btnzxClick(Sender: TObject);
 var zxzh:string;
     zxqr:integer;
begin
zxzh:=editzxzh.Text ;
zxqr:=messagedlg('确实要注销该读者吗？',mtconfirmation,[mbyes,mbno],0);
if zxqr=mryes then
 begin
   with querydzzx do
     begin
       close;
       sql.Clear ;
       sql.Add('delete dzmc');
       sql.Add('where jszh=:zxzhname');
       parambyname('zxzhname').AsString :=zxzh;
       prepare;
       execsql;
       end;
   with querydzzx do
      begin
        close;
        sql.Clear ;
        sql.Add('select *');
        sql.Add('from dzmc');
        sql.Add('order by jszh');
        prepare;
        open;
        end;
        end;
   editzxzh.Text :='';
   editzxxm.Text :='';

end;

procedure TFormdzzx.btnfhClick(Sender: TObject);
begin
close;
end;

end.