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

📄 unit4.pas

📁 一个简单的图书管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    combobox3.Text:='请选择';

    combobox1.Text:='请选择';
    combobox2.Text:='请选择';
    combobox2.Enabled:=False;
    button2.Enabled:=False;
    button3.Enabled:=False;





    end
  else
    messagedlg('请将基本资料填写完整！',mtwarning,[mbOk],0);



end;

procedure TForm4.Button3Click(Sender: TObject);
begin
  combobox1.Text:='请选择';
  combobox2.Text:='请选择';
  combobox2.Enabled:=False;

   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   combobox3.Text:='请选择';

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

end;

procedure TForm4.Edit1Change(Sender: TObject);
begin
  button2.Enabled:=True;
  button3.Enabled:=True;
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
  if Radiobutton1.Checked then
    if edit6.Text<>'' then
       begin
       Adodataset4.Active:=False;
       Adodataset4.CommandText:='select BOOK_ID as 图书编号,Shumin as 图书名称,ZhuTai as 状态,Jieshuzhe as 借书人,Chu_riqi as 借出日期,YH_riqi as  应还日期,Jiage as 价格,Ru_riqi as 入库日期,GJbumen as 购进部门 from  shuku where BOOK_ID like ''%'+trim(edit6.Text)+'%''';
       //showmessage(Adodataset4.CommandText);
       Adodataset4.Active:=True;
       edit6.Text:='';
       end
     else
       begin
         messagedlg('查询条件不能为空！',mtwarning,[mbok],0);
         Adodataset4.Active:=False;
       end;

  if Radiobutton2.Checked then
    if edit7.Text<>'' then
       begin
       Adodataset4.Active:=False;
       Adodataset4.CommandText:='select BOOK_ID as 图书编号,Shumin as 图书名称,ZhuTai as 状态,Jieshuzhe as 借书人,Chu_riqi as 借出日期,YH_riqi as  应还日期,Jiage as 价格,Ru_riqi as 入库日期,GJbumen as 购进部门 from  shuku where Shumin like ''%'+trim(edit7.Text)+'%''';
       //showmessage(Adodataset4.CommandText);
       Adodataset4.Active:=True;
       edit7.Text:='';
       end
     else
       begin
         messagedlg('查询条件不能为空！',mtwarning,[mbok],0);
         Adodataset4.Active:=False;
       end;

end;

procedure TForm4.Edit6Change(Sender: TObject);
begin
  button6.Enabled:=True;
end;

procedure TForm4.Edit7Change(Sender: TObject);
begin
  button6.Enabled:=True;
end;

procedure TForm4.RadioButton1Click(Sender: TObject);
begin
  edit7.Text:='';
  edit7.Enabled:=False;
  edit6.Enabled:=True;
end;

procedure TForm4.RadioButton2Click(Sender: TObject);
begin
  edit6.Text:='';
  edit6.Enabled:=False;
  edit7.Enabled:=True;
end;

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

      
      //判断查找是不成功
      if Adodataset5.RecordCount<>0 then
          begin
            //查找成功
             edit8.Text:=Adodataset5.Fields[3].AsString;
             edit8.Visible:=True;
             
             edit10.Text:=Adodataset5.Fields[4].AsString;
             edit10.Visible:=True;

             edit11.Text:=Adodataset5.Fields[7].AsString;
             edit11.Visible:=True;
             
             edit9.Text:=Adodataset5.Fields[8].AsString;
             edit9.Visible:=True;

             edit12.Text:=Adodataset5.Fields[11].AsString;
             edit12.Visible:=True;

             edit13.Text:=Adodataset5.Fields[10].AsString;
             edit13.Visible:=True;

             edit14.Text:=Adodataset5.Fields[11].AsString;
             edit14.Visible:=True;

             edit15.Text:=Adodataset5.Fields[6].AsString;
             edit15.Visible:=True;

             edit4.Enabled:=False;

             label10.Visible:=True;
             label13.Visible:=True;
             label14.Visible:=True;
             label18.Visible:=True;
             label12.Visible:=True;
             label15.Visible:=True;
             label16.Visible:=True;
             label17.Visible:=True;

             button8.Visible:=True;
             button9.Visible:=True;
             button8.Enabled:=True;
             button9.Enabled:=True;
          end
      else
         messagedlg('没有符合条件的图书！',mtwarning,[mbok],0);
         

    end;
end;

procedure TForm4.Button10Click(Sender: TObject);
begin
  edit4.Enabled:=True;
  edit4.Text:='';
  edit8.Text:='';
  edit9.Text:='';
  edit10.Text:='';
  edit11.Text:='';
  edit12.Text:='';
  edit13.Text:='';
  edit14.Text:='';
  edit15.Text:='';

  button7.Enabled:=False;
  button10.Enabled:=False;

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

procedure TForm4.Edit4Change(Sender: TObject);
begin
   button7.Enabled:=True;
   button10.Enabled:=True;
end;

procedure TForm4.Button8Click(Sender: TObject);
begin  
  if ((Trim(edit8.Text)<>'') and (Trim(edit10.Text)<>'') and (Trim(edit11.Text)<>'') and  (Trim(edit15.Text)<>'')) then
    if messagedlg('你确认要修改吗？',mtwarning,[mbYES,mbNO],0)=mrYES then
      begin
        Adocommand2.CommandText:='update shuku set Shumin='''+trim(edit8.Text)+''',Jiage='''+Trim(edit10.Text)+''',GJbumen='''+Trim(edit11.Text)+''',Ru_riqi='''+Trim(edit15.Text)+''' where book_id='''+Trim(edit4.text)+'''';
        //showmessage(adocommand2.CommandText);
        Adocommand2.Execute;

        //修改成功还原
        edit4.Text:='';
        edit4.Enabled:=True;

        edit8.Text:='';
        edit9.Text:='';
        edit10.Text:='';
        edit11.Text:='';
        edit15.Text:='';
        edit12.Text:='';
        edit13.Text:='';
        edit14.Text:='';

        button7.Enabled:=False;
        button8.Enabled:=False;
        button9.Enabled:=False;
        button10.Enabled:=False;
      
      end;
end;

procedure TForm4.Button9Click(Sender: TObject);
begin
  if (messagedlg('你确实要删除吗？',mtwarning,[mbYES,mbNo],0)=mrYES) then
    begin
      Adocommand1.CommandText:='delete from shuku where book_id='''+Trim(edit4.Text)+'''';
      Adocommand1.Execute;

      //删除成功还原
      edit4.Text:='';
      edit4.Enabled:=True;

      edit9.Text:='';
      edit8.Text:='';
      edit10.Text:='';
      edit11.Text:='';
      edit15.Text:='';
      edit12.Text:='';
      edit13.Text:='';
      edit14.Text:='';

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

      

    end
end;

procedure TForm4.TabSheet1Exit(Sender: TObject);
begin
  //离开清除
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';

  combobox1.Text:='请选择';
  combobox2.Text:='请选择';
  combobox3.Text:='请选择';


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




end;

procedure TForm4.TabSheet2Exit(Sender: TObject);
begin
  //离开清除
  edit6.Text:='';
  edit7.Text:='';

  radiobutton1.Checked:=True;
  edit7.Enabled:=False;

  Adodataset4.Active:=False;




end;

procedure TForm4.TabSheet3Exit(Sender: TObject);
begin
  //离开清除
   edit4.Text:='';
   edit8.Text:='';
   edit9.Text:='';
   edit10.Text:='';
   edit12.Text:='';
   edit13.Text:='';
   edit14.Text:='';
   edit15.Text:='';


end;

end.


//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档
12

⌨️ 快捷键说明

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