信息与计算科学系课程设计报告
3.7 新书入库
本模块主要实现的是管理员对新书的入库管理，打 * 号的是必填项目，置空会有信息提示该项不能为空，如图3-8所示：
图3-8新书入库界面
3.7 系统密码修改
本模块主要实现的功能是管理员进入系统管理界面后对管理员密码进行修改的操作，以保证系统的安全性，如图3-9所示：
图3-9 系统密码修改界面
3.9 读者服务
本功能实现的是读者对图书的查询、借阅及归还操作以及对密码的修改的操作，读者必须先登录以后才能进行后面的修改密码、图书查询等操作，如图4-12所示：
11
信息与计算科学系课程设计报告
图3-10 读者服务界面
4. 认识体会
1．认识体会：
通过系统的在校学习和对外界的认识，我对软件开发的大致过程有了一些基本的了解，有了一些体会：程序没有最好，只有更好，程序没有十全十美，只有更完美；在编程的过程中，会遇到各种各样的问题，优秀的编程大师正是在解决了遇到的这些问题而积累经验的成果，提升了编程能力和丰富了编程思维。深入的体会：编程总会深入内部，深究根源，一个程序只有不断地测试和修改才能减少错误，才能提高质量，才能做得更好，程序是在不断地壮大的。编程需要严谨的思维，程序是一个逻辑产品，它存储在磁盘等物理介质中，它看不见，摸不着，它运行时一环接一环，一丝扣一丝，一旦出错，有可能导致难以预料的严重后果。而严谨的思维能使程序逻辑出错的可能性大大降低，也使程序易于维护。而且，保持严谨的思维总是一个好的习惯。在学习的过程中，要学会应用网络上的知识，把它变为自己的知识，应用在实际中来解决问题。因为在网络上有各种各样的资源可以供你参考。编程需要良好的编程习惯。好的编程习惯能给编程人员省去很多不必要的麻烦，提高了代码的清晰度，从而提高了程序的质量。三人行必有我师：不管你的编程水平有多高，都有不懂的地方，所以时刻都要虚心向他人学习来提高自己。连孔子都可以拜小孩为师，我们还有什么面子放不下的呢？
3、总结：
12
信息与计算科学系课程设计报告
在一开始我通过编写设计初稿，对设计本系统有了比较深刻的认识，认真的考虑了每一步骤的执行，也发现编一个优秀的软件决不是一蹴而就的事情，需要长时间的积累和经验。然后，在老师的辅导和同学的帮助下，我更加深入的去考虑这个系统。并花了大量的心思和努力去完成这个系统。在做这个系统的这段时间里，我学到了我以前没有掌握牢的知识。更重要的是了解了作为一个开发人员开发一个系统软件的步骤和方法策略。如何去思考问题，又如何去解决问题??总之，通过这次的系统设计，我学会了很多，也了解了很多。在这，我真诚的感谢辅导过我的老师，还有帮助过我的同学们。谢谢！
参考文献：
[1] 刘斌，李文革．Delphi7数据库高级教程[M] ．北京：清华大学出版社，2004
[2] 李军， 张桂英，徐波． Delphi7项目开发实践[M] ．北京：中国铁道出版社，2003
［3］ 刘国钧，陈绍业，王凤翥.图书馆目录［M］.第1版.北京：高等教育出版社，1957.
5. 源代码
5.1系统主界面：
procedure TfrmMain.SpeedButton1Click(Sender: TObject);
begin
frmAdm.Show; end;
procedure TfrmMain.SpeedButton2Click(Sender: TObject); begin
frmReaderSer.Show; end;
procedure TfrmMain.SpeedButton3Click(Sender: TObject); begin
frmLookBook.Show; end;
procedure TfrmMain.SpeedButton4Click(Sender: TObject); var Str: string; begin
Str := '图书管理系统' + #13;
13
信息与计算科学系课程设计报告
Str := Str + '作者：丁少亭(L3)' + #13;
Str := Str + '这是我的第一次编程,请大家多多指教!'; ShowMessage(Str); end;
procedure TfrmMain.SpeedButton5Click(Sender: TObject); begin
if messagedlg('确定要退出本系统吗?', mtinformation, [mbyes, mbno], 0) = mryes then begin
ShowMessage('谢谢你的使用');
// form1.DestroyWnd; frmMain.Close; end; end;
procedure TfrmMain.Timer1Timer(Sender: TObject); begin
StatusBar1.Panels[2].Text := '日期:' + DateToStr(Date); StatusBar1.Panels[3].Text := '时间:' + TimeToStr(Time); end;
procedure TfrmMain.SkinData1FormSkin(Sender: TObject; aName: String; var DoSkin: Boolean); begin
skindata1.Active:=true; end; end.
5.2 登录按钮代码：
procedure TfrmAdm.Button1Click(Sender: TObject); begin
with DM.ADOQuery1 do begin Close;
SQL.Clear;
SQL.Add('select * from 用户 where 姓名=:username and 密码=:pass and 类型=:GLY');
Parameters.ParamByName('username').Value := Edit1.Text; Parameters.ParamByName('pass').Value := Edit2.Text; Parameters.ParamByName('GLY').Value := '管理员'; Open;
if RecordCount < 1 then begin
ShowMessage('用户名、密码错误或您不是管理员，请重新输入!'); Edit2.Text := '';
14
信息与计算科学系课程设计报告
Exit; end else begin
frmAdmin.ShowModal; end; end; end;
5.3 系统管理：
procedure TfrmAdmin.BitBtn3Click(Sender: TObject); begin
frmAddReader.Show; end;
procedure TfrmAdmin.Button1Click(Sender: TObject); begin
frmModifyReaderInfo.Show; end;
procedure TfrmAdmin.Button2Click(Sender: TObject); begin
frmNewBook.Show; end;
procedure TfrmAdmin.Button4Click(Sender: TObject); begin
frmLendBook.Show; end;
procedure TfrmAdmin.Button5Click(Sender: TObject); begin
frmYy.Show; end;
procedure TfrmAdmin.Button6Click(Sender: TObject); begin
frmModifyPsw.Show; end;
procedure TfrmAdmin.Button7Click(Sender: TObject); begin
if messagedlg('确定要退出吗?', mtinformation, [mbyes, mbno], 0) = mryes then
Close; end;
procedure TfrmAdmin.Button9Click(Sender: TObject); begin
ADOTable1.Close;
15
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库图书馆管理系统-大作业(3)在线全文阅读。
相关推荐：