Тема курсовой работы: Емхана автоматтандыру

Курсавая работа тема работы Емхана автоматтандыру

здесь про база данных болницы   

Краткое описание:
КІРІСПЕ..........................................................................................................................
1 МЕДИЦИНА САЛАСЫНДАҒЫ ҚОЛДАНЫСТА БАР АҚПАРАТТЫҚ ЖҮЙЕЛЕРГЕ ШОЛУ....................................................................................................
1.1 Медициналық қызметтерді сапалы басқару жүйесі....................................
1.2 Медико-статистикалық ақпараттық жүйесі.................................................
1.3 Ресурстарды басқару жүйесі..........................................................................
1.4 Денсаулық сақтау саласының бірыңғай ақпараттық жүйесі ....................
2 МӘЛІМЕТТЕР ҚОРЫН БАСҚАРУ ЖҮЙЕСІН ТАҢДАУ ЖӘНЕ НЕГІЗДЕУ......................................................................................................................
2.1 Мәліметтер қорының моделдері....................................................................
2.2 Реляциялық мәліметтер қоры...................................................................
2.3 SQL - мәліметтер қорының стандартты тілі..............................................
3 Тарау АЙГЕРІМ ЕМХАНАСЫНЫҢ МӘЛІМЕТТЕР ҚОРЫ................................
3.1 АЖО-ның жұмыс мен жобалау ортасын таңдау..........................................
3.2 Мәліметтер қоры.............................................................................................
3.3 Клиент қосымшасының интерфейсі..............................................................
Қорытынды.....................................................................................................................
Әдебиеттер тізімі............................................................................................................
1 ҚОСЫМША. Программа листингі............................................................................
КІРІСПЕ

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

Қазіргі заманғы қоғамның барлық сұрақтарына жауап беретін денсаулық сақтау жүйесін қалыптастыру жеке және қоғамдық денсаулық сақтау көрсеткіштерінің нақты, әрі оңды нәтижесін алуға бағытталған старатегиялық міндеттердің өзара қатынасының бүтіндей кешенін шешудегі артықшылықтарды саралайды.
«Салауатты Казахстан» мемлекеттік бағдарламасы – денсаулық сақтау жүйесін дамытудың сапалы түрдегі жаңа қадамы, яғни қазақстандықтардың денсаулығын нығайтуға бағытталған сектораралық және ведомствоаралық қарым-қатынасты көрсетеді. Халықтың денсаулығын сақтау процесіне кәсіпкерлік және әрбір азаматтың өз денсаулығына деген ынтымақтастық жауапкершілігі сияқты, және де Мемлекеттің маңызды құрылымдары тартылып отыр.
Жаңа бағдарламаның міндеттерінің бірі – бастапқы медициналық –санитарлық көмекті дамытуға бағытталған басымдылығымен Денсаулық сақтаудың бірыңғай ұлттық жүйесін одан әрі дамыту және жетілдіру жолымен медициналық көмектің қолжетімділігі мен сапасын арттыру.
Денсаулық сақтау жүйесін дамытудың міндеттерін сәтті жүзеге асыру тиімді басқарушылық шешімдерді қабылдау мақсатындағы ақпараттық ағындарды реттеуге мүмкіндік туғызатын жүйелердің негізінен тұратын медициналық және экономикалық ақпараттардың қолжетімділігіне, мерзімділігіне, жылдамдылығына, сапалы қабылдауға және өңдеуге жалпылай және толығымен байланысты. Осыған орай, денсаулық сақтауды ақпараттандыру мәселесі жаңа Мемлекеттік бағдарлама жобасының кілті іспеттес.
1.2 Медико-статистикалық ақпараттық жүйесі

