智能决策技术报告

2.系统开发、调试与运行 登录模块设计

界面如图

图 1

主要程序代码为： unit Login; var

fmLogin: TfmLogin;

implementation

uses datamd, Main;

{$R *.dfm}

订单管理

界面如图 2

图 2

主要代码： unit Oderform; var

fmOderform: TfmOderform;

implementation

uses datamd, Main;

{$R *.dfm} sString)

else if m=2 then

'oderno').AsString); Next; end;

except

showmessage('数据库连接失败！请检查数据库服务是否正常！'); end; end; end;

procedure (Sender: TObject); begin ; end;

procedure (Sender: TObject); begin m:=1;

('oderno'); end;

procedure (Sender: TObject); begin m:=2;

('oderno'); end;

复所有标题字体为默认

[i-1]. end; if ' ASC') then begin ' ASC';

clRed; 库存管理

界面如图 3：

图 3

主要代码：

procedure (tet:string);

var

i,j:integer; lsql:string; begin

with do begin

lsql:='select distinct '+tet+' from matestor'; sString) else if m=2 then 'mno').AsString) else if m=3 then 'mname').AsString) else if m=4 then

'mlayer').AsString); Next; end; except

showmessage('数据库连接失败！请检查数据库服务是否正常！'); end; end; end;

procedure (Sender: TObject); begin m:=1;

('mno'); end;

procedure (Sender: TObject); begin m:=2;

('mno'); end;

procedure (Sender: TObject); begin m:=3;

('mname'); end;

procedure (Sender: TObject); begin m:=4;

('mlayer'); end;

物料需求分析

界面如下图 4：

图 4

主要代码：

procedure (Sender: TObject); begin

显示窗体====================================== procedure (Sender: TObject); begin

if '' then

begin sString;

dmno:='产品编号').AsString; dmname:='产品名称').AsString; dmlayer:='层次').AsString; dmadvant:='提前期').AsString; dpreno:='上层编号').AsString; dprenum:='上层需求').AsString; dmfinish:='成品率').AsString;