Список литературы. 
Разработка базы данных учета родительской платы в детском саду

• 1. Архангельский А. Я. Программирование в Delphi для Windows. Версии 2006, 2007, Turbo Delphi/ А. Я. Архангельский. М: Бином-Пресс. 2007.
• 2. Грибачев К. Delphi и Model Driven Architecture. Разработка приложений баз данных/ К. Грибачев. СПб: Питер. 2004.
• 3. Елманова Е. Delphi и технология COM/ Е. Елманова, С. Трепалин, А. Тенцер. СПб: Питер. 2003.
• 4. Осипов Д. Delphi. Профессиональное программирование/ Д. Осипов. М: Символ-Плюс. 2006.
• 5. Фаронов В. В. Программирование баз данных в Delphi 7/ В. В. Фаронов. СПб: Питер. 2006.
• 6. Фленов М. Библия Delphi/ М.Фленов. СПб: БХВ-Петербург. 2011.
• 7. Программный центр «Помощь образованию». Учебный учет. Режим доступа: http://pbprog.ru/products/programs.php?ELEMENT_ID=411.
• 8. Программный портал «Business Explorer» — Institute. Режим доступа: http://www.bse.uz/index.php?id=38.
• 9. Учебный центр «Интерфейс» — Статьи. Режим доступа: http://www.interface.ru/home.asp?artId=2147.

Приложение 1

Руководство пользователя.

При запуске программы «Оплата в детском саду» на экране появляется главная форма, содержащая таблицы «Дети», «Оплата» и группа компонентов для добавления детей.(рис1).

Рис. 1 Главная форма программы «Оплата в детском саду»

При нажатии на кнопку «Информация о ребенке» или нажатие двойным кликом появится окно редактирования данных о ребенке, которая включает в себя ФИО родителей, адрес и телефон, информация о воспитателях Рис. 2.

Рис. 2 Окно редактирования данных о ребенке

При нажатии на кнопке «Печать» появляется окно предпросмотра печати. Рис. 3.

Рис. 3 Окно предпросмотра печати

Для закрытия программы необходимо нажать на кнопку «Закрыть» Рис. 1.

Приложение 2

Листинг исходного кода.

unit Unit1;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Menus, Buttons;

type.

TForm1 = class (TForm).

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Splitter1: TSplitter;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

uses Unit2, Unit3;

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

begin.

Form3.Show.

end;

end.

unit Unit2;

interface.

uses.

SysUtils, Classes, DB, DBTables;

type.

TDataModule2 = class (TDataModule).

Database1: TDatabase;

Table1: TTable;

Table1Kod: TAutoIncField;

Table1FIO: TStringField;

Table1Vozrast: TFloatField;

Table1Gruppa: TStringField;

Table1Summa_plat: TFloatField;

Table2: TTable;

Table2Mes: TStringField;

Table2PropDni: TFloatField;

Table2SummaOplata: TFloatField;

Table2Oplata: TBooleanField;

Table3: TTable;

Table3Kod_det: TIntegerField;

Table3FIO_rod: TStringField;

Table3Adres: TStringField;

Table3Telef: TStringField;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Table2Kod: TAutoIncField;

Table3Kod: TAutoIncField;

Table2Summa_oplati: TCurrencyField;

Table2Kod_det: TIntegerField;

procedure Table2CalcFields (DataSet: TDataSet);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

DataModule2: TDataModule2;

implementation.

uses Unit1, Unit3;

{$R *.dfm}.

procedure TDataModule2. Table2CalcFields (DataSet: TDataSet);

begin.

Table2Summa_oplati.Value:=(30-Table2PropDni.Value)*(Table1Summa_plat.Value/30);

end;

end.

unit Unit3;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, Grids, DBGrids;

type.

TForm3 = class (TForm).

DBGrid1: TDBGrid;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form3: TForm3;

implementation.

uses Unit1, Unit2;

{$R *.dfm}.

end.