|
2.3 系统的总体设计 内容来自www.paper51.com 这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对影音店光盘管理的具体要求及需要本软件实现的功能，将本软件分为4个大的模块，分别是：第一部分：图书管理；第二部分：学生管理；第三部分：借阅管理； 第四部分：报表查询。 内容来自论文无忧网 www.paper51.com
程序流程图如下： paper51.com
http://www.paper51.com 2.4 系统的详细设计 copyright paper51.com 进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“tushuguan”，书店辅助进书管理系统。并在此数据库下创建了四个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下： 内容来自www.paper51.com 1.books信息表 paper51.com http://www.paper51.com 2.bore信息表 内容来自www.paper51.com
paper51.com
3.用户权限信息表: 内容来自论文无忧网 www.paper51.com http://www.paper51.com 4.学生信息表 http://www.paper51.com
http://www.paper51.com 3 本程序的技术实现及具体功能 paper51.com 3.1 登录的界面与程序设计实现 内容来自论文无忧网 www.paper51.com
paper51.com
代码设计: 内容来自www.paper51.com var pass:boolean; copyright paper51.com procedure TForm1.N1Click(Sender: TObject); 内容来自论文无忧网 www.paper51.com
begin http://www.paper51.com
ifpass=true then tushuguanli.show 内容来自论文无忧网 www.paper51.com else showmessage('请先输入用户名和密码！'); paper51.com end; paper51.com
procedure TForm1.N2Click(Sender: TObject); paper51.com begin copyright paper51.com
ifpass=true then xueshengguanli.show http://www.paper51.com
else showmessage('请先输入用户名和密码！'); copyright paper51.com end; http://www.paper51.com procedure TForm1.N3Click(Sender: TObject); copyright paper51.com
begin paper51.com ifpass=true then jieyueguanli.show http://www.paper51.com else showmessage('请先输入用户名和密码！'); http://www.paper51.com end; 内容来自www.paper51.com procedure TForm1.N4Click(Sender: TObject); http://www.paper51.com begin paper51.com
ifpass=true then chacunbaobiao.show copyright paper51.com
else showmessage('请先输入用户名和密码！'); 内容来自论文无忧网 www.paper51.com
end; copyright paper51.com procedure TForm1.N5Click(Sender: TObject); 内容来自www.paper51.com begin copyright paper51.com about.show; paper51.com end; copyright paper51.com
procedure TForm1.BitBtn1Click(Sender: TObject); 内容来自www.paper51.com begin paper51.com with form1.Panel2 do 内容来自论文无忧网 www.paper51.com begin paper51.com
adotable1.Active:=true; http://www.paper51.com if edit1.text='' thenshowmessage('请输入ID')else 内容来自www.paper51.com if edit2.Text=''then showmessage('请输入密码') http://www.paper51.com
else //方法一 密码+用户名=1000 内容来自www.paper51.com { val(edit1.Text,i,code1); paper51.com val(edit2.Text,j,code2); 内容来自www.paper51.com if ((code1<>0) or (code2<>0)) then showmessage('用户名和密码的格式错误') 内容来自www.paper51.com else copyright paper51.com ifstrtoint(edit1.Text)+strtoint(edit2.Text)=10000 then copyright paper51.com begin paper51.com
form1.show; http://www.paper51.com showmessage('欢迎使用!'); paper51.com
pass:=true; copyright paper51.com form1.Panel2.Visible:=false; copyright paper51.com end paper51.com else begin copyright paper51.com
showmessage('密码错误!推出系统'); paper51.com
form1.Close; 内容来自论文无忧网 www.paper51.com end; } http://www.paper51.com
//方法2 密码表 http://www.paper51.com begin paper51.com if not adotable1.Locate('name',edit1.Text,[])then copyright paper51.com begin http://www.paper51.com showmessage('没有这个用户，登陆失败'); paper51.com pass:=false; copyright paper51.com end 内容来自论文无忧网 www.paper51.com else 内容来自www.paper51.com
if adotable1.FieldValues['password']=edit2.Text copyright paper51.com then begin paper51.com showmessage('登陆成功'); copyright paper51.com panel2.Visible:=false; http://www.paper51.com pass:=true; copyright paper51.com end copyright paper51.com else begin showmessage('密码错误，退出系统！'); copyright paper51.com application.Terminate; copyright paper51.com
end; http://www.paper51.com end; http://www.paper51.com end; copyright paper51.com end; http://www.paper51.com |