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

📄 unit6.pas

📁 delphi 源码上传学校图书馆管理系统
💻 PAS
字号:
🔍 
unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB, ADODB,
  Mask, DBCtrls;

type
  Tchacunbaobiao = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Panel8: TPanel;
    RadioButton1: TRadioButton;
    Edit13: TEdit;
    RadioButton2: TRadioButton;
    Edit14: TEdit;
    Panel6: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ADOQuery1: TADOQuery;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    ADOQuery1bookid: TWideStringField;
    ADOQuery1bookname: TWideStringField;
    ADOQuery1author: TWideStringField;
    ADOQuery1in: TBooleanField;
    BitBtn1: TBitBtn;
    Panel7: TPanel;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    ADOQuery3: TADOQuery;
    Panel9: TPanel;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label2: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn2: TBitBtn;
    Edit15: TEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    ADOQuery3ids: TAutoIncField;
    ADOQuery3bookid: TWideStringField;
    ADOQuery3studentid: TWideStringField;
    ADOQuery3onceout: TBooleanField;
    ADOQuery3outdata: TDateTimeField;
    ADOQuery3alreadyback: TBooleanField;
    ADOQuery3backdata: TDateTimeField;
    ADOQuery2ids: TAutoIncField;
    ADOQuery2bookid: TWideStringField;
    ADOQuery2studentid: TWideStringField;
    ADOQuery2onceout: TBooleanField;
    ADOQuery2outdata: TDateTimeField;
    ADOQuery2alreadyback: TBooleanField;
    ADOQuery2backdata: TDateTimeField;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    DBGrid4: TDBGrid;
    ADOQuery4ids: TAutoIncField;
    ADOQuery4bookid: TWideStringField;
    ADOQuery4studentid: TWideStringField;
    ADOQuery4onceout: TBooleanField;
    ADOQuery4outdata: TDateTimeField;
    ADOQuery4alreadyback: TBooleanField;
    ADOQuery4backdata: TDateTimeField;
    Panel10: TPanel;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    BitBtn3: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chacunbaobiao: Tchacunbaobiao;

implementation

{$R *.dfm}

