화일시스템과 데이터베이스시스템의 차이점

목차

1.화일시스템
1.1 화일
1.2 화일시스템
1.3 화일시스템의 문제점

2.데이터베이스시스템
2.1 데이터베이스 정의
2.2 데이터베이스 특징
2.3 데이터베이스 스키마
2.4 데이터베이스 관리시스템

3.화일시스템과 데이터베이스시스템의 응용프로그램

본문내용

< 0) or (iMath > 100) then
begin
ShowMessage('각 점수는 0~100 사이로 입력해 주세요.');
exit;
end;
if AppendDBRecord(strName,strSex,iKor,iEng,iMath) = false then
ShowMessage('데이터를 추가할 수 없습니다.');
NameEdit.Clear;
SexComboBox.ItemIndex := 0;
KorEdit.Clear;
EngEdit.Clear;
MathEdit.Clear;
NameEdit.SetFocus;
end;
procedure TForm1.TableAfterPost(DataSet: TDataSet);
begin
DbiSaveChanges(Table.Handle);
end;
procedure TForm1.OutputButtonClick(Sender: TObject);
var
strQuery : String;
iCount : Integer;
begin
strQuery := 'SELECT * FROM '+m_strDBFileName+' ORDER BY Sum2 desc';
Table.Close;
With Query do
begin
//DatabaseName := m_strDirectory;
//TableName := m_strDBFileName;
//TableType := ttParad8ox;
Close;
with SQL do
begin
Clear;
Add(strQuery);
end;
execSQL;
end;
With Query do
begin
//DatabaseName := m_strDirectory;
Open;
First;
Unit2.Form2.StringGrid.RowCount := RecordCount+1;
iCount := 1;
while not EOF do
begin
Unit2.Form2.SetStringGrid(iCount,
FieldByName('Name').AsString,
FieldByName('Sex').AsString,
FieldByName('Kor').AsInteger,
FieldByName('Eng').AsInteger,
FieldByName('Math').AsInteger,
FieldByName('Sum2').AsInteger,
FieldByName('Avg').AsInteger);
Next;
iCount := iCount+1;
end;
end;
Unit2.Form2.Show;
end;
end.
// <그림 4>의Form2는 입력된 내용을 DB에 저장하고 DB에 저장되어 있는 내용을 화면에 출력하는 폼이다. Form2에 유닛화일은 unit2이다. Form2를 더블클릭하여 아래와 같은 소스코드를 작성해야 한다.
<그림 4> <그림 3>을 수행한 결과를 화면에 출력하기 위한 폼
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids;
type
TForm2 = class(TForm)
StringGrid: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGridClick(Sender: TObject);
private
{ Private declarations }
public
procedure SetStringGrid(var iIndex : Integer; strName : String; strSex : String;
iKor : Integer; iEng : Integer; iMath : Integer;
iSum : Integer; iAvg : Integer);
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.SetStringGrid(var iIndex : Integer; strName : String; strSex : String;
iKor : Integer; iEng : Integer; iMath : Integer;
iSum : Integer; iAvg : Integer);
begin
StringGrid.Cells[0,iIndex] := strName;
StringGrid.Cells[1,iIndex] := strSex;
StringGrid.Cells[2,iIndex] := IntToStr(iKor);
StringGrid.Cells[3,iIndex] := IntToStr(iEng);
StringGrid.Cells[4,iIndex] := IntToStr(iMath);
StringGrid.Cells[5,iIndex] := IntToStr(iSum);
StringGrid.Cells[6,iIndex] := IntToStr(iAvg);
StringGrid.Cells[7,iIndex] := IntToStr(iIndex);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
StringGrid.ColCount := 8;
StringGrid.RowCount := 2;
StringGrid.Cells[0,0] := '이름';
StringGrid.Cells[1,0] := '성별';
StringGrid.Cells[2,0] := '국어';
StringGrid.Cells[3,0] := '영어';
StringGrid.Cells[4,0] := '수학';
StringGrid.Cells[5,0] := '총점';
StringGrid.Cells[6,0] := '평균';
StringGrid.Cells[7,0] := '순위';
end;
procedure TForm2.StringGridClick(Sender: TObject);
begin
end;
end.
// <그림 5>는 <그림3>의 실행결과로서 입력버튼을 누르면 연속해서 데이터를 입력할 수 있고 입력된 데이터는 모두 DB에 저장되며 출력 버튼을 누르면 <그림 6>을 볼 수 있다
<그림 5> <그림 3>의 수행결과
<그림 6>은 입력한 데이터의 총점과 평균을 구하고 순위를 계산해서 화면에 보여 준다

키워드

화일시스템,   데이터베이스시스템,   텔파이