⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit2.pas

📁 用DELPHI来编写的图书管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
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.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -