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.