论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > 计算机科学与技术 >

A450书店辅助进书系统

   

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

------分隔线----------------------------
联系方式