SteeDemo.Task001 Namespace

ยูนิตเก็บคลาสงานบันทึกข้อมูล

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

unit SteeDemo.Task001;


interface


uses

Data.DB,

Stee.Nature.Systems, Stee.Nature.Apps, Stee.Nature.Tasks;


type

TSteeDemoCustomTask = Class(TjgFormTask)

private

protected

public

End;


TSteeDemoTask = Class(TSteeDemoCustomTask)

private

protected

public

End;


TSteeDemoCustomTask001 = Class(TSteeDemoTask)

private

protected

procedure DoCreate; override;

procedure DoExecute(ACommand: TjgCommand); override;

procedure DoRun; override;


procedure Define_Properties; override;

procedure DoOperate; override;

public

End;


TSteeDemoTask001 = Class(TSteeDemoCustomTask001)

private

protected

public

End;


implementation


{ TSteeDemoCustomTask001 }


procedure TSteeDemoCustomTask001.DoCreate;

begin

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

FormFeatures.FormCellType:='TSteeDemoTask001FormCell';

end;


procedure TSteeDemoCustomTask001.Define_Properties;

var

oProperties: TjgProperties;

begin

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

oProperties:=Properties;

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

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

end;


procedure TSteeDemoCustomTask001.DoExecute(ACommand: TjgCommand);

begin

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

StartExecuteTask(0);

end;


procedure TSteeDemoCustomTask001.DoRun;

begin

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

Show;

end;


procedure TSteeDemoCustomTask001.DoOperate;

var

oSystem: TjgSystem;

oInfo: TjgProperties;

begin

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

oSystem:=GetParentSystem;

oInfo:=oSystem.Properties;

oInfo['FullName'].AsString:=Properties['FullName'].AsString;

oInfo['Address'].AsString:=Properties['Address'].AsString;

oSystem.Execute('ShowPersonInfo');

end;


end.

 NameDescription
TSteeDemoCustomTask

คลาสต้นกำเนิดงานตัวอย่าง TjgFormTask คือวัตถุงานมีฟอร์มแสดงผล

TSteeDemoCustomTask001

คลาสต้นกำเนิดงานตัวอย่างบันทึกข้อมูลบุคคล

TSteeDemoTask

คลาสงานตัวอย่าง

TSteeDemoTask001

คลาสงานตัวอย่างบันทึกข้อมูลบุคคล

Top