SteeDemo.Systems Namespace

ยูนิตสำหรับเขียน คลาสระบบ

ยูนิตนี้อยู่ในส่วนของ Business Logic มีการนำไปใช้ซ้ำได้หลายแพลตฟอร์ม

unit SteeDemo.Systems;


interface

//พื้นที่ใต้ Interface คือส่วนประกาศที่ยูนิตอื่นๆ สามารถเห็นได้


uses

//พื้นที่ใต้ uses คือส่วนประกาศที่เพื่อนำยูนิตอื่นมาใช้ทำงานร่วมกัน

Data.DB, //ยูนิตเก็บค่าคงที่ชนิดฟิลด์

Stee.Nature.Systems, //ยูนิตพื้นฐานของ iSTEE

Stee.Nature.Apps; //ยูนิตเก็บคลาสระบบและงาน


type

//พื้นที่ใต้ type คือส่วนประกาศคลาส หรือชนิดข้อมูล เพิ่มเติมที่ต้องการ


//ชื่อคลาสนำหน้าด้วย T เป็นมาตรฐานทั่วไป

TSteeDemoCustomSystem = Class(TjgSystem)

private

procedure Run_Task001(ACommand: TjgCommand);

protected

procedure DoStart; override;

procedure Define_Commands; override;

procedure Define_Properties; override;

public

procedure ShowPersonInfo;

End;


TSteeDemoSystem = Class(TSteeDemoCustomSystem)

private

//พื้นที่นี้เป็นส่วนใช้เฉพาะภายในวัตถุ

//ประกาศชื่อคำสั่งแล้วกด ctrl+shift+c เพื่อไปเขียนรายละเอียดการทำงาน

protected

//พื้นที่นี้เป็นส่วนใช้ภายในวัตถุและสายพันธุกรรม

//ประกาศชื่อคำสั่งแล้วกด ctrl+shift+c เพื่อไปเขียนรายละเอียดการทำงาน

public

//พื้นที่นี้เป็นส่วนใช้ภายในวัตถุสายพันธุกรรมและวัตถุภายนอก

//ประกาศชื่อคำสั่งแล้วกด ctrl+shift+c เพื่อไปเขียนรายละเอียดการทำงาน

End;


implementation


uses

SteeDemo.Task001;


{ TSteeDemoCustomSystem }


procedure TSteeDemoCustomSystem.Define_Commands;

var

oCommands: TjgCommands;

begin

inherited; //ให้ไปทำคำสั่งคลาสต้นกำเนิดลำดับชั้นก่อนหน้า

oCommands:=Commands;

oCommands.Add('RunTask001','RunTask001').Method2:=Run_Task001;

oCommands.Add('ShowPersonInfo','แสดงข้อมูลบุคคล').Method3:=ShowPersonInfo;

end;


procedure TSteeDemoCustomSystem.DoStart;

begin

inherited; //ให้ไปทำคำสั่งคลาสต้นกำเนิดลำดับชั้นก่อนหน้า

MsgBox('DoStart');

end;


procedure TSteeDemoCustomSystem.Run_Task001(ACommand: TjgCommand);

begin

//คำสั่ง ExecTask คือติดตั้งวัตถุงานในระบบและให้ดำเนินการทันที

ExecTask('Task001',TSteeDemoTask001,'Task001');

end;


procedure TSteeDemoCustomSystem.Define_Properties;

var

oProperties: TjgProperties;

begin

inherited; //ให้ไปทำคำสั่งคลาสต้นกำเนิดลำดับชั้นก่อนหน้า

oProperties:=Properties;

oProperties.Add('FullName','ชื่อ-นามสกุล',ftString);

oProperties.Add('Address','ที่อยู่',ftString);

end;


procedure TSteeDemoCustomSystem.ShowPersonInfo;

begin

//MsgBox เป็นคำสั่งของ iSTEE ทำงานแบบหลายแพลตฟอร์มได้

MsgBox(Properties['FullName'].AsString+' '+

Properties['Address'].AsString);

end;


end.

 NameDescription
TSteeDemoCustomSystem

คลาสต้นกำเนิดของระบบตัวอย่าง

TSteeDemoSystem

คลาสระบบตัวอย่าง

Top