Another topic of program design


2005-01-11 09:07:29 AM
delphi132
I started this new thread may be silly.
I have created an class to connect the backend database for SQLServer2000:
----------------------------------------------------------------------------
---------
unit GlobalObject;
TPatronObject
private
fName: String;
...
public
property ....
end;
----------------------------------------------------------------------------
----------
unit DataAccessObject;
uses GlobalObject;
TDatabaseAccess = class
private
fConnection: TADOConnection;
fQuery: TADOQuery;
fStoredPro: TADOStoredProc;
public
procedure GetPatronDetailsByNunber(aPatronObject: TPatronObject);
// other methods
end;
----------------------------------------------------------------------------
-------------
unit PatronBusinessObject
uses
GlobalObject, DataAccessObject;
TPatronBusinessObject = class
private
fPatronObject: TPatronObject;
fDataAccess: TDatabaseAccess ;
public
procedure GetPatronDetails;
end;
procedure TPatronBusinessObject.GetPatronDetails;
begin
fDataAccess.GetPatronDetailsByNumber(fPatronObject);
end;
I have been working as Delphi programmer for 6 years from Delphi trainee
programmer and for 2 small size companies and have not encountered a well
structured large scale program architecture, I feel shamed as I should be a
good experienced developer, but I am not.