📄 main.pas

📁 图书管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  sqlstr:string;
begin
  if Key=#13 then
    begin
      sqlstr:='select * from 读者信息 where 借书证号="'+edit1.Text+'"';
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add(sqlstr);
      ADOQuery1.Open;

      edit3.Text:=ADOQuery1.fieldbyname('读者姓名').AsString;
      edit5.Text:=ADOQuery1.fieldbyname('性别').AsString;
      edit6.Text:=ADOQuery1.fieldbyname('类别代号').AsString;
      edit7.Text:=ADOQuery1.fieldbyname('工作单位').AsString;
      edit8.Text:=ADOQuery1.fieldbyname('家庭地址').AsString;
      edit10.Text:=ADOQuery1.fieldbyname('电话号码').AsString;
      edit9.Text:=ADOQuery1.fieldbyname('借书数量').AsString;

     
      ADOQuery2.Close;
      ADOQuery2.Parameters.ParamByName('JSZH').Value:=edit1.Text;
      ADOQuery2.Open;
    end;

end;

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
var
 i:integer;
 JYXX_Q:TADOQuery;
begin
if key=#13 then                             //借书
     begin
       JYXX_Q:=TADOQuery.Create(nil);          //查看图书是否借出
       JYXX_Q.Parameters.AddParameter.Name:='TXM';
       JYXX_Q.Parameters.AddParameter.DataType:=ftInteger;
       JYXX_Q.Connection:=ADOConnection1;
       JYXX_Q.SQL.Add('Select * From 借阅信息 Where (Barcode=:TXM) and (还书日期 is Null)');
       JYXX_Q.Parameters.ParamByName('TXM').Value:=edit2.Text;
       JYXX_Q.Open;
       if JYXX_Q.RecordCount>0 then
            begin
              MessageBox(handle,'这本书已经借出！','错误',MB_ok or MB_ICONERROR);
              FreeAndNil(JYXX_Q);
              edit2.SetFocus;
              exit;
            end
  else
  begin
ADOTable4.Append;
ADOTable4.FieldByName('借书证号').AsString:=edit1.Text;
ADOTable4.FieldByName('BarCode').AsInteger:=StrtoInt(edit2.Text);
ADOTable4.FieldByName('借书日期').AsDateTime:=Date;
ADOTable4.Post;
ADOQuery2.Close;
ADOQuery2.Open;
showmessage('借阅成功！');
  for i:=0 to Dbgrid3.Columns.Count-1 do
           Dbgrid3.Columns[i].Width:=120;
  end;
  end;
end;

procedure TForm2.Edit4KeyPress(Sender: TObject; var Key: Char);
var
 JYXX_Q:TADOQuery;
begin
 if Key=#13 then
  begin
    ADOQuery3.Close;
    ADOQuery3.Parameters.ParamByName('TXM').Value:=edit4.Text;
    ADOQuery3.Open;



      JYXX_Q:=TADOQuery.Create(nil);          //查看图书是否借出
       JYXX_Q.Parameters.AddParameter.Name:='TXM';
       JYXX_Q.Parameters.AddParameter.DataType:=ftInteger;
       JYXX_Q.Connection:=ADOConnection1;
       JYXX_Q.SQL.Add('Select * From 借阅信息 Where (Barcode=:TXM) and (还书日期 is Null)');
       JYXX_Q.Parameters.ParamByName('TXM').Value:=edit4.Text;
       JYXX_Q.Open;
       if JYXX_Q.RecordCount>0 then
            begin
             edit11.Text:=ADOQuery3['借书证号'];
             edit12.Text:=ADOQuery3['读者姓名'];
             edit13.Text:=ADOQuery3['借书日期'];
                JYXX_Q.Edit;
                JYXX_Q.FieldByName('还书日期').AsDateTime:=date;
                JYXX_Q.Post;
                showmessage('还书成功！');
                dbgrid4.SetFocus;
                adoquery6.Close;
                adoquery6.Parameters.ParamByName('aa').Value:=strtoint(edit4.text);
                adoquery6.open;
            end


       else
           showmessage('这本书没有借出！');
  end;
end;


procedure TForm2.b1Click(Sender: TObject);
begin
form3.showmodal;
end;

