unit7.pas

利用delphi编写的原代码

                begin
                  messagedlg('所选部门与图书申购部门不一致！',mtwarning,[mbok],0);
                  command_exe:=False;
                end;

           if command_exe then
             begin
              //showmessage(Adocommand1.CommandText);
              Adocommand1.Execute;

              //借出后还原
              edit6.Text:='';
              edit7.Text:='';
              edit8.Text:='';
              edit9.Text:='';
              combobox1.Text:='请选择';
              checkbox1.Checked:=False;
              checkbox2.Checked:=False;

              button5.Enabled:=False;
              button6.Enabled:=False;
              button7.Enabled:=False;
            end
          end
       else
         messagedlg('借书人信息不完整！',mtwarning,[mbok],0);
    end
  else
       messagedlg('该书损失或已借出！',mtwarning,[mbok],0);
  end
  else   messagedlg('借出图书编号不能为空！',mtwarning,[mbok],0);

end;

procedure TForm7.Button4Click(Sender: TObject);
begin
   if (zhutai_1='借出') then
     begin
       //进行还书操作
       Adocommand1.CommandText:='update shuku set ZhuTai=''正常'',Chu_riqi='''',YH_riqi='''',Jieshuzhe='''',JCZBumen='''' where book_id='''+trim(edit1.text)+'''';
       Adocommand1.Execute;
       edit1.Text:='';
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       edit5.Text:='';
     end
   else
     messagedlg('该书没有被借出！',mtwarning,[mbok],0);
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';

  button2.Enabled:=False;
  button3.Enabled:=False;
  button4.Enabled:=False;
end;

procedure TForm7.Button8Click(Sender: TObject);
begin
  command_exe:=True;
  if (edit10.Text<>'') then
    begin
      Adodataset4.Active:=False;
      Adodataset4.CommandText:='select * from shuku where book_id='''+Trim(edit10.Text)+'''';
      Adodataset4.Active:=True;

      if Adodataset4.RecordCount>0 then
        begin
          edit11.Text:=Adodataset4.Fields[3].AsString;
          edit12.Text:=Adodataset4.Fields[11].AsString;
          edit13.Text:=Adodataset4.Fields[10].AsString;
          edit11.Visible:=True;
          edit12.Visible:=True;
          edit13.Visible:=True;
          edit14.Visible:=True;

          label12.Visible:=True;
          label13.Visible:=True;
          label14.Visible:=True;
          label15.Visible:=True;

       //所查图书状态为借出才可以续借
          if Adodataset4.Fields[8].AsString='借出' then
            begin
              command_exe:=False;
              button9.Enabled:=True;
            end
          else
              messagedlg('该图书损失或没有借出！',mtwarning,[mbok],0);
        end
      else
        messagedlg('没有符合条件的记录！',mtwarning,[mbok],0);

end;
end;


procedure TForm7.Button9Click(Sender: TObject);
begin
  if Trim(edit14.Text)<>''  then
     begin
       Adocommand1.CommandText:='update shuku set YH_riqi='''+datetostr(strtodate(Trim(edit13.Text))+strtoint(edit14.Text))+''' where book_id='''+Trim(edit10.Text)+'''';
       Adocommand1.Execute;

       //续借成功还原
       edit10.Text:='';
       edit11.Text:='';
       edit12.Text:='';
       edit13.Text:='';
       edit14.Text:='';

       button8.Enabled:=False;
       button9.Enabled:=False;



     end
  else
    messagedlg('续借天数不能为空!',mtwarning,[mbok],0);
     
end;

procedure TForm7.Edit10Change(Sender: TObject);
begin
  button8.Enabled:=True;
end;

procedure TForm7.TabSheet1Exit(Sender: TObject);
begin
  //离开这个小页面数据清空
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';

  button2.Enabled:=False;
  button3.Enabled:=False;
  button4.Enabled:=False;

  
end;

procedure TForm7.TabSheet2Exit(Sender: TObject);
begin
  //离开这个小页面数据清空
  edit6.Text:='';
  edit7.Text:='';
  edit8.Text:='';
  edit9.Text:='';

  combobox1.Text:='请选择';
  checkbox1.Checked:=False;
  checkbox2.Checked:=False;

  button5.Enabled:=False;
  button6.Enabled:=False;
  button7.Enabled:=False;







end;

procedure TForm7.TabSheet3Exit(Sender: TObject);
begin
  //离开时清空
    edit10.Text:='';
    edit11.Text:='';
    edit12.Text:='';
    edit13.Text:='';
    edit14.Text:='';

    button8.Enabled:=False;
    button9.Enabled:=False;



end;

procedure TForm7.Edit15Change(Sender: TObject);
begin
  button10.Enabled:=True;
end;

procedure TForm7.Button10Click(Sender: TObject);
begin
  if (trim(edit15.Text)<>'') then
    begin
      Adodataset5.Active:=False;
      Adodataset5.CommandText:='select * from shuku where book_id='''+Trim(edit15.Text)+'''';
      Adodataset5.Active:=True;

       if Adodataset5.RecordCount>0 then
          begin

             edit16.Text:='';
             edit17.Text:='';
             edit18.Text:='';
             edit19.Text:='';
             edit20.Text:='';
             edit21.Text:='';
             //显示图书相关信息
             edit16.Text:=Adodataset5.Fields[3].AsString;
             edit17.Text:=Adodataset5.Fields[6].AsString;
             edit18.Text:=Adodataset5.Fields[7].AsString;
             edit19.Text:=Adodataset5.Fields[8].AsString;
             edit20.Text:=Adodataset5.Fields[4].AsString;
             edit21.Text:=Adodataset5.Fields[12].AsString;

             if  Adodataset5.Fields[8].AsString='损失' then
                 messagedlg('该图书已作过损失登记！',mtwarning,[mbok],0)
             else
                 button11.Enabled:=True;
          end
       else
           begin
             messagedlg('没有符合条件的记录！',mtwarning,[mbok],0);
             //清空

             edit15.Text:='';
             edit16.Text:='';
             edit17.Text:='';
             edit18.Text:='';
             edit19.Text:='';
             edit20.Text:='';
             edit21.Text:='';

             button11.Enabled:=False;
           end;




    end;

end;

procedure TForm7.Button11Click(Sender: TObject);
begin
  if Trim(edit15.Text)<>'' then
     begin
      //将图书的状态写为损失
       Adocommand1.CommandText:='update shuku set ZhuTai=''损失'',Chu_riqi='''',YH_riqi='''',Jieshuzhe='''',JCZBumen='''' where book_id='''+trim(edit15.text)+'''';
       Adocommand1.Execute;

       //清空
       edit15.Text:='';
       edit16.Text:='';
       edit17.Text:='';
       edit18.Text:='';
       edit19.Text:='';
       edit20.Text:='';
       edit21.Text:='';

       button11.Enabled:=False;


     end;
end;

end.