Главная страница
Контакты

    Басты бет


Автокөлік кәсіпорындарда жолаушыларды есепке алу ақпараттық жүйесі

жүктеу 342.67 Kb.



жүктеу 342.67 Kb.
бет2/3
Дата22.03.2017
өлшемі342.67 Kb.

Автокөлік кәсіпорындарда жолаушыларды есепке алу ақпараттық жүйесі


1   2   3

Автовокзалдарда немесе автостанцияларда жолаушыларды автобустардың қозғалысы, жол жүру мен багажды алып жүру шарттары және ұсынылатын қызметтер мәселелері жөніндегі анық, жеткілікті және уақтылы ақпаратпен қамтамасыз етуге арналған анықтамалық-ақпараттық қызметтің жұмысы ұйымдастырылады[12].

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

Көрінетін ақпарат:


- тәуліктің кез-келген уақытында жақсы көрінуі;

- барынша анық және толық болуы тиіс.

Бұл ретте, егер автовокзал немесе автостанцияларда тәулік бойы жұмыс істемесе, сыртында мынадай ақпарат орналастырылуы тиіс:

- осы автовокзал немесе автостанцияларда арқылы өтетін маршруттар бойынша автобустардың қозғалыс кестесі;

- автовокзалдың немесе автостанциялардың жұмыс уақыты.

Автобустардың қозғалыс кестесінде мынадай мәліметтер болуы тиіс:


- маршруттың нөмірі;

Маршрут (route) - графтың екі төбесінің арасындығы жол; есептеу желісінің тораптары мен терминалдарының арасындағы хабарламаны жеткізу жолы; микрокомпьютерлерде - жинақтауыштың логикалық атауы мен файлды қайдан іздестіру керек екендігін көрсететін өзара бағыныңқы каталогтардың атауларының тізбекшесінен тұратын белгі.

- маршруттардың атауы;

- автобустың жөнелтілу уақыты;

- соңғы пунктке келу уақыты;

-осы автовокзалға немесе автостанцияларға келу уақыты және тұру уақыты (транзиттік рейстер үшін).

Кассалардың көрінетін ақпаратында мыналар болуы тиіс:


  • кассаның нөмірі;

  • кассаның мамандануы;

  • жұмыс режимі;

  • билетті кезектен тыс сатып алатын жолаушылар санаттарының заңнамада белгіленген тізбесі;

  • жолаушылардың жекелеген санаттарының жеңілдетілген жол жүру шарттары;

  • кассирдің тегі.

Жолаушыларды дауыстап айту байланысының көмегімен ақпараттандыру автовокзалдың хабарлау желісі арқылы ұйымдастырылады.


Дауыстап айту байланысынан болған шу деңгейі санитарлық ережелер мен нормаларға сәйкес келуі тиіс.

Санитария (лат. sanіtas - денсаулық) - санитарлық-гигиеналық және жұқпалы ауруларға қарсы шараларды белгілеп, оны жүзеге асыратын денсаулық сақтау саласы. Санитария қала, елді мекендердің тазалығын зерттеп, нақты гигиен.

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


Дауыстап айту байланысының көмегімен берілетін ақпараттың міндетті тізбесі өзіне мынадай ақпаратты қамтиды:


- автобустардың келу уақыты;

- автобусқа мінудің басталатын уақыты (жөнелтуге дейін 15 минут бұрын) және автобустың жөнелтілетін уақыты (жөнелтуге дейін 5 минут бұрын);

-қосымша рейстерді енгізу және оларға жол жүру құжаттарын (билеттерін) сату;

- транзитпен жүретін автобустардың тұратын уақытының қысқартылуы (ұлғайтылуы) туралы;

- багажды қабылдау, сақтау және беру тәртібі;

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

Жолаушыларға көрсетілетін негізгі қызметтердің тізбесі туралы ақпарат автобустардың келуі мен жөнелтілуі туралы хабарландырулардың арасындағы аралықтарда беріледі. Әрбір хабарландыру мемлекеттік және орыс тілдерінде қайталанады.

Жолаушыларға ауызша анықтамалардың берілуін анықтама бюросының ақпаратшысы жүзеге асырады. Анықтама бюросы:


