好几年没用Delphi了,偶尔写写也是兴趣所在,曾经在D上耗费好几年时间,虽然现在做其它的了,2023年就业环境还是不好,工资也没有上涨,很是茫然. Delphi 软件开发中,MVC(Model-View-Controller)模式是一种常用的软件架构模式,它将应用程序分成三个部分:模型、视图和控制器,以实现解耦和增强应用程序的可维护性。
1. 模型(Model):负责处理应用程序的数据逻辑,通常是一个数据访问层。例如,一个简单的模型可以是一个用于连接数据库的类:
unit Model;
interface
uses
Data.DB, Data.Win.ADODB;
type
TMyModel = class
private
FConnection: TADOConnection;
public
constructor Create;
destructor Destroy; override;
function GetData: TADODataSet;
end;
implementation
constructor TMyModel.Create;
begin
FConnection := TADOConnection.Create(nil);
FConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyDatabase.mdb;Persist Security Info=False';
FConnection.LoginPrompt := False;
FConnection.Connected := True;
end;
destructor TMyModel.Destroy;
begin
FConnection.Free;
inherited;
end;
function TMyModel.GetData: TADODataSet;
var
DataSet: TADODataSet;
begin
DataSet := TADODataSet.Create(nil);
DataSet.Connection := FConnection;
DataSet.CommandText := 'SELECT * FROM MyTable';
DataSet.Open;
Result := DataSet;
end;
2. 视图(View):负责应用程序的用户界面,通常是一个视图层。例如,一个简单的视图可以是一个用于显示数据的表格控件:
unit View;
interface
uses
Vcl.Grids, Vcl.DBGrids, Data.DB;
type
TMyView = class
private
FGrid: TDBGrid;
public
constructor Create(AGrid: TDBGrid);
procedure ShowData(ADataSet: TDataSet);
end;
implementation
constructor TMyView.Create(AGrid: TDBGrid);
begin
FGrid := AGrid;
end;
procedure TMyView.ShowData(ADataSet: TDataSet);
begin
FGrid.DataSource := ADataSet;
FGrid.Visible := True;
end;
3. 控制器(Controller):负责协调模型和视图之间的交互,通常是一个控制器层。例如,一个简单的控制器可以是一个用于调用模型和视图的类:
unit Controller;
interface
uses
Model, View;
type
TMyController = class
private
FModel: TMyModel;
FView: TMyView;
public
constructor Create(AModel: TMyModel; AView: TMyView);
procedure ShowData;
end;
implementation
constructor TMyController.Create(AModel: TMyModel; AView: TMyView);
begin
FModel := AModel;
FView := AView;
end;
procedure TMyController.ShowData;
var
DataSet: TDataSet;
begin
DataSet := FModel.GetData;
FView.ShowData(DataSet);
end;
模型(Model)负责连接数据库和获取数据,视图(View)负责显示数据,控制器(Controller)负责协调模型和视图之间的交互。
通过使用 MVC 模式,我们可以将应用程序的不同部分分离开来,从而实现更好的代码组织和可维护性,在实际应用中很复杂,可根据原型做调整。
标签:TMyModel,end,FConnection,Create,观察者,视图,DataSet,MCV From: https://www.cnblogs.com/carcode/p/17471318.html