Медико-статистикалық ақпараттық жүйесі (СТАЖ) ҚР Денсаулық сақтау бірыңғай ақпараттық жүйелерінің негізгі компоненттерінің бірі болып табылады. СТАЖ –і денсаулық сақтау ұйымына жүгінген пациент туралы алғашқы кейіптеу ақпараттарын жинау, сақтау және өңдеу міндеттерін, табылған ауру, осы пациентке көрсетілген медициналық қызмет, өткізілген емдеу-диагностикалық шаралар, медициналық ұйымдарда пациентті емдеу процессінде тікелей тағайындалған және тұтынылған емдік құралдар туралы мәселелерді шешеді; Алдын ала емдеу шараларының орындалуына жоспарлау және мониторингті қолдайды.
СТАЖ негізі кейіптеу деректері жиынынан тұрады:
- Медициналық ұйымдарға халықты бекіту туралы;
- Пациенттер туралы;
- Олардың денсаулық сақтау ұйымдарына жүгінуі;
- Табылған науқас;
- Медициналық қызмет көрсету;
- Емдеу-диагностикалық шараларын өткізу;
- Медициналық қызмет көрсету процессінде емдік құралдарды тағайындау және тұтыну және т.б.
Кейіптеу есебі төмендегідей есепте жүзеге асырылған:
- «Заңды тұлғалар» мемлекеттік деректер базасын пайдаланумен қалыптастырылатын медициналық ұйымдардың бірлескен тізімі;
- «Жеке тұлғалар» мемлекеттік деректер базасы және медициналық ұйымдардың бірлескен тізімін пайдаланумен қалыптастырылған халықтық АМСК ұйымдарына бекітілген бірлескен тізім.
1.4 Денсаулық сақтау саласының бірыңғай ақпараттық жүйесі

2006 жылдың соңынан Қазқастан Республикасының Денсаулық сақтау саласының бірыңғай ақпараттық жүйесі өндіріліп жүр. Осы уақыт ішінде өндірушілер ҚР Денсаулық сақтау саласының бірыңғай ақпараттық жүйесін жасауда түбегейлі жетістіктерге жетті, әйтеуір 2010 жылы екі қазақстандық қалаларда – Астана және Алматыда пилоттық аймақта оның тәжірибелік пайдалануын енгізу жайлы шешім қабылданды.
Медицина-статистикалық ақпараттық жүйе дегеніміз не?
Медицина-статистикалық ақпараттық жүйесін құру мақсаты - барлық деңгейдегі медициналық мекемелердің және денсаулық сақтаудың басқару мүшелерінің қызмет тиімділігінің жоғарлауы болып табылады. Медицина-статистикалық ақпараттық жүйесі медициналық мекемелерге емделушілер үндеулерінің жекеленген есепке алудың автоматтандыруын өткізеді. Сонымен, медицина-статистикалық ақпараттық жүйе медициналық мекемелердің қызметін медициналық көмектің келесі негізгі түрлері бойынша автоматтандырады:
- жедел жәрдем;
- амбулаторлы- емханалық көмек;
- стационарлық көмек.
Денсаулық сақтау саласының бірыңғай ақпараттық жүйесінің және денсаулық сақтаудың ақпараттандыру орталығының өндірушілерімен көрсетілген көрсеткіштер бойынша, медицина- статистикалық ақпараттық жүйесі көптеген аса маңызды есептерді шешеді:
- науқас жайлы біріншілік жекеленген ақпаратты жинау, сақтау және өңдеу,
- денсаулық сақтау мекемелеріне науқастар үндеулерінің жиілігі,
- сырқаттанушылықты анықтау және әрбір науқасқа көрсетілген медициналық көмектер тізімін талдау,
- ем-диагностикалық шараларды өткізу,
- науқасты емдеу барысында медициналық мекемелерде дәрілік заттар айналымын талдау;
- профилактикалық шараларды орындау мониторингі мен жоспарлауды қолдау.
Өндірушілердің айтуы бойынша, осы бiртұтас деректер қорындағы ақпарат тікелей пайда болған жерден, яғни, жүйе пайдаланушысының әрбір жұмыс орнынан түседі. Әртүрлі деңгейдегі пайдаланушылар, жүйеде көрсетілген қол жеткізу құқықтарымен сәйкестікте бiртұтас деректер қорындағы ақпаратқа рұқсат алады.
Емханалар үшін медицина-статистикалық ақпараттық жүйесінің пайдасы жайлы айтсақ, ол келесі нормативтердің орындалуын қадағалайтынын атап айтқан жөн:
2.1 Мәліметтер қорының моделдері

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

