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

A450书店辅助进书系统

   

2.3  系统的总体设计 内容来自www.paper51.com

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

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

程序流程图如下: paper51.com

http://www.paper51.com

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

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

内容来自www.paper51.com

1.books信息表 paper51.com

http://www.paper51.com

2.bore信息表 内容来自www.paper51.com

paper51.com

3.用户权限信息表:

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

http://www.paper51.com

4.学生信息表

http://www.paper51.com

http://www.paper51.com

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

3.1          登录的界面与程序设计实现

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

paper51.com

代码设计: 内容来自www.paper51.com

var pass:boolean;

copyright paper51.com

procedure TForm1.N1Click(Sender: TObject);

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

begin

http://www.paper51.com

   ifpass=true then  tushuguanli.show 内容来自论文无忧网 www.paper51.com

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

paper51.com

end;

paper51.com

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

begin

copyright paper51.com

   ifpass=true then  xueshengguanli.show

http://www.paper51.com

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

end; http://www.paper51.com

procedure TForm1.N3Click(Sender: TObject);

copyright paper51.com

begin paper51.com

   ifpass=true then  jieyueguanli.show http://www.paper51.com

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

end; 内容来自www.paper51.com

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

begin

paper51.com

   ifpass=true then  chacunbaobiao.show

copyright paper51.com

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

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

end; copyright paper51.com

procedure TForm1.N5Click(Sender: TObject);

内容来自www.paper51.com

begin

copyright paper51.com

   about.show; paper51.com

end;

copyright paper51.com

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

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

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

http://www.paper51.com

       else   //方法一 密码+用户名=1000 内容来自www.paper51.com

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

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

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

                else

copyright paper51.com

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

copyright paper51.com

                           begin

paper51.com

                             form1.show;

http://www.paper51.com

                              showmessage('欢迎使用!');

paper51.com

                             pass:=true; copyright paper51.com

                             form1.Panel2.Visible:=false;

copyright paper51.com

                           end

paper51.com

                    else  begin

copyright paper51.com

                            showmessage('密码错误!推出系统');

paper51.com

                            form1.Close;

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

                          end;  }

http://www.paper51.com

                 //方法2 密码表 http://www.paper51.com

        begin paper51.com

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

               begin http://www.paper51.com

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

                 pass:=false; copyright paper51.com

                end

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

             else

内容来自www.paper51.com

               if adotable1.FieldValues['password']=edit2.Text copyright paper51.com

                then begin paper51.com

                         showmessage('登陆成功'); copyright paper51.com

                         panel2.Visible:=false; http://www.paper51.com

                         pass:=true; copyright 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

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