unit5.~pas

图书馆管理系统

unit Unit5;

interface

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

type
  Tdeletereadertype = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button6: TButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure formshow(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deletereadertype: Tdeletereadertype;

implementation

{$R *.dfm}

procedure Tdeletereadertype.Button1Click(Sender: TObject);
begin
  adotable1.Active:= false;
  adotable1.Active:= true;

  if RadioButton1.Checked then

    if not adotable1.Locate('rt_typeno',edit1.Text,[]) then
        begin
             showmessage('没有该编号，请重新输入');
             edit1.Text:='';
             edit2.Text:='';
        end

     else
       begin
       edit2.Text:= adotable1.fieldbyname('rt_typename').asstring;
       end;
  if RadioButton2.Checked then

      if not adotable1.Locate('rt_typename',edit2.Text,[]) then
        begin
             showmessage('没有该名称，请重新输入');
             edit1.Text:='';
             edit2.Text:='';
        end

     else
       begin
       edit1.text:=adotable1.fieldbyname('rt_typeno').asstring;
       end;

end;

procedure Tdeletereadertype.Button2Click(Sender: TObject);
begin

adotable1.Edit;
  if messagedlg('确实要删除此读者类型？',mtWarning,[mbOK,mbCancel],0)=mrok then
    begin adotable1.Delete;
           showmessage('删除成功');
    end
    else
    begin
     showmessage('删除失败');
    end;
adotable1.Active:= false;
adotable1.Active:= true;

end;


procedure Tdeletereadertype.Button3Click(Sender: TObject);
begin
  adotable1.Prior;
  edit1.Text :=adotable1.fieldbyname('rt_typeno').AsString;
  edit2.Text :=adotable1.fieldbyname('rt_typename').AsString;

end;

procedure Tdeletereadertype.Button4Click(Sender: TObject);
begin
  adotable1.Next;
  edit1.Text :=adotable1.fieldbyname('rt_typeno').AsString;
  edit2.Text :=adotable1.fieldbyname('rt_typename').AsString;
end;

procedure Tdeletereadertype.Button5Click(Sender: TObject);
begin
   adotable1.Close;
   deletereadertype.Close;
end;

procedure Tdeletereadertype.formshow(Sender: TObject);
begin
  ADOTable1.Active :=false;
  ADOTable1.Active :=true;
  ADOTable1.Active :=false;
  ADOTable1.Active :=true;
  dbgrid1.Columns[0].Title.caption := '种类编号';
dbgrid1.Columns[1].Title.caption := '种类姓名';
dbgrid1.Columns[2].Title.caption := '读者限制借阅本数';
dbgrid1.Columns[3].Title.caption := '借阅有效日期（月）';
dbgrid1.Columns[4].Title.caption := '读者借阅年限（年）';
dbgrid1.Columns[5].Title.caption := '备注';


end;

procedure Tdeletereadertype.Button6Click(Sender: TObject);
begin
adotable1.Active:=false;
adotable1.Active:=true;
edit1.Text :='';
edit2.Text :='';
end;

procedure Tdeletereadertype.FormCreate(Sender: TObject);
begin
dbgrid1.Columns[0].Title.caption := '种类编号';
dbgrid1.Columns[1].Title.caption := '    种类姓名    ';
dbgrid1.Columns[2].Title.caption := '读者限制借阅本数';
dbgrid1.Columns[3].Title.caption := '借阅有效日期（月）';
dbgrid1.Columns[4].Title.caption := '读者借阅年限（年）';
dbgrid1.Columns[5].Title.caption := '备注';

end;

end.