bookm.pas

图书管理系统(Delphi),可作毕业设计

unit Bookm;

interface

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

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Label10: TLabel;
    Edit10: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    DBGrid3: TDBGrid;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    procedure TabSheet1Show(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure TabSheet2Show(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure DBGrid1ColEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
Uses main;
{$R *.dfm}

procedure TForm3.TabSheet1Show(Sender: TObject);
begin
Adoquery1.Active:=True;
Adoquery1.Append;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';






end;

procedure TForm3.Button1Click(Sender: TObject);
begin

if edit1.Text='' then showmessage('请输入书号')
  else if edit2.Text='' then showmessage('请输入书名')
    else  if edit3.Text ='' then showmessage('请输入作者')
      else  if edit4.Text ='' then showmessage('请输入出版社')
         else if Edit5.Text='' then showmessage('请输入价格')
         else
begin
 if messagedlg('确实要增加该图书？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
          Adoquery1.Edit;
          Adoquery1.Append;
          Adoquery1.FieldByName('Booknum').AsString:=Edit1.Text;
          Adoquery1.FieldByName('Bookname').AsString:=Edit2.Text;
          Adoquery1.FieldByName('Author').AsString:=Edit3.Text;
          Adoquery1.FieldByName('Press').AsString:=Edit4.Text;
          Adoquery1.FieldByName('Price').AsString:=Edit5.Text;
          Adoquery1.Post;
          showmessage('添加成功');
          Adoquery1.Append;

          Adoquery1.Refresh;

    end
    else
    begin
     showmessage('添加失败');
     Adoquery1.Append;
    end;
 end;
 edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
          Edit5.Text:='';








end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Form3.Close;
Form2.Show;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
edit5.Text:='';

end;

procedure TForm3.DBGrid2CellClick(Column: TColumn);
begin
edit6.Text:=Adoquery1.fieldbyname('Booknum').AsString;
Edit7.Text:=Adoquery1.fieldbyname('Bookname').AsString;
Edit8.Text:=Adoquery1.fieldbyname('Author').AsString;
Edit9.Text:=Adoquery1.fieldbyname('Press').AsString;
edit10.Text:=Adoquery1.fieldbyname('Price').AsString;
end;

procedure TForm3.TabSheet2Show(Sender: TObject);
begin
Adoquery1.Active:=True;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
If messagedlg('你确实要删除该记录吗?',Mtconfirmation,[Mbyes,MbNo],0)=Mryes then
begin
Adoquery1.Delete;
showmessage('删除成功!!');
end
else
showmessage('删除失败!!!');
end;

procedure TForm3.Button8Click(Sender: TObject);
begin
Edit11.Text:='';
Edit12.Text:='';
Edit13.Text:='';
Edit14.Text:='';
Edit15.Text:='';

end;

procedure TForm3.Button9Click(Sender: TObject);
begin
form3.Close;
form2.Show;
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
if messagedlg('确实要修改该图书的信息？',mtInformation,[mbOK, mbCancel],0)=mrok then
  begin
   Adoquery1.Edit;
   Adoquery1.FieldByName('Booknum').AsString:=Edit11.Text;
   Adoquery1.FieldByName('Bookname').AsString:=Edit12.Text;
   Adoquery1.FieldByName('Author').AsString:=Edit13.Text;
   Adoquery1.FieldByName('Press').AsString:=Edit14.Text;
   Adoquery1.FieldByName('Price').AsString:=Edit15.Text;
   Adoquery1.Post;
   showmessage('信息修改成功');
  end
  else showmessage('信息没有修改');
end;

procedure TForm3.DBGrid3CellClick(Column: TColumn);
begin
Edit11.Text:=Adoquery1.fieldbyname('Booknum').AsString;
Edit12.Text:=Adoquery1.fieldbyname('Bookname').AsString;
Edit13.Text:=Adoquery1.fieldbyname('Author').AsString;
Edit14.Text:=Adoquery1.fieldbyname('Press').AsString;
Edit15.Text:=Adoquery1.fieldbyname('Price').AsString;
end;

procedure TForm3.DBGrid1ColEnter(Sender: TObject);
begin
Edit1.Text:=Adoquery1.fieldbyname('Booknum').AsString;
Edit2.Text:=Adoquery1.fieldbyname('Bookname').AsString;
Edit3.text:=Adoquery1.fieldbyname('Author').AsString;
Edit4.Text:=Adoquery1.fieldbyname('Press').AsString;
Edit5.Text:=Adoquery1.fieldbyname('Price').AsString;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Show;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
showmessage('删除失败');
close;

end;

procedure TForm3.Button6Click(Sender: TObject);
begin
Form3.Close;
Form2.Show;
end;

end.