«Таныстыру бюросы» мәліметтер қорын өңдеу

Пән: Автоматтандыру, Техника
Жұмыс түрі: Курстық жұмыс
Тегін: Антиплагиат
Көлемі: 22 бет
Таңдаулыға:

МАЗМҰНЫ

КІРІСПЕ3

Техникалық тапсырма . . . 4
«Таныстыру бюросы» мәліметтер қорын өңдеу . . . 5Өңдеу ортасын сипаттау . . . 5Мәліметтер қоймасын сипаттау . . . 12

3. «Таныстыру бюросы» мәліметтер қорының интерфейсін өңдеу . . . 14

Қолданылатын процедураларды және функцияларды сипаттау . . . 15
Қолданушыға басшылық . . . 22

ҚОРЫТЫНДЫ . . . 28

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ . . . 29

КІРІСПЕ

Мәліметтер қоймасымен жұмыс істейтін бағдарламалық қамтамасыздандыру персоналды компьютерлерде көп уақыттан бері қолданылып жатыр.

Мәліметтер қоймаларының басқару жүйелері, ақпараттың көлемі өте үлкен боса да, керек ақпаратты үлкен жылдамдықпен табуды қамтамасыздандырады. Осындай мәліметтер қоймаларының қолданушысы әр түрлі оған керек параметр бойынша іздуді орындайды. Сонымен қатар, мәліметтер қоймалары өте көп орын алмайды, мысалы, бірнеше мың жазулардан тұрытын мәліметтер қоймасы бір дискетаға сыйуы да мүмкін.

«Таныстыру бюросы» мәліметтер қоймасымен жұмыс істейтін бағдарлама бюро жұмыскерлерінің еңбегін жеңілдету үшін тағайындалған. Мысалы, олар әр адам туралы мәліметті сақтауды қағазда емес, мәлімет қоймасында сақтай алады, және танысқысы келетін адамдардың талаптары бір -бірімен сәйкес келсе, олар осы адамдардың талаптарын қанағаттандырады.

Жоғарыда айтылғандарды ескере отырып мынадай мақсат қойылды: мәліметтер қоймасымен жұмыс істеу үшін қолданушыға бағытталған көптерезелі, ыңғайлы қосымшаны жасау (өңдеу) . Таныстыру бюросы арқылы бір - бірімен танысқылары келетін адамдарды іздеуді және таңдауды жеңілдету. Бағдарлама Delphi тілінде жазылған. Бұл бағдарламалау тілі Windows - тың жеке қолданбалы бағдарламаларын, сонымен қатар корпоративті желілерде, Интернетте жұмыс істеу үшін тағайындалған әр түрлі тармақты комплекстерді құруды қамтамасыздандырады.

1. Техникалық тапсырма

Адамдар таныстыру бюросына тіркелуге ғана емес, қоймадағы тіркелгендердің ішінен өзіне жақын адамын іздеу үшін келеді. Осындай қызметтерде үлкен құжаттар жүргізілді, бұл құжаттарда клиентер туралы мәліметтер (суреттері, мекен -жайлары, телефондары және т. б. ) сақталды. Мысалы біреуді табу үшін жүздеген, не мыңдаған қағаздарды қарап шығу қажет болды.

Бұл жұмыстың есебі - таныстыру бюросы арқылы танысқысы келетін адамдарды іздеуді және таңдауды жеңілдету.

Бұл бағдарлама адмдар туралы мәліметтерді сақтайды, яғни аты- жөнін, жынысын, тіркелу күнін, әр түрлі сипаттамаларын, сонымен қатар танысқысы келетін клиенттің (жігіттің немесе қыздың) талабын қанағаттандыратын талаптарын. Сонымен қатар тіркелу нөмірі бойынша іздеу өңделген, бұл таныстыру бюросының жұмыскері және клиенттер үшін өте ыңғайлы. Мысалы клиент таныстыру бюросына анкетасын беріп тіркеледі, ол автоматты түрде тіркелу нөмірін алады, бұл нөмір мысалы газетте хабарлама беру үшін қажет. Егер осы мәліметтер қоймасына нөмірді еңгізсек, бұл бағдарлама осы адам (клиент) туралы барлық ақпаратты шығарады.

