zoukankan      html  css  js  c++  java
  • Delphi中实现界面与业务逻辑的分离

    在做Delphi软件开发之前,我从事Java软件的开发工作,从Java开源社区我学到了很多软件的设计理想,这也许就是我从Java那里得到的回报啊! 开阔了眼界!

    最近的项目是用Delphi开发,所以我又看起了Delphi,一个月的时间里我看了差不多看了4本Delphi方面书籍,在做Delphi项目的时候我更是用DELPHI的语法,JAVA的思想来进行软件的开发与设计,感觉有些累!啊,闲话少说啊,进入正题吧!

    DELPHI是一个快速软件开发的IDE,通常的Programmer 都是先画View(界面) ,然后在在相应的事件里面书写Source Code,看事例:

    1、比如我要向数据库中插入一条记录,通常的做法是这样吧!

    SQL Example:  Insert   Into   ExampleTable1 (Field1,Field2,Field3) Values(Values1,Values2,Values3)

    现在假设这个DELPHI窗体上有三个TEXT控件,Name分别为 Frist,Second,Three

    下面我用三种不同方法将数据插入到数据库中:

    1、直接插入
    client  ---------->  Database

    Insert   Into   ExampleTable1 (Field1,Field2,Field3) Values(Frist.text,Second.text,Three.text)

    2、间接插入
     client  ---(Text传递)--->  dataClass ------->  Database

    意思是先将该窗体数据保存到一个数据类中去,然后在由用户从这个数据类中取数据,将这些数据
    传到数据库中去

    注意:
    窗体控件是直接通过TEXT将数据存储到(dataClass)数据类中去的。
    这个dataClass只是用于存储数据状态的,里面全是属性,没有业务逻辑的实现!

    如下:
    {---------------------------------------------
      author:zhuam
      date:2004/09/04
      type:class
      property:all AssociatorRunBean Information Set Mothed
      descripte: 用于保存会员的行驶证信息 ,
    -----------------------------------------------}
    type
      TAssociatorRunBean=class(TObject)
      private
        FKiloMetre: Double;
        FCarNumber: string;
        FNumber17: string;
        FCarColor: string;
        FAssociatorID: string;
        FCarCapacity: string;
        FFrameNumber: string;
        FEngineNumber: string;
        FAvailabilityDate: TDate;
        FRegisterDate: TDate;
        FBackPicture:TImage;
        FFrontPicture: TImage;
        FLeftPicture: TImage;
        FRightPicture: TImage;
        function getBackPicture: TImage;
        function getFrontPicture: TImage;
        function getLeftPicture: TImage;
        function getRightPicture: TImage;
        procedure setAssociatorID(const Value: string);
        procedure setAvailabilityDate(const Value: TDate);
        procedure setBackPicture(const Value: TImage);
        procedure setCarCapacity(const Value: string);
        procedure setCarColor(const Value: string);
        procedure setCarNumber(const Value: string);
        procedure setEngineNumber(const Value: string);
        procedure setFrameNumber(const Value: string);
        procedure setFrontPicture(const Value: TImage);
        procedure setKiloMetre(const Value: Double);
        procedure setLeftPicture(const Value: TImage);
        procedure setNumber17(const Value: string);
        procedure setRegisterDate(const Value: TDate);
        procedure setRightPicture(const Value: TImage);
      public
        constructor create;
        destructor destroy;override;
        property  AssociatorID:string read FAssociatorID write setAssociatorID;    //会员号码
        property  CarNumber:string read FCarNumber write setCarNumber;             //车牌号码
        property  CarColor:string read FCarColor write setCarColor;                //汽车颜色
        property  CarMode:string read FCarColor write setCarColor;                 //车型
        property  EngineNumber:string read FEngineNumber write setEngineNumber;    //发动机号码
        property  FrameNumber:string read FFrameNumber write setFrameNumber;       //车架号
        property  CarCapacity:string read FCarCapacity write setCarCapacity;       //排量
        property  Number17:string read FNumber17 write setNumber17;                //17位号
        property  KiloMetre:Double read FKiloMetre write setKiloMetre;             //公里数
        property  RegisterDate:TDate read FRegisterDate write setRegisterDate;     //注册日期
        property  AvailabilityDate:TDate read FAvailabilityDate write setAvailabilityDate; //有效日期
        property  FrontPicture:TImage read getFrontPicture write setFrontPicture;
        property  BackPicture:TImage read getBackPicture write setBackPicture;
        property  LeftPicture:TImage read getLeftPicture write setLeftPicture;
        property  RightPicture:TImage read getRightPicture write setRightPicture;

    end;

    Insert   Into   ExampleTable1 (Field1,Field2,Field3) Values(AssociatorRunBean.Frist,AssociatorRunBean.Second,AssociatorRunBean.text)

    3、间接插入
     client  ---(自定义property传递)--->  dataClass ------->  Database

    意思是先将该窗体数据保存到一个数据类中去,然后在由用户从这个数据类中取数据,将这些数据
    传到数据库中去

    注意:
    窗体控件是直接通过的自定义property将数据存储到(dataClass)数据类中去的。
    这个dataClass只是用于存储数据状态的,里面全是属性,没有业务逻辑的实现!

    Insert   Into   ExampleTable1 (Field1,Field2,Field3) Values(AssociatorRunBean.Frist,AssociatorRunBean.Second,AssociatorRunBean.text)

    说到这里有人会问我,这样实现有什么意义哩!细心的同志也许已经有所察觉啊!
    这正是完成Delphi界面与业务逻辑的分离的一种手段啊


  • 相关阅读:
    hadoop中namenode发生故障的处理方法
    开启虚拟机所报的错误:VMware Workstation cannot connect to the virtual machine. Make sure you have rights to run the program, access all directories the program uses, and access all directories for temporary fil
    Hbase的安装与部署(集群版)
    分别用反射、编程接口的方式创建DataFrame
    用Mapreduce求共同好友
    SparkSteaming中直连与receiver两种方式的区别
    privot函数使用
    Ajax无刷新显示
    使用ScriptManager服务器控件前后台数据交互
    数据库知识
  • 原文地址:https://www.cnblogs.com/kevinzhwl/p/1763446.html
Copyright © 2011-2022 走看看