www.pudn.com > libraryborrowSystem.rar > Unit9.pas

unit Unit9; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Mask, DBCtrls, StdCtrls, DB, DBTables; 
 
type 
  TReturnForm = class(TForm) 
    GroupBox1: TGroupBox; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Label1: TLabel; 
    Label2: TLabel; 
    Button1: TButton; 
    GroupBox2: TGroupBox; 
    DBEdit1: TDBEdit; 
    DBEdit2: TDBEdit; 
    DBEdit3: TDBEdit; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Query1: TQuery; 
    Query2: TQuery; 
    DataSource1: TDataSource; 
    Button2: TButton; 
    Button3: TButton; 
    Button4: TButton; 
    Button5: TButton; 
    DBEdit4: TDBEdit; 
    Label6: TLabel; 
    Query3: TQuery; 
    DataSource2: TDataSource; 
    Label7: TLabel; 
    Label8: TLabel; 
     
   // procedure Button5Click(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button5Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  //  procedure Button4Click(Sender: TObject); 
  //  procedure Button3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  ReturnForm: TReturnForm; 
 
implementation 
 
uses Unit8, Unit7; 
 
{$R *.dfm} 
 
//procedure TReturnForm.Button5Click(Sender: TObject); 
//begin 
//close; 
//end; 
 
procedure TReturnForm.Button1Click(Sender: TObject); 
begin 
  if (Edit1.Text='')or (Edit2.Text='')then 
    showMessage('请输入书号和读者编号!') 
    else 
    begin 
    Query1.close; 
    Query1.sql.clear; 
    Query1.sql.Add('select * from 图书 where Bno='+edit1.Text+''); 
    query1.ExecSQL; 
    Query1.Open; 
    Query3.Close; 
    Query3.SQL.Clear; 
    Query3.SQL.Add('select 借阅日期 from 借阅 where 书号='+edit1.Text+''); 
    Query3.ExecSQL; 
    Query3.Open; 
    //edit1.Text:=''; 
end; 
 
//procedure TReturnForm.Button4Click(Sender: TObject); 
//begin 
//BorrowForm.show; 
//end; 
 
//procedure TReturnForm.Button3Click(Sender: TObject); 
//begin 
//QueryForm.Show; 
end; 
 
procedure TReturnForm.Button5Click(Sender: TObject); 
begin 
close; 
end; 
 
procedure TReturnForm.Button4Click(Sender: TObject); 
begin 
BorrowForm.show; 
end; 
 
procedure TReturnForm.Button3Click(Sender: TObject); 
begin 
QueryForm.show; 
end; 
 
procedure TReturnForm.Button2Click(Sender: TObject); 
var 
   sqlstr:String; 
begin 
sqlstr:='DELETE FROM 借阅 WHERE 书号='+Edit1.Text+' AND 读者编号='+Edit2.Text+''; 
Query2.Close; 
Query2.SQL.Add(sqlstr); 
Query2.ExecSQL; 
Query2.Open; 
 
Query2.Close; 
Query2.SQL.Add('UPDATE 图书 SET borrowed=0 where Bno='+Edit1.text+''); 
Query2.ExecSQL; 
Query2.Open; 
application.MessageBox('还书完成','提示:',mb_ok); 
end; 
 
procedure TReturnForm.FormCreate(Sender: TObject); 
begin 
label7.Caption:=formatdatetime('yyyy-m-d',now); 
end; 
 
end.