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

A450书店辅助进书系统

   

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

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