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

unit Unit8; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Mask, DBCtrls, StdCtrls, DB, DBTables; 
 
type 
  TBorrowForm = class(TForm) 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    Edit1: TEdit; 
    Label2: TLabel; 
    Edit2: TEdit; 
    Button1: TButton; 
    GroupBox2: TGroupBox; 
    GroupBox3: TGroupBox; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label8: TLabel; 
    Label9: TLabel; 
    Label10: TLabel; 
    DBEdit2: TDBEdit; 
    DBEdit3: TDBEdit; 
    DBEdit4: TDBEdit; 
    DBEdit5: TDBEdit; 
    DBEdit6: TDBEdit; 
    DBEdit7: TDBEdit; 
    DBEdit8: TDBEdit; 
    Query1: TQuery; 
    Query2: TQuery; 
    Query3: TQuery; 
    DataSource1: TDataSource; 
    DataSource2: TDataSource; 
    DataSource3: TDataSource; 
    DBEdit1: TDBEdit; 
    Button2: TButton; 
    Button3: TButton; 
    Button4: TButton; 
    Query4: TQuery; 
    procedure Button1Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
  //  procedure Button2Click(Sender: TObject); 
  //  procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  BorrowForm: TBorrowForm; 
 
implementation 
 
uses Unit9; 
 
{$R *.dfm} 
 
procedure TBorrowForm.Button1Click(Sender: TObject); 
 begin 
if (Edit1.Text='')and (Edit2.Text='')then 
   ShowMessage('请输入书号和读者编号') 
else 
begin 
    if edit2.Text=''then 
begin 
    Query1.close; 
    Query1.sql.clear; 
    Query1.sql.Add('select * from 图书 where Bno='+edit1.Text+''); 
    query1.ExecSQL; 
    Query1.Open; 
    //edit1.Text:=''; 
    end 
else if edit1.Text=''then 
    Query2.close; 
    Query2.sql.Clear; 
    Query2.SQL.add('select * from 学生 where Sno='''+edit2.Text+''''); 
    Query2.ExecSQL; 
    Query2.Open; 
    //edit2.Text:=''; 
    Query3.Close; 
    Query3.sql.Clear; 
    Query3.SQL.Add('select count(*) from 借阅 where 读者编号=12345'); 
    Query3.ExecSQL; 
    Query3.Open; 
 
end; 
end; 
 
procedure TBorrowForm.Button4Click(Sender: TObject); 
begin 
close; 
end; 
 
procedure TBorrowForm.Button2Click(Sender: TObject); 
var 
   sqlstr:string; 
begin 
      if DBEdit4.Text='True'then 
          application.MessageBox('该书已经被借出','注意!',mb_ok) 
      else 
      begin 
      sqlstr:='insert into 借阅 values('+Edit1.Text+','+Edit2.Text+',getdate())'; 
      Query4.Open; 
      Query4.SQL.Clear; 
      Query4.SQL.Add(sqlstr); 
      Query4.ExecSQL; 
      Query4.SQL.Clear; 
      Query4.SQL.Add('update 图书 set borrowed=1 where Bno='''+edit1.Text+''''); 
      Query4.ExecSQL; 
      Query4.Close; 
      application.MessageBox('完成借阅','提示：',mb_ok); 
      end; 
      end; 
 
procedure TBorrowForm.Button3Click(Sender: TObject); 
begin 
ReturnForm.show; 
end; 
 
end.