[교육] 미니프로젝트과정 - 자료

2016.01.14 14:23
과정소개


요구사항 분석





다음 기능은 데이터 모듈에 함수를 정의해 구현할 것
  • 프로젝트 수행인원 추가 / 삭제
  • 프로젝트 삭제
    function AppendProjectMember(const APrjSeq, AMemSeq: Integer): Boolean;
    function DeleteProjectMember(const APrjSeq, AMemSeq: Integer): Boolean;

    function DeleteProject(const APrjSeq: Integer): Boolean;

데이터셋 상태

인터베이스 데이터베이스와 스크립트

PRJMNG.GDB


PrjMngScript.sql


데이터모듈에서 데이터 연결을 재설정 하세요.

DataAccessModule > conPrjMng(더블클릭: FireDAC Connection Editor) > Database 재설정


참고소스

데이터셋 제어


DataSetTest.zip



Form 생성과 해제


FormCreate.zip


현대식 문법


ModernLanguageFeatures.zip


프로젝트 관리 데모


ProjectManagerDemo.zip


참고링크


DynamicCreateSeat.zip


var

  I, Idx: Integer;

  Item: TListItem;

  Group: TListGroup;

  GroupText, ItemText: string;

begin

  GroupText := Edit1.Text;

  ItemText := Edit2.Text;


  Group := nil;

  for I := 0 to ListView1.Groups.Count - 1 do

  begin

    if LIstView1.Groups.Items[I].Header = GroupText then

    begin

      Group := LIstView1.Groups.Items[I];

      Break;

    end;

  end;

  if Group = nil then

    Group := ListView1.Groups.Add;


  Group.Header := GroupText;

  Item := ListView1.Items.Add;

  Item.Caption := ItemText;

  Item.GroupID := Group.ID;




험프리.김현수 교육, 세미나