unit10.~pas

图书管理系统的简单制作

unit Unit10;

interface

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

type
  TFormdzzx = class(TForm)
    Panel1: TPanel;
    DBGriddzzx: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Editzxzh: TEdit;
    Editzxxm: TEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuerydzzx: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGriddzzxCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formdzzx: TFormdzzx;

implementation

{$R *.dfm}

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

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

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

end.