procedure Tchacunbaobiao.Button1Click(Sender: TObject);
begin
adoquery1.Open;
  if RadioButton1.Checked then

    if not adoquery1.Locate('bookid',edit13.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit13.Text:='';
         end
     else
         begin
          end;



  if RadioButton2.Checked then
    if not adoquery1.Locate('bookname',edit14.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit14.Text:='';
         end
     else
         begin
             adoquery1.Close;
             adoquery1.SQL.Clear;
             adoquery1.SQL.Text:='select * from books where bookname='''+edit14.Text+'''';
             adoquery1.Open;
             edit14.Text:='';
          end;

   if  RadioButton3.Checked  then
      if not adoquery1.Locate('author',edit1.Text,[]) then
        begin
             showmessage('没有这本书，请重新输入');
             edit1.Text:='';
         end
     else
         begin
            adoquery1.Close;
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('select * from books where author='''+edit1.Text+'''');
            adoquery1.Open;
             edit1.Text:='';
         end;

end;




procedure Tchacunbaobiao.BitBtn1Click(Sender: TObject);
begin
  adoquery1.Edit;
  if radiobutton1.Checked then
   begin      //////
     adoquery1.Active:=true;
     adoquery1.Edit;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Text:='select * from books where bookid='''+edit13.Text+'''';
     adoquery1.Open;
     if adoquery1.RecordCount=0 then
        begin showmessage('没有符合条件的纪录');  ///
              edit13.Text:='';                    ///
         end
       else
        begin   ///
            showmessage('纪录已经查找到了');
            edit13.Text:='';

        end;  ///
    end;    //////

    if radiobutton2.Checked then
   begin
     adoquery1.Active:=true;
     adoquery1.Edit;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Text:='select * from books where bookname='''+edit14.Text+'''';
     adoquery1.Open;
     if adoquery1.RecordCount=0 then
        begin showmessage('没有符合条件的纪录');
              edit14.Text:='';
         end
       else
        begin
            showmessage('纪录已经查找到了');
            edit14.Text:='';

        end;
    end;

    if radiobutton3.Checked then
   begin
     adoquery1.Active:=true;
     adoquery1.Edit;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Text:='select * from books where author='''+edit1.Text+'''';
     adoquery1.Open;
     if adoquery1.RecordCount=0 then
        begin showmessage('没有符合条件的纪录');
              edit1.Text:='';
         end
       else
        begin
            showmessage('纪录已经查找到了');
            edit1.Text:='';
            
        end;
     
    end;








end;


procedure Tchacunbaobiao.BitBtn2Click(Sender: TObject);
 begin
 adoquery2.Active:=true;
  if radiobutton4.Checked then
   begin
     adoquery2.Active:=true;
     adoquery2.Edit;
     if  not adoquery2.Locate('bookid',edit2.Text,[])  then
        begin showmessage('没有符合条件的纪录');
              edit2.Text:='';
         end
      else
        begin
            showmessage('纪录已经查找到了');
            adoquery2.Close;
            adoquery2.SQL.Clear;
            adoquery2.SQL.Text:='select * from bore where bookid=:bookid  and onceout=true';
            adoquery2.Parameters.ParamByName('bookid').Value:=edit2.Text;
            adoquery2.Open;
            edit2.Text:='';


        end;
    end;

    if radiobutton5.Checked then
   begin
     adoquery2.Active:=true;
     adoquery2.Edit;
     if not adoquery2.Locate('studentid',edit3.Text,[])
     then
        begin showmessage('没有符合条件的纪录');
              edit3.Text:='';
        end
       else
        begin
            showmessage('纪录已经查找到了');

            adoquery2.Close;
             adoquery2.SQL.Clear;
            adoquery2.SQL.Text:='select * from bore where studentid=:studentid and onceout=true';
            adoquery2.Parameters.ParamByName('studentid').Value:=edit3.Text;
            adoquery2.Open;
           edit3.Text:='';
        end;
     end;
    if radiobutton6.Checked then
   begin
     adoquery2.Active:=true;
     adoquery2.Edit;

     adoquery2.Close;
     adoquery2.SQL.Clear;
     adoquery2.SQL.Text:='select * from bore where outdata between #'+edit4.Text+'# and #'+edit5.Text+'# and onceout=true';
     //adoquery2.Parameters.ParamByName('data1').Value:='#'+edit4.Text+'#';
     ///adoquery2.Parameters.ParamByName('data2').Value:='#'+edit5.Text+'#';
     adoquery2.Open;
     if adoquery2.RecordCount=0 then
        begin showmessage('没有符合条件的纪录');
              edit4.Text:='';
              edit5.Text:='';
         end
       else
        begin
            showmessage('纪录已经查找到了');
            edit4.Text:='';
            edit5.Text:='';
        end;
    end;




end;


procedure Tchacunbaobiao.BitBtn4Click(Sender: TObject);
begin
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
end;
procedure Tchacunbaobiao.BitBtn5Click(Sender: TObject);
begin
 adoquery3.Active:=true;
  if radiobutton7.Checked then
   begin
     adoquery3.Active:=true;
     adoquery3.Edit;
     adoquery3.Close;
     adoquery3.SQL.Clear;
     adoquery3.SQL.Text:='select * from bore where bookid=:bookid and alreadyback=true';
     adoquery3.Parameters.ParamByName('bookid').Value:=edit6.Text;
     adoquery3.Open;
     if adoquery3.RecordCount=0 then
        begin showmessage('没有符合条件的纪录');
              edit6.Text:='';
         end
       else
        begin
            showmessage('纪录已经查找到了');
            edit6.Text:='';
        end;
    end;

    if radiobutton8.Checked then
   begin
     adoquery3.Active:=true;
     adoquery3.Edit;
     adoquery3.Close;
     adoquery3.SQL.Clear;
     adoquery3.SQL.Text:='select * from bore where studentid=:studentid and alreadyback=true';
     adoquery3.Parameters.ParamByName('studentid').Value:=edit7.Text;
     adoquery3.Open;
     if adoquery3.RecordCount=0 then
        begin showmessage('没有符合条件的纪录');
              edit7.Text:='';
         end
       else
        begin
            showmessage('纪录已经查找到了');
            edit7.Text:='';
        end;
    end;

    if radiobutton9.Checked then
   begin
     adoquery3.Active:=true;
     adoquery3.Edit;
     adoquery3.Close;
     adoquery3.SQL.Clear;
     adoquery3.SQL.Text:='select * from bore where backdata between #'+edit8.Text+'# and #'+edit15.Text+'# and alreadyback=true';
     adoquery3.Open;
     if adoquery3.RecordCount=0 then
        begin showmessage('没有符合条件的纪录');
              edit8.Text:='';
              edit15.Text:='';
         end
       else
        begin
            showmessage('纪录已经查找到了');
            edit8.Text:='';
            edit15.Text:='';
        end;
    end;

end;
procedure Tchacunbaobiao.BitBtn6Click(Sender: TObject);
begin
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
end;

procedure Tchacunbaobiao.BitBtn3Click(Sender: TObject);
begin
if radiobutton10.Checked then
   begin
     adoquery4.Active:=true;
     adoquery4.Edit;
     if  not adoquery4.Locate('bookid',edit16.Text,[])  then
        begin showmessage('没有符合条件的纪录');
              edit16.Text:='';
         end
      else
        begin
            showmessage('纪录已经查找到了');
            adoquery4.Close;
            adoquery4.SQL.Clear;
            adoquery4.SQL.Text:='select * from bore where bookid=:bookid  and onceout=true and alreadyback=false';
            adoquery4.Parameters.ParamByName('bookid').Value:=edit16.Text;
            adoquery4.Open;
            edit16.Text:='';


        end;
    end;

    if radiobutton11.Checked then
   begin
     adoquery4.Active:=true;
     adoquery4.Edit;
     if  not adoquery4.Locate('studentid',edit17.Text,[])  then
        begin showmessage('没有符合条件的纪录');
              edit17.Text:='';
         end
      else
        begin
            showmessage('纪录已经查找到了');
            adoquery4.Close;
            adoquery4.SQL.Clear;
            adoquery4.SQL.Text:='select * from bore where studentid=:studentid  and onceout=true and alreadyback=false';
            adoquery4.Parameters.ParamByName('studentid').Value:=edit17.Text;
            adoquery4.Open;
            edit16.Text:='';


        end;
    end;
    if radiobutton12.Checked then
      begin
            adoquery4.Active:=true;
            adoquery4.Edit;
            adoquery4.Close;
            adoquery4.SQL.Clear;
            adoquery4.SQL.Text:='select * from bore where studentid in (select studentid from students where studentclass=:class)  and onceout=true and alreadyback=false';
            adoquery4.Parameters.ParamByName('class').Value:=edit18.Text;
            adoquery4.Open;
       if adoquery4.RecordCount=0 then
         begin
          showmessage('没有符合条件的纪录');
          edit18.Text:='';
         end
        else
         begin
          showmessage('已找到符合条件的纪录');
          edit18.Text:='';
         end;
       end;  
     if radiobutton13.Checked then
      begin
            adoquery4.Active:=true;
            adoquery4.Edit;
            adoquery4.Close;
            adoquery4.SQL.Clear;
            adoquery4.SQL.Text:='select * from bore where studentid in (select studentid from students where studentcollage=:collage)  and onceout=true and alreadyback=false';
            adoquery4.Parameters.ParamByName('collage').Value:=edit19.Text;
            adoquery4.Open;
       if adoquery4.RecordCount=0 then
         begin
          showmessage('没有符合条件的纪录');
          edit19.Text:='';
         end
        else
         begin
          showmessage('已找到符合条件的纪录');
          edit19.Text:='';
         end;
       end;
    end;


procedure Tchacunbaobiao.BitBtn8Click(Sender: TObject);
begin
close;
end;

procedure Tchacunbaobiao.BitBtn9Click(Sender: TObject);
begin
close;
end;

procedure Tchacunbaobiao.BitBtn10Click(Sender: TObject);
begin
close;
end;

end.

⌨️ 快捷键说明

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