Мәліметтер қоры - бұл үлкен көлемді өзара байланысқан ақпаратты сақтауға, өзгертуге және өңдеуге арналған бір немесе бірнеше мәліметтер файлы.
Мәліметтер қорын басқару жүйесі - бұл МҚ-н құруға, жүргізуге және қолдануға арналған тілдік және программалық құралдар жиынтығы. Қолдану сипатына қарай МҚБЖ дербес ( персональді) және көпқолданушы болып бөлінеді.
Дербес МҚБЖ бір компьютерде жұмыс жасайтын локальді МҚ-н құруды қамтамасыз етеді. Дербес МҚБЖ-не Parafox, dBase, FoxPro, Access және т.б. жатады.
Көпқолданушы МҚБЖ клиент-сервер архитектурасында жұмыс жасайтын ақпараттық жүйе құруға мүмкіндік береді. Оларға Oracle, Inter Base, SyBase, Microsoft SQL Server, Informix және т.б. жатады.
2.2 Реляциялық мәліметтер қоры
Реляциялық модельдің артықшылықтары - бұл қарапайымдылығы, құрылымның иілгіштігі,
Компьютердегі мәліметтер қоры - бұл бір байланыспен
Мәліметтердің реляциялық моделінің негізінде қатынастар (relation - ағылшын
Реляциялық мәліметтер қоры – бұл өзара байланысқан қатынастар
Қатынастарға қолданылатын негізгі амалдарға:
Жиындарға қолданылатын амалдар: қиылысу, айырма, декарттық көбейту, бөлу,
Арнайы реляционды амалдар: проекциялау, біріктіру, таңдау (селекция, шектеулер)
Мәліметтер қорын басқару жүйесінің деңгейі осы айтылған амалдарды
реляционды алгебра тілдері;
реляционды есептеулер тілдері.
Реляциялық алгебра тілдері реляциялық алгебраға негізделген. Қатынастарға қолданылатын
Керектi ақпараттарды жинау ғана емес, оларды жақсылап құрылымдау
1) объектiнiң сипаттамаларын анықтау;
2) осы объектiлердiң атрибуттарын (атрибут – қатынас
3) объектiлердiң арасындағы байланысты көрсететiн құрылым типтерiн
4) ақпараттық құрылымның дәл экземплярын құру.
2.3 SQL - мәліметтер қорының стандартты
SQL тілінің кең таралуы қазіргі кездегі компьютерлік технологияның
Мәліметтерді ұйымдастыру. SQL арқылы тұтынушы мәліметтерді ұсыну құрылымын
Мәліметтерді оқу. SQL көмегімен мәліметтер қорындағы мәліметті оқып,
Мәліметтерді өңдеу. Мәліметтер қорына жаңа мәлімет қосуға, жоюға,
Қатынауды басқару. SQL мәліметтерді оқуға, өңдеуге шектеу қойып,
Мәліметтердің тұтастығы.
Сонымен, SQL МҚБЖ-лерімен жұмыс жасауға бағытталған күшті құрал
SQL тілінің ерекшеліктері:
Нақты МҚБЖ-лерінен тәуелсіздігі;
Бір есептеуіш жүйеден екіншісіне тасымалдану мүмкіндігі;
Стандарттарының болуы;
IBM компаниясының қолдауы;
Реляциялық негізі;
Ағылшын тіліне ұқсас жоғарғы деңгейлі құрылым;
Мәліметтер қорына программалық қатынауды қамтамасыз ету;
Мәліметтерді динамикалық анықтау мүмкіншілігі;
Клиент/сервер архитектурасын қолдау;
Арнаулы интерактивті сұраныстарды орындау мүмкіндігі.
SQL сұранымның екі түрі бар:
статикалық (тұрақты);
динамикалық (тұрақты емес).
Статикалық SQL-сұранымдар қосымшаны құру барысында жазылады және орындалу
Динамикалық SQL-сұранымдар коды қосымша орындалу барысында құрылады.
3 Айгерім емханасының мәліметтер қоры
3.1 АЖО-ның жұмыс мен жобалау ортасын таңдау
Бағдарламаның жұмыс істеуі үшін операциялық жүйе ретінде win32
тапсырыс берушінің бұл платформаға бағдарлануы;
пайдалануы интерфейсін құрудың дамыған тәсілдері;
жеткілікті масштабталынуы, яғни компьютерлік жабдықтардың кең диапазонында жұмыс
переферийлі құрылғылардың (видеоадаптор, желілік адаптор, принтер, дисковод, CD-ROM)
бұл платформаның кең қолданылуы;
мұндай деңгейлі есептер үшін сенімділігі және бағдарламаның өнімділігі.
Ұсынылған өнімге маңызды болатын, бұл платформаның кемшіліктерінен келесілерді
Windows98 операциялық жүйесінде қорғанысты қамтамасыз ету және санкцияланбаған
Компьютердің аппараттық ресурстарына жоғары деңгейлі талапшылдығы.
Delphi ортасында өте қолайлы, мұнда әр түрлі форматтағы
Delphi жүйесі қазіргі заманға сай сарапталған теория және
Визуалды құрама формалар программист жұмысын, программаның интерфейс сараптамалар
Delphi-де дайын бөлiктердi бiрiктiру арқылы программа құруға болады.
Delphi-дегi программалаудың бiр ерекшелiгi, прошраммист өзiнiң iстеп отырған
Программаны құруды клавиатура және mouse (мышь) арқылы басқаруға
3.2 Мәліметтер қоры
Мәліметтер қорын құру ортасы ретінде Borland Delphi
Мәліметтер қоры үш кестеден тұрады:
Дәрігерлер кестесі (doktor.db);
Пациенттер кестесі (pacient.db);
Қабылдау кестесі (priem.DB);
Атауы Типі Арналуы
Id I * Кілттік өріс
FIO A(30) Аты - жөні
Dolj A(20) Қызметі
N_k A(20) Кабинет нөмірі
D_pr A(15) Қабылдау күні
N_vr T Қабылдау уақытының басталуы
O_vr T Қабылдау уақытының аяқталуы
Tel A(6) Телефон нөмірі
Дәрігерлер кестесінің құрылымы келесідей:
Пациенттер кестесінің құрылымы:
Атауы Типі Арналуы
Id I * Кілттік өріс
FIO A(30) Аты - жөні
Adres A(30) Қызметі
D_r D Туылған күні
Pol A(1) Жынысы
Str_n A(10) Сақтандыру полісінің нөмірі
inf A(50) Диагнозы
Қабылдау кестесінің құрылымы:
Атауы Типі Арналуы
Id I * Кілттік өріс
Doctor A(30) Емдеуші дәрігер
Pac A(30) Емделуші
D_zap D Қабылдауға келген күні
Vr_Zap T Қабылдауға жазылған күні
Кестелер арасындағы байланыс келесі түрде жүзеге асырылды:
pacient.db
Id
FIO
Adres
D_r
Pol
Str_n
inf
priem.DB
Id
Doctor
Pac
D_zap
Vr_Zap
:
doktor.db
Id
FIO
Dolj
N_k
D_pr
N_vr
O_vr
Tel
3.1. сурет. Кестелер арасындағы байланыс
3.3 Клиент қосымшасының интерфейсі
Клиент қосымшасы Delphi 7 программалау жүйесінде құрылды. Ол
Файл;
Анықтамалық жүйелер;
Мәліметтер қоры;
Қабылдау бөлімі;
Көмек.
Алғашқы файл пунктінде- МҚ-на қосылу, МҚ-нан ажырау және
3.2. сурет. Негізгі форма
Мәліметтер қорына қосылғанша мәзірдің мәліметтер қорымен жұмыс істейтін
Мәліметтер қорынан ажырау келесі команданың көмегімен орындалды:
Файл- >МК-нан ажырау
Анықтамалық жүйелер мәзірінде келесі терезелерді шақыру командалары орналастырылды:
Дәрігерлер- дәрігерлер туралы мәліметтерді өңдеу терезесі;
Кабинеттер – поликлиника кабинеттері туралы мәліметтерді өңдеу терезесі;
Жұмыс уақыттары - поликлиника дәрігерлерінің жұмыс уақыттары туралы
Барлық терезелер интерфейсі ұқсас етіп құрылды. Яғни, олардың
3.3. сурет.Дәрігерлер терезесі
3.4. сурет.Каинеттер терезесі
3.5. сурет.Дәрігерлердің жұмыс уақыты терезесі
Навигатор батырмасы сәйкес мәліметтер қоры кестесі жазбалары бойынша
Негізгі мәзірдің келесі мәліметтер қоры пунктінде келесі командалар
Дәрігерлер;
Пациенттер;
Дәрігерлер терезесінде дәрігерлер туралы мәліметтер өңделеді (3.6. сурет).
3.7. сурет. Дәрігерлер туралы мәліметтер
3.8. сурет. Дәрігерлер туралы мәліметтерді баспаға шығару
Негізгі мәзірдің келесі Қабылдау бөлімі пунктінде келесі командалар
Пациентті қабылдау- сәйкес терезені ашады.
Қарау- електен өткізу терезесін ашады.
Қабылдау терезесінде пациентті қабылдауға тіркеу жүзеге асырылады (3.9.
3.9. сурет. Пациентті қабылдау терезесі
Қарау терезесінде емдеуші дәрігер, емделуші пациент бойынша мәліметтерді
3.10. сурет емдеуші дәрігер, емделуші пациент бойынша мәліметтерді
3.11. сурет Мәліметтерді електен өткізу нәтижелерін баспаға шығару
Көмек пункті программа туралы ақпаратты көрсететін терезені шақырады
3.12. сурет. Программа туралы терезесі
Қорытынды
Курстық жұмысты орындау барысында өңделген жүйе қорытылған
Берілген жүйеде, кез келген өнімдегідей даму жолдары қарастырылған.
Жұмыстың негізгі нәтижесі болып табылатын функционалдық МҚБЖ, ол
Мәліметтер қорында сақталған ақпараттарға қол жеткізу әдістерінің жүзеге
МҚБЖ орындайтын барлық функциялар ұқыпты түрде сарапталған және
Әдебиеттер тізімі
Дж. Тельман, "Основы систем баз данных",
Дейт К., "Введение в системы баз данных", Москва,
Когловский М.Р., "Технология баз данных на персональных
Дж. Мартин., "Организация баз данных в вычислительных системах"
С.М.Диго "Проектирование и использования баз данных". Москва: Финансы
Горев А., Ахаян Р., Макашарипов С. «Эффективная работа
Бойко В.В., Савинков В.М. Проектирование баз данных информационных
Мейер М. Теория реляционных баз данных. – М.:
Брябрин В.М., "Программное обеспечение персональных ЭВМ", Москва, \'Hаука\',
Шафрин Ю.А. «Основы компьютерной технологии». М., 1998
Фаронов В.В., Шумаков П.В. Delpi5. Руководство разработчика базы
Гофман И. Э., Хомоненко А. Д. Delphi5. –СПб.:
Кенту М. Delphi5 для профессионалов.-СПб.: Питер, 2001г.-944с.:ил.
Кандзюба С.П., Громов В.Н. Delphi 6.Базы данных и
Фаронов В.В. Delphi5. Учебный курс. – М.: «Нолидж»,2001г.
Архангельский А.Я. Язык SQL в Delphi5 – М.:
Қосымша 1. Программа листингі
unit polik_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, ComCtrls, jpeg;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
Panel1: TPanel;
N13: TMenuItem;
N14: TMenuItem;
N1: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
SB: TStatusBar;
Image1: TImage;
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N18Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses prog_un, priem_un, izm_un, o_prog;
{$R *.dfm}
procedure TForm1.N4Click(Sender: TObject);
begin
form2.show;
form2.dbgrid1.visible:=true;
form2.dbgrid2.visible:=false;
form2.dbgrid3.visible:=false;
form2.dbgrid1.align:=alclient;
form2.Caption:=\'Дәрігерлер\';
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form2.show;
form2.dbgrid1.visible:=false;
form2.dbgrid2.visible:=true;
form2.dbgrid3.visible:=false;
form2.dbgrid2.align:=alclient;
form2.Caption:=\'Кабинеттер\';
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form2.show;
form2.dbgrid1.visible:=false;
form2.dbgrid2.visible:=false;
form2.dbgrid3.visible:=true;
form2.dbgrid3.align:=alclient;
form2.Caption:=\'Жұмыс уақыты\';
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form3.Show;
form3.panel1.Align:=alclient;
form3.panel1.Visible:=true;
form3.panel2.Visible:=false;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form3.Show;
form3.panel2.Align:=alclient;
form3.panel2.Visible:=true;
form3.panel1.Visible:=false;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
aboutbox.showmodal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form4.show;
form4.panel1.Visible:=true;
form4.panel2.Visible:=false;
form4.panel1.align:=alclient;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
form4.show;
form4.panel2.Visible:=true;
form4.panel1.Visible:=false;
form4.panel2.align:=alclient;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormShow(Sender: TObject);
var
s:string;
begin
s:=extractfiledir(application.ExeName)+\'\\tab\\\';
form2.Query1.DatabaseName:=s;
form3.Table1.DatabaseName:=s;
form3.Table2.DatabaseName:=s;
form4.Query1.DatabaseName:=s;
form4.Query2.DatabaseName:=s;
form4.Query3.DatabaseName:=s;
form4.Query4.DatabaseName:=s;
sb.SimpleText:=\'Мәліметтер қорынан ажыратулы\';
{form4.Query2.Active:=true;
form4.Query3.Active:=true;
form4.Query4.Active:=true; }
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.Query1.Active:=false;
form3.Table1.Active:=false;
form3.Table2.Active:=false;
form4.Query1.Active:=false;
form4.Query2.Active:=false;
form4.Query3.Active:=false;
form4.Query4.Active:=false;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
sb.SimpleText:=\'Мәліметтер қорына қосылулы\';
form2.Query1.Active:=true;
form3.Table1.Active:=true;
form3.Table2.Active:=true;
form4.Query1.Active:=true;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form2.Query1.Active:=false;
form3.Table1.Active:=false;
form3.Table2.Active:=false;
form4.Query1.Active:=false;
form4.Query2.Active:=false;
form4.Query3.Active:=false;
form4.Query4.Active:=false;
sb.SimpleText:=\'Мәліметтер қорынан ажыратулы\';
end;
end.
unit priem_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, Buttons, StdCtrls, Mask,
ExtCtrls;
type
TForm4 = class(TForm)
Panel1: TPanel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
DateTimePicker1: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Panel2: TPanel;
MaskEdit1: TMaskEdit;
Label4: TLabel;
SpeedButton1: TSpeedButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Query1: TQuery;
Query2: TQuery;
Query3: TQuery;
Query4: TQuery;
GroupBox1: TGroupBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses otsh, polik_un;
{$R *.dfm}
procedure TForm4.FormShow(Sender: TObject);
var s:string;
begin
getdir(0,s);
{query1.DatabaseName:=s+\'\\tab\';
query2.DatabaseName:=s+\'\\tab\';
query3.DatabaseName:=s+\'\\tab\';
query4.DatabaseName:=s+\'\\tab\';
}
with query3 do begin
close;
sql.Clear;
sql.Add(\'select * from doktor.db\');
open;
end;
with query3 do begin
first;
while not eof do begin
combobox1.items.add(fieldbyname(\'FIO\').AsString);
combobox3.items.add(fieldbyname(\'FIO\').AsString);
next;
end;
end;
with query4 do begin
close;
sql.Clear;
sql.Add(\'select * from pacient.db\');
open;
end;
with query4 do begin
first;
while not eof do begin
combobox2.items.add(fieldbyname(\'FIO\').AsString);
combobox4.items.add(fieldbyname(\'FIO\').AsString);
next;
end;
end;
end;
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
with query1 do begin
close;
with query2 do
begin
close;
sql.Clear;
sql.Add(\'insert into priem.db (doctor, pac, d_zap, vr_zap) values\'
sql.Add(\'("\'+combobox1.Text+\'","\'+combobox2.Text+\'","\'+datetostr(datetimepicker1.Date)+\'","\'+maskedit1.Text+\'")\');
execsql;
end;
sql.Clear;
sql.Add(\'select * from priem.db\');
open;
end;
hide;
end;
procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
hide;
end;
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
form5.quickrep3.preview;
end;
procedure TForm4.SpeedButton5Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.add(\'select doctor, d_zap, vr_zap from priem.db\');
open;
end;
dbgrid1.Visible:=true;
end;
procedure TForm4.SpeedButton6Click(Sender: TObject);
begin
if radiobutton1.Checked then begin
with query1 do
begin
close;
sql.clear;
sql.add(\'select pac, d_zap, vr_zap from priem.db where doctor="\'+combobox3.text+\'"\');
open;
end;
dbgrid1.Visible:=true;
form5.qrlabel15.Caption:=\'Пациент\';
end;
if radiobutton2.Checked then begin
with query1 do
begin
close;
sql.clear;
sql.add(\'select doctor, d_zap, vr_zap from priem.db where pac="\'+combobox4.text+\'"\');
open;
end;
dbgrid1.Visible:=true;
form5.qrlabel15.Caption:=\'Дәрігер\';
end;
end;
procedure TForm4.SpeedButton4Click(Sender: TObject);
begin
hide;
form1.show;
end;
end.
unit prog_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls;
type
TForm2 = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
Panel1: TPanel;
Panel2: TPanel;
DBNavigator1: TDBNavigator;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormShow(Sender: TObject);
var s:string;
begin
{getdir(0,s);
form2.query1.databasename:=s+\'\\tab\';
with form2.Query1 do
begin
close;
sql.clear;
sql.add(\'select * from priem.db\');
open;
end;
//form2.DBGrid1.DataSource:=datasource1;}
end;
end.