智能决策技术报告完整版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
升级会员 