- жұмыс уақыты мен ақпарат берушінің тегі көрсетілген, мемлекеттік және орыс тілдеріндегі, айқын көрінетін “Анықтама бюросы” деген маңдайша жазумен;

- автобустардың осы автовокзалдан немесе автостанциялардан жөнелтілу, соңғы пунктке келу уақыты және барлық автобустардың осы автовокзалға (автостанцияға) келу уақыты көрсетілген автобустардың қозғалыс кестесімен;

- осы автовокзалдың немесе автостанцияның тура автобус қатынасы бар басқа облыстардың автовокзалдары мен автостанциялары бойынша автобустардың қозғалыс кестелерімен;

-осы автовокзал немесе автостанция қызмет көрсететін барлық маршруттар бойынша жол жүру мен багажды алып жүру құнының кестесімен қамтамасыз етілуі тиіс.


Автовокзалдың мен автостанциялардың анықтама бюросы беретін анықтамалардың міндетті тізбесі:


    • осы автовокзал мен автостанциялар бойынша автобустардың жөнелтілу және келу уақытын;

    • осы автовокзалдан жөнелтілетін барлық автобустардың маршруттың барлық аялдау пункттеріне келу және тұру уақытын (автовокзал үшін ғана);

    • кесте бойынша рейске жөнелтілетін автобустардың үлгілері мен маркаларын;

    • облыс маршруттары бойынша, сондай-ақ осы автовокзалмен тура автобус қатынасы бар басқа облыстардың автовокзалдары мен автостанцияларының маршруттары бойынша автобустардың қозғалыс кестесін;

    • осы автовокзалда мен автостанцияларда жолаушыларға ұсынылатын қызметтердің тізбесі мен құнын;

    • жол жүру және багажды алып жүру құнын;

    • автобустарда жолаушылардың жол жүру және багажды алып жүру, жол жүру құжаттарын (билеттерін) басқа рейске қайта ресімдеу ережелерін, сондай-ақ сапар шегу іске аспаған жағдайларда жол жүру мен багажды алып жүру құнын қайтару тәртібін;

    • үй-жайлардың орналасуы мен осы автовокзал мен автостанциялар қызметтерінің жұмыс режимін қамтиды.


2.2 Программалық қамсыздандыру
Delphi-де қорлармен жұмыс істеу үшін компоненттердің бірнеше жиынтықтары бар. Әрбір жиынтық белгілі бір тапсырмаларды орындауға өте жақсы келеді. Осы жерде заңды сұрақ туады: неге соншама көп, әрі әртүрлі компоненттер қолданылады? Олардың бәрі мәліметтерге қатынаудың әр түрлі технологияларын қолданады және мүмкіншіліктер бойынша ажыратылады. Microsoft өзінің өнімдеріне тек ADO (Active Data Objects) мәліметтерге қатынау технологиясын енгізді.

Microsoft Corporation (/maɪkrəˌsɒft/) - дүниежүзіндегі ең ірі компаниялардың бірі. Бағдарламалық қамсыздандыру өндірісінің және сервер мен жеке компьютерлер үшін интернет технологияларды құруы мен қызметін көрсететін АҚШ-та тіркелген көпұлтаралық компания.

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

Delphi жүйесіндегі мәлімет қорына қатынау МҚБЖ-мен жұмыс істеуге арналған визуалды емес компонентердің бай жиынтығын қолдану арқылы жүзеге асырылады. Әдеттегідей, бұл компоненттер құрылатын бағдарламада арнайы мәліметтер модулінде (TDataModule) топтастырылады. Мәліметтер модулін объектілердің жұмысын орталықтанған түрде басқаруға мүмкіндік беретін және мәлімет қорларымен байланысқан бағдарлама логикасын есептеу әрекеттеріне және мәліметтердің формада бейнеленуін жүзеге асыратын бағдарламалық кодтан бөлетін объектілерді сақтаушы деп қарауға болады.

Форма (Қалып; form) - 1) мәліметтерді ұсыну тәсілі; 2) мәліметтер базасын басқару жүйелеріңде (мысалы, Access-Te) - мәліметтер базасындағы ақпаратты (мәліметтерді) енгізу мен редакциялауға пайдаланылатын дисплей экранына көрнекі түрде ұсыну тәсілі.

Delphi бағдарламасы арқылы автокөлік кәсіпорыныңдағы жолаушыларды есепке алу ақпараттық жүйесін еңгіздім.

Бағдарламаның орындалу қзметі және шарртарына тоқтала кетсек:



Сурет 2. Бағдарламаға кіру алдында құпия сөз енгізу

Бағдарламаға кіру алдында паролін еңгіземіз. Ашылған терезеге паролін «admin» деп алынды.



Сурет 2. Жолаушылар туралы мәлімет
Осы терезедеден жоғарғы бөлімшеде жазба қосу батырмасын басу арқылы жаңа жолаушылар туралы мәліметтерді енгізе аламыз.

Сурет 3. Билет нөмері арқылы мәліметтер шығару.
Бұл жазбаны ашқан сәтте билет нөмірі арқылы жолушылардың мәліметтері шығады.


Сурет 4. Іздеу батырмасы арқылы мәліметтерді анықтау
Іздеу батырмасы арқылы жолаушының төл құжаты және орыны көрсетіледі.

Сурет 5. Экспорт батырмасы арқылы мәліметтерді шығару
Экспорт батырмасын басқанда жолаушылардың тізімін және олар туралы мәліметтеін принтер арқылы қағаз бетіне шығарады. Сонымен, Delphi бағдарламасы арқылы автокөлік кәсіпорыныңдағы жолаушыларды есепке алу ақпараттық жүйесін еңгізу арқылы мына мәліметтер шығады. 76 нөмірін басқан сәтте, сол жолаушының қозғалу күні, жолаушының шығу күні, жету уақыты және жету күні көрсетіледі.


Сурет 7. 76 нөмерлі жолаушының мәліметі

Сурет 8.Бағдаралама жайлы батырмасын басқан кезде авторын еңгізуге болады.


Қорытынды
Сонымен бұл жұмыста мен Delphi бағдарламасында жолаушыларды тасуды есепке алу ақпараттық жүйесін құру тәсілдерін қарастырылды. Осы жұмысты жазу барысында Delphi бағдарламасында қолданылатын конструктор, кесте шебері, форма, сұраныс және тағы басқа да батырмалар қызметімен танысып, оларды пайдалана отырып жұмысымның негізгі мақсаты болып табылатын «Автокөлік кәсіпорындарда жолаушыларды есепке алу ақпараттық жүйесі» мәліметтер қорының автоматтандырылған жүйесі құрастырылды.

Жұмыстың басты обьектісі болып отырған мұндай автоматтандырылған жұмыс орын элементтері қазір ғылымның барлық салаларына атап айтсақ, темір жол, білім беру, медицина, экономика және т.с.

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

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

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

Автотұрақ- автомобиль қоятын арнаулы орын; үлкен қалаларда, елді мекендерде автомобильдерді тұрақтандыратын орын. Жүк немесе жеңіл автомобильдерге арналған орындар. Мұндай автотұрақтарға автомобильдер уақытша немесе ұзақ уақытқа қойылады.

Яғни, бұл жұмыста қазіргі ғылыми технологиялық прогрестің жетістіктері саналатын барлық жаңа технологиялық әдістердің жаңа қырлары ашылады.

Автоматтандырылған жұмыс орнын қолданысқа енгізу барысында оны қолданатын, яғни басқаратын субьектінің еңбегін қорғау, қауіпсіздігін қамтамасыз ету мәселелері де назардан тыс қалған жоқ.

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

ХХІ ғасыр - ақпарат пен жаңа технологиялар ғасыры. Сондықтан автокөлік кәсіпорындар саласының ақпараттық инфрақұрылымын міндетті түрде дамыту қажеттігі еліміздің ұзақ мерзімдік даму бағдарламасындағы басым мақсаттардың бірі ретінде айқындалады. Сол себепті ақпараттық технологиялардың тілін меңгерген ұрпақ үшін өздерінің жинақтаған білімдерін тәжірибеде қолданысқа енгізу парыз.

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

Жұмыстың практикалық қолданысқа енетін бөліміне назар аударатын болсақ, онда автокөлік кәсіпорындарын қағаз бастылықтан құтқаратын барлық алғышарттар қамтылғанына көз жеткізуге болады. Оның серверінде оператордың қадағалап, реттеп отыруға тиісті, яғни осы құрамдас бөлікке кіретін бос орындар тізімі, жолаушыларды есепке алу мен олар туралы мәліметтер сияқты барлық мәліметтер енгізілген.

Сервер (ағылш. server) - файлдар, қалталар және компьютерлердің деректері сияқты деректерге ортақ қатынасуды, сондай-ақ желі пайдаланушыларына электрондық пошта қызметтерін қамтамасыз ететін компьютер.

Delphi программалық тілінің негізінде жасалған бұл еңбек оператордың жұмысын жеңілдетері сөзсіз. Автокөлік кәсіпорындары қолмен барлығын жазып, есептеп, есеп жазып әуреге түспейді. Бәрі де бір батырманы басу арқылы бір мезетте барлығын есептеп береді. Тек іздестіру бөліміне өзіне қажетті сұранысты енгізсе болғаны, барлық мәліметтер экран алдында пайда болады. Тек деректер базасына енгізілуі қажет.

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

Қолданылған әдебиеттер тізімі


  1. “Автоматизированное рабочее место в системе управления предприятием”, Сборник научных трудов, Алма-Ата, 2000 г.

    Әдебиет (араб.: асыл сөз‎) - сөз өнері, әлеуметтік мәні бар шығармалар жиынтығы.



  2. В.В.Шураков. “Автоматизированное рабочее место для статической обработки данных”, 2001 г.

  3. И.Л.Кантарь. “Автоматизированные рабочие места управленческого аппарата”, 1999 г.

  4. Архангельский А.Я. Программирование в Delphi 6. – М.:ЗАО «Издательство БИНОМ», 2003 г.-1120 с.

  5. Бобровский С. Delphi 6 и Kylix: библиотека программиста. – сПб.:Питер, 2002. – 560 с.

  6. Культин Н. Delphi в задачах и примерах. – СПб.: БХВ-Петербург, 2004. – 288 с.

  7. Жуков А. Изучаем Delphi. – СПб.:Питер, 2000

  8. Мозговой М.В. Занимательное программирование: Самоучитель. – СПб.: Питер, 2004 – 208 с.

  9. Понамарев В.Базы данных в Delphi 7. Самоучитель. – СПб.:Питер, 2003. – 224 с.

  10. Фаронов В. В. Delphi 6. Учебный курс.-М.: Издатель Молгачева С.В., 2001. – 672 с.

  11. Флёнов М.Е. Библия Delphi. – СПб.: БХВ-Петербург, 2004. – 880 с.

  12. Хомоненко А.Д. и др. Delphi 7/ Под общ. ред. А.Д.Хомоненко. – СПб.:БХВ-Петербург, 2004.-1216 с.

  13. Сибаров Ю. Г., Сколонев Н. Н., Васин В. К., Охрана труда в вычислительных центрах. – Москва: Машиностроение, 1990г. – 191 с.

  14. Полат Е. С., Дистанционное обучение: Учебное пособие для вузов. Москва, 1998г. С. 236.

  15. Ирсалиев С., Система высшего образования // Высшая школа Казахстана №2, 2002 г. С. 134 – 138.

  16. Демирчоглян Г. Г., Компьютер и здоровье, Москва, Лукоморье, Новый центр, 1999 г.

  17. Указание по компенсации аэроионной недостаточности в помещениях промышленных предприятий и эксплуатации аэроионизаторов

  18. Полунов М., В чем польза электрического облака? Техника молодежи, 1999 г., №5. С. 37.

  19. Кириллов В.В. Структуризованный язык запросов (SQL). – СПб.: ИТМО, 2000. – 80 с.

  20. Шумилин В.К., Гетия И.Г. Охрана труда при работе на ПЭВМ и ЭВМ. Учебное пособие (часть 1).- М.: МИП, 1996 г.

  21. С.М.Диго "Проектирование и использования баз данных". Москва: Финансы и статистика 2006 г.



ҚОСЫМША А

Программа листингі
program Project1;

uses


Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {DataModule3: TDataModule},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit7 in 'Unit7.pas' {Form7},

Unit8 in 'Unit8.pas' {Form8},

Unit9 in 'Unit9.pas' {Form9};

{$R *.res}

begin


Application.Initialize;

form2:=Tform2.Create(application);

form2.Show; form2.Update;

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TDataModule3, DataModule3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm7, Form7);

Application.CreateForm(TForm8, Form8);

Application.CreateForm(TForm9, Form9);

form2.Hide; form2.Free;

Application.Run;

end.


unit Unit1;

interface

uses

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



Dialogs, Grids, DBGrids, ComObj, Menus,Registry, StdActns, ExtActns, ListActns, ActnList,StdCtrls, Buttons,ToolWin,

ImgList,DB, DBTables, DBCtrls,ExtCtrls, Mask, jpeg, ADODB;

type

TForm1 = class(TForm)



MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

ColorDialog1: TColorDialog;

FontDialog1: TFontDialog;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

Panel1: TPanel;

ComboBox1: TComboBox;

Edit1: TEdit;

BitBtn1: TBitBtn;

Panel2: TPanel;

Panel3: TPanel;

BitBtn2: TBitBtn;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

DBGrid1: TDBGrid;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

Image1: TImage;

OpenDialog1: TOpenDialog;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid2: TDBGrid;

ADOTable1: TADOTable;

ADOTable1Vrem_otprav: TWideStringField;

ADOTable1Vrem_sledov: TWideStringField;

ADOTable1Vrem_pribit: TDateTimeField;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Panel4: TPanel;

DataSource2: TDataSource;

Label1: TLabel;

DBEdit9: TDBEdit;

Label2: TLabel;

DBEdit10: TDBEdit;

Label3: TLabel;

DBEdit11: TDBEdit;

Label5: TLabel;

DBEdit13: TDBEdit;

Label6: TLabel;

DBEdit14: TDBEdit;

procedure FormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit5Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N25Click(Sender: TObject);

private


{ Private declarations }

SrchFld:TField;

public

{ Public declarations }



end;

var


Form1: TForm1;

NFont : TFont;


implementation

uses unit2, Unit3, Unit4, Unit5, Unit7, Unit8;

{$R *.dfm}

procedure SaveFontToRegistry(Font : TFont; SubKey : string);

var

R : TRegistry;



FontStyleInt : byte;

FS : TFontStyles;

//W:variant;

begin


R:=TRegistry.Create;

try


FS:=Font.Style;

Move(FS,FontStyleInt,1);

R.OpenKey(SubKey,True);

R.WriteString('Font Name',Font.name);

R.WriteInteger('Color',Font.Color);

R.WriteInteger('CharSet',Font.Charset);

R.WriteInteger('Size',Font.Size);

R.WriteInteger('Style',FontStyleInt);

finally

R.Free;


end;

end;


function ReadFontFromRegistry(Font : TFont; SubKey : string) : boolean;

var


R : TRegistry;

FontStyleInt : byte;

FS : TFontStyles;

begin


R:=TRegistry.Create;

try

1   2   3

  • Көрінетін ақпарат
  • Автобустардың қозғалыс кестесінде мынадай мәліметтер болуы тиіс
  • Кассалардың көрінетін ақпаратында мыналар болуы тиіс
  • Жолаушыларды дауыстап айту байланысының көмегімен ақпараттандыру автовокзалдың хабарлау желісі арқылы ұйымдастырылады.
  • Дауыстап айту байланысының көмегімен берілетін ақпараттың міндетті тізбесі өзіне мынадай ақпаратты қамтиды
  • Жолаушыларға ауызша анықтамалардың берілуін анықтама бюросының ақпаратшысы жүзеге асырады. Анықтама бюросы
  • Автовокзалдың мен автостанциялардың анықтама бюросы беретін анықтамалардың міндетті тізбесі

  • жүктеу 342.67 Kb.