unit4.~pas

图书管理系统

unit Unit4;

interface

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

type
  Tdeletereader = class(TForm)
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    edit2: TEdit;
    Edit1: TEdit;
    Panel1: TPanel;
    Label9: TLabel;
    Label11: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit9: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button4: TButton;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid1: TDBGrid;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
   // procedure show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deletereader: Tdeletereader;

implementation

{$R *.dfm}

procedure Tdeletereader.Button4Click(Sender: TObject);
begin
adotable1.Edit;
  if messagedlg('确实要删除该读者？',mtWarning,[mbOK,mbCancel],0)=mrok then
    begin adotable1.Delete;
           showmessage('删除成功');
           edit1.Text :=adotable1.fieldbyname('reader_no').AsString;
           edit2.Text := adotable1.fieldbyname('reader_name').AsString;
           edit3.Text := adotable1.fieldbyname('reader_sex').AsString;
           edit4.Text := adotable1.fieldbyname('reader_type').AsString;
           edit5.Text := adotable1.fieldbyname('reader_dep').AsString;
           edit6.Text := adotable1.fieldbyname('reader_tel').AsString;
           edit7.Text := adotable1.fieldbyname('reader_email').AsString;
           edit8.Text := adotable1.fieldbyname('reader_amount').AsString;
           edit9.Text := adotable1.fieldbyname('reader_checkdate').AsString;
           memo1.Text := adotable1.fieldbyname('reader_memo').AsString;
           
    end
    else
    begin
     showmessage('删除失败');
     edit2.Text := '';
             edit3.Text := '';
             edit4.Text := '';
             edit5.Text := '';
             edit6.Text := '';
             edit7.Text := '';
             edit8.Text := '';
             edit9.Text := '';
             memo1.Text := '';
    end;
end;

procedure Tdeletereader.Button1Click(Sender: TObject);
begin
 adotable1.Active:=true;
  if RadioButton1.Checked then

    if not adotable1.Locate('reader_no',edit1.Text,[]) then
        begin
             showmessage('没有该读者，请重新输入');
             edit1.Text:='';
         end
     else
         begin
             adotable1.Locate('reader_no',edit1.Text,[]);
             edit2.Text := adotable1.fieldbyname('reader_name').AsString;
             edit3.Text := adotable1.fieldbyname('reader_sex').AsString;
             edit4.Text := adotable1.fieldbyname('reader_type').AsString;
             edit5.Text := adotable1.fieldbyname('reader_dep').AsString;
             edit6.Text := adotable1.fieldbyname('reader_tel').AsString;
             edit7.Text := adotable1.fieldbyname('reader_email').AsString;
             edit8.Text := adotable1.fieldbyname('reader_amount').AsString;
             edit9.Text := adotable1.fieldbyname('reader_checkdate').AsString;
             memo1.Text := adotable1.fieldbyname('reader_memo').AsString;
          end;



  if RadioButton2.Checked then
    if not adotable1.Locate('reader_name',edit2.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit2.Text:='';
         end
     else
         begin
             adotable1.Locate('reader_name',edit2.Text,[]);
              edit1.Text := adotable1.fieldbyname('reader_no').AsString;
              edit3.Text := adotable1.fieldbyname('reader_sex').AsString;
              edit4.Text := adotable1.fieldbyname('reader_type').AsString;
              edit5.Text := adotable1.fieldbyname('reader_dep').AsString;
              edit6.Text := adotable1.fieldbyname('reader_tel').AsString;
              edit7.Text := adotable1.fieldbyname('reader_email').AsString;
              edit8.Text := adotable1.fieldbyname('reader_amount').AsString;
              edit9.Text := adotable1.fieldbyname('reader_checkdate').AsString;
              memo1.Text := adotable1.fieldbyname('reader_memo').AsString;
          end;














 {adotable1.Locate('reader_no',edit1.Text,[]);
  edit2.Text := adotable1.fieldbyname('reader_name').AsString;
  edit3.Text := adotable1.fieldbyname('reader_sex').AsString;
  edit4.Text := adotable1.fieldbyname('reader_type').AsString;
  edit5.Text := adotable1.fieldbyname('reader_dep').AsString;
  edit6.Text := adotable1.fieldbyname('reader_tel').AsString;
  edit7.Text := adotable1.fieldbyname('reader_email').AsString;
  edit8.Text := adotable1.fieldbyname('reader_amount').AsString;
  edit9.Text := adotable1.fieldbyname('reader_checkdate').AsString;
  memo1.Text := adotable1.fieldbyname('reader_memo').AsString;  }

end;

procedure Tdeletereader.Button2Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Edit7.Text := '';
Edit8.Text := '';
Edit9.Text := '';
memo1.Text := '';
end;
{procedure Tdeletereader.show(Sender: TObject);
begin
adotable1.Active:=false;
adotable1.Active:=true;
end; }
procedure Tdeletereader.DBGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
adotable1.Active:=false;
adotable1.Active:=true;

end;

procedure Tdeletereader.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 := '联系电话';
dbgrid1.Columns[6].Title.caption := 'email地址';
dbgrid1.Columns[7].Title.caption := '已借阅本数';
dbgrid1.Columns[8].Title.caption := '登记日期';
dbgrid1.Columns[9].Title.caption := '备注';
dbgrid1.Columns[10].Title.caption := '信用等级分数';

end;

end.