信息管理系统开发框架设计（八） - MVC - 控制器
在MVC模式里controller处于一个核心的位置，它要负责接受从view发来的用户交互请求，将用户请求转发给商业对象进行处理，然后从商业对象获取处理结果，选择合适的视图呈现给用户。
也即controller有
- 监听view的用户操作并及时响应
- 调用model进行用户的交互信息处理，然后将处理结果以恰当的方式（对话框，或者新的视图等）呈现给用户。
如何监听view的操作？在delphi的VCL控件里封装了很多的事件，我们需要在controller里处理这些事件，然后在创建view时，把事件方法赋值给view里的控件，就实现了监听用户操作的功能。例如TInfoManagementView里有button->New，我们在controller里提供button的onclick方法(这是一个TNotifyEvent类型的事件方法)，然后在TController.getInfoManagementView方法里将这个实现赋值给NewButton.OnClick = newClick即可。
至于调用model来处理用户请求，基础的工作就是在上述的监听事件里创建model实例，然后将用户输入更新到这个model实例，调用model相应的方法进行处理，获取处理结果即可。还是以New Button为例，我们在响应New Button的click事件时，首先调用getInfoEditView来为用户提供一个空白的信息输入界面（这里还没有设计到model)，然后当用户输入完毕点击button Save提交，在controller.saveClick方法里，我们需要new一个model，然后将用户输入更新到model上，然后调用model.save保存至数据库。如果没有出错，就弹出一个“保存成功！”的提示框，用户点击“确定”或计时结束后回到managementView；如果保存失败，就弹出具体的错误信息，并保留在EditView上。
根据以上逻辑，controller的实现声明可以如下：
TController = class
private
FModel: IModel;
FManagementViewClass: TInfoManagementViewClass;
FInfoEditViewClass: TInfoEditViewClass;
procedure newButtonClick(Sender: TObject);
procedure saveButtonClick(Sender: TObject);
public
procedure showManagementView(parent: TWinControl);
procedure showEditView(Mode: TInfoMode);
end;
implemention
procedure TController.newButtonClick(Sender: TObject);
begin
with getEditView do
try
FModel := TModelFactory.getModelClass(className).create;
InfoMode := ifmdNew;
saveButton.onClick := saveClick;
if ShowModal = mrOK then
refreshList;
finally
FModel.free;
free;
end;
end;
procedure TController.saveButton(Sender: TObject);
begin
updateModel;
try
DBHelperFactory.getDBHelper.startTrans;
FModel.save;
DBHelperFactory.getDBHelper.commitTrans;
exception
on e: exception do
begin
DBHelperFactory.getDBHelper.rollbackTrans;
showmessage(e.message);
end;
end;
end;
procedure TController.showManagementView(parent: TWinControl);
var
view: TInfoManagementView;
begin
view := FManagementViewClass.create(parent);
if not assigned(parent) then
begin
view.showModal;
end
else
begin
view.parent := parent;
view.ManualDock(parent);
view.show;
end;
end;
procedure TController.showEditView(Mode: TInfoMode);
begin
with FInfoEditViewClass.Create(nil)
try
model := FModel;
InfoMode := Mode;
finally
free;
end;
end;
这样controller也搭建起来了；MVC模式就成为一个完整的框架。
controller的基础实现已经有了，但是我们不能也不应该在mainView(即主操作界面）里引用所有的controller，那末要如何实现呢？我们需要提供一个controllerFactory，mainView只需要知道controller的名称（不需要知道具体的controller类型），通过调用controllerFactory.getController(controllerName)即可获取到一个相应的controller实例。mainView又如何知道controller的名称呢，这就是mainController需要干的事情了。这涉及到具体的mainController实现逻辑，就不再累述了。