图书馆管理系统-大作业(4)

来源：网络收集时间：2019-04-10 下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:或QQ：处理（尽可能给您提供完整文档），感谢您的支持与谅解。

信息与计算科学系课程设计报告

ADOTable1.Filtered := false; if ComboBox1.Text = '学号' then begin

ADOTable1.Filter := '学号=''' + Edit1.Text + ''''; ADOTable1.Filtered := true; ADOTable1.Open; end else begin

ADOTable1.Filter := '姓名=''' + Edit1.Text + ''''; ADOTable1.Filtered := true; ADOTable1.Open; end; end;

procedure TfrmAdmin.Button8Click(Sender: TObject); begin

frmReturnBook.Show; end;

procedure TfrmAdmin.Button10Click(Sender: TObject); begin begin

ADOTable2.Close;

ADOTable2.Filtered := false;

if combobox2.Text = '图书编号' then begin

ADOTable2.Filter := '图书编号=''' + Edit2.Text + ''''; ADOTable2.Filtered := true; ADOTable2.Open; end else begin

ADOTable2.Filter := '作者=''' + Edit2.Text + ''''; ADOTable2.Filtered := true; ADOTable2.Open; end; end; end;

procedure TfrmAdmin.BitBtn4Click(Sender: TObject); begin

if Application.MessageBox('确实要删除记录？该命令不可取消！', '删除记录', MB_OKCANCEL) = IDOK then

ADOTable1.Delete else

信息与计算科学系课程设计报告

abort; end;

procedure TfrmAdmin.Button3Click(Sender: TObject); var

strBookID: string; begin

//更新图书信息表注销标志

if combobox2.Text = '图书编号' then begin

strBookID := Trim(Edit2.Text); DM.QueryReader.Close;

DM.QueryReader.SQL.Clear;

strSql := 'update 图书明细表 set 状态=''注销'' where 图书编号=' + strBookID;

DM.QueryReader.SQL.Text := strSql; DM.QueryReader.ExecSQL; DM.QueryReader.Close;

if DM.QueryReader.RowsAffected > 0 then ShowMessage('该书注销成功！') else

ShowMessage('该书注销失败！'); end; end;

procedure TfrmAdmin.Button11Click(Sender: TObject); begin

frmBookType.Show; end; end.

管理图书确定按钮代码：

procedure TfrmBookType.btnSureClick(Sender: TObject); begin

if edtTypeID.Text = '' then begin

ShowMessage('类别编号不能为空！'); edtTypeID.SetFocus; Exit; end;

if edtBookType.Text = '' then begin

ShowMessage('类别名称不能为空！'); edtBookType.SetFocus; Exit; end;

DM.QueryBookType.Close;

信息与计算科学系课程设计报告

DM.QueryBookType.SQL.Clear; DM.QueryBookType.SQL.Text := 'insert into 图书类别(类别编号,图书类别)' + 'values(:id,:name)';

DM.QueryBookType.Parameters.ParamByName('id').Value:=Trim(edtTypeID.Text);

DM.QueryBookType.Parameters.ParamByName('name').Value:=Trim(edtBookType.Text);

{dm.QueryBookType.SQL.Text:='update 图书类别 set (类别编号,图书类别)'+'values(:id,:name)';

dm.QueryBookType.Parameters.ParamByName('id').Value:=trim(edtTypeID.Text);

dm.QueryBookType.Parameters.ParamByName('name').Value:=trim(edtBookType.Text);}

DM.QueryBookType.ExecSQL; DM.QueryBookType.Close;

DM.QueryBookType.SQL.Clear;

DM.QueryBookType.SQL.Text :='select * from 图书类别'; DM.QueryBookType.ExecSQL; DM.QueryBookType.Open; end;

删除按钮代码：

procedure TfrmBookType.btnDeleteClick(Sender: TObject); begin if Application.MessageBox('是否删除记录？', '确定', MB_OKCANCEL) = IDOK then

DM.DataSourceBookType.DataSet.Delete; end;

5.4 借阅代码：

procedure TfrmLendBook.Button1Click(Sender: TObject); var

strBookID: string; begin

if editreaderID.Text = '' then begin

ShowMessage('借书证号不能为空！'); editreaderID.SetFocus; Exit; end;

if editBookID.Text = '' then begin

ShowMessage('图书编号不能为空！'); editBookID.SetFocus;

信息与计算科学系课程设计报告

Exit; end;

if getBookCount(editBookID.Text) <> 0 then begin

ShowMessage('此书已经被借出！'); Exit; end else begin

strBookID := Trim(editBookID.Text); DM.QueryBorrow.Close;

DM.QueryBorrow.SQL.Clear;

DM.QueryBorrow.SQL.Text := 'update 借出信息 set 借出状态=1 where 图书编号= '+ strBookID;

DM.QueryBorrow.Close;

DM.QueryBorrow.SQL.Clear; DM.QueryBorrow.SQL.Text := 'insert into 借出信息(图书编号,借书证号,借出日期,借出状态)values(:BookID,' + ':readerID,:time,1)';

DM.QueryBorrow.Parameters.ParamByName('Bookid').Value:=trim(editBookID.Text);

DM.QueryBorrow.Parameters.ParamByName('readerid').Value:=trim(editreaderID.Text);

DM.QueryBorrow.Parameters.ParamByName('time').Value:=DateTimePicker1.Time;

DM.QueryBorrow.ExecSQL; DM.QueryBorrow.Close; //更新图书信息表在库标志 DM.QueryReader.Close;

DM.QueryReader.SQL.Clear;

strSql := 'update 图书明细表 set 状态=''借出'' where 图书编号= ' + strBookID;

DM.QueryReader.SQL.Text := strSql; DM.QueryReader.ExecSQL; DM.QueryReader.Close; end;

if messagedlg('借阅成功，还有要借的书籍吗？', mtconfirmation, [mbyes, mbno], 0) = mryes then begin

editBookID.Text := ''; editreaderID.Text := ''; editmax.Text := ''; DBEdit3.Text := ''; DBEdit4.Text := ''; DBEdit5.Text := '';

信息与计算科学系课程设计报告

DBEdit6.Text := ''; DBEdit7.Text := ''; editBookID.SetFocus; end; end;

其他相关实现代码：

procedure TfrmLendBook.editBookIDKeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then begin

if ViewBook(editBookID.Text) = false then begin

ShowMessage('没有此书, 请重新选择！'); Exit; end;

DM.QueryBook.Filtered := false;

DM.QueryBook.Filter := '图书编号=''' + editBookID.Text + ''''; DM.QueryBook.Filtered := true; end; end;

function TfrmLendBook.ViewBook(BookID: string): boolean; var Query: TADOQuery; begin

Query := TADOQuery.Create(self);

Query.Connection := DM.ADOConnection1;

Query.SQL.Add('select * from 图书明细表 where 图书编号=:id'); Query.Parameters.ParamByName('ID').Value := BookID; Query.Open;

if Query.RecordCount = 0 then begin

Result := false; ; Exit; end else

Result := true; end;

function TfrmLendBook.viewUser(user: string): boolean; var Query1: TADOQuery; begin

Query1 := TADOQuery.Create(self);

Query1.Connection := DM.ADOConnection1;

Query1.SQL.Add('select * from 学生信息表 where 借书证号=:id'); Query1.Parameters.ParamByName('ID').Value := user; Query1.Open;

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库图书馆管理系统-大作业(4)在线全文阅读。

图书馆管理系统-大作业(4).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档

本文链接：https://www.77cn.com.cn/wenku/zonghe/584037.html（转载请注明文章来源）

上一篇：安全气囊的发展与应用
下一篇：JAVAOOP复习题笔试