Кинотеатр деректер базасын құру курстық жұмыс
Мазмұны
КІРІСПЕ 3
1 НЕГІЗГІ БӨЛІМ 5
1.1 Қазіргі заманғы деректер базасы туралы жалпы мағлұмат 5
1.2 Деректер базасының кең түрде қолданылуының алғы шарттары 6
1.3 Деректер базасы администраторының байланыстары 6
2 ТЕОРИЯЛЫҚ БӨЛІМ 9
2.1 Delphi бағдарламалау ортасымен танысу 9
2.2 DataBase Desktop кесте құру ортасы 10
2.3 Delphi мәліметтер базасында кесте құру 12
3 ТӘЖІРИБЕЛІК БӨЛІМ 14
3.1 «Кинотеатр» деректер базасын құру 14
3.2 «Мән – байланыс» диаграммасы 15
3.3 Қалыпты кесте қатынастары құру 16
ҚОРЫТЫНДЫ 26
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ 27
ҚОСЫМША 28
Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 36 бет
Пәні: Соңғы қосылған курстық жұмыстар
-----------------------------------------------------------------------------------
КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ
Мазмұны
КІРІСПЕ 3
1 НЕГІЗГІ БӨЛІМ 5
1.1 Қазіргі заманғы деректер базасы туралы жалпы мағлұмат 5
1.2 Деректер базасының кең түрде қолданылуының алғы шарттары 6
1.3 Деректер базасы администраторының байланыстары 6
2 ТЕОРИЯЛЫҚ БӨЛІМ 9
2.1 Delphi бағдарламалау ортасымен танысу 9
2.2 DataBase Desktop кесте құру ортасы 10
2.3 Delphi мәліметтер базасында кесте құру 12
3 ТӘЖІРИБЕЛІК БӨЛІМ 14
3.1 «Кинотеатр» деректер базасын құру 14
3.2 «Мән – байланыс» диаграммасы 15
3.3 Қалыпты кесте қатынастары құру 16
ҚОРЫТЫНДЫ 26
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ 27
ҚОСЫМША 28
КІРІСПЕ
Қазiргi ақпараттық технологияның негiзгi идеялары мәлiметтерге сәйкес өзгеретiн нақты
Көлем және сақталатын мәлiметтердiң құрылымдық күрделiлiгiнiң үлкеюi, ақпараттық жүйелердiң
Деректер базасының қазіргі заманғы технологиясына сай мәліметтер базасын жасау,
Біз деректер базасын басқару жүйесінен Delphi жүйесін алатын болсақ.
Delphi жергілікті және клиент-серверлік мәліметтер қорын құруға және оны
Кесте – бұл деректер базасының негізгі объектісі, яғни онда
Бұл курстық жұмыстың мақсаты кинотеатр деректер базасын жобалау, сонымен
Деректербазасы қаладағы кинотеатрларының анықтамалық қызметiнiң қызметкерлерi үшiн диалогтiң тәртiбiнде
Келесi мәлiметтердi қаладағы кинотеатрлардың анықтамалық қызметiн қызметкерге: қала кинотеатрлары
Сонымен бiрге қызметкер деректер базасына кейбiр өзгерiстер кiргiзе алады,
Кинотеатрдағы фильм туралы мағлұматтарды көруге болады, яғни, фильмнiң атауы,
Деректер базасы iске асырулардың жанында сонымен бiрге қатенiң мүмкiндiгi
Менiң курстық жұмысым кинотеатр үшiн арналған.
Талдаудың өткiзулерiнен кейiн, келесi есептер айқындалған:
кино туралы мағлұматтар;
орындары;
адрестері туралы мағлұматтар
әр түрлi есептеу нәтижелерiнiң беруi.
Программалық қамтамасыз ету игерiлген онда деректер базасының хабары қалай
1. НЕГІЗГІ БӨЛІМ
Қазіргі заманғы деректер базасы туралы жалпы мағлұмат
Деректер базасы бұл ақпараттарды сақтау үшін арналған ұйымдастырылған құрылым.
Мысалы, кинотеатрдың деректер базасын қарастыратын болсақ, бұл анықтаманы оңай
Деректер базасы түсінігімен деректер базасын басқару жүйесі түсінігі тығыз
Әлемде көптеген деректер базасын басқару жүйелері бар. Олардың әр
Деректер базасының кең түрде қолданылуының алғы шарттары
Деректер базасының айқын басымдылықтары мен объективті алғы шарттары оның
нақты өмірдің объектілері өзара күрделі қарым-қатынаста болады. Бұның бәрі
әртүрлі пайдаланушылардың ақпараттық қажеттіліктері өзара қиылысады, ал бұл бір
ақпараттық қорды құру мен жүргізу функциялары мен қажетті мәліметтерді
техникалық және бағдарламалық қамтамасыз етудің дамуының қазіргі заманғы деңгейі,
1.3 Деректер базасы администраторының байланыстары
Деректер базасының администраторы (ДБА) өз қызметінің барысында деректер базасының
Ең алдымен егер деректер базасы қандай да бір кәсіпорынды
Деректер базасы пәндік облыстың динамикалық ақпараттық көрінісі болып табылатындықтан
Ұйым басшылығы мен ДБ-ның администраторы ДБ құрудың негізгі
Деректер базасының администраторларының тобының құрамында олардың атқаратын функцияларына байланысты
ДБА-ның деректер базасының бүкіл өмірлік циклінің кезеңдеріндегі өте тығыз
Соңғы уақыттарда деректер базасының түпкілікті пайдаланушылары мен администраторлары арасында
Егер деректер базасы қандай да бір оны қосушы автоматтандырылған
ДБ-ның администраторлары оған қатысты мамандардың сыртқы топтарымен де және
Деректер базасының администраторлары жан-жақты функциялардың үлкен шеңберін орындайды. Әрі
пәндік облыс анализі: пәндік облысты жазбаша суреттеу, толықтылықты шектеуді
деректер базасының құрылымын жобалау: деректер базасының файлдарының құрамы мен
деректер базасы мен ДБ өңдеу шараларының құрылымын жазбаша суреттеу
деректер базасын алғашқы жүктеу мен жүргізу: деректер базасын алғашқы
деректерді қорғау:
- жүйеге пароль арқылы кіруді қамтамасыз ету: пайдаланушыларды тіркеу,
- нақты деректерді қорғауды қамтамасыз ету: пайдаланушылар топтарының және
- дерeктерді қорғау жабдықтарын тестілеу;
- ақпаратқа енудің қарастырылмаған жолдарын анықтау және тіркеу;
- деректерді қорғауды бұзудың пайда болған жағдайларын зерттеу және
ДБ қайта қалыптастыруды қамтамасыз ету: ДБ қайта қалыптастырудың бағдарламалық-технолгиялық
ДБ пайдаланушылардың жолдауның анализі: пайдаланушылардың ДБ жолдауының статистикасын жинау,
ДБ-ның жұмыс жасау тиімділігінің анализі мен жүйенің дамуы: жүйенің
пайдаланушылармен жұмыс жасау: пәндік облыстағы өзгерістер туралы ақпарат жинау,
жүйелік юағдарламалық жабдықтарды дайындау және қолдау: ДББЖ туралы ақпарат
2. ТЕОРИЯЛЫҚ БӨЛІМ
2.1 Delphi бағдарламалау ортасы
Delphi ортасын – бағдарламаушысының сапалы жұмысын қамтамасыз ететін күрделі
Delphi ортасы – көптерезелік жүйе. Оның негізгі төрт терезесі:
негізгі терезе (Project 1)
объектілер бақылаушысының терезесі (Object Inspector)
формаларды құрастырушының терезесі (Form 1)
Б кодының терезесі (Unit 1. Pas).
Негізгі терезеден басқа терезелерді жылжытуға, өлшемін өзгертуге немесе экраннан
Негізгі терезе мен компоненттер жинағы.Негізгі терезе бағдарламаның жобасын құрудағы
Бұл терезде Delphi негізгі меню жүйесі, пиктограммалық командалық батырмалары
Компоненттер жинағы – Delphi негізгі байлығы болып табылады. Ол
Компонент деп белгілі бір қасиеттерді иемденген және форма терезесінде
Форма құрастырушының және объектілер бақылаушысының терезесі. Форма құрастырушының немесе
Формада орналасқан әр компоненттер өзінің мекен-жайымен, мөлшерімен және түсімен
Button батырмасының кескінің ажырату үшін тышқанды баспай тұрып парақта
Объектілер бақылаушысының терезесі 2 парақтан құрылады: Properties–қасиеттері және Events
Программа кодының терезесі программаның мәтінін құруға және оны түзетуге
Жобаны құру барысында осы кодқа қажетті өзгерістер енгізіледі. Delphi
2.2 DataBase Desktop кесте құру ортасы
Delphi қолданбасы деректер базасына қатынауды DataBase Desktop арқылы жүзеге
Деректер базасымен жұмыс ережеге сай, бірқолданушылық режимде жұмыс істейді.
STANDART типті драйверлерді тек Paradox, dBASE, FoxPro кестелері үшін
Жергілікті деректер базасына қатынау үшін DataBase Desktop деректер базасының
2.1-сурет DataBase Desktop кесте құру ортасы
2.2-сурет DataBase Desktop кесте құру ортасында кестені көру
2.3-сурет DataBase Desktop кесте құру ортасында «Кино» кестесін көру
2.3 Delphi мәліметтер базасында кесте құру
Деректер базасын құрайтын кестелер қатты дискідегі каталогта тұрады. Кестелер
Өріс мүмкін болатын типтің деректерін қамтиды. Кестенің негізін оның
өріс сипаты
кілт
индекс
өрістің мәтініне шек қою
кестелер арсындағы біртұтастықты сақтау
парольдер
Кестені құрғанда кестенің аты және құрылымы беріледі. Кестенің атын
Ал енді мәліметтер базасымен жұмыс жасамас бұрын,біз оның каталогын
Жаңа кестені құру келесі команда бойынша іске асады: ПускПрограммыBorland
2.4 – Create Table бейнесі
ОК-ді басып, біз осы форматты аламыз. Экранда келесідей сурет
2.5 - сурет Кестенің құрылымын құру
Құрылып жатқан кестенің әрбір өрісіне бір жазба сәйкес келеді.
2.6 – сурет Құрылған кестенің құрылымы
3. ТӘЖІРИБЕЛІК БӨЛІМ
3.1 «Кинотеатр» деректер базасын құру
Қазiргi ақпараттық технологияның негiзгi ойлары деректерге сәйкес өзгеретiн нақты
Ақпараттық технологиялардың қолдануымен бизнес - процесстердiң автоматтандырудың төңiрегiдегi бағыттардың
Көлем және сақталатын деректердің құрылымдық күрделiлiгiнiң үлкеюi, ақпараттық жүйелердiң
Жұмыстың мақсаты «Кинотеатр» деректер базасын жасау болып табылады. Кез-келген
Деректер базасы дегеніміз – қиылысқан сілтемелері бар, әртүрлі типті
Кестенің сипаттамаларымен берілген обьектілер жиыны түрінде елестетуге де мүмкіндік
Delphi-ді жүктегеннен соң экранда сұхбат терезесі пайда болады. Ол
Біз «Close All» өшіру қосқышын таңдаймыз. «New Application» таңдаймыз,
3.1 – Delphi бағдарламасындағы Form беті
3.2 «Мән – байланыс» диаграммасы
Мән – байланыс диаграмма - олардың арасындағы мәлiметтердiң үлгiлерiнiң
Негiзгi мәндердi ерекшелеймiз және байланыс олардың арасындағы орнатамыз. 3.2
3.2 - сурет «Мән – байланыс» диаграммасы
3.3 Қалыпты кесте қатынастары
Өрістердің типтері және оларға сипаттама. Кестелердің арасындағы байланыс.
Кесте негізін оның өрістерінің сипаттамасы құрайды, әрбір кесте кем
-өрістер сипаттамасы;
-кілт;
-индекстер;
-өріс мәндерінің шектеулері;
-кестелер арасындағы сілтемелік тұтастықтың шектеулері;
-парольдар.
-жалпы кестемен келесі операцияларды орындауға болады:
-құру (құрылымын анықтау);
-құрылымын өзгерту (қайта құрылымдау);
-жою.
Кестені құру кезінде кесте аты мен оның құрылымы беріледі.
Текстік (Text) – текст немесе мәтіндік сөздерді енгізу;
Сандық (Number) – математикалық есептеулер;
Мерзім (Date) – өрістің мерзім типтерді сақтау;
Ақшалы ($) – ақшалай мәндерді қабылдайды;
Уақыт (Time) - өрістің уақытын типтерді сақтау.
3.1 кесте «Кино» кестесінің сипаты
№ Жол Типі Көлемі Сипаттамасы
1 № Фильма Сандық
Кілттік өріс
2 Фильм Тексттік 50
3 Жанр Тексттік 20
4 Режиссер Тексттік 20
5 Производство Тексттік 20
6 Год выпуска Сандық
7 Зал Тексттік 20
3.2 кесте «Cведение» кестесінің сипаты
№ Жол Типі Көлемі Сипаттамасы
1 Кинотеатр Тексттік 30 Кілттік өріс
2 Дата Күні
3 Время Уақыты
4 Цена Сандық
3.3 кесте «Cправочник» кестесінің сипаты
№ Жол Типі Көлемі Сипаттамасы
1 Адресс Тексттік 50 Кілттік өріс
2 Телефон Сандық
3 Кинотеатр Тексттік 30
3.4 кесте «Место» кестесінің сипаты
№ Жол Типі Көлемі Сипаттамасы
1 Зал Тексттік 50 Кілттік өріс
2 Вмешяемость Сандық
Кестелердің арасындағы байланыс кілттік өрістердегі ұқсас мәндердің қатынасы. Байланыс
бірден бірге дейін (1:1)
бірден көпке дейін (1: ∞)
көптен көпке дейін (∞:∞)
3.3-сурет. Мәліметтердің байланыс схемасы
Бұл курстық жұмыста «бірден бірге дейінгі» (1:1) байланыс қолданылады.
«Кино» формасының қасиеттері
object DBGrid1: DBGrid1
Align=alTop
DataSource= DataSource1
object TDataSource: TDataSource
DataSet=Table1
object TTable: TTable
DataBaseName=kinoteatr
TableName=kino.DB
Active=True
object DBNavigator: DBNavigator
DataSource= DataSource1
object TButton: TButton
Caption=Главная
Коды: kinoteatr.show;
Caption=Место
Коды: mesto.show;
object DBImage: DBImage
DataSource= DataSource1
DataFild=Photo
object DBMemo: DBMemo
DataSource= DataSource1
DataFild=film
«Место» формасының қасиеттері
object DBGrid1: DBGrid1
Align=alTop
DataSource= DataSource1
object TDataSource: TDataSource
DataSet=Table1
object TTable: TTable
DataBaseName=kinoteatr
TableName=mesto.db
Active=True
object DBNavigator: DBNavigator
DataSource= DataSource1
object TButton: TButton
Caption=Главная
Коды: kinoteatr.show;
Caption=кино
Коды: kino.show;
«Сведение» формасының қасиеттері
object DBGrid1: DBGrid1
Align=alTop
DataSource= DataSource1
object TDataSource: TDataSource
DataSet=Table1
object TTable: TTable
DataBaseName=kinoteatr
TableName=svedenie.db
Active=True
object DBNavigator: DBNavigator
DataSource= DataSource1
object TButton: TButton
Caption=Главная
Коды: kinoteatr.show;
Caption=сведение
Коды: svedenie.show;
«Справочник» формасының қасиеттері
object DBGrid1: DBGrid1
Align=alTop
DataSource= DataSource1
object TDataSource: TDataSource
DataSet=Table1
object TTable: TTable
DataBaseName=kinoteatr
TableName=svedenie.db
Active=True
object DBNavigator: DBNavigator
DataSource= DataSource1
object TButton: TButton
Caption=Главная
Коды: kinoteatr.show;
Caption=справочник
Коды: spravochnik.show;
Form1 формасына 7 Button және 1 Image компоненттері орналасқан.
3.4-сурет «Кинотеатр» формасының бейнесі
Form6 формасына 2 Label, 1 Image және 1 Memo,
3.5-сурет «О базе» формасының бейнесі
Form2 формасына 1 DBGrid, 1 DataSource, 1 TTable, 1
3.6-сурет «Кино» формасының бейнесі
Form3 формасына 1 DBGrid, 1 DataSource, 1 TTable, 1
3.7-сурет «Место» формасының бейнесі
Form4 формасына 1 DBGrid, 1 DataSource, 1 TTable, 1
3.8 – сурет «Сведение» формасының бейнесі
Form5 формасына 1 DBGrid, 1 DataSource, 1 TTable, 1
3.9-сурет «Справочник» формасының бейнесі
Form7 формасында DataBase Form Wizard компонентін орналастырдым. Оған кинотеатрдың
3.10-сурет «Адресса кинотеатров» формасының бейнесі
Form8 формасында DataBase Form Wizard компонентін орналастырдым. Оған кино
3.11-сурет «сведение о фильме» формасының бейнесі
Form10 формасында қарапайым есеп беруді жобалау үшін негізгі базаның
Қарапайым есеп беруді жобалау үшін қолданылатын компоненттер келесі түрде
QReport компоненті деректер базасының есебінен байланысын ұйымдастыру үшін қолданылады.
TQuickRep – есеп берудің сыртқы жобасын жасау үшін қолданылатын
QRBand – есеп мәліметтерінің тақырыпты орналастыру үшін тандаймыз. Оған
QRLabel – есепке статикалық мән беруге көмектесті. Оның caption
QRDBText – есепке деректер базасының өрістерін орналастыруға мүмкіндік берді.
Есепті «Кино» сұранысына құрамыз.
3.12-сурет «Отчет» формасының бейнесі
ҚОРЫТЫНДЫ
Бүгінгі таңда реляциондық деректер базасымен жұмыс жасау ең ыңғайлы
Borland Delphi бағдарламасында деректер базасымен жұмыс жасалынып, кинотеатр кестесі
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
1. А.Я.Архангельский «Программирование в Delphi7», Издательство
«Бином»,2008 г
2. Марко Кэнту «Delphi7 для профессионалов». Издательство «ПИТЕР»,
3. С.Бобровский «Delphi7 ,учебный курс».Издательство«ПИТЕР»,2004
4. Ю.А.Шпак «Delphi7 на примерах».Издательство «Юниор», 2004г
5. Гусева А.И. Учимся программировать: Pascal 7.0 Задачи и
6. Стивен Коупстейк. Microsoft Office для Windows 95(шаг
7. Матюшок В.М. Excel 7.0 Общие экономические расчеты. -
8. Математическая экономика на персональном компьютере /Под ред. Кубонива.
9. Липаев В.В. Проектирование программных средств. – М.: 1990.
10. XMethods Utility Services. http://www.xmethods.net/ .
11. Шураков В.В. Надежность программного обеспечения систем обработки данных.
12. Федоров А.Г. Создание Windows –приложений в среде
13. DS Data Systems. http://www .dsdata. co. uk/WS/.
13. Дарахвелидзе П.Г., Марков Е.П. Delphi – среда
14. Джон Матчо, Дэвид Р.Фолкнер. Delphi Пер. с
15. Орлик С.В. Секреты Delphi на примерах. -
16. SOAP Version 1.2 part 2: Adjuncts. http://www.w3c.org/TR/soap12-part2/ .
ҚОСЫМША
unit Unit 1;
procedure Tkinoteatr.Button5Click(Sender: TObject);
begin
form10.QuickRep1.Preview;
end;
procedure Tkinoteatr.Button6Click(Sender: TObject);
begin
form8.show;
end;
procedure Tkinoteatr.Button7Click(Sender: TObject);
begin
form6.show;
end;
procedure Tkinoteatr.Button8Click(Sender: TObject);
begin
form9.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls,
Buttons, Spin, Mask, jpeg;
type
Tkino = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
DBImage1: TDBImage;
DBMemo1: TDBMemo;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Button3: TButton;
Edit1: TEdit;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
kino: Tkino;
implementation
uses Unit3, Unit1;
{$R *.dfm}
procedure Tkino.Button1Click(Sender: TObject);
begin
mesto.show;
end;
procedure Tkino.Button2Click(Sender: TObject);
begin
kinoteatr.show;
end;
procedure Tkino.BitBtn2Click(Sender: TObject);
begin
Table1.Insert
end;
procedure Tkino.BitBtn3Click(Sender: TObject);
begin
Table1.Post;
end;
procedure Tkino.BitBtn4Click(Sender: TObject);
begin
Table1.Delete;
end;
procedure Tkino.Button3Click(Sender: TObject);
begin
Table1.IndexFieldNames:='Zal';
Table1.SetKey;
Table1.FieldByName('Zal').AsString:=Edit1.Text;
Table1.GotoKey;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, jpeg;
type
Tmesto = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mesto: Tmesto;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure Tmesto.Button1Click(Sender: TObject);
begin
kino.show;
end;
procedure Tmesto.Button2Click(Sender: TObject);
begin
kinoteatr.show;
end;
procedure Tmesto.Button3Click(Sender: TObject);
begin
Table1.IndexFieldNames:='Zal';
Table1.SetKey;
Table1.FieldByName('Zal').AsString:=Edit1.Text;
Table1.GotoKey;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, jpeg;
type
Tspravochnik = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Image1: TImage;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
spravochnik: Tspravochnik;
implementation
uses Unit1, Unit5;
{$R *.dfm}
procedure Tspravochnik.Button2Click(Sender: TObject);
begin
kinoteatr.show;
end;
procedure Tspravochnik.Button1Click(Sender: TObject);
begin
svedenie.show;
end;
procedure Tspravochnik.Button3Click(Sender: TObject);
begin
Table1.IndexFieldNames:='kinoteatr';
Table1.SetKey;
Table1.FieldByName('kinoteatr').AsString:=Edit1.Text;
Table1.GotoKey;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, jpeg;
type
Tsvedenie = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Image1: TImage;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
svedenie: Tsvedenie;
implementation
uses Unit1, Unit4;
{$R *.dfm}
procedure Tsvedenie.Button2Click(Sender: TObject);
begin
kinoteatr.show;
end;
procedure Tsvedenie.Button1Click(Sender: TObject);
begin
spravochnik.show;
end;
procedure Tsvedenie.Button3Click(Sender: TObject);
begin
Table1.IndexFieldNames:='Kinoteatr';
Table1.SetKey;
Table1.FieldByName('Kinoteatr').AsString:=Edit1.Text;
Table1.GotoKey;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm6 = class(TForm)
Image1: TImage;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
kinoteatr.show;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls;
type
TForm7 = class(TForm)
Table1N_Filma: TFloatField;
Table1Film: TStringField;
Table1Janr: TStringField;
Table1Rejisser: TStringField;
Table1Proiz: TStringField;
Table1God_Vipusk: TFloatField;
ScrollBox: TScrollBox;
Label1: TLabel;
EditN_Filma: TDBEdit;
Label2: TLabel;
EditFilm: TDBEdit;
Label3: TLabel;
EditJanr: TDBEdit;
Label4: TLabel;
EditRejisser: TDBEdit;
Label5: TLabel;
EditProiz: TDBEdit;
Label6: TLabel;
EditGod_Vipusk: TDBEdit;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Table1: TTable;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm7.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
kinoteatr.show;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls;
type
TForm8 = class(TForm)
Table1Kinoteatr: TStringField;
Table1Adress: TStringField;
ScrollBox: TScrollBox;
Label1: TLabel;
EditKinoteatr: TDBEdit;
Label2: TLabel;
EditAdress: TDBEdit;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Table1: TTable;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm8.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TForm8.Button1Click(Sender: TObject);
begin
kinoteatr.show;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls;
type
TForm9 = class(TForm)
Table1Film: TStringField;
Table1Janr: TStringField;
Table1Rejisser: TStringField;
Table1Proiz: TStringField;
Table1God_Vipusk: TFloatField;
Table1Photo: TGraphicField;
ScrollBox: TScrollBox;
Label1: TLabel;
EditFilm: TDBEdit;
Label2: TLabel;
EditJanr: TDBEdit;
Label3: TLabel;
EditRejisser: TDBEdit;
Label4: TLabel;
EditProiz: TDBEdit;
Label5: TLabel;
EditGod_Vipusk: TDBEdit;
Label6: TLabel;
ImagePhoto: TDBImage;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Table1: TTable;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm9.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TForm9.Button1Click(Sender: TObject);
begin
kinoteatr.show;
end;
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, QRCtrls, QuickRpt, ExtCtrls, DB, DBTables;
type
TForm10 = class(TForm)
Table1: TTable;
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRBand2: TQRBand;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
{$R *.dfm}
end.
2
