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

A450书店辅助进书系统

   

2.3  系统的总体设计 paper51.com

这个管理系统从4月1日开始着手设计开发,经过一段时间的分析,并根据对影音店光盘管理的具体要求及需要本软件实现的功能,将本软件分为4个大的模块,分别是:第一部分:图书管理;第二部分:学生管理;第三部分:借阅管理; 第四部分:报表查询。

http://www.paper51.com

程序流程图如下: http://www.paper51.com

http://www.paper51.com

2.4          系统的详细设计 copyright paper51.com

进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象,根据本课题的需要,在这里选择一个空的数据库,命名建立了一个数据库名称为“tushuguan”,书店辅助进书管理系统。并在此数据库下创建了四个表,用于存放原始数据。它只是存放数据,对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下: 内容来自www.paper51.com

1.books信息表

内容来自www.paper51.com

内容来自论文无忧网 www.paper51.com

2.bore信息表

内容来自论文无忧网 www.paper51.com

http://www.paper51.com

3.用户权限信息表:

内容来自论文无忧网 www.paper51.com

内容来自论文无忧网 www.paper51.com

4.学生信息表 paper51.com

http://www.paper51.com

3   本程序的技术实现及具体功能

paper51.com

3.1          登录的界面与程序设计实现 内容来自论文无忧网 www.paper51.com

http://www.paper51.com

代码设计: paper51.com

var pass:boolean; http://www.paper51.com

procedure TForm1.N1Click(Sender: TObject); copyright paper51.com

begin http://www.paper51.com

   ifpass=true then  tushuguanli.show

内容来自论文无忧网 www.paper51.com

     else showmessage('请先输入用户名和密码!'); 内容来自论文无忧网 www.paper51.com

end;

内容来自论文无忧网 www.paper51.com

procedure TForm1.N2Click(Sender: TObject); http://www.paper51.com

begin

http://www.paper51.com

   ifpass=true then  xueshengguanli.show

内容来自www.paper51.com

    else showmessage('请先输入用户名和密码!'); paper51.com

end;

内容来自www.paper51.com

procedure TForm1.N3Click(Sender: TObject); 内容来自www.paper51.com

begin

paper51.com

   ifpass=true then  jieyueguanli.show

内容来自www.paper51.com

     else showmessage('请先输入用户名和密码!'); http://www.paper51.com

end;

paper51.com

procedure TForm1.N4Click(Sender: TObject);

内容来自论文无忧网 www.paper51.com

begin

内容来自www.paper51.com

   ifpass=true then  chacunbaobiao.show

内容来自www.paper51.com

     else showmessage('请先输入用户名和密码!'); paper51.com

end;

copyright paper51.com

procedure TForm1.N5Click(Sender: TObject);

http://www.paper51.com

begin

http://www.paper51.com

   about.show;

copyright paper51.com

end; 内容来自论文无忧网 www.paper51.com

procedure TForm1.BitBtn1Click(Sender: TObject); 内容来自www.paper51.com

begin

paper51.com

with form1.Panel2 do

copyright paper51.com

 begin 内容来自论文无忧网 www.paper51.com

   adotable1.Active:=true; paper51.com

   if edit1.text='' thenshowmessage('请输入ID')else

内容来自www.paper51.com

      if edit2.Text=''then showmessage('请输入密码')

copyright paper51.com

       else   //方法一 密码+用户名=1000

内容来自www.paper51.com

            {  val(edit1.Text,i,code1);

copyright paper51.com

              val(edit2.Text,j,code2); 内容来自www.paper51.com

              if ((code1<>0) or (code2<>0)) then showmessage('用户名和密码的格式错误') paper51.com

                else

内容来自www.paper51.com

                 ifstrtoint(edit1.Text)+strtoint(edit2.Text)=10000  then paper51.com

                           begin

http://www.paper51.com

                             form1.show;

内容来自论文无忧网 www.paper51.com

                              showmessage('欢迎使用!'); 内容来自论文无忧网 www.paper51.com

                             pass:=true;

http://www.paper51.com

                             form1.Panel2.Visible:=false;

http://www.paper51.com

                           end http://www.paper51.com

                    else  begin paper51.com

                            showmessage('密码错误!推出系统'); http://www.paper51.com

                            form1.Close; 内容来自论文无忧网 www.paper51.com

                          end;  }

内容来自论文无忧网 www.paper51.com

                 //方法2 密码表

内容来自论文无忧网 www.paper51.com

        begin http://www.paper51.com

         if not adotable1.Locate('name',edit1.Text,[])then

内容来自www.paper51.com

               begin copyright paper51.com

                 showmessage('没有这个用户,登陆失败'); copyright paper51.com

                 pass:=false;

内容来自论文无忧网 www.paper51.com

                end

http://www.paper51.com

             else paper51.com

               if adotable1.FieldValues['password']=edit2.Text http://www.paper51.com

                then begin paper51.com

                         showmessage('登陆成功');

copyright paper51.com

                         panel2.Visible:=false;

http://www.paper51.com

                         pass:=true;

内容来自www.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

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