Кинотеатр деректер базасын жобалау және Delphi ортасында жүзеге асыру

Мазмұны КІРІСПЕ 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