На даній формі можна переглянути студентів для будь-якої групи. Основним компонентом, на якому будується весь звіт, є QuickRep. Він надає низку можливостей для керування створюваним звітом, включаючи формування заголовка.
Компонент QuickRep має ряд властивостей, що визначають характеристики друку звіту:
Printer - задає число копій звіту та діапазон друкованих сторінок;
Page - задає розмір сторінки;
Zoom - масштаб друку у відсотках.
Малюнок 27 - Форма «Звіт»
Лістинг програми представлений в додатку В.
Висновок
Даний курсовий проект є актуальним і відповідає пред'явленим до нього вимогам. Була розроблена і написана, на мові програмування високого рівня Borland Delphi 7.0, з використанням баз даних
Програма Студентський гуртожиток raquo ;, призначена для коменданта
гуртожитку.
Програма призначена для ведення бази даних студентів, які приїхали з інших міст і проживають у гуртожитку. У бази можна додавати і видаляти записи, виводити звіт про студентів по групах на друк, у файл або просто переглянути.
У теоретичній частині роботи було встановлено, що в загальному випадку база даних - це систематизований набір будь-яких даних. У найпростішому випадку систематизація будується так, щоб полегшити пошук необхідних даних.
база дані програма гуртожиток
Список літератури
Бази даних: моделі, розробка, реалізація/Т.С.Карпова.- СПб.: Питер, 2002.
Бази даних: Підручник для вузів/Під ред.проф.А.Д.Хоменко.- СПб.КОРОНА принт, 2004.
Додаток А
(обов'язковий)
Рисунок А.1 - Схема функціональних залежностей
Додаток Б
(обов'язковий)
Додаток Б
(продовження)
Рисунок Б.1 - Загальна блок-схема алгоритму роботи програми
Додаток В
(обов'язковий)
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, DB, ExtCtrls, Grids, DBGrids, DBTables ,, ComCtrls;=class (TForm): TDataSource ;: TTable ;: TDBNavigator ;: TDataSource ;: TDataSource ;: TTable; Komnata: TSmallintField ;: TLabel ;: TLabel ;: TLabel ;: TDataSource ;: TTable ;: TTable ;: TDBGrid ;: TDataSource ;: TLabel ;: TDBGrid ;: TDBNavigator ;: TLabel ;: TDataSource ;: TTable ;: TDBGrid ;: TDBGrid ;: TDBGrid ;: TTable ;: TDBNavigator ;: TDBNavigator ;: TDBNavigator; Invent_nomer: TStringField; Nazv_meb: TStringField; Komnata: TSmallintField; FIOst: TStringField; IDgroup: TStringField; Adress: TStringField; Komnata: TSmallintField; God_rojd: TDateField; FIOrod: TStringField; Nomer_tel: TStringField; Mesto_rab: TStringField; FIOst: TStringField; IDgroup: TStringField; Kurs: TSmallintField; Spec: TStringField; gruppa: TStringField; stud: TStringField ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TLabel ;: TDBEdit ;: TLabel ;: TDBLookupComboBox ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn; BitBtn1Click (Sender:TObject); BitBtn2Click (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn4Click (Sender: TObject); BitBtn5Click (Sender: TObject); BitBtn7Click (Sender: TObject); BitBtn6Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Unit2, Unit3, Unit4, Unit5, Unit6;
{$ R * .dfm} TForm1.BitBtn1Click (Sender: TObject) ;. ShowModal ;; TForm1.BitBtn2Click (Sender: TObject) ;. ShowModal ;; TForm1.BitBtn3Click (Sender: TObject);.ShowModal; TForm1.BitBtn4Click (Sender: TObject) ;. Insert ;; TForm1.BitBtn5Click (Sender: TObject) ;. Edit ;; TForm1.BitBtn7Click (Sender: TObject) ;. Delete ;; TForm1.BitBtn6Click (Sender: TObject) ; .Post ;;. Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, StdCtrls ,, QRCtrls, QuickRpt;=class (TForm): TDataSource ;: TDBGrid ;: TDBNavigator ;: TTable ;: TBitBtn ;: TComboBox ;: TEdit ;: TComboBox ;: TLabel ;: TLabel ;: TDataSource ;: TDBGrid ;: TLabel ;: TQuery; kurs: TSmallintField; COUNTOFFIOst: TIntegerField ;: TQuickRep ;: TQRBand ;: TQRBand ;: TQRBand ;: TQRLabel ;: TBitBtn ;: TQRDBText ;: TQRDBText ;: TQRDBText ;: TQRLabel ;: TQRLabel ;: TQRLabel ;: TQRDBText ;: TQRLabel ;: TQRDBText ;: TQRLabel; BitBtn1Click...
