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