unit8.~pas

图书管理系统设计程序

unit Unit8;

interface

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

type
  Treader_d = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    reader_no_delete: TEdit;
    name_delete: TEdit;
    Button1: TButton;
    Button2: TButton;
    reader_delete: TADODataSet;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  reader_d: Treader_d;

implementation
uses unit3;
{$R *.dfm}

procedure Treader_d.FormCreate(Sender: TObject);
begin
    reader_no_delete.Text:='';
    name_delete.Text:='';
end;

procedure Treader_d.Button1Click(Sender: TObject);
begin
    reader_delete.Active:=false;
    reader_delete.CommandText:='select *from reader';
    reader_delete.Active:=true;
    if(reader_no_delete.Text<>'')and(name_delete.Text<>'')then
    begin
        if(reader_delete.Locate('reader_no;name',VarArrayOf([reader_no_delete.Text,name_delete.Text]),[loPartialKey]))  then
        begin
            with reader_delete do
            begin
                delete;
            end;
            reader_no_delete.Text:='';
            name_delete.Text:='';
            showmessage('已经成功退证.');

        end
        else
          showmessage('该图书馆不存在这个借书证');
    end
    else
       showmessage('还没有完全输入数据，请立刻输入。');
end;

procedure Treader_d.Button2Click(Sender: TObject);
begin
    reader_no_delete.Text:='';
    name_delete.Text:='';
end;

end.