procedure TForm2.D1Click(Sender: TObject);
begin
if messagedlg('确认退出图书管理系统吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;
end;

procedure TForm2.C1Click(Sender: TObject);
begin
form1.Edit2.Clear;
form1.Edit1.Clear;
form1.showmodal;

end;

procedure TForm2.N11Click(Sender: TObject);
begin
form4.showmodal;
end;

procedure TForm2.ToolButton12Click(Sender: TObject);
begin
form4.showmodal;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
var sqlstr:string;
 
begin
if radiobutton1.Checked=true then
begin
 sqlstr:='SELECT 书籍信息.ISBN, 书籍信息.书名, 图书类别.类别名称, 书籍信息.作者, 书籍信息.出版社, 书籍信息.书价'+' FROM 图书类别 INNER JOIN 书籍信息 ON 图书类别.类别编号=书籍信息.类别编号'+' where 书籍信息.书名 like "%'+edit14.Text+'%"';
  ADOQuery4.Close;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Add(sqlstr);
  ADOQuery4.Open;
  end;
  if radiobutton2.Checked=true then
begin
 sqlstr:='SELECT 书籍信息.ISBN, 书籍信息.书名, 图书类别.类别名称, 书籍信息.作者, 书籍信息.出版社, 书籍信息.书价'+' FROM 图书类别 INNER JOIN 书籍信息 ON 图书类别.类别编号=书籍信息.类别编号'+' where 书籍信息.作者 like "%'+edit14.Text+'%"';
  ADOQuery4.Close;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Add(sqlstr);
  ADOQuery4.Open;
  end;
  if radiobutton3.Checked=true then
begin
 sqlstr:='SELECT 书籍信息.ISBN, 书籍信息.书名, 图书类别.类别名称, 书籍信息.作者, 书籍信息.出版社, 书籍信息.书价'+' FROM 图书类别 INNER JOIN 书籍信息 ON 图书类别.类别编号=书籍信息.类别编号'+' where 书籍信息.出版社 like "%'+edit14.Text+'%"';
  ADOQuery4.Close;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Add(sqlstr);
  ADOQuery4.Open;
  end;
  if radiobutton4.Checked=true then
begin
 sqlstr:='SELECT 书籍信息.ISBN, 书籍信息.书名, 图书类别.类别名称, 书籍信息.作者, 书籍信息.出版社, 书籍信息.书价'+' FROM 图书类别 INNER JOIN 书籍信息 ON 图书类别.类别编号=书籍信息.类别编号'+' where 书籍信息.类别编号 like "%'+edit14.Text+'%"';
  ADOQuery4.Close;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Add(sqlstr);
  ADOQuery4.Open;
  end;

end;






procedure TForm2.BitBtn1Click(Sender: TObject);
var s:string;
begin
   s:=trim(edit15.text);
if radiobutton5.Checked=true then
begin
    if  not adotable2.Locate('读者姓名',s,[]) then
      showmessage('对不起,没找到!')
      else dbgrid6.SetFocus;
  end;
  if radiobutton7.Checked=true then
begin
    if  not adotable2.Locate('借书证号',s,[]) then
      showmessage('对不起,没找到!')
      else dbgrid6.SetFocus;
  end;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet1;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet3;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet4;
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet5;
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet6;
end;

procedure TForm2.SpeedButton9Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet7;
end;

procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet8;
end;

procedure TForm2.ToolButton1Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet1;
end;

procedure TForm2.ToolButton2Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
end;

procedure TForm2.ToolButton4Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet3;
end;

procedure TForm2.ToolButton5Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet4;
end;

procedure TForm2.ToolButton7Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet5;
end;

procedure TForm2.ToolButton8Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet6;
end;

procedure TForm2.ToolButton9Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet7;
end;

procedure TForm2.ToolButton11Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet8;
end;

procedure TForm2.F1Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet1;
end;

procedure TForm2.N3Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet7;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet2;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet8;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet5;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet6;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
if label43.Left>panel20.left then
   label43.Left:=label43.left-1
  else
   timer2.Enabled:=true;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet3;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet4;
end;

procedure TForm2.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   bitbtn2.Click;
end;

procedure TForm2.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   bitbtn1.Click;
end;

end.
上一页 12
⌨️ 快捷键说明

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