【DELPHI设计栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了DELPHI设计-delphi通用图书馆管理系统的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
中文摘要
图书馆管理系统为图书馆管理者提供图书管理,学生管理以及借阅管理,查询报表的一系列日常功能提供方便快捷的实现平台.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0软件及其提供的各种面向对象的开发工具,建立完整性强、安全性好的数据库,开发出功能完备,易使用的应用程序。经过调试、编译与实现,该程序界面友好、程序设计风格朴素,使用起来美观大方、方便易用。尤其是系统的“借阅管理”的功能极大的减轻工作人员的工作量,并以快速、准确等优点取代人工操作,提高了图书馆管理工作效率。
关键词 : DELPHI 6.0 信息管理系统 数据库 模块 图书馆管理系统
引 言 1
1 Delphi语言概述 2
1.1 Delphi简介 2
1.2 数据库系统简介 2
1.3 本应用软件的基本介绍 3
2 本应用程序的构成和开发步骤 4
2.1 可行性研究 4
2.1.1 经济可行性 4
2.1.2 时间可行性 4
2.1.3 技术可行性 4
2.1.4 社会可行性 5
2.2 数据库的建立和连接 5
2.3 系统的总体设计 5
2.4 系统的详细设计 7
3 本程序的技术实现及具体功能 13
3.1 登录的界面与程序设计实现 13
3.2 学生管理界面与代码设计实现13
3.3 图书管理界面与代码设计实现14,
3.4 借阅管理界面与代码设计15
3.5 报表查询界面设计与代码设计 16
结 论 21
致 谢 22
参 考 文 献 23
3 本程序的技术实现及具体功能
3.1 登录的界面与程序设计实现
代码设计:
var pass:boolean;
procedure TForm1.N1Click(Sender: TObject);
begin
if pass=true then tushuguanli.show
else showmessage(''请先输入用户名和密码!'');
end;
procedure TForm1.N2Click(Sender: TObject);
begin
if pass=true then xueshengguanli.show
else showmessage(''请先输入用户名和密码!'');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if pass=true then jieyueguanli.show
else showmessage(''请先输入用户名和密码!'');
end;
procedure TForm1.N4Click(Sender: TObject);
begin
if pass=true then chacunbaobiao.show
else showmessage(''请先输入用户名和密码!'');
end;
procedure TForm1.N5Click(Sender: TObject);
begin
about.show;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with form1.Panel2 do
begin
adotable1.Active:=true;
if edit1.text='''' then showmessage(''请输入ID'')else
if edit2.Text='''' then showmessage(''请输入密码'')
else //方法一 密码+用户名=1000
{ val(edit1.Text,i,code1);
val(edit2.Text,j,code2);
if ((code1<>0) or (code2<>0)) then showmessage(''用户名和密码的格式错误'')
else
if strtoint(edit1.Text)+strtoint(edit2.Text)=10000 then
begin
form1.show;
showmessage(''欢迎使用!'');
pass:=true;
form1.Panel2.Visible:=false;
end
else begin
showmessage(''密码错误!推出系统'');
form1.Close;
end; }
//方法2 密码表
begin
if not adotable1.Locate(''name'',edit1.Text,[]) then
begin
showmessage(''没有这个用户,登陆失败'');
pass:=false;
end
else
if adotable1.FieldValues[''password'']=edit2.Text
then begin
showmessage(''登陆成功'');
panel2.Visible:=false;
pass:=true;
end
else begin showmessage(''密码错误,退出系统!'');
application.Terminate;
end;
end;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
if messagedlg(''确定要退出系统?'',mtinformation,[mbno,mbyes],0)=mrYes
then Application.Terminate;
end;
3.2 学生管理界面与代码设计实现
代码设计:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB,
ADODB, Buttons;
type
Txueshengguanli = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
DataSource1: TDataSource;
ADOTable1: TADOTable;
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
Panel5: TPanel;
DBGrid3: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Panel4: TPanel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
Panel6: TPanel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京:清华大学出版社,2002.5
2 飞思科技. Delphi6开发者手册. 北京:电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京:电子工业出版社, 2002.1
4 丁宝康.数据库原理. 北京:经济科学出版社,2004.1
上一篇:delphi通用网吧管理系统