end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
   with ADOQuery1 do
   begin
     sql.Clear;
     if radiobutton1.Checked then
     begin
       radiobutton1.Checked:=false;
       if (edit1.Text = '') and (Edit2.Text = '') and (edit3.Text = '') then
       begin
         application.MessageBox('請輸入查詢內容','提示',64)
       end
       else
       begin
         if (edit1.Text<> '') and (edit2.Text<> '')and (edit3.Text<> '') then
         begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;           ADOQuery1.SQL.Add('select * from 書籍信息表 where 書籍編號='''+Edit1.Text+''' and 名稱='''+ Edit2.Text+'''and 作者='''+Edit3.Text+'''');           ADOQuery1.Open;
           if ADOQuery1.Recordset.RecordCount=0 then
              application.MessageBox('該書籍不存在','提示',64)
           else
              sql.add('select * from 書籍信息表 where 書籍編號='''+Edit1.text+''' and 名稱='''+Edit2.Text+'''and 作者='''+Edit3.Text+'''');
           Open;
         end
         else if (edit1.Text<> '') and (edit2.Text<> '')and (edit3.Text= '') then
         begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;           ADOQuery1.SQL.Add('select * from 書籍信息表 where 書籍編號='''+Edit1.Text+''' and 名稱='''+ Edit2.Text+'''');           ADOQuery1.Open;
           if ADOQuery1.Recordset.RecordCount=0 then
              application.MessageBox('該書籍不存在','提示',64)
           else
              sql.add('select * from 書籍信息表 where 書籍編號='''+Edit1.text+''' and 名稱='''+Edit2.Text+'''');
           Open;
         end
          else if (edit1.Text<>'')and(edit2.Text='')and(edit3.Text='') then
         begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;           ADOQuery1.SQL.Add('select * from 書籍信息表 where 書籍編號='''+Edit1.Text+'''');           ADOQuery1.Open;
           if ADOQuery1.Recordset.RecordCount=0 then
              application.MessageBox('該書籍不存在','提示',64)
           else
              sql.add('select * from 書籍信息表 where 書籍編號='''+Edit1.text+'''');
           Open;
         end
         else if (edit1.Text='')and(edit2.Text<>'')and(edit3.Text<>'') then
         begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;           ADOQuery1.SQL.Add('select * from 書籍信息表 where 名稱='''+ Edit2.Text+'''');           ADOQuery1.Open;
           if ADOQuery1.Recordset.RecordCount=0 then
              application.MessageBox('該書籍不存在','提示',64)
           else
              sql.add('select * from 書籍信息表 where  名稱='''+Edit2.Text+'''');
           Open;
         end
         else if (edit1.Text= '') and (edit2.Text<> '')and (edit3.Text= '') then
         begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;           ADOQuery1.SQL.Add('select * from 書籍信息表 where 名稱='''+ Edit2.Text+'''');           ADOQuery1.Open;
           if ADOQuery1.Recordset.RecordCount=0 then
              application.MessageBox('該書籍不存在','提示',64)
           else
              sql.add('select * from 書籍信息表 where 名稱='''+Edit2.Text+'''');
           Open;
         end
         else if (edit1.Text= '') and (edit2.Text= '')and (edit3.Text<> '') then
         begin
           ADOQuery1.Close;
           ADOQuery1.SQL.Clear;           ADOQuery1.SQL.Add('select * from 書籍信息表 where 作者='''+ Edit3.Text+'''');           ADOQuery1.Open;
           if ADOQuery1.Recordset.RecordCount=0 then
              application.MessageBox('該書籍不存在','提示',64)
           else
              sql.add('select * from 書籍信息表 where 作者='''+Edit3.Text+'''');
           Open;
         end
       end
     end
     else if radiobutton2.Checked then
     begin
       radiobutton2.Checked:=false;
       sql.add('select * from 書籍信息表 ');
       Open;
     end
   end
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
 if Edit1.Text<>'' then
 begin
   BitBtn1.Enabled:=true;
   BitBtn2.Enabled:=true;
 end
 else
 begin
   BitBtn1.Enabled:=false;
   BitBtn2.Enabled:=false;
 end

end;

procedure TForm2.StaticText5Click(Sender: TObject);
begin
  BitBtn1.Enabled:=true;
  Bitbtn2.Enabled:=true;
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
 if Edit2.Text<>'' then
 begin
   BitBtn1.Enabled:=true;
   BitBtn2.Enabled:=true;
 end
 else
 begin
   BitBtn1.Enabled:=false;
   BitBtn2.Enabled:=false;
 end
end;

procedure TForm2.Edit3Change(Sender: TObject);
begin
  if Edit3.Text<>'' then
 begin
   BitBtn1.Enabled:=true;
   BitBtn2.Enabled:=true;
 end
 else
 begin
   BitBtn1.Enabled:=false;
   BitBtn2.Enabled:=false;
 end
end;

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
  BitBtn1.Enabled:=true;
  N9.Enabled:=true;
  BitBtn2.Enabled:=false;
  N10.Enabled:=true;
  Edit6.Enabled:=false;
  Edit4.Enabled:=false;
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
  BitBtn1.Enabled:=true;
  BitBtn2.Enabled:=false;
  Edit6.Enabled:=false;
  Edit4.Enabled:=false;
  Edit7.Enabled:=false;
  Edit3.Enabled:=false;
  Edit1.Enabled:=false;

end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
  BitBtn1.Enabled:=false;
  BitBtn2.Enabled:=true;
  N10.Enabled:=true;
  Edit6.Enabled:=true;
  Edit4.Enabled:=true;
  Edit7.Enabled:=true;
  Edit3.Enabled:=true;
  Edit1.Enabled:=true;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  radiobutton3.Checked:=false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;  ADOQuery1.SQL.Add('select * from 書籍信息表 where 書籍編號='''+Edit1.Text+'''');  ADOQuery1.Open;
  if ADOQuery1.Recordset.RecordCount >0 then
     application.MessageBox('該書籍編號已經存在，請檢查！','提示',96)
  else if edit1.Text='' then
    begin
    application.MessageBox('請輸入書籍編號!','提示',64);
    end
  else
  begin
    adotable1.Append;
    adotable1.FieldByName('書籍編號').AsString:=edit1.Text;
    adotable1.FieldByName('名稱').AsString:=edit2.Text;
    adotable1.FieldByName('作者').AsString:=edit3.Text;
    adotable1.FieldByName('價格').AsFloat:=strToFloat(edit4.Text);
    adotable1.FieldByName('入庫時間').AsDateTime:=Date();
    adotable1.FieldByName('書籍位置').AsString:=edit6.Text;
    adotable1.FieldByName('出版社').AsString:=edit7.Text;
    adotable1.Post;    application.MessageBox('添加成功！','提示',64);
  end
end;


procedure TForm2.BitBtn7Click(Sender: TObject);
begin
form6.Show;
end;

procedure TForm2.BitBtn8Click(Sender: TObject);
begin
form7.Show;
end;

procedure TForm2.BitBtn10Click(Sender: TObject);
begin
form2.Close;
form1.Show;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
form7.Show;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
form2.Close;
form1.Show;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
form6.Show;
application.MessageBox('點擊查看后，更新信息!','提示',32)
end;

procedure TForm2.BitBtn9Click(Sender: TObject);
begin
form6.Show;
application.MessageBox('點擊查看后，更新信息!','提示',32)
end;

procedure TForm2.N8Click(Sender: TObject);
begin
form2.Close;
form1.Show;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
   N11.Enabled:=false;
   N12.Enabled:=false;
   BitBtn5.Enabled:=false;
   BitBtn3.Enabled:=false;
end;

procedure TForm2.BitBtn11Click(Sender: TObject);
var
s0:string;
begin
s0:='東區一庫';
if edit1.Text='' then
begin
  application.MessageBox('請輸入書籍編號','提示',64);
end
else
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;  ADOQuery1.SQL.Add('select * from 教師借書信息表 where 書籍編號='''+Edit1.Text+'''');  ADOQuery1.Open;
  if ADOQuery1.Recordset.RecordCount =0 then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from 學生借書信息表 where 書籍編號='+edit1.Text+'');
    ADOQuery1.Open;
    adoquery1.Delete;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;    ADOQuery1.SQL.Add('update 書籍信息表 set 書籍位置='''+s0+''' where 書籍編號='''+Edit1.Text+'''');    ADOQuery1.ExecSQL;
    application.MessageBox('學生還書成功!','提示',64);
  end
  else
  begin
    adoquery1.Delete;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;    ADOQuery1.SQL.Add('update 書籍信息表 set 書籍位置='''+s0+''' where 書籍編號='''+Edit1.Text+'''');    ADOQuery1.ExecSQL;
    application.MessageBox('老師還書成功!','提示',64);
  end
end
end;

procedure TForm2.BitBtn12Click(Sender: TObject);
begin
form10.QuickRep1.Preview;
end;

end.