2. «Таныстыру бюросы» мәліметтер қорын өңдеу

2. 1 Өңдеу ортасын сипаттау

Delphi - бұл бірнеше маңызды технологиялардың жиынтығы:

Машиналық кодқа келтіретін жоғары өндіруші компилятор;
Компоненттердің объектті - бағытталған моделі;
Бағдарламалық прототиптерден қосымшаларды визуалды құру;
Мәліметтер қоймаларын құру үшін масштабталған құралдар.

Delphi ортасы қолданушылық интерфейсті өңдеуді және корпоративті мәліметтер қоймаларына қосуды қамтамасыздандыратын қосымшаларды жылдам өңдеу үшін визуалдық құралдардың (RAD - rapid application development) толық жиынтығынан тұрады.

Delphi - ең күрделі жүйелердің бірі, бұл бағдарламалау тілі Windows - тың жеке қолданбалы бағдарламаларын, сонымен қатар корпоративті желілерде, Интернетте жұмыс істеу үшін тағайындалған әр түрлі тармақты комплекстерді құруды қамтамасыздандырады.

Delphi тілі Object Pascal тілінде жасалған. Borland (Turbo Pascal 1. 0 бастап) фирмасының Паскаль тілінің компиляторлары ең жылдам компиляторларының бірі болды. Қазіргі кезде Object Pascal - бұл жақсы компилятор түріндегі объектті- бағытталған тіл.

Объектті бағыттау принциптерінен жасалған қосымша - бұл кез келген операторлардың тізбегі емес, қатты алгоритм да емес. Объектті - бағытталған бағдарлама - бұл объекттердің және олардың қарым- қатынастарының жиынтығы. Мұндай жағдайларда жеке (басты) объект болып бағдарламаның қолданушысы болады. Ол негізгі, бірақ жалғыз емес қосымшаларды басқаратын жағдайлардың қайнар көзі болады.

Объектті кез келген мәліметтердің және олармен жұмыс істейтін әдістердің жиынтығы түрінде анықтауға болады. Мәліметтерді жазулардың өрістері түрінде қарастыруға болады. Бұл объекттердің сипаттамалары. Бағдарлама қолданушысында және объекттерінде бұл объекттерді оқудың мүмкіндігі болу керек, сонымен қатар оларды кез келген түрде өңдеу және объектке жаңа мәліметтерді жазулары керек. Мұнда инкапсуляция принциптері маңызды болады. Осындай жағдай бойынша 2 мәселені қарастыруға болады.

Біріншіден, объект сенімді түрде жұмыс істеу үшін оның мәліметтерінің бүтінділігін және қайшылықсыздығын ескеру керек. Егер біз бұны ескермесек, онда сыртқы объект немесе қолданушы объектке дұрыс емес мәліметтерді еңгізеді.

Екіншіден, сыртқы объекттерді мәліметтердің ішкі жүзеге асыруының ерекшеліктерінен бөлу(айыру) керек. Мәліметтердің сыртқы тұтынушылары үшін тек қана қолданушылық интерфейс қолайлы болады - ол қандай мәліметтер, функциялар бар екендігін және оларды қалай қолдану екендігін сипаттайды. Ал ішкі жүзеге асыру - бұл объектті өңдеушінің ісі. Мұндай келуде өңдеуші кез келген уақытта объектті модернизациялайды, мәліметтерді сақтаудың құрылымын және көрсету формасын өзгерте алады. Мұндай принципті қолдану үшін көп жағдайда объектте мәліметтерге жасалатын қажет операцияларды қамтамасыздандыратын (мысалы: оқу, жазу, түрлендіру) процедуралар және функциялар анықталады. Бұл функциялар және процедуралар әдістер деп аталады. Мәліметтер және оларды оқу әдістерінің жиынтығы қасиет деп аталады. Қасиеттерді жобалау кезінде орнатуға болады. Оларды қолданбалы бағдарламаны орындаған кезде де өзгертуге болады.

Жеке мәліметтермен жұмыс істейтін әдістермен қатар объектте барлық жиынтықпен жұмыс істейтін және оның құрылымын өзгертетін әдістер бар. Сондықтан, объект қасиеттердің және әдістердің жиынтығы болады.

Объекттердің кейбір жиынтығы туралы немесе бағдарлама туралы көрініс толық болмайды. Көп жағдайда күрделі бағдарлама - бұл объекттердің алдын ала анықталған жиынтығы ғана емес. Жұмыс істеу кезінде объекттер құрылып жойылулары мүмкін. Сондықтан бағдарлама құрылысы орындалу кезінде өзгеретін динамикалық құрылым болып табылады. Объекттерді құру және жоюдың мақсаты - компьютер және жад ресурстарын экономдау. Есептеу техникасының дамуына қарамастан жад қашан да күрделі қосымшалардың мүмкіндігі болады. Бұл бағдарламалық жобалар күрделігінің, сонымен қатар техникалық қамтамасыздандыруының өсуімен байланысты. Сондықтан бағдарламаны орындаған кезде керек емес объекттерді жою керек. Бұл кезде онымен белгіленген жадтың облыстары да босатылады. Жадты динамикалық үлестіру мақсатымен барлық объекттерге оларды құру әдістері - конструкторлар және жою - деструкторлар жатады. Алғаш рет қосымшада (қолданбалы бағдарламада) болатын сол объекттердің конструкторлары бағдарламаны жүзеге асыру кезінде орындалады. Бұл уақытта қосымшада болатын барлық объекттердің деструкторлары қосымшаның жұмысы аяқталған кезде орындалады. Бірақ орындау кезінде әр түрлі жаңа объекттер (мысалы, құжаттардың жаңа терезелері) олардың конструкторлары мен деструкторларының көмегімен динамикалық түрде құрылады және жойылады.

Delphi ортасында жұмыс Delphi Өңдеудің Интегралданған Ортасында (ӨИО немесе Integrated development environment - IDE) жүргізіледі. Орта компоненттер орналасатын формаларды (қосымшада олар бірнеше болулары мүмкін) көрсетеді (береді) . Әдетте бұл терезелік форма, бірақ олар көрінбейтін формалар болулары да мүмкін. Формаға тышқанның көмегімен Delphi кітапханасында бар компоненттердің пиктограммаларын орналастырады. Қарапайым манипуляциялардың көмегімен бұл компоненттердің өлшемін және орналасуын өзгертуге болады. Бұл кезде жобалау кезінде нәтижені көруге болады - форманың түрін және онда орналасқан компонеттердің. Жобалау нәтижесін қандай да тышқанмен орындаған операцияны орындағаннан кейін көруге болады.

Delphi ортасында бағдарламалау екі үрдістің тығыз қарым - қатынасында құрылады: бағдарламаның визуалды көрінісін құру үрдісі (яғни Windows - терезелер) және кодты жазу үрдісі. Кодты жазу үшін бір терезе қолданылады, бағдарламаны құру үшін - Delphi - дің қалған терезелері, яғни форманың терезесі.

Формалар терезелерінде және кодта бар мәліметтер арасында тығыз байланыс бар. Бұл байланысты Delphi байқайды. Бұл формада компонентті орналастыру, бағдарламаның кодын автоматты түрде өзгертуге әкелетінін білдіреді, және керісінше кодтың автоматты түрде қойылған фрагменттерін жою сәкес компоненттерді жоюға әкелуі мүмкін. Осыны есте сақтап программистер ең алдымен форманы құрып, оған компоненттерді орналастырады, ал содан кейін қажет болса жұмыс істейтін бағдарламада компонеттің қажет тәртібін қамтамасыздандыратын кодтың фрагментін жазады. Жаңа бағдарламамен жұмыс істеуді бастағанда Delphi оның Windows - та дұрыс жұмыс істеуін қамтамасыздандыратын минималды қажет кодты құрады. Сондықтан қарапайым бағдарлама File New Application опциясын таңдағаннан кейін дайын болады.

Модуль жаңа форманы құрған кезде құрылады (бағдарламада бір емес, бірнеше, ондай формалар және олармен байланысты модульдер болуы мүмкін) . Бағдарламаны компиляциялау кезінде Delphi pas, dfm кеңейтілуі бар файлдарды және әр модуль үшін өстерді құрады: pas - файл бағдарлама кодының терезесінен алынған мәтіннің көшірмесінен тұрады, , dfm кеңейтілуі бар файлда форма терезесінде болатын мәліметтер сақталынады, ал өс - файылында екі файлдан алынған мәтіндерді машиналық инструкцияларға түрлендіру нәтижелері. Dcu файлдарын компиляторлар құрады және компоновщиктың жұмысы үшін қажет базаны береді. Ол бұл базаны ехе кеңейтілуі бар бір файлға түрлендіреді. .

Алғаш рет терезенің тақырыпшасы форманың тақырыбына сәйкес келеді: Formi. Тақырыпты өзгертуді Объекттер Инспекторының терезесінде жасау керек.

Procedure сөзі компиляторды бағдарлама - процедураның басталуы туралы ескертеді (Delphi - де бағдарламалар - функциялар қолданылуы мүмкін, бұл жағдайда procedure (процедура) орнына function (функция) сөзін қолданады) . Одан кейін TFormi. ButtonlClick процедурасының аты жазылады. Бұл ат - құрмалас: ол TForm1 классының атынан және Button1Click процедураның атынан тұрады.

Delphi тілінде класса деп бағдарламалардың функционалды аяқталған фрагменттерін атайды. Классты бір рет құрып программистке оның көшірмелерін әр түрлі бағдарламаларға немесе бір бағдарламаның әр түрлі жерлеріне қосуға болады. Осындай келу бұрын жазылған бағдарламалардың фрагменттерін қолдану есебімен бағдарламалаудың максималды жоғары өнімділігіне әкеледі. Delphi құрамына Borland корпорациясының программистерімен құрылыған бірнеше жүздік класстар кіреді (оларды стандарттық класстар деп те атайды) . Стандарттық класстардың жиынтығы бұл бағдарламалау жүйесінің мүмкіндіктерін анықтайды.

Әр компонент қатаң анықталған классқа жатады, ал формаға қойылатын компоненттердің барлық түрлері қосылған сандық индексімен бірге класстың атын алады. Delphi қолданылатын келісім бойынша барлық класстардың аттары Т әріпінен басталады. Осыған орай, TFormi аты Tform стандарттық класының үлгісі бойынша құрылған класстың атын білдіреді. Егер мәтіннің басын кодтың терезесінен қарасақ, онда мынадай жолдарды көруге болады:

type

TFormi = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure ButtonlClick(Sender: TObject) ;

private

{ Private declarations }

public

{ Public declarations }

end;

varForm1: TForm1;

Жол

TForm1 = class(TForm)

Tform1 жаңа класын анықтайды, ол TForm стандарттық класынан құрылған

Form1: Tform1; жолы Formi атты бұл кластың бір түрін құрады. TForm стандарттық класы бос Windows - терезесін сипаттайды, бұл уақытта TFormI қойылған компоненттері бар терезені сипаттайды. Осы компоненттерді сипаттау мына жолдардан тұрады:

Button1: TButton;

Label 1: TLabel;

Олар Buttoni (Кнопка!) компоненті TButton стандарттық класының түрін көрсететінін белгілейді, ал Label (Метка 1) компоненті - TLabel класының бір түрін.

TFormi. Buttonicick процедурасының атынан кейін жақша түрінде жазылған шақыру параметрінің сипаттамасы жазылады

Sender: TObject

(Sender атты параметр TObject класына жатады) . Процедуралар бір емес бірнеше шақыру параметрлерінен тұруы мүмкін немесе олардан тұрмауы да мүмкін. Шақыру параметрлері (егер олар болса) процедурада жүзеге асырылған алгоритмді баптау үшін қызмет етеді. Параметр Sender параметрінің көмегімен Button1Click бағдарламасы қандай компонент OnClick процедурасын құрғанын анықтайды. Барлық жол

procedure TFormI. Buttoniciick(Sender: TObject) ;

процедураның тақырыбы деп аталады. Оны “; ” символы анықтайды. Бұл символ Object Pascal - де маңызды ролді алады, өйткені ол компиляторға тіл сөйлемінің соңын көрсетеді. Жеке сөйлемдерден бағдарламаның барлық мәтіні құрылады. Әр сөйлемнен кейін нүкте мен үтір қою керек - бұл тіл синтаксисінің міндетті талабы.

Келесі жолдар процедураны анықтайды:

begin

end;

Begin (басы) сөзі компиляторға процедураның жұмыс істеу алгоритмін сипаттайтын сөйлемдер тізбектілігінің басын ескертеді, ал end (соңы) - бұл тізбектілігінің соңы туралы.

Button1 кнопкасына басқан кезде басқару процедураға беріледі, бұл begin мен end сөздерінің арасында бағдарламаның фрагментін жазуға болатынын білдіреді.

Delphi-бағдарламасын құру үрдісі екі фазаға бөлінеді: форманы құру фазасы және кодтау фазасы.

Форманы құру палитрадан компоненттерді таңдау және оларды формаға орналастыру арқылы жүзеге асырылады.

Программист тышқанның көмегімен формада орналасқан әр компоненттін орнын және оның өлшемін өзгерте алады.

Компонентке керек қасиеттерді қою үшін Инспекторлар объектілерінің Properties беті қолданылады.

Компонент кез келген жағдайға жауап беру үшін программист жағдайлар өңдеушісін құру керек және оның атын Инспекторлар объектілерінің Events бетінде белгілеу керек.

Жағдайлар құрамдас атты өңдеуші процедура түрінде рәсімделеді. Аттың бірінші бөлігі форма үшін кластың атын көрсетеді, екінші бөлігі біріншіден нүкте арқылы бөлінеді және кез келген болуы мүмкін.

Процедура begin . . . end сөздерімен шектелген және Object Pascal тілінің жеке сөйлемдерінен (операторларынан) тұрады. Әр сөйлемнің соңында нүкте мен үтір қойылады.

Компоненттің қасиеттері бағдарламаны жүзеге асырған кезде өзгерілулері мүмкін.

2. 2 Мәліметтер қоймасын сипаттау

Мәліметтер қоймасы - бұл біркелкі, кез келген критерий бойынша реттелген ақпаратардың жиынтығы. Мәліметтер қоймас «қағаздық» немесе компьютерлік түрде көрсетілуі мүмкін.

Компьютерлік мәліметтер қоймасы ақпараттарды сақтайтын файлды (немесе бір- бірімен байланысқан файлдарды) құрады.

Мәліметтер қоймасы жазулардан тұрады. Жазу бір экземпляр туралы ақпаратты сақтайды. Жазу өрістерден тұрады. Әр өріс бір экземплярдың сипаттамасы туралы ақпараттан тұрады. Мысалы «Таныстыру бюросы» мәліметтер қорының жазуы келесі өрістерден тұрады: «Тіркелу нөмірі», «Тіркелу күні», «Аты- жөні», «Жынысы».

Мәліметтер қоймасын басқаратын қосымшаны өңдеу үшін ең алдымен Database Desktop утилитасын қолданып мәліметтер файлын (кестесін) құрып, оған бірнеше жазуларды еңгізу қажет. Мәліметтер қоймасымен жұмыс істейтін қосымша мәліметтермен жұмыс істеуді қамтамасыздандыратын, өрістегі мәліметтерді қарайтын және өзгертетін мүмкіндігі бар компоненттерден тұруы қажет.

Мәліметтермен жұмыс істейтін компоненттер компоненттер политрасының Data Access вкладкасында орналасқан, ал мәліметтерді көрсететін компоненттер - Data Controls вкладкасында.

Автономды қойманың кестесін құру үшін Database Desktop қосымшасын қолданады, ол Tools/Database Desktop командасымен шақырылады.

Кестелер конструкторы терезесінің негізгі колонкаларын (бағандарын) және өрістерін қарастырайық.
File Name - өрістер идентификаторлары.

Туре - өріс типі (контекстік менюдан таңдалады) : А1рhа (А - 255 символдан аспайтын жол), Number (N - сан), Моnеу ($ - NumЬег типіне ұқсас, бірақ ақша белгісі қосылады), Short (S - 32768. . 32767 диапазонындағы бүтін сан), LongIntereger (I 2147483. . 2147483647 диапазонындағы бүтін сан), ВСD (# - екілік -ондық форматындағы сан), Datе (D - күн) . Time (Т - уақыт), Timestamp (@ - күн және уақыт), Меmо (М - әр түрлі ұзындықты жол), Formatted Memo (F - Меmо ұқсас, бірақ форматталған мәтіннен тұруы мүмкін), Graphic (G -ВМР, РСХ, ТIF, СИР, ЕРS көрсетілімі), ОLЕ (О - ОLЕ объекті), Logical ( қисындық L - Т, F), Autoincrement (+ - жазуды қосқан кезде, уникалдық мән автоматты түрде пайда болады), Вinary (В - әр түрлі ұзындықты байттар тібегі), Вуtes (255 байттан аспайтын тізбектілік) .

Size - өрістің өлшемі, байтта.

Кеу - алғашқы кілттік өрістің белгісі.
Таbles properties - кестенің қосымша қасиеттері : Secondary Index (екілік индекстерді орнату), Validity Checks (өріс мәндерін еңгізуге орнатылған шектеулер) . Рassword Security (паролдерді анықтау), Referential Intergity (кестелер арасында сілтемелік бүтіндікті анықтау), ТаЫе Language (тілді орнату), ТаЫе Lоокор (қарау өрістерін орнату), Depending ТаЫеs (тәуелді туынды кестелер) .

Requierd Filed - өрісті қажетті түрде толтыру белгісі.
Мiniтит . . . , Махiпит . . . - жіберілетін мәндер диапазонының басы және соңы (аяқталуы) .
Default vа1ие - бос мәнді қосқан кездегі мән.
Р1сture, Assist - шаблон және өріс мәнінің шаблонын құрушы.

Екілік кілттер (индекстер) кестенің қасиеттері тізімінен Secondary Indexes жолын таңдау арқылы беріледі, және Define батырмасын басқаннан кейін Define Secondary Indexes терезесі пайда болады. Кестелерді байланыстыру үшін сыртқы кілттер бойынша индекстер құрылады. Кестені өзгерткеннен кейін Save As батырмасын басып, қажет атпен кестені сақтауға болады.

Ашылған кестені өзгерту және қарау үшін ТаЫе/Restructure ( Restructure батырмасы) және ТаЫе/Into Structure командалары қолданылады. Кестенің атын өзгерту үшін оны жаңа атпен сақтау қажет. Кестені басқа кестелермен байланыстырғаннан кейін оны толтыру және өзгерту үшін Edit Data кнопкасы және Database Deskot қосымшасының Record менюі қолданылады.

3. «Таныстыру бюросы» мәліметтер қорының интерфейсін өңдеу

Компьютерлік ақпараттық жүйенің құрылымы

Бас форманың батырмасына басқаннан кейін ««Өзіңнің махаббатыңды құр» агенттігі» формасы ашылады. Бұл форма келесі пункттерден тұрады: «Жаңа анкета», «Анкеталарды қарау», «Архивпен жұмыс істеу», «Архивті қарау», «Сақталған шақыруларды қарап шығу» және «Шығу».

4. Қолданылатын процедураларды және функцияларды сипаттау

procedure TForm1. Button1Click(Sender: TObject) ;

begin

form2. ComboBox1. Items. Append(pol[1] ) ;

form2. ComboBox1. Items. Append(pol[2] ) ;

form2. showmodal;

end;

procedure TForm1. Button2Click(Sender: TObject) ;

begin

form3. DateTimePicker1. Date:=form2. Table1[''] ;

form3. edit2. Text:=form2. table1[''] ;

form3. edit3. Text:=form2. table1[''] ;

form3. Edit4. Text:=form2. table1['] ;

form3. ComboBox1. Text:=form2. table1['Ïîë'] ;

form3. DateTimePicker2. Date:=form2. table1[''] ;

form3. memo1. Text:=form2. table1[''] ;

form3. memo2. Text:=form2. table1[' '] ;

form3. Edit1. Text:=inttostr(form2. table1[' '] ) ;

form3. showmodal;

end;

procedure TForm1. Button3Click(Sender: TObject) ;

begin

form4. showmodal;

end;

procedure TForm1. Button5Click(Sender: TObject) ;

begin

form7. showmodal;

end;

procedure TForm1. Button4Click(Sender: TObject) ;

begin

form5. showmodal;

end;

procedure TForm1. Button6Click(Sender: TObject) ;

begin

form1. Close;

end;

procedure TForm1. FormShow(Sender: TObject) ;

begin

form2. Database1. Params. Add('PATH='+GetCurrentDir) ;

form2. Table1. DatabaseName:='byuro';

form2. Table1. TableName:='baza. db';

form2. Table1. Active:=True;

form2. DataSource1. DataSet:=form2. Table1;

form5. DBGrid1. DataSource:=form2. DataSource1;

form5. dbmemo1. DataSource:=form2. DataSource1;

form5. dbmemo2. DataSource:=form2. DataSource1;

end;

procedure TForm1. FormCreate(Sender: TObject) ;

begin

MessageDlg(mtInformation, [mbYes], 0) ;

end;

end.

procedure TForm3. Button2Click(Sender: TObject) ;

begin

form3. close;

end;

procedure TForm3. SpinEdit1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState) ;

begin

if key<>13 then

if SpinEdit1. Text<>'' then

begin

if not form2. Table1. Locate(' ', strtoint(SpinEdit1. Text), [] ) then

begin

messagedlg(' ', mtError, [mbOk], 0) ;

else

begin

form3. DateTimePicker1. Date:=form2. Table1[' '] ;

form3. edit2. Text:=form2. table1[' '] ;

form3. edit3. Text:=form2. table1[' '] ;

form3. Edit4. Text:=form2. table1[' '] ;

form3. ComboBox1. Text:=form2. table1[' '] ;

form3. DateTimePicker2. Date:=form2. table1[' '] ;

form3. memo1. Text:=form2. table1[' '] ;

form3. memo2. Text:=form2. table1[' '] ;

form3. Edit1. Text:=inttostr(form2. table1[' '] ) ;

end;

procedure TForm3. SpinEdit1Click(Sender: TObject) ;

begin

if SpinEdit1. Text<>'' then

begin

if not form2. Table1. Locate(' ', strtoint(SpinEdit1. Text), [] ) then

begin

messagedlg(' ', mtError, [mbOk], 0) ;

SpinEdit1. Value :=1;

end

else

begin

form3. DateTimePicker1. Date:=form2. Table1[' '] ;

form3. edit2. Text:=form2. table1[' '] ;

form3. edit3. Text:=form2. table1[' '] ;

form3. Edit4. Text:=form2. table1[' '] ;

form3. ComboBox1. Text:=form2. table1[' '] ;

form3. DateTimePicker2. Date:=form2. table1[' '] ;

form3. memo1. Text:=form2. table1[' '] ;

form3. memo2. Text:=form2. table1[' '] ;

form3. Edit1. Text:=inttostr(form2. table1[' '] ) ;

end;

... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.

Ұқсас жұмыстар

Оқытудың дәстүрлі технологиялары

Мұрағат ісін ұйымдастыруда іс –шараларды жүргізу

Пәндік аймақтарды сипаттау және мәліметтер қорының құрылымын дайындау жайлы

Қазақстан Республикасының мемлекеттік мұрағат ұғымы

Геоақпараттық жүйелер

Метеорологиялық оқу орталығы

Әлеуметтанулық зерттеудің сандық және сапалық әдістері

«П» стансасының жұмысы

Салыстырмалы педагогика пәнінен дәрістер

Әлеуметтік мобильдік теориясы

Пәндер

Қазақ тілінде жазылған рефераттар, курстық жұмыстар, дипломдық жұмыстар бойынша біздің қор #1 болып табылады.

Ақпарат

Қосымша

Email: info@stud.kz