[델파이] 실험실습 보고서 고객별 정보 이용 요금 계산 프로그램

소개

델파이로 작성된 요금계산 프로그램입니다.
완벽한 소스로 바로 사용하시거나 제출 가능합니다.

컴파일 실행환경

델파이 과제물 만들기

지면으로나마 만나뵙게 돼서 반갑네요..^^;

먼저 자세한 사항을 모두 설명하지는 않겠습니다.
전체적인 흐름과 중요한 곳의 예를 들어서 설명을 해드리겠습니다.
세세한 부분은 직접 만들어 보시기 바랍니다.


1. 먼저 과제의 내용을 자세히 읽어보고
입력폼,
출력폼,
입력된 데이터를 저장할 방법,
과제에서 주어진 데이터를 어떻게 사용할 것인가,
값의 범위 체크 등등 을 결정해야 합니다.

2. 입력폼 만들기
- 과제에서 주어진 데이터를 상수의 배열로 사용하면 편합니다.
물론 DB 에 직접 입력해서 사용하셔도 되구요.
모두 상수나 변수로 사용하셔도 문제는 없습니다.

예)

Const

REC : array[0..5, 0..1] of String = (('11','모닝팬시'),
('12','경기문구'),
('13','초록팬시'),
('14','인연문구'),
('15','서울문구'),
('16','사랑팬시'));

REC1 : array[0..5, 0..1] of String = (('가','300'),
('나','600'),
('다','200'),
('라','50'),
('마','450'),
('바','150'));

이런 방법으로 하시면 됩니다. 사용하는건 델파이 책에 배열부분이 나와있습니다.

- 입력시 값의 범위를 체크해야 합니다.
if (nValue < 0) or (nValue > 50000) then begin //nValue는 입력하신 값입니다. 정수형이구요.
ShowMessage('수금액은 0~50000 의 값을 입력하셔야 합니다.');
Exit; // 다음 코드로 넘어가지 않고 빠져나갑니다. 이건 다 아실테지만 혹시라두 모르는 분을 위해서..
end;

- 각각 입력된 데이터를 저장해야 합니다. 레코드의 배열을 6개 정도 잡아두면 편할 것 같습니다.
그래야지 최대,최소 값 등을 구하면 나머지 값들을 화면에 보여주기 편하잖아요.
해당 인덱스에 있는 값들을 그대로 보여주면 되거든요.
혹시나 레코드의 배열을 이용하기 싫으시면 TStringGrid 에 저장하고 소팅하고 하셔도 됩니다. 각자 해보세요..^^;

예)
먼저 타입을 선언하시구요.
type
TRec = record
s1 : String; //거래처명
s2 : String; //물품코드
n1 : Integer; //<font color=aaaaff>..</font>

본문내용

Ⅰ. 전체조건
1. 프로그램 작성 시 사용되는 폼은 입력폼 1개, 출력폼 1개로 제한합니다.
2. 다음 조건에 맞추어 레포트를 제출하십시오.(과목, 학과, 학번, 이름 꼭 기재)
① 문제에 맞게 프로그램을 작성하여라.
② 소스코드에 꼭 주석(comment)을 달아서 지면 출력하시오.
③ 입력폼을 지면 출력하시오. - Ⅳ 출력예시 조건에서 : 5-1 입력폼 예시 참조
(자신이 설계한 폼에 입력데이터를 넣은 상태의 입력폼)
④ 출력폼을 지면 출력하시오. - Ⅳ 출력예시 조건에서 : 5-2 출력폼 예시 참조
(처리조건을 실행해서 결과값이 나온 상태의 출력폼)
⑤ ③과④는 화면 캡쳐 하여 문서에 붙여 넣기 함.

Ⅱ. 처리사항
< 고객별 정보 이용 요금 계산 프로그램 >
♠ 정보 공급업체에서는 고객들이 이용한 정보 현황을 파악하고자 한다. 고객번호, 나이, 정보종류코드, 사용시간을 입력받아 아래 조건에 따라 프로그램을 작성하시오.
♠ 다음 사항에 대한 결과를 구하시오.
문제1) 정보 이용 금액이 최고인 고객의 신상정보를 구하시오.
문제2) 최고 많이 이용된 정보종류명와 횟수를 구하시오.
문제3) 전체 고객 테이블을 출력하시오. - 입력한 data가 모두 나타나야 한다. (Grid 컴포넌트 이용)


① 정보종류코드별 정보종류명은 <정보종류 코드표>와 같다.
② 고객별 고객정보이용금액은 고객이 이용한 정보사용요금으로 한다.
* 고객정보사용금액 = {기본요금 + (정보사용시간 * 사용시간당 요금단가)}
③ 고객별 기본 요금은 나이에 따라 차등 적용하고, <기본 요금표>를 참조한다.

참고자료

· 없음