智能决策技术报告完整版Word格式文档下载.docx

智能决策技术报告完整版Word格式文档下载.docx

《智能决策技术报告完整版Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《智能决策技术报告完整版Word格式文档下载.docx（87页珍藏版）》请在冰豆网上搜索。

建立数据字典：

总编号

编号

名称

来源

去向

包含数据结构

1-01

F1

客户订单

客户

分析处理

订单号、产品编号、订购数量、交货日期

1-02

F2

产品结构

设计

产品编号、层次、上层编号、上层需求

1-03

F3

库存状态

库存

产品编号、产品名称、库存总量、可用量、将要入库量、安全库存

1-04

F4

物料订单

订单下达

订单号、物料编号、订购数量、订购日期、有效期至

1-05

F5

用户信息

用户

登录判断

用户名、密码、权限、备注

表

3.抽象模型建立

系统功能结构图

图3.1

系统业务流程图

图3.2

二．设计阶段

1.系统平台设计

开发平台设计

前台设计工具：

BorlandDelphi6

后台数据库：

SQLServer

开发环境：

硬件环境：

PC电脑

软件环境：

（见下图）

服务器

操作系统

WINDOWS2007

应用程序

SQLServer

客户端

本系统采用C/S模式，即客户端/服务器模式

网络拓扑结构为星型结构

2.主要功能模块设计

登录模块

界面截图如下图4.21：

图4.21

功能是验证用户是否合法，是否允许登入系统，如果合法则还要判断其权限，以限定用户的操作权限。

主界面模块

界面如图4.22登录之前及4.23登录之后，其功能是实现在各个功能模块的界面之间的进行跳转：

图4.22图4.23

主生产计划模块

界面如下图4.24，主要是实现客户订单管理：

图4.24

图4.25为产品结构管理：

图4.25

图4.26为物料库存管理：

图4.26

图4.27为物料需求分析界面：

图4.27

订单管理模块

图4.28为订单管理界面：

图4.28

用户管理模块

图4.29为用户管理界面，包括注册、修改密码、权限设置等：

图4.29

3.数据库设计

数据库设计如下：

客户订单文件表oderform

字段名称

字段描述

数据类型

字段长度

是否主键

允许为空否

Oderno

订单号

Char

10

Y

N

Pno

产品编号

Pnum

订单总量

Int

4

Pselfnum

自产量

Pbuynum

外购量

Odert

下单日期

Datetime

8

Delit

交货日期

State

当前状态

物料需求订单文件表matelist

Mlno

订单编号

Mno

物料编号

Mlnum

订购数量

Mltime

订购日期

Mlvivtime

有效期至

Remark

备注

30

物料库存文件表matestor

Mname

物料名称

Mlayer

所属层次

Mpreno

上层编号

Mprenum

上层需求

Mtnum

库存总量

Mvnum

可用数量

Mwnum

将要入库量

Secnum

安全库存

Mut

计量单位

Mfinish

成品率

Float

Madvant

提前期

Avat

生效日期

Invat

失效日期

物料分析临时表tempinfo

Dtime

需求日期

Dmno

Dmname

Dmlayer

Dmadvantt

Dpreno

Dprenum

Dmfinish

Dvnum

Dwnum

Dsnum

Ddtnum

毛需求量

Ddnetnum

净需求量

dselfn

dbuyn

用户信息表userinfo

Username

用户名

Passswd

用密码

Uright

用户权限

Lastit

最近登录时间

Lastot

最近登出时间

三．实施阶段

1.实现方案

以一个简化了的自行车产品来说明，其库存状态书记库如上图所示。

其结构示意图为：

基本的物料计划步骤为：

（1）确定自行车的总需求、净需求和计划定单下达的时间；

（2）根据上层的结果，确定第1层上所有物料的净需求和计划定单下达的时间；

（3）根据上层车轮的结果，确定第2层上所有物料的净需求和计划定单下达的时间。

其中用到的公式有：

第t周期的净需求量=第t周期的毛需求—现有量—第t周期计划入库量+安全库存

不考虑批量问题，则t-L周期计算计划订单下达数量等于t周期净需求量，即：

R（t-L）=N（t）

2.系统开发、调试与运行

2.1登录模块设计

界面如图

图5.41

主要程序代码为：

unitLogin;

var

fmLogin:

TfmLogin;

implementation

usesdatamd,Main;

{$R*.dfm}

//////////////////////自定义过程，验证用户///////////////////////////////

procedureTfmlogin.userjug（u,p,r:

string）;

varupsql,upsql2:

string;

begin

ifu='

'

then

begin

showmessage（'

用户名不能为空，请输入用户名！

）;

edtun.setfocus;

end

elseifp='

密码不能为空，请输入密码！

edtpw.setfocus;

else

upsql:

='

selectusernm,passwd,urightfromuserinfowhereusernm='

+'

+u+'

andpasswd='

+p+'

anduright='

+r+'

;

upsql2:

updateuserinfosetlastit='

+datetostr（Now）+'

whereusernm='

try

dtmd.qryup.Close;

dtmd.qryup.SQL.Clear;

dtmd.qryup.SQL.Add（upsql）;

dtmd.qryup.Open;

ifnotdtmd.qryup.Eofthen//用户合法，则进入系统

//更新用户的最近登录时间

dtmd.qryup.SQL.Add（upsql2）;

dtmd.qryup.ExecSQL;

fmMain.RzGroup1.Visible:

=false;

fmMain.RzGroup2.Visible:

=true;

fmMain.RzGroup2.Opened:

fmMain.RzGroup3.Visible:

fmMain.RzGroup4.Visible:

fmMain.RzGroup5.Visible:

fmMain.pu:

=u;

fmMain.pp:

=p;

fmMain.pr:

=r;

fmMain.sttb.Panels[0].Text:

=fmMain.pu;

fmLogin.Close;

用户名或密码错误！

edtun.SetFocus;

except

连接数据库失败，请检查数据库服务是否正常！

end;

end;

//////////////////////////////退出登录/////////////////////////////////

procedureTfmLogin.btnextClick（Sender:

TObject）;

self.Close;

//////////////////////////////登录按钮////////////////////////////////

procedureTfmLogin.btnlgClick（Sender:

varri:

ifself.rbu.Checkedthen

ri:

user'

elseifself.rba.Checkedthen

admini'

userjug（trim（edtun.Text）,trim（edtpw.Text）,ri）;

////////////////////用户名和密码文本框里回车/////////////////////////

procedureTfmLogin.edtunKeyPress（Sender:

TObject;

varKey:

Char）;

ifkey=#13then

end.

订单管理

界面如图5.42

图5.42

主要代码：

unitOderform;

fmOderform:

TfmOderform;

///////////////////////////各个下拉框赋值共用过程///////////////////////

procedureTfmOderform.cbpbdpd（tet:

i,j:

integer;

osql:

withdtmd.qryofmdo

selectdistinct'

+tet+'

fromoderform'

//查询唯一值

Close;

SQL.clear;

SQL.Add（osql）;

Open;

fmOderform.dbno.DataSource:

=nil;

fmOderform.dbgo.DataSource:

First;

i:

=RecordCount;

forj:

=0toi-1do//循环赋值

ifm=1then

cbno1.Items.Add（FieldByName（'

oderno'

）.AsString）

elseifm=2then

cbno2.Items.Add（FieldByName（'

）.AsString）;

Next;

数据库连接失败！

请检查数据库服务是否正常！

procedureTfmOderform.btnexitClick（Sender:

procedureTfmOderform.cbno1DropDown（Sender:

m:

=1;

self.cbno1.Items.Clear;

self.cbpbdpd（'

procedureTfmOderform.cbno2DropDown（Sender:

=2;

self.cbno2.Items.Clear;

///=================================================================///

procedureTfmOderform.btnsearClick（Sender:

ssql,cdt:

ssql:

selectodernoas订单号,pnoas产品编号,mnameas产品名称,pnumas订购量,odertas订购日期,delitas交货日期,stateas当前状态fromoderform,matestorwheremno=pnoandpno<

>

ifcbno1.Text<

thencdt:

andoderno>

+trim（cbno1.Text）+'

ifcbno2.Text<

=cdt+'

andoderno<

+trim（cbno2.Text）+'

ifdatetostr（dtp1.Date）<

anddelit>

+datetostr（dtp1.DateTime）+'

ifdatetostr（dtp2.Date）<

anddelit<

+datetostr（dtp2.DateTime）+'

ifcbnm.Text<

andpno='

+trim（cbnm.Text）+'

ifcbst.Text<

andstate='

+trim（cbst.Text）+'

=ssql+cdt;

SQL.Add（ssql）;

=dtmd.dsofm;

//动态指定数据感知组件的数据源

//****************************是否允许编辑********************************

procedureTfmOderform.edorClick（Sender:

iffmOderform.edor.Checkedthen//允许编辑

fmOderform.dbgo.Options:

=fmOderform.dbgo.Options-[dgRowSelect]+[dgediting];

fmOderform.dbno.VisibleButtons:

=[nbinsert,nbdelete,nbedit,nbpost,nbcancel,nbrefresh];

else//不允许编辑

=fmOderform.dbgo.Options+[dgRowSelect]-[dgediting];

=[nbfirst,nbprior,nbnext,nblast];

procedureTfmOderform.FormCreate（Sender:

procedureTfmOderform.FormShow（Sender:

iffmMain.sttb.Panels[0].Text='

begin//游客不能操作数据库

self.GroupBox1.Enabled:

self.GroupBox2.Enabled:

//self.dtp1.DateTime:

=now;

self.dtp2.DateTime:

///////////////////////////单击DBGrid标题时排序///////////////////////

procedureTfmOderform.dbgoTitleClick（Column:

TColumn）;

ifdtmd.qryofm.Activethen

fori:

=1todbgo.Columns.Countdo

dbgo.Columns[i-1].Title.Font.Color:

=clWindowText;

//恢复所有标题字体为默认

dbgo.Columns[i-1].Title.Font.Style:

=[];

ifdtmd.qryo