前台培训开发基础

《前台培训开发基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、时长：一小时一、主要内容：a)前后台数据交换机制。b)基类窗体的层次。c)窗体中的六个关键方法。培训课程一前后台数据交换机制-1在传统方式下用delphi开发MIS系统的程序员，可能接触较多的的TDataBase,TAdoDataSet,TDataSource这些与数据库打交道的数据控件，但是对于本系统，是没有任何数据感知控件的。本系统基于BS架构，所有的业务逻辑主要由服务器端来完成，前端与后台之间的数据交换主要如下图：前后台数据交换机制-2前后台数据交换机制-3在本架构中，TBizObject这个类是所有

2、业务的核心，该对象实现了业务对象与XML文件之间的转换，与后台JSP之间的交互，文件的上传与下载等关键业务，对于开发人员而言，并不需要深入了解该类的具体实现方式，只需要知道，所有的业务对象都必须继承自该类，而我们，只需要将数据转为对象，或者从对象中取出我们感觉趣的数据，表现在具体界面上就行了。基类窗体的层次1所有的业务类必须继承自TBizObject，而所有的前台开发窗体，也必须继承自TBaseForm单元，以下为CPC开发架构较常用的基类窗体及说明.其结构图如下：基类窗体的层次2窗体类名说明父类窗体TBa

3、seForm在Protected中封装了大部分有用的函数，只能继承自它的窗体才能直接使用，而且该窗体在创建、释放、按键操作等地方都有相应的处理，在本开发平台中，所有窗体都是从TBaseForm窗体继承下来的。TFormTBaseTempForm单据类型模板，该窗体封装了业务单据窗体需要的增删改，打印输出，数据导入，数据浏览，过滤等方法，是单据类窗体的顶层，但一般开发时不会直接继承该窗体TBaseFormTBaseEditForm单表模板窗体，该窗体适用于简单的基础数据维护，对没有子列表的类对象的编辑操作，可

4、直接继承该窗体。TBaseTempFormTBillEditForm主从表类窗体，该窗体适用于带多个子列表对象类操作，同时在该窗体中实现了对业务单据走流程的操作，也可应用于单表单据走流程，该窗体自带了支持附件操作、关联表单等功能。TBaseTempFormTBaseSearchForm查询模板窗体，该窗体可以应用于一般子类对象的查询，该窗体已经实现了数据导出、打印、过滤等方法，也可以应用于类对象的批量修改功能TBaseFormTBaseTreeForm树形结构类窗体，该窗体用于实现树形结构的业务对象，如菜单

5、，模块等，必须搭配TBasePropForm窗体一块使用TBaseFormTBasePropForm属性窗体，用于定义类对象的各个属性，主要应用于树形对象或者明细表的编辑，该窗体可自行提交业务类对象，并可将修改后的结果更新到介面上TBaseFormprocedureDoInit;override;//初始化//Step2、清空界面数据，供后代继承覆盖procedureClearInformation;override;//Step3查询方法procedureSearchBillObj(strSqlWhere

6、:string);override;//Step4、设置窗体数据（将需要维护的对象属性值反映到界面上），供后代继承覆盖//通常在维护属性时使用procedureSetFormData(Item:TBizObject);override;//Step5、数据有效性检查，供后代继承覆盖functionValidCheck(varstrErr:string):Boolean;Override;//Step6、保存信息，供后代继承覆盖procedureSaveInformation(varItem:TBizObje

7、ct);override;窗体中的六个关键方法procedureTBaseUomForm.SaveInformation(varItem:TBizObject);varItemTmp:TUom;begininherited;ItemTmp:=TUom.Create;//把常规页上各属性值设入对象中SetCtrlsValueToObjProp(ItemTmp,Self);Item:=ItemTmp;end;procedureTBaseUomForm.SearchBillObj(strSqlWhere:stri

8、ng);varItemTmp:TUom;begininherited;ItemTmp:=TUom.Create;MySearchBillObj(ItemTmp,StrSqlWhere);end;procedureTBaseUomForm.SetFormData(Item:TBizObject);begininherited;//根据属性设置常规页上各控件值SetObjPropValueToCtrls(Item,s