lend.pas

图书借阅管理系统

unit Lend;

interface

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

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox3: TGroupBox;
    Button5: TButton;
    Label6: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Button6: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Button3: TButton;
    Button4: TButton;
    Label7: TLabel;
    GroupBox4: TGroupBox;
    Edit2: TEdit;
    Button7: TButton;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit3: TDBEdit;
    Edit1: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure Button6Click(Sender: TObject);
    procedure Edit5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit3Change(Sender: TObject);

      private
    { Private declarations }
  public
      { Public declarations }
   end;


var
  Form3: TForm3;
  //Getname,Getno:string;
implementation

uses Datamodule, Main;

{$R *.dfm}


function Getname (value:string):string;
begin
  Getname:=DataModule1.adoquery2.FieldByName('学号').asstring;
  //Getname:=Dbgrid1.FieldByName('姓名').AsString;
end;

procedure TForm3.Button6Click(Sender: TObject);
  var choice,content:string;
begin
  choice:=ComboBox1.text;
  content:=edit5.text;
  if content='' then
   begin
    Application.Messagebox('请输入查询内容！','提示',Mb_OK+Mb_iconinformation);
    exit;
   end;
  DataModule1.adoquery2.Close;
  DataModule1.adoquery2.SQL.clear;
  DataModule1.adoquery2.SQL.add('select * from reader where '+choice+' like :content');
  DataModule1.adoquery2.Parameters.ParamByName('content').Value:='%'+edit5.text+'%';
  DataModule1.adoquery2.Open;
  edit3.SetFocus;
end;

procedure TForm3.Edit5Click(Sender: TObject);
begin
  edit5.SetFocus;

end;


procedure TForm3.FormCreate(Sender: TObject);
  var
   lendtime:string;
begin
  edit4.text:= DateTimeToStr(Now);
  edit2.text:= DateTimeToStr(Now);
  lendtime:=edit4.text;
 end;

procedure TForm3.ComboBox1Change(Sender: TObject);
begin
 edit5.Clear;
 edit5.setfocus;
end;

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

procedure TForm3.Button5Click(Sender: TObject);
begin
  DataModule1.adoquery2.Close;
  DataModule1.adoquery2.SQL.clear;
  DataModule1.adoquery2.SQL.add('select * from reader');
  DataModule1.adoquery2.Open;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  DataModule1.adoquery1.Close;
  DataModule1.adoquery1.open;
end;

procedure TForm3.Button2Click(Sender: TObject);
 var StuNo,BookNo:string;
 //lendtime:TDatetime;
begin
  stuNo:=DBedit1.text;
  BookNo:=edit3.text;
  Button2.Enabled:=false;
if edit3.Text<>'' then
try
 DataModule1.adoquery4.Close;
 DataModule1.adoquery4.SQL.clear;
 DataModule1.adoquery4.sql.Add('insert into lend (学号,书号,借书日期) values(:stuno,:BookNo,:Lendtime)');
 DataModule1.adoquery4.Parameters.parambyname('stuno').value:=trim(DBedit1.text);
 DataModule1.adoquery4.Parameters.parambyname('BookNo').value:=trim(edit3.text);
 DataModule1.adoquery4.Parameters.parambyname('Lendtime').value:=strtodatetime(edit4.text);
 DataModule1.adoquery4.ExecSQL;
 DataModule1.adoquery4.close;
 DataModule1.adotable1.close;
 DataModule1.adotable1.open;

 application.MessageBox('借书成功!','提示',0+64);
 except
  application.MessageBox('操作失败!','提示',0+48);
  exit;
end;


end;

procedure TForm3.Button7Click(Sender: TObject);
  var RBNo:string;
begin
  RBNo:=DBedit3.text;
  if DBedit3.text<>'' then
try
 DataModule1.adoquery4.Close;
 DataModule1.adoquery4.SQL.clear;
 DataModule1.adoquery4.sql.Add('Delete from lend where 书号=:RBNo');
 DataModule1.adoquery4.Parameters.parambyname('RBNo').value:=DBedit3.text;
 DataModule1.adoquery4.ExecSQL;
 DataModule1.adotable1.active:=false;
 DataModule1.adotable1.active:=true;
 application.MessageBox('还书成功!','提示',0+64);
 except
  application.MessageBox('操作失败!','提示',0+48);
  exit;
end
  else
   application.MessageBox('你尚未借书!','提示',0+64);
end;

procedure TForm3.Button1Click(Sender: TObject);
  var BookNo:string;
      //StuName:string;
begin
if edit3.text<>'' then
  begin
  try
  BookNo:=edit3.Text;
  DataModule1.adoquery3.Close;
  DataModule1.adoquery3.SQL.clear;
  DataModule1.adoquery3.SQL.add('select * from Book where 书号=:BookNo');
  DataModule1.adoquery3.Parameters.ParamByName('BookNo').Value:=edit3.Text;
  DataModule1.adoquery3.Open;
  if DataModule1.adoquery3.FieldValues['书名']<>null then
  begin
  edit1.Text:=DataModule1.adoquery3.FieldValues['书名'];
  button2.Enabled:=true;
  application.MessageBox('可以借阅!','提示',0+64);
  end
  else application.MessageBox('该书不存在!','提示',0+16);
  except
  application.MessageBox('操作失败!','提示',0+48);
  exit;

end;
end;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
  DataModule1.adoquery2.Close;
  DataModule1.adoquery2.open;
  DataModule1.Adotable1.active:=true;
end;

procedure TForm3.Edit3Change(Sender: TObject);
begin
  if length(edit3.text)=10 then
  button1.SetFocus;
end;

end.