unit2.pas

实现图书馆数据库管理功能

  i:=round(int(now()-dt4.date));
  if i>0 then
   begin
     label39.Font.Color:=clred;
     label40.Font.color:=clred;
     edit8.Text:=inttostr(i);

     t_tem1.Close;

     t_tem1.Open;
     t_tem1.First;
     y:=t_tem1.fieldbyname('元/天').value;
     edit13.Text:=floattostr(i* y);
     over1:=true;
   end
   else
    begin
     label39.Font.Color:=clblack;
     label40.Font.color:=clblack;
     edit8.Text:='';
     edit13.Text:='';
     over1:=false;
    end;


end;




procedure TForm2.SpeedButton18Click(Sender: TObject);
var ii:integer;
begin
 if not query_b2.Active then
   begin
     messagedlg('请先输入读者编号，后回车',mterror,[mbok],0);
     exit;
   end;
  if round(int(now()-query_b2.FieldValues['借书日期']))<= query_b2.FieldValues['最少天数'] then
     begin
       messagedlg('借书天数小于最短天数，无法续借',mtwarning,[mbyes],0);
       exit;
     end;
  if over1 then
     begin
       messagedlg('此书已超期，请交取罚款金额',mtwarning,[mbyes],0);
        t_tem5.Close;
        t_tem5.Open;
        t_tem5.Edit;
        t_tem5.Append;
        t_tem5.FieldByName('天数').Value:=round(int(now()-query_b2.FieldValues['借书日期']));
        t_tem5.FieldByName('读者编号').value:=edit5.Text;
        t_tem5.FieldByName('书籍编号').Value:=edit9.Text;
        t_tem5.FieldByName('罚款数额').Value:='￥'+edit13.Text;
        t_tem5.FieldByName('罚款日期').Value:=formatdatetime('yy-mm-dd',now());
        t_tem5.Post;

       over1:=false;

     end;
  if messagedlg('您确定要续借此书吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
     begin
        ii:=query_b2.Fieldbyname('可借天数').asinteger;
        t_tem6.Filtered:=false;
        t_tem6.Filter:='书籍编号='''+edit9.Text+'''';
        t_tem6.Filtered:=true;
        t_tem6.Open;
        t_tem6.Edit;
        t_tem6.FieldByName('借书日期').Value:=formatdatetime('yy-mm-dd',dt3.Date);
        t_tem6.FieldByName('最长日期').value:=formatdatetime('yy-mm-dd', dt3.Date+ii);
        t_tem6.FieldByName('是否超期').Value:='否';
        t_tem6.post;
        t_tem6.Close;
        t_tem6.Close;

        messagedlg('续借成功',mtconfirmation,[mbyes],0);
        edit9.Text:='';
        edit10.text:='';
        edit11.Text:='';
        edit8.Text:='';
        edit13.text:='';
        query_b2.Close;
        label39.Font.Color:=clblack;
        label40.Font.color:=clblack;

        query_b2.Active:=true;
        if query1.Active then
           begin
              query1.Close;
              query1.Open;
           end;
         if not f_chaoqi then
           begin
                edit1.Enabled:=true;
                speedbutton7.Enabled:=true;
                //checkoveredbook();
           end;        

     end;

end;





procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  query_b2.Close;
  edit5.Text:='';
  edit7.text:='';
  edit9.Text:='';
  edit10.text:='';
  edit11.Text:='';
  edit8.Text:='';
  edit13.text:='';

end;

procedure TForm2.SpeedButton9Click(Sender: TObject);
begin
shukuguanli.showmodal;

end;

procedure TForm2.SpeedButton11Click(Sender: TObject);
begin
form7.showmodal;
end;

procedure TForm2.SpeedButton12Click(Sender: TObject);
begin
form4.showmodal;
end;

procedure TForm2.SpeedButton14Click(Sender: TObject);
begin
bookstyle.showmodal;

end;

procedure TForm2.SpeedButton17Click(Sender: TObject);
begin
readerstyle.showmodal;
end;

procedure TForm2.SpeedButton13Click(Sender: TObject);
begin
bok_search.showmodal;

end;

procedure TForm2.SpeedButton15Click(Sender: TObject);
begin
aminis.showmodal;

end;

procedure TForm2.SpeedButton16Click(Sender: TObject);
begin
backup.showmodal;

end;

procedure TForm2.FormShow(Sender: TObject);
begin
inter.Hide;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inter.Close;
end;

procedure TForm2.H1Click(Sender: TObject);
begin
self.HelpFile:='help\help.hlp';
application.HelpCommand(help_contents,0)
end;

procedure TForm2.N29Click(Sender: TObject);
begin
about.showmodal;
about.Free;
end;



procedure TForm2.N24Click(Sender: TObject);
begin
form1.QuickRep1.Preview;
end;

procedure TForm2.N26Click(Sender: TObject);
begin
form5.QuickRep1.Preview;
end;

procedure TForm2.N28Click(Sender: TObject);
begin
form11.QuickRep1.Preview;
end;

procedure TForm2.C1Click(Sender: TObject);
var ads3:tadocommand;
begin
if messagedlg('您确实要将所有还书信息清除吗？',mtconfirmation,[mbok,mbcancel],0)=mrcancel then
 exit
else
 ads3:=tadocommand.Create(self);
 ads3.Connection:=adoconnection1;
 ads3.CommandText:='delete * from 还书情况';
 ads3.Execute;
 
 ads3.Destroy;

end;

procedure TForm2.N6Click(Sender: TObject);
begin
backup.showmodal;

end;

procedure TForm2.B1Click(Sender: TObject);
begin
shukuguanli.showmodal;
shukuguanli.Free;
end;

procedure TForm2.R1Click(Sender: TObject);
begin
form7.showmodal;//读者管理
form7.Free;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
form4.showmodal;//借阅列表
form4.Free;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
bok_search.showmodal;

end;

procedure TForm2.N13Click(Sender: TObject);
begin
rdsearch.showmodal;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
 borrsearch.showmodal;

end;

procedure TForm2.N20Click(Sender: TObject);
begin
 bookstyle.showmodal;
end;

procedure TForm2.N21Click(Sender: TObject);
begin
 readerstyle.showmodal;
end;

procedure TForm2.N23Click(Sender: TObject);
begin
aminis.showmodal;
end;

procedure TForm2.N19Click(Sender: TObject);
begin
fakuan.showmodal;
fakuan.Free;
end;

procedure TForm2.X1Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Image_closeClick(Sender: TObject);
begin
speedbutton5.Click;
end;


procedure TForm2.Button1Click(Sender: TObject);
var s3:string;
b:string;
a:string;
c:string;
begin
b:='书库管理';
a:='图书类别';
c:='借书情况';
if edit5.Text='' then
 begin
 messagedlg('请输入读者编号',mtwarning,[mbyes],0);
 edit5.SetFocus;
 end
 else
 begin
   table_b3.Filter:='读者编号='''+edit5.text+'''';
   table_b3.Filtered:=true;
   table_b3.Active:=true;

   s3:='select b.书籍编号,b.书籍名称,a.图书类别,b.出版社,b.作者名称,b.书籍价格,c.借书日期,c.最长日期,a.最少天数,a.可借天数';
   s3:=s3+' from ((图书类别 a inner join 书库管理 b on a.类别代码=b.类别代码 ) inner join 借书情况 c on b.书籍编号=c.书籍编号)where c.读者编号='''+edit5.text+'''' ;
   query_b2.Close;
   query_b2.SQL.Clear;
   query_b2.SQL.add(s3);
   query_b2.Active:=true;
   if query_b2.Bof and query_b2.Eof then
     begin
      messagedlg('此读者还未借书',mtwarning,[mbyes],0);
      form2.edit5.SelectAll;
      exit;
     end
    else
        t_tem4.Close;
        t_tem4.Filter:='读者编号='''+edit5.Text+'''';
        t_tem4.Filtered:=true;
        t_tem4.Open;
        edit7.Text:=t_tem4.FieldByName('姓名').Value;
        t_tem4.Filtered:=false;
        t_tem4.Close;
        dbgrid2.Options:=dbgrid2.Options+[dgrowselect];
         Edit9.Text:=Table_b3.fieldbyname('书籍编号').value;
         edit11.text:=Table_b3.fieldbyname('借书日期').value;
         table_write.Close;
         table_write.Filter:='书籍编号='''+edit9.text+'''';
         table_write.Filtered:=true;
         table_write.Open;
         Edit10.Text:=Table_write.fieldbyname('书籍名称').asstring;
 end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
 bookno:string;
 fff:boolean;
begin
bookno:=edit1.Text;
if bookno='' then
messagedlg('您没有输入任何编号，请重新输入',mtwarning,[mbok],0)
else

     begin
      table_book.Active:=true;
      if table_book.Locate('书籍编号',bookno,[locaseinsensitive])=false then
        begin
        table_book.Active:=false;
        messagedlg('您输入的书籍编号不存在，请重新输入',mtwarning,[mbok],0);
        edit1.SelectAll;
        end
      else
        begin
           table_write.Close;
           table_write.Open;
           fff:=table_write.Locate('书籍编号',edit1.Text,[locaseinsensitive]);
          if fff then
             begin
                if (table_write.FieldByName('是否借出').AsString='是') and (table_write.FieldByName('总库存量').AsInteger<=0) then
                begin
                table_book.Active:=false;
                messagedlg('此书已全部被借出，请选择其他书籍！',mtwarning,[mbok],0);
                edit1.SelectAll;
                end;
              end
           else
             begin
              table_book.Active:=true;
              table_book.Filter:='总库存量>0';
              table_book.Filtered:=true;


              end;
               edit6.Text:=table_book.fieldbyname('类别代码').asstring;
         END;
    end;

    end;

procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
edit6.Text:=table_book.fieldbyname('类别代码').asstring;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
popupmenu6.Popup(form2.Left+243,form2.Top+54);

end;

procedure TForm2.Image_minimizeClick(Sender: TObject);
begin
if form2.WindowState=wsnormal then
begin
application.Minimize;
end
else if form2.WindowState=wsmaximized then
 application.Minimize;
end;

procedure TForm2.Image_maximizeClick(Sender: TObject);
begin
if form2.WindowState=wsnormal then
begin
form2.WindowState:=wsmaximized;
end;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
shijian:string;
begin
shijian:=timetostr(now);
label33.Caption:=shijian;
end;


procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
speedbutton5.Click;
end;

procedure TForm2.N1Click(Sender: TObject);
begin
speedbutton5.Click;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
speedbutton9.Click;
end;

procedure TForm2.N3Click(Sender: TObject);
begin
speedbutton11.Click;
end;



end.