数码化拣货系统（Digital Picking System）以下简称DPS。
 

DPS就是使用带数字显示的电子元器件来提示出、入库和盘点数量的提示系统。DPS的电子元器件由计算机控制，所提示的数字来源于数据库，数据库可以是任何种类数据库系统，并且数据库可以由任何软件控制，其中包括大型管理软件ERP、MRP等。使用本系统，在拣货时，几乎不用找、不用想，准确、简单、快速、轻松。
 

    由于控制电子元器件的数字是来源于数据库，所以DPS系统具有相当高的柔韧性，无论在硬件上还是软件上，都可以充分的扩展DPS性能：在软件方面，DPS可以和大型网络管理软件组合使用，如MRP、ERP等，使控制DPS的数据来源于网络，接受多元化管理，并可以和一些财务软件链接，如用友等，向财务软件传递出入库数据，使物流带动信息流；在硬件方面，可以和生产线、输送线等硬件组合使用，提高工作效率和减轻人员的体力劳动

  /*源文:www.kgbysj.com 转载请著名出处 如需购买请联系客服QQ:80072749 */
 

目    录            

摘要.................................................................2

ABSTRACT.............................................................3

第一章 绪论..........................................................5

1． 1背景 .......................................................5

1.2.系统特点.....................................................6

1.3DPS系统构筑的应用类型.........................................6

1.4DPS常用方案分析...............................................6

1．5实施方案介绍.................................................7

第二章 系统概述.......................................................9

2．1出入库操作...................................................9

2．2盘点操作.....................................................10

2．3系统与QAD连接...............................................10

2．4统计报表.....................................................10

2．5系统使用说明.................................................10

2．6软件功能模块.................................................10

2．7作业流程简介.................................................11

第三章系统设计........................................................13

3．1系统分析.....................................................13

3.2 ORACLE与SQL SERVER 优缺点的比较...........................13

3．3数据库脚本的设计.............................................14

第四章系统实现........................................................20

4.1 与QAD接口的实现..............................................20

4.2登陆界面的实现................................................20

4.3系统主界面设计................................................23

4.4系统调用硬件接口的实现.........................................24

5入库和拣选功能的实现 ............................................25

4.6查询与报表的实现..............................................26

第五章 总结与展望.....................................................29

5.1总结..........................................................29

5.2展望..........................................................29

参考文献..............................................................31

致谢..................................................................32

 

范例4.1

procedure TFormLogin.BitBtn1Click(Sender: TObject);

var

        F: TextFile;

        FileDate:Array[0..100] of char;

        FileName,User_Name,Password:String;

        S:String;

        q:tadoquery;

begin

    if Length(Edit1.Text)=0 Then

    Begin

         ShowMessage('请输入密码及口令！');

         EDIT1.SetFocus;

         Exit;

    End;

    FileName:=application.ExeName;

    FileName:=ExtractFilePath(FileName);

    if Length(FileName)>3then

       FileName:=FileName+'Login.ini'

    else

       FileName:=FileName+'\Login.ini';

    try

       assignfile(F,FileName);

       Reset(F);

       IF NOt Eof(F)  Then

          begin

             ReadLn(F,S);

             CloseFile(F);

          end;

    except

       Application.MessageBox('配置文件丢失！','错误',mb_OK);

       ModalResult :=MRCancel;

       exit;

    end;

    if Length(Trim(S))=0 then

       begin

          Application.MessageBox('配置内容丢失！','错误',mb_OK);

          ModalResult :=MRCancel;

          exit;

       end;

    ADB.Connect.Connected:=FALSE;

    ADB.Connect.Provider:='MSDAORA.1';

    adb.Connect.ConnectionString:=s;

    Try

       adb.Connect.Connected:=True;

    except

       ShowMessage('你的网络连接失败。');

       ModalResult :=MRCancel;

       Exit;

    end;

    S:='Select DPSCJ,DPSQX1 from WMS_EMPLOYEE_LIB where WMS_User_Name='''

      +Trim(Edit1.Text)+''' AND WMS_Password='''+Trim(Edit2.Text)+'''';

    Q:=TADOQUERY.Create(NIL);

    Q.Connection:=ADB.Connect;

    Q.SQL.Text:=S;

    Q.Open;

    IF (Q.RecordCount=0)THEN

       BEGIN

          SHOWMESSAGE('密码错误！');

          q.Free;

          exit;

       END;

if (q.FieldValues['dpscj']>0)then

    begin

        formmain.dpssetup.Enabled:=true;

        Q.Free;

        ModalResult :=MROK;

        exit;

    end;

    if (q.FieldValues['dpsqx1']>0)then

    begin

        formmain.dpssetup.Enabled:=false;

        Q.Free;

        ModalResult :=MROK;

        exit;

    end;

    q.free;

    SHOWMESSAGE('该用户无权限！');

end;

 

在交大的学习生活即将结束了，在毕业论文的设计中，我的导师吴增德先生给予了我很多的关心和帮助。吴老师知识渊博、诲人不倦，给我留下了深刻的印象，在学术和为人上都是我学习的榜样。在吴老师的教导下，使我的论文课题能够顺利开展，并取得一定的成果。在此，我向他表示最真切的感谢。以上内容只是电子标签拣选系统（DPS）设计与实现作品的部分资料介绍,如果了解更多详情请联系客服QQ:80072749 

 

  /*源文:www.kgbysj.com 转载请著名出处 如需购买请联系客服QQ:80072749 */