unit6.~pas

2个用Delphi做的图书管理系统

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons, ComCtrls, Mask, DBCtrls;

type
  TForm6 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Memo1: TMemo;
    GroupBox4: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    GroupBox5: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox6: TGroupBox;
    Memo2: TMemo;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.show
end;

procedure TForm6.TabSheet1Show(Sender: TObject);
var
querystr:string;
begin
querystr:='select book_inf.bookid,bookname ';
querystr:=querystr+'from book_inf,book_stock ';
querystr:=querystr+'where book_inf.bookid=book_stock.bookid ';
querystr:=querystr+'and booklast>0';
dm.ADOQuery7.Close;
dm.ADOQuery7.SQL.Clear;
dm.ADOQuery7.SQL.Add(querystr);
dm.ADOQuery7.open;
end;

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm6.DBGrid1DblClick(Sender: TObject);
begin
  memo1.Lines.Add(dm.ADOQuery7.FieldValues['bookid']);
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
var
i:integer;
querystr:string;
begin
  querystr:='select readercardid from reader_inf where readercardid="'+edit1.text+'"';;
  dm.ADOQuery8.close;
  dm.ADOQuery8.SQL.Clear;
  dm.ADOQuery8.SQL.Add(querystr);
  dm.ADOQuery8.open;
  if dm.ADOQuery8.FieldValues['readercardid']<>edit1.Text then
    begin
      showmessage('读者卡号不存在！');
      exit;
    end;
  for i:=1 to memo1.Lines.Count do
    begin
      querystr:='insert into lend_book values(';
      querystr:=querystr+'"'+edit1.Text+'",';
      querystr:=querystr+'"'+dbedit1.Text+'",';
      querystr:=querystr+'"'+datetostr(date)+'")';
      dm.ADOQuery8.close;
      dm.ADOQuery8.SQL.Clear;
      dm.ADOQuery8.SQL.Add(querystr);
      dm.ADOQuery8.ExecSQL;

      querystr:='update book_stock set booklast=booklast-1 where bookid="'+memo1.Lines[i]+'"';
      dm.ADOQuery8.close;
      dm.ADOQuery8.SQL.Clear;
      dm.ADOQuery8.SQL.Add(querystr);
      dm.ADOQuery8.ExecSQL;
    end;
    showmessage('借书成功！');
    TabSheet1Show(Sender);
end;

procedure TForm6.DBGrid2DblClick(Sender: TObject);
begin
  memo2.Lines.Add(dm.ADOQuery9.FieldValues['bookid']);

end;

procedure TForm6.Button1Click(Sender: TObject);
var
querystr:string;
begin
  querystr:='select readercardid from reader_inf where readercardid="'+edit2.text+'"';;
  dm.ADOQuery8.close;
  dm.ADOQuery8.SQL.Clear;
  dm.ADOQuery8.SQL.Add(querystr);
  dm.ADOQuery8.open;
  if dm.ADOQuery8.FieldValues['readercardid']<>edit2.Text then
    begin
      showmessage('读者卡号不存在！');
      exit;
    end;
  querystr:='select lend_book.bookid,bookname from lend_book,book_inf ';
  querystr:=querystr+'where lend_book.bookid=book_inf.bookid ';
  querystr:=querystr+'and lend_book.readercardid="'+edit2.Text+'"';
  dm.ADOQuery9.close;
  dm.ADOQuery9.SQL.Clear;
  dm.ADOQuery9.SQL.Add(querystr);
  dm.ADOQuery9.open;
end;

procedure TForm6.BitBtn4Click(Sender: TObject);
var
querystr:string;
i:integer;
begin
  for i:=1 to memo2.Lines.Count do
    begin
      querystr:='delete from lend_book where readercardid="'+edit2.Text+'" ';
      querystr:=querystr+'and bookid="'+dbedit3.Text+'"';
      dm.ADOQuery9.close;
      dm.ADOQuery9.SQL.Clear;
      dm.ADOQuery9.SQL.Add(querystr);
      dm.ADOQuery9.ExecSQL;

      querystr:='update book_stock set booklast=booklast+1 where bookid="'+memo2.Lines[i]+'"';
      dm.ADOQuery9.close;
      dm.ADOQuery9.SQL.Clear;
      dm.ADOQuery9.SQL.Add(querystr);
      dm.ADOQuery9.ExecSQL;
    end;
end;

end.