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