www.pudn.com > 701.rar > Unit5.pas

unit Unit5; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ComCtrls, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ExtCtrls; 
 
type 
  Tjieyueguanli = class(TForm) 
    PageControl1: TPageControl; 
    TabSheet1: TTabSheet; 
    TabSheet2: TTabSheet; 
    Panel1: TPanel; 
    DataSource1: TDataSource; 
    ADOTable1: TADOTable; 
    DBGrid1: TDBGrid; 
    Panel3: TPanel; 
    Label5: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    BitBtn3: TBitBtn; 
    BitBtn4: TBitBtn; 
    Panel4: TPanel; 
    DBGrid2: TDBGrid; 
    ADOTable2: TADOTable; 
    DataSource2: TDataSource; 
    Panel2: TPanel; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    edit1: TEdit; 
    edit2: TEdit; 
    edit3: TEdit; 
    edit4: TEdit; 
    edit5: TEdit; 
    edit6: TEdit; 
    ADOTable3: TADOTable; 
    ADOTable4: TADOTable; 
    BitBtn8: TBitBtn; 
    BitBtn5: TBitBtn; 
    ADOTable1ids: TAutoIncField; 
    ADOTable1bookid: TWideStringField; 
    ADOTable1studentid: TWideStringField; 
    ADOTable1onceout: TBooleanField; 
    ADOTable1outdata: TDateTimeField; 
    ADOTable2ids: TAutoIncField; 
    ADOTable2bookid: TWideStringField; 
    ADOTable2studentid: TWideStringField; 
    ADOTable2alreadyback: TBooleanField; 
    ADOTable2backdata: TDateTimeField; 
    procedure BitBtn1Click(Sender: TObject); 
    procedure BitBtn3Click(Sender: TObject); 
    procedure TabSheet1Show(Sender: TObject); 
    procedure TabSheet2Show(Sender: TObject); 
    procedure BitBtn4Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn5Click(Sender: TObject); 
    procedure BitBtn8Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  jieyueguanli: Tjieyueguanli; 
 
implementation 
 
{$R *.dfm} 
 
procedure Tjieyueguanli.BitBtn1Click(Sender: TObject); 
begin 
adotable1.Active:=true; 
adotable2.Active:=true; 
adotable3.Active:=true; 
adotable4.Active:=true; 
if edit1.Text='' then showmessage('请输入图书ID') 
  else if edit2.Text='' then showmessage('请输入学生ID') 
    else 
begin 
 
  if not adotable3.Locate('bookid',edit1.Text,[]) then 
    showmessage('没有这本书') 
      else if not adotable3.FieldValues['in']  then 
        showmessage('这本书已经被借出了') 
           else if not adotable4.Locate('studentid',edit2.Text,[]) then 
              showmessage('非法用户，不能从这里借书') 
                 else 
 //adotable1.FieldByName('bookid').Value:=edit1.Text; 
 //if not adotable1.findkey(:bookid) then 
   //  showmessage('没有这本书') 
  // else  
 if messagedlg('确实要借阅这本书？',mtInformation,[mbOK, mbCancel],0)=mrok then 
    begin 
          adotable3.Edit; 
          adotable1.Edit; 
          adotable1.Append; 
          adotable1.FieldByName('bookid').AsString:=edit1.Text; 
          adotable1.FieldByName('STUDENTID').AsString:=edit2.Text; 
          adotable1.FieldByName('outDATA').AsString:=edit3.Text; 
          adotable1.FieldByName('onceout').Value:=true; 
          adotable1.post; 
          adotable3.FieldValues['in']:=false; 
          showmessage('借阅成功'); 
          adotable1.Append; 
          adotable3.Post; 
          adotable1.Refresh; 
          edit1.Text:=''; 
          edit2.Text:=''; 
 
    end 
    else 
    begin 
     showmessage('借阅失败'); 
     adotable1.Append; 
    end; 
 end; 
 
 adotable1.Refresh; 
end; 
 
procedure Tjieyueguanli.BitBtn3Click(Sender: TObject); 
begin 
adotable1.Active:=true; 
adotable2.Active:=true; 
adotable3.Active:=true; 
adotable4.Active:=true; 
if edit4.Text='' then showmessage('请输入图书ID') 
  else if edit5.Text='' then showmessage('请输入学生ID') 
    else 
 
  if not adotable3.Locate('bookid',edit4.Text,[]) then 
    showmessage('没有这本书') 
      else if  adotable3.FieldValues['in']  then 
        showmessage('这本书已经被归还') 
           else if not adotable4.Locate('studentid',edit5.Text,[]) then 
              showmessage('非法用户，不能从这里借书') 
                 else  if not adotable2.Locate('bokkid;studentid',vararrayof([edit4.Text,edit5.Text]),[]) then 
                      showmessage('这本书不是你借的，你不能归还！') 
                         else 
 
      begin  //还书 
        adotable1.Edit; 
        adotable3.Edit; 
        adotable2.Append; 
        adotable2.FieldByName('bookid').AsString:=edit4.Text; 
        adotable2.FieldByName('studentid').AsString:=edit5.Text; 
        adotable2.FieldByName('backdata').AsString:=edit6.Text; 
        adotable2.FieldByName('alreadyback').value:=true; 
        adotable3.FieldValues['in']:=true; 
        adotable3.Post; 
        adotable2.Post; 
        adotable1.Refresh; 
        edit4.Text:=''; 
        edit5.Text:=''; 
      end; 
 
 
 
  adotable1.Refresh; 
end; 
 
procedure Tjieyueguanli.TabSheet1Show(Sender: TObject); 
var yy,mm,dd:word; 
     y,m,d:integer; 
begin 
   decodedate(Date,yy,mm,dd); 
   y:=yy; 
   m:=mm; 
   d:=dd; 
   edit3.Text:=inttostr(y)+'-'+inttostr(m)+'-'+inttostr(d); 
   adotable1.Refresh; 
end; 
 
procedure Tjieyueguanli.TabSheet2Show(Sender: TObject); 
var yy,mm,dd:word; 
     y,m,d:integer; 
begin 
   decodedate(Date,yy,mm,dd); 
   y:=yy; 
   m:=mm; 
   d:=dd; 
   edit6.Text:=inttostr(y)+'-'+inttostr(m)+'-'+inttostr(d); 
   adotable2.Refresh; 
 
end; 
 
procedure Tjieyueguanli.BitBtn4Click(Sender: TObject); 
begin 
   edit4.Text:=''; 
      edit5.Text:=''; 
end; 
 
procedure Tjieyueguanli.BitBtn2Click(Sender: TObject); 
begin 
   edit1.Text:=''; 
   edit2.Text:='';    
end; 
 
procedure Tjieyueguanli.BitBtn5Click(Sender: TObject); 
begin 
close; 
end; 
 
procedure Tjieyueguanli.BitBtn8Click(Sender: TObject); 
begin 
close; 
end; 
 
end.