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

과정소개

• http://www.devgear.co.kr/support/education/delphi_miniproj/

요구사항 분석

다음 기능은 데이터 모듈에 함수를 정의해 구현할 것

• 프로젝트 수행인원 추가 / 삭제
• 프로젝트 삭제

    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

참고링크

• 인터베이스 데이터베이스 및 테이블 생성 - http://tech.devgear.co.kr/delphi_news/419075
• 온라인 바이러스 포털 : http://tech.devgear.co.kr/delphi_news/419043
• 리본 컨트롤 자습서 : http://tech.devgear.co.kr/delphi_news/409260
• 엠바카데로 기술문서 : http://docwiki.embarcadero.com/
• 사이트 번역 : https://translate.google.com/
• FireDAC DB연결 : http://docwiki.embarcadero.com/RADStudio/Berlin/en/Database_Connectivity_(FireDAC)
• FireDAC 오라클연결 따라하기 : http://tech.devgear.co.kr/410237
• FireDAC 10가지 주요 기능 : http://tech.devgear.co.kr/?act=&vid=&mid=delphi_news&category=&search_keyword=FireDAC+Skill+Sprints&search_target=title_content
• Delphi IDE에서 SVN 사용 : http://tech.devgear.co.kr/delphi_news/420252
• SVN 서버 설치 안내 : http://tech.devgear.co.kr/delphi_news/420254
• 데이터셋 검색
• http://docwiki.embarcadero.com/RADStudio/Berlin/en/Filtering_Records_(FireDAC)
• http://docwiki.embarcadero.com/RADStudio/Berlin/en/Finding_a_Record_(FireDAC)
• http://docwiki.embarcadero.com/RADStudio/Berlin/en/Sorting_Records_(FireDAC)
• 현대식 문법 : http://tech.devgear.co.kr/delphi_news/406874
• 라이브 바인딩
• 콤보박스 : http://blog.hjf.pe.kr/430
• 데이터스냅 핫픽스 : http://cc.embarcadero.com/item/30530

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;