Доставка между интерфейсом и бизнес -логикой в Delphi
J Xue (zhuam) [email protected]
Прежде чем я начал разработку программного обеспечения Delphi, я занимался разработкой программного обеспечения Java.
Недавний проект был разработан с Delphi, поэтому я снова посмотрел на Delphi. Когда я разрабатываю и разрабатываю программное обеспечение! Ах, давайте поговорим меньше, давайте доберемся до сути!
Delphi - это IDE для быстрой разработки программного обеспечения.
1. Например, если я хочу вставить запись в базу данных, это обычный способ!
Пример SQL: вставьте в ExampleTable1 (Field1, Field2, Field3) Значения (значения1, значения2, значения3)
Теперь предположим, что в этой форме Delphi есть три элемента управления текстами, название фриста, второе и три соответственно
Здесь я использую три различных метода для вставки данных в базу данных:
1. Вставьте напрямую
Клиент ------------> База данных
INSERT INTHEDALTABLE1 (Field1, Field2, Field3) значения (frist.text, second.text, three.text)
2. Косвенная вставка
Клиент --- (Text Pass) ---> DataClass -------> База данных
Это означает, что данные формы сохраняются сначала в классе данных, а затем пользователь берет данные из этого класса данных и передает данные.
Перейти к базе данных
Уведомление:
Управление формой напрямую хранит данные в классе данных DataClass через текст.
Этот DataClass используется только для хранения состояния данных, и он полон атрибутов и не имеет внедрения бизнес -логики!
следующее:
{------------------------------------------------- ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ -----
Автор: Чжуам
Дата: 2004/09/04
Тип: класс
Собственность: все AssocatiatorRunbean Information Set Motheded
Описание: используется для сохранения информации о водительских правах участника,
------------------------------------------------------ ------------------------------------------------------ ----------------------------
тип
Tassotorrunbean = class (tobject)
Частный
FKILOMETRE: Double;
Fcarnumber: String;
Fnumber17: строка;
Fcarcolor: String;
Fassociatorid: String;
Fcarcapacity: String;
FframeNumber: String;
FengineNumber: String;
DarailabilityDate: tdate;
FregisterDate: tdate;
Fbackpicture: Timage;
Ffrontpicture: Timage;
Fleftpicture: Timage;
Frightpicture: Timage;
function getbackpicture: Timage;
функция GetFrontPicture: Timage;
Функция getleftpicture: Timage;
функция GetrightPicture: Timage;
процедура setAssociatorId (const value: string);
процедура setAvailabilityDate (const value: tdate);
процедура BetbackPicture (Const value: Timage);
Процедура setCarcApacity (const value: string);
процедура setCarcolor (const value: string);
процедура setCarnumber (const value: string);
процедура setEnginEnumber (const value: string);
процедура setFrameNumber (const value: string);
процедура setFrontPicture (const value: Timage);
процедура setKilometRe (const value: Double);
процедура setleftpicture (const value: Timage);
процедура setNumber17 (значение const: string);
Процедура setRegisterDate (const value: tdate);
Процедура setrightPicture (const value: Timage);
публичный
конструктор создать;
Разрушитель разрушения; переопределить;
Property Associatorid: строка читать Fassociatorid write setassociatorid;
Свойство Carnumber: String Read Fcarnumber write setcarnumber;
Свойство Carcolor: String Read Fcarcolor write setcarcolor;
Свойство Carmode: String Read Fcarcolor write setcarcolor;
Свойство EngineNumber: String Read FengineNumber Write SetEngineNumber;
Свойство FrameNumber: String Read FframeNumber write setFrameNumber;
Свойство каркасность: строка читать fcarcapacity write setcarcapacity;
Свойство №17: Строка Читать fnumber17 write setnumber17;
Свойство километр: двойное чтение FKILOMETRE WRITE SETKILOMETRE;
Свойство RegisterDate: TDATE Read FregisterDate Write SetRegIsterDate; // Дата регистрации
Доступность свойства: TDATE Read FarailabilityDate write setAvailabilityDate;
Frontpicture: Timage Read GetFrontPicture Write SetFrontPicture;
Свойство бэкпиктура: Timage Read GetbackPicture Write BetbackPicture;
Свойство левша: Timage Read getleftpicture write setleftpicture;
Свойство Правопроницаемость: Timage Read GetrightPicture Write SetrightPicture;
конец;
INSERT INTHPERTABLEABLE1 (Field1, Field2, Field3) Значения (AssociatorRunbean.frist, AssociatorRunbean.Second, AssociatorRunbean.Text)
3. Косвенная вставка
Клиент --- (Пользовательская доставка свойств) ---> DataClass -------> База данных
Это означает, что данные формы сохраняются сначала в классе данных, а затем пользователь берет данные из этого класса данных и передает данные.
Перейти к базе данных
Уведомление:
Управление формой напрямую хранит данные в классе данных (DataClass) через пользовательское свойство.
Этот DataClass используется только для хранения состояния данных, и он полон атрибутов и не имеет внедрения бизнес -логики!
INSERT INTHPERTABLEABLE1 (Field1, Field2, Field3) Значения (AssociatorRunbean.frist, AssociatorRunbean.Second, AssociatorRunbean.Text)
Говоря об этом, кто -то спросит меня, каково это значение для этого! Осторожные товарищи, возможно, заметили это!
Это способ отделить интерфейс Delphi от бизнес -логики.