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

ТАРАУ 1. ҚҰРЫЛЫС МАТЕРИАЛДАРЫН ЕСЕПТКЕ АЛУ ҚОЙМАСЫН АВТОМАТТАНДЫРУ ПРОЦЕССІ
1.1 Құрылыс материалдарын есепке алу қоймасындағы процесстерді автоматтандыру жүйесін жобалау
1.2 Құрылыс материалдарын есептке алу қоймасының жұмысын автоматтандыру
жүйесін жобалау түрлері
1.3 Іс қағаздарда қолданылатын негізгі құрылғылар
ТАРАУ 2. ҚОЙМА ЖҰМЫСЫН АВТОМАТТАНДЫРУ ОРТАСЫ
2.1 Мәліметтер қорының классификациясы
2.2 МҚБЖ функциясы, мәлiметтер қорының басқару жүйесi
2.3 Сұранысты ұйымдастыру әдiстерi және түрлерi
2.4 Бағдарламалық өнімді сипаттау
3. ҚҰРЫЛЫС МАТЕРИАЛДАРЫН ЕСЕПТКЕ АЛУ ҚОЙМАСЫНЫҢ ЖҰМЫСЫН АВТОМАТТАНДЫРУ
3.1. Программалық өнімді құру ортасын таңдау және негіздеу
3.2. Мәлімметтер қорының құрылымы
3.3. Бағдарламаның сипаттамасы
4 ТАРАУ. ЕҢБЕКТІ ҚОРҒАУ ЖӘНЕ ТЕХНИКАЛЫҚ ҚАУІПСІЗДІК МӘСЕЛЕСІ
5 ТАРАУ. БАҒДАРЛАМАНЫҢ ЭКОНОМИКАЛЫҚ ТИІМДІЛІГІ
ҚОРЫТЫНДЫ
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМДЕРІ
Қойма жұмысын, оның ішінде іс қағаздарын автоматизациялау қазіргі заман өндіріс практикасында елеулі орын алады. Ол көптеген мамандар қызығушылығын туғызып отыр.
Қазіргі өндіріс ақпарат сақтау қоймалары емес, олар мемлекет пен қоғамның өркендеу дәрежесінің көрсеткіштерінің бірі болып табылады. Құрылыс материалдарын есептке алулардың жұмысын басқару, мәліметтер қорының басқару жүйесін басқару негізгі жұмыстардың бірі болып табылады, сондықтан дипломдық жоба жұмысы үшін мәліметтер қорымен жұмыс жасау тақырыбы қарастырып отыр.
Көрініп отырғандай құрылыс материалдарын есептке алуны автоматизациялау бұл жағдайдың актуализациясына көмектеседі. Осыған орай құрылыс материалдарын есептке алу жұмысы жүйесі автоматизациялауды өңдеу принциптерін құру және эффективті функциялау мемлекет пен қоғамның қатысына тәулді маңызды мақсаттың бірі. Өзіміздің елде және басқа елдердегі құрылыс материалдарын есептке алу жүйесін автоматтандыруды жобалау және эксплутациялау тәжербиесіне қарамастан, бізде әдейі осы түрдегі ақпараттық жүйені құратын, дайындалған мамандардың жоқтын қасы. Бұл мақсаттың негізгі аспекттері болып максимальды технологиялық және программалық – ақпараттық қамсыздандыруды біріктіріп өңдеу және қолдану.
Қоғамымыздың ғылыми техникалық прогресінің негізгі бағыты болып - өндірістер, кәсіпорындар, тағы басқа әртүрлі ауданда технологиялық процестерді автоматизациялау жұмыстарын комплексті жүргізу.
Айтылған проблемалардың барлығы көптеген білім, техника, өндірістік және шаруашылық кәсіптер, тағы басқа салаларына байланысты. Негізінен осы салаларда бірнеше ондаған жылдар бойы автоматизацияланған басқару жүйесін (АСУ) белгілі процесстер бойынша эффективті қолданып келді.
Менің дипломдық жұмысымда технологиялық процесстерді құрылыс материалдарын есептке алу қызметкерлерінің қолдануы мақсатында қазіргі заманғы технологиялық құралдарды дамыту, оқып үйренуге негізделген.
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМДЕРІ

1. Б.И. Лойка, И.Т. Трубилин, Т.П. Барановская, «Автоматизированные информационные технологии в экономике», Москва:Финансы и статистика. 1999 г.-578 с.
2. В.А. Благотатских, М.А. Енгибарян, Е.В. Ковалевская и др., «Экономика, разработка и использование программного обеспечения, Москва: Финансы и статистика». 1998 г.-500 с.
3. В.В.Шураков, “Автоматизированное рабочее место для статистической
4. В.Гофман, А. Хомоненко .Delphi 6, bhv, Санкт-Петербург. 2001г – 1112 с.
5. В.М. Жеребин, В.Н. Мальцев, М.С. Совалов, «Экономические информационные системы», Москва: Наука, 1978 г.-200 с.
6. Г.А. Титоренко, «Автоматизированные информационные технологии в налоговой и бюджетной системах», Москва. 2001 г.-257 с.
данных», Москва:Нолидж. 2000 г. – 989 с.
7. И.Л.Кантарь, “Автоматизированные рабочие места управленческого аппарата». 1990г. – 457 с.
обработки данных”. 1990г. – 232 с.
8. П.А. Романовский, Н.В. Врублева, «Налоги и налогообложение», Москва:Финансы и статистика. 2001 г.- 489 с.
9. П.В. Шумаков, В.В. Фаронов, «Delphi 5 руководство разработчика базы
10. Под ред. Г.А. Титоренко, «Компьютерные информационные системы управленческой деятельности», Москва: Экономическое оборудование. 1993г.-350 с.
11. «Предприятия и организации в Республике Казахстан»: Основные законодательные акты. – Алматы, 2001 г.
12. Қазақстан Республикасының «Кәсіпорындар және кәсіпорындық қызмет туралы» заңы. 31.08.95ж.
13. Батракова Л.В. Экономический анализ деятельности коммерческого предприятия: - Москва, 1995 г.
14. Лаврушин О.И. Основы предпринимательсокго менеджмента: - Москва, 1995 г.
15. Лаврушин О.И. Предпринимательское дело: - Москва, 1999 г.
16. Мажитов Д. Проблемы устойчивости предпринимательской системы Казахстана // Азия, 1997 №19; №20.
17. Питер С. Роуз. Предпринимательский менеджмент: - Москва, 1995 г.
18. Сейткалимов А.Г. Управление предпринимательской ликвидностью и методы её анализа: - Алматы, 1998 г.
19. Стоянова Е.С. Финансовый менеджмент: - Москва, 1998 г.
20. Шеремет А.Д., Щербакова Г.Н. Финансовый анализ в коммерческом предприятия: - Москва, 2000 г.
21. Шойбеков Р., Қазбеков М. Русско-казахский словарь: - Алматы, 1996 г.
22. Кәсіпорын жүйесінде қолданылатын терминдер сөздігі / Құраст.: Ә.Сембина, Б.Назыкеева, - Алматы, 1995 ж.
23. Управление коммерческим предприятиям в условиях переходной экономики // Финансы и кредит, 2000 г. №7, с51-59.
24. Архангельский А.Я. «Программирование в Delphi 6» издат. Бином – 2003г.
25. Симонович С.В. «Информатика, базовый курс» издат. Питер – 1999г. Санкт-Петербург
        
        Кіріспе
Қойма жұмысын, оның ішінде іс қағаздарын автоматизациялау қазіргі заман
өндіріс ... ... орын ... Ол ... ... ... отыр.
Қазіргі өндіріс ақпарат сақтау ... ... олар ... ... ... дәрежесінің көрсеткіштерінің бірі болып табылады. Құрылыс
материалдарын есептке алулардың ... ... ... ... ... ... негізгі жұмыстардың бірі ... ... ... жоба ... үшін ... ... ... жасау тақырыбы
қарастырып отыр.
Көрініп отырғандай құрылыс материалдарын есептке ... ... ... актуализациясына көмектеседі. Осыған орай ... ... алу ... ... ... өңдеу
принциптерін құру және эффективті функциялау мемлекет пен қоғамның қатысына
тәулді маңызды мақсаттың бірі. Өзіміздің елде және ... ... ... ... алу ... ... ... және
эксплутациялау тәжербиесіне қарамастан, бізде әдейі осы ... ... ... ... ... ... ... Бұл мақсаттың негізгі
аспекттері болып максимальды технологиялық және программалық – ақпараттық
қамсыздандыруды біріктіріп өңдеу және ... ... ... прогресінің негізгі бағыты болып -
өндірістер, кәсіпорындар, тағы басқа әртүрлі ... ... ... жұмыстарын комплексті жүргізу.
Айтылған проблемалардың барлығы көптеген білім, техника, өндірістік және
шаруашылық кәсіптер, тағы ... ... ... ... ... бірнеше ондаған жылдар бойы автоматизацияланған басқару жүйесін
(АСУ) белгілі процесстер ... ... ... ... ... жұмысымда технологиялық ... ... ... алу ... ... ... ... технологиялық құралдарды дамыту, оқып үйренуге негізделген.
Тарау 1. ҚҰРЫЛЫС МАТЕРИАЛДАРЫН ЕСЕПТКЕ АЛУ ҚОЙМАСЫН АВТОМАТТАНДЫРУ
ПРОЦЕССІ
1. Құрылыс материалдарын ... алу ... ... жүйесін жобалау
Қазіргі заман қоймасы – ақпараттық, мәдени ағарту, кей ... ... ... ... ... ... мәдениет, білім кәсіптерінің ... ... ... Ол ... ұқсас процестер мен тармақтардың
ішкі және ... ... ... өте ... құрылым. Құрылыс
материалдарын есептке алу қызметкерлері – құрылыс материалдарын есептке
алушы кәсібіндегі негізгі ... Ал ол ... ... ... ... қолданушыға керекті субьект «қолданушы» ұғымы «оқырман» түсінігін
беред, «МБА абоненті» - «қатысушылар», яғни ақпараттық орталықтармен ... ... ... ... ... ... олардың функциялармен өкілеттіліктері бөлінген
бір бірімен қатысты бөлімдердің жиынтығы. Құрылым құрылыс материалдарын
есептке алу ... ... ... ... фондының үлкендігінен,
қызметкерлер қызмет ету сипаттамасы мен ... ... ... ... ішкі ... ... (бөлме, материалдық – техникалық
база, жұмысшылар, фонд және тағы басқалар) ғана емес сыртқы макро ортаға да
(оқырмандар, басқа құрылыс ... ... ... мен ақпараттық
орталықтар, жоғарыдағы администрация, жеке адамдар мен ұйымдар және тағы
басқалар) байланысты. ... әдіс – ... ... құрылыс
материалдарын есептке алу – бұл өзінің құрамында көптеген ... ... ... шара ... ... ...... және адам ресурстар қолданушыларды керекті ақпаратпен қамтамасыз
ететін бір жерде жиналған ... бар ішкі және ... ... ... ... яғни ... Бұл ... келісе отырып құрылыс
материалдарын есептке алу «күрделі ... ... ... ... ... - ... ... есептке алулар жеке зерттеу обьектісі
болып табылмайды, дәрілер, құрылыс материалдарын ... алу және ... ... ... құрады», - деп қате ойлайды. ... ... ... ... есептке алу ісімен оны автоматтандыру
процесстерінің дамыту талаптарына ... ... ... ... алу ... ... ... (бұл
жағдайда компьютерлік және телекомуникациялық технологиялар) тек уақыт
ағымы емес. Бұл жағдайда автоматтандыру екі ... ... ... практикалық қолдану.
2. Құрылыс материалдарын есептке алу қоймасының жұмысын
автоматтандыру
жүйесін жобалау ... ... ... ... қоймасы жұмысына автоматизацияны
жүргізу үшін оған зерттеу жүргізу барысында ... ... ... ... Бұл ... ... жүргізу керек шараларды бекітеміз: құрылыс
материалдарын ... ... ... ... жоба ... ... эксплутация жүргізу. Бұл жұмыста ұйымдастырылған жобалау
арқылы жүргізуге болады.
Обьектті жобалау – оның модельдерін жүргізу ... ... ... ретінде текстік, графикалық және тағы ... ... ... жоба тек ... ... есептке алу жұмысшыларына ғана емес,
оны қаржыландыратын адамдарға да қажет.
Жобалаудың бірнеше түрі бар: ... ... ... ... жоспарлау, календарлық және жоспарлау.
Бірінші әдіс. Негізгі жұмыстарды жоспарлау. ... ... ... мен кәсіптің түрлері көрсетілген, мақсаттарға жету мерзімдерін
бекітеді.
Бұл әдіс мысалы: № 1 – ші кестеде ... ... ... ... ... ... алу |Жұмыс орындары мен кабельдік |
| ... құру ... ... Жұмысшыларды ПК|
| | |– да ... ... ... ... |ПО АИБС – ны алу ... ПО – да ... ... |
| | ... ... ... – мен ... ... ... |
| | ... ... ... ... ... ... ... – анық мерзім мен жұмыстардың
негізгі түрлерін көрсетеді. Бұл мысал 3 – суретте көрсетілген.
|2005 мамыр |2005 ... |2005 ... ... |20 |27 |3 |10 |17 |24 |1 |
| ... – ға ... жаңа ... ... |
| | | | |
| | | | | |
| | | | | | |
| | | | | | | | ... ... ... ...... ... ұқсас, бірақ кәсіп
түрлерінің орнына мерзім және период тізімі көрсетіледі.
Төртінші әдіс. Желілік жоспарлау – ... ... ... жұмыс этаптары
мен олардың арасындағы ішкі байланыс. Бұл әдіс ... ... ... мен ... ... ... Негізгі фактордың бірі болып жер жүзіндегі
барлық ... ағым ... ... ... ... ... ... ақпаратты жылдам және бір уақытта алу;
2. қолданушылар қажет етпейтін ақпарат ағымынан ... ... ... ... ... алу ... ... құрылыс материалдарын есептке алулық жүйе - адам -
машиналық жүйе болып табылады. Мына ... ... жөн: ең ... ... және ... ... жоспарланып отырған
шаралардың технологиялық өңдеуден өткізбей автоматтандыру мүмкін емес.
1.3 Іс қағаздарда қолданылатын негізгі құрылғылар
Құрылыс материалдарын ... ... ... ... ... Автоматтандырылған телефондық, телеграфтық байланыс,
фототелеграф.
2. Диспетчердің және ... ... ... ... ... және т.б.
Кәсіпорындарда телефондық станцияны пайдалану жоғарыда айтылып ... ... жай, ... кезде офистік радио телефондық жүйенің пайда болуы.
Олар ... ... ... (32 ... ... ... тұрақты байланысын қамтамасыз етеді, кәсіпорын территориясында
базалық блоктан бір километрге дейін, яғни ... ... ... ... ... ... саны отыз алтыға ... саны – ... ... ... ... ... ... кітаптарды алу,
кафедраға беру, құжаттарға ... ... ... ... және ... ... ... басқару үшін және тағы
басқа үшін бір жақты немесе екі ... ... ... ... ... ... – почта, факс, ЭЕМ және басқа оргтехника құралдары
қолданылады. Айтылып ... ... ... ... ... байланысын иемденген.
Радиофикация, үн күшейткіш және үн жазу ... ... ... және ... ... ... ... көрмелер немесе мәдени шаралар, төтенше жағдайлар және тағы басқа.
Үшіншіден, бұл құрылғылар мәдени ... және оқу ... ... ... ... сүйемелдеу үшін. Сонымен қатар
орындауларды жазу үшін қажет.
Үн күшейткіш аппаратурасына ... ... үн ... ... ... тасымалдаушылар жатады.
Үн шығару және жазу аппаратурасына теледидарлар, бейне магнитафондар
және ... ... ... Аппаратураны таңдау әртүрлі ... ... ... оқырмандар саны, күнделікті және соңғы сұраныстар
және тағы басқалар.
Ақпаратты қазіргі замандағы тасымалдаушыларға көшіру оның сақталуын ... ... ... ... етеді.
Компактты лазерлік дискілер (Compact disc – Read Only Memory, CD ROM)
бастапқы ... ... ... үн тыңдармандарына жасалған. 1985 ... ... бар CD ROM ... ... Олар ... ... етек жайып, көптеген кітапхана фондын толтыруда. ... CD ROM саны ... ал ... - 1100 – ден ... кіші ... ... сыйымдылығының сенімділігі мен көп
жылдамдығыныңарқасында ішкі есте ... ... ... ... CD ROM құрылғысының болуы дискілерді қолдануға, музыка
тыңдауға, әртүрлі МҚ – мен және ... ... ... ... ... және тағы басқа мүмкіндіктер береді.
CD ROM технологиясы үлкен массивті мәтіндік, графикалық, аудио ... ... ... және шығаруға мүмкіндік береді. Сонымен қатар
олар үнемі өңдеп ... ... ... ... ... ... ... мен жолсілтеушілер, күнделікті және тағы басқа
жүйелерді үйрететіндер. Кітапханада олар толық мәтіндік ... ... және ... ... қоры түрінде қолдануға қолдау
алды.
Қарапайым компакт дискілер құрылғылар иілгіш дискілер ... ... бұл ... ... ... ... емес.
Тасымалдаудың жай жылдамдығы дискінің өзіндегі мәліметтердің ... ... ... олай болмаған жағдайда ... ... 0,75 ... ... жетеді. Айтып кететін жағдай
компакт дискілер 150 мың ... бет ... ... ол жеті ... ... 2. ... ... АВТОМАТТАНДЫРУ ортасы
1. Мәліметтер қорының классификациясы
Ақпараттар жүйесінің негізі, оның зерттеу ...... ... қоры ... не? ... қоры – ... айтқанда, нақты
өмірдегі қайсібір ... ... ... ... ... ... синонимі - “мәліметтер банкі”.
Қордағы мәліметтерді тез және сапалы іздеу ... бұл ... ... керек. Компьютерлік мәліметтер қорын құрудың
бірнеше әдістері бар:
Алгоритмдік ... ... ... (Pascal, C++, ... әдіс әмбебаб мәліметтер қорын құру үшін қолданылады.
Қолданбалы орта көмегімен, мысалы Visual Basic. Бұл әдіс арқылы
қайсібір жеке талаптар қойылған мәліметтер ... ... ... программалық орта көмегімен. Ол мәліметтер қорын басқару
жүйесі деп аталады (МҚБЖ).
Қазіргі кезде МҚБЖ – ның ... ... ... ... ... ең ... Access, FoxFro және Paradox.
Мәлiметтер қорын басқару жүйесi (МҚБЖ) мәлiметтер құрылымы типтерiнiң
бiрiне ... ... ... ... ... МҚБЖ, реляциялық МҚБЖ
болып үшке бөлiнедi.
МҚБЖ – программалық жабдық, оның ... МҚ ... ... ... ... ... ... жүйесi (АIЖ) құрылады және жұмыс
iстейдi. ... ... ... ...... қорының жиынтығы
және оларға қызмет көрсетушi бағдарламалар.
Кез-келген ... қоры ... ... ... ... реляционды моделінің негізінде қатынастар (relation ... ... ... ұғымы жатыр. Егер белгілі шарттарды орындасақ,
қатынасты екі өлшемді кесте түрінде берген ыңғайлы ... ... ... ... ... ... ... табылады.
Мәліметтер қорының модельдері. Мәліметтер қоры бір ғана немесе бірнеше
модельдердің қосындыларынан тұруы мүмкін. Кез ... ... ... қасиеттерімен мінезделінетін обьект ретінде қарастыруымызға болады,
сәйкесінше осы обьектке қандай да бір амалдар қолдануымызға болады.
Мәліметтер моделінің үш ... ... ... ... ... ... және желелік.
Реляционды модель. Реляционды моделінде (латын сөзі relatio - қатынас)
– құрама бөліктері арасындағы қатынасы ... ... ... ... ол – екі өлшемді массив немесе кесте болып табылады, ал
күрделі ақпараттық жүйелерді құру кезінде ... ... деп ... ... кестенің әрбір жолы – жазу ал, ... - өріс ... ... қоры ... ... ие болады:
• Кестенің әрбір элементі – мәліметтің бір элементі;
• Кестедегі барлық өрістер бір типті;
• Әр бір өріс әмбебаб атқа ие;
... ... ... жоқ;
• Кестедегі жазулар реті өзгермелі немесе берілген өлшемді ... ... ... ... ... моделі төңкерілген
ағашқа (граф) ұқсайды. Себебі, ... ... ... ... элементке
бағынады. Берілген модель – деңгей, байланыс және ... ... ... Модельдің принципы келесідей: бірнеше кіші
түйіндер өзінен үлкен ... ... МҚБЖ ... ... ... ... жүйесi
МҚБЖ – мәліметтер қорын құру, жүргізу және қолдануға арналған тілдік және
бағдарламалық құралдардың жиынтығы. ... ... ... МҚБЖ ... ... ... деп бөлінеді. Дербес МҚБЖ бір компьютерде ... ... ... қорын құруды қамтамасыз етеді. Дербес ... dBase, FoxPro, Access т.б. ... ... ... МҚБЖ ... архитектурасында жұмыс істейтін ақпараттық ... ... ... ... ... ... Oracle, ... Microsoft
SQL, Server, Informix және т.б жатады. МҚБЖ-ң негізгі үш функциясын бөліп
көрсетуге болады.
• Мәліметтерді ... (Data ... – сіз ... ... ... ... сақталатынын анықтай аласыз, мәліметтер
құрылымын және типін, сонымен қатар бұл мәліметтер бір-бірімен ... ... ... ... ... сіз, ... ... тексеру форматы мен критерийін бере аласыз;
• Мәліметтерді өңдеу – мәліметтерді әр ... ... ... болады.
Мәліметтерді онымен байланысқан басқа бір ақпаратпен байланыстырып,
нәтиже мәнін есептеуге болады;
... ... – с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зу үш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меттер (TEXT). Текстiк мәлiметтердiң мәндерi алфавиттi-
цифрлi символдардан тұрады және ұзындығы 255-тен аспауы керек;
... ... ... Бұл ... ... ... ... орындауға болады. Сандық мәлiметтер ұзындығы бүтiн
сан болса 2 байт, бөлшек сан болса жылжымалы нүктелi сан ... ... орын ... ... және ... ... санда нүктемен ажыратылады.
• Дата немесе уақыт типi (DATE/TIME). Дата типi ... бiр ... ... кк.аа.жж (күн, ай, жыл). Алғашқыда бұл текстiк
мәлiметтiң бiр ... ... ... ... ... ... ... қолданудың ерекшелiктерi бар.
• Жүйе қатты бақылау жүргiзу мүмкiндiгiн алады;
• Автоматты түрде датаны әр ... ... ... ... ... Программалау барысында даталарға арифметикалық ... ... ... ... ... Бұл ... мәлiметтерiн булевтiк деп
атайды және мәндерi TRUE немесе FALSE (шартты түрде 1 немесе 0) ... ... ... ... ... ... интерпретацияланады.
• OLE обьектiсiнiң алаңы. Бұл ең бiр қызықты типтердiң бiрi болып табылады.
Бұл ... мәнi ... OLE ... кез ... болуы мүмкiн (егер
компьютерде болса) – графика, дыбыс, видео.
• Қолданушының типi. ... ... ... өздерiнiң типiн
жасауға мүмкiндiк бередi. Мысалы: “апта күнi” ... ... ... “адрес” (пошта индексi-қала-және т.б).
2.3 Сұранысты ұйымдастыру әдiстерi және түрлерi
Сұрау (запрос) – ... бiр ... ... ... болып табылады.
Сұрау бiр немесе бiрнеше кестелерден құрылады. Сұраудың нәтижесi таңдау
(выборка) деп аталады. Мәлiметтер ... ... ... ол ... ... ... жаңадан құрылады да оны жапқанда ... ... ... үшiн бiрiншiден, қандай ақпарат керек болып
тұрғандығын; одан ... ол ... қай ... сақталғандығын бiлу керек.
Сұраныстың негiзгi типтерi:
• Стандартты таңдаулар;
... үшін ... Қосу үшін ... ... ... жазбаларды немесе ағымдағы
мәліметтер қорындағы сұранысты басқа кесте соңына қосуға болады;
• Жою үшін ... ... үшін ... ... ... ... ... жағдайға өзгертуге болады;
• Жаңа кесте құру үшін сұраныс;
• Параметрлік сұраныс. Көбіне пайдаланушыға құрылған сұраныс ... ... ... ... тура ... бірақ кей жағдайларда таңдау
кезінде біршама ... ... ... жағдайда, қайта-қайта жаңадан
сұранысты баса бермес үшін, сұранысты параметрімен құру керек.
• Сұраныстың тоғысуы берілгендерді көрнекті, кросс - ... ... ... ... ... ... ... жазбалар мен
топтық есептеулерді жүзеге асырады.
2.4 Бағдарламалық өнімді сипаттау
Бағдарламалық өнімді ... ... ... ... ... Ол үшін, жасалынатын ақпараттық жүйені жетік тексере білуіміз керек.
Проект ... ... ... олардың әр қайсысының өз қызметтері бар.
Ақпараттық жүйе екі түрлі қодданушыға арналған: администратор және гость.
Мұнда «гость» ... ... тек ... ... іздеуге мүмкіндік береді.
Ал «администратор» арқылу кіру, сонымен қатар мәліметтер қорын өзгертуге
болады.
Бұл терезедегі ... ... ... қорына жаңа
кітаптар енгізуге көмектеседі.
3. ҚҰРЫЛЫС ... ... АЛУ ... ЖҰМЫСЫН АВТОМАТТАНДЫРУ
3.1. Программалық өнімді құру ортасын ... және ... ... өнім - ... ... ... кең тараған
дербес ЭЕМ қажет етеді. Толығырақ айтсақ, INTEL ... ... ... ... ДЭЕМ – Intel Core- ге ... әр ... PC/AT
модификацияларын айтамыз. Қазіргі кезде PC/XT ... ... ... ... ... ... ... да бір талап
қою міндетті емес. Себебі, қазіргі моментте стандартты ... ... ... ие, ... ... кез келген программалық өніммен жұмыс
жасауға оперативті жады көлемі жеткілікті. Программалық ... ... ... кеңістігі өте үлкен болуы қажет емес. Алайда дұрыс ... үшін ... ... ... ... ... беретін
техникалық құралдар жиынтығы қажет. Ескере кететін жай- ... өнім Windows ... ... ... басқа
операциялық жүйелерде жұмыс істемеуі мүмкін.
Программалық өнімді құру кезінде құру ортасын таңдауда келесі факторлар
ескерілді:
● Нақты ортада ... ... ... ... ... көп ... Программалық өнімді құру үшін инструментальды құралдардың бар болуы;
● өнімді қолдану барысында программалық өнімге ... ... ... ... ... ... ... бар болуы;
● Программаның орындалу жылдамдығы;
● Программаның орындалу қауіпсіздігі жєне программалық ... ... жүйе ... Windows ... процессінің қиындылығына қарай отырып, операциялық жүйе таңдау
кезінде Windows жүйесі берілген жоба үшін ... жүйе ... ... ... ... ... Сонымен қатар, DOS ортасында программалық ... ... өте ... болады. Дегенмен, Windows операциялық
жүйесіне тоқтадым.
Программалау жүйелерінің ... мен ... ... ... да ... Delphi, VisualBasic, C++ Builder (Windows)
және Turbo Pascal, C++, qBasic (DOS) сияқты программалау ортасы бар екенін
білеміз.
Алдында ... ... ... ... Windows ... ... Соған байланысты осы ортада жұмыс жасайтын программалау
тілін таңдау қажет болды. Барлық тілдерді ... ... ... ... таңдадым.
Delphi – кез келген бағыттағы және қиындықтағы программалық ... ең ... ... ... Бұл ... ... орташа жұмыс
жасайтын адамға дейін толыққанды өнімді жасауға көмектеседі, ал ... адам үшін ... ... ... ... тіл.
Delphi ортасында өндіру процессін барынша жеңілдетуге болады, ... ... ... ... ... ... ... қолданбай жасауға
болады.
Программаның экрандық интерфейсі көп жағдайда қолданушыға әсер етіп,
оның жұмыс қарқындылығын ... ... ... ... ... ... дәл және тез орындайтын программа - қолданушымен ... ... ... ... ... мүмкін. Сондықтан бұл мєселеге де
көп көңіл бөлінуі тиіс.
Дельфи тілінде құрылған программада Windows – тың стандартты ... Windows – тың ... ... ... өте жеңіл және ол
оңай құрылады.
Программаның дизайны - оны ... ... және ... көмек
беруі тиіс. Сонымен қатар дизайн жобалау процессінің алғашқы ... ... ... Дизайн – жобалаудың бір бөлігі, дизайнды жүйелеп
жобалау оның келесі қадамдарын анықтауға көмектеседі.
Программаның ... ... ... ... және ... ... бөлген дұрыс. Себебі, визуальды орта нақты ортаға қарағанда
өзгеше, бізге түстер ... осы ... ... ... ... ... ... Адам баласы нақты түстерді шағылу сәулелері арқылы қабылдайды, ал
экрандағы ... ... ... тұрады. Сондықтан ... ... ... ... ... құрылымы
Бағдарламадағы мәліметтер қоры DB_TOVAR.MDB файлында сақталынады және
үш кестеден тұрады.
Тауарлар туралы ... oblast ... ... ... ... тұрады:
| Өріс аты | Мәліметтер типі | ... |
| Id ... ... ... |
| | ... |
| tovar | ... ... ... ... кірісі туралы мәліметтер prihod кестесінде сақталынады ... ... ... Өріс аты | ... типі | ... |
|Id ... ... ... |
| | ... ... ... ... ... ... |
| | ... ... ... ... куні ... ... ... саны ... |Ақша ... ... ... ... ... ... ... шығысы туралы мәліметтер rashod кестесінде сақталынады және
төмендегідей құрылымнан тұрады:
| Өріс аты | ... типі | ... ... ... ... ... |
| | ... ... ... ... кестесімен байланыс |
| | ... ... ... ... куні ... ... ... саны ... ... ... ... ... ... ... ... ... ... ... құрылған.
3.3. Бағдарламаның сипаттамасы
Қосымшаларды құру үшін Delphi 6 бағдарламалау ортасын қолданамыз. Ол үшін
әр түрлі ... ... ену ... ... ... BDE мәліметтер қоры процессоры
– «Microsoft Access» мәліметтер қорын басқару жүйесімен жұмыс ... ... ... ... ... ... ... яғни «Microsoft Access» мәліметтер ... ... ... ... үшін арнайы компоненттерді қолданамыз. Бұл
компоненттер жоғарғы көрсеткіштерді қамтамасыз ететін «Microsoft ... ... ... ... ... API-ін қолданады.
Мәліметтер қорымен жұмыс істейтін барлық компоненттерді ... ... ... ... ... үшін ... ... Ал, мәліметтер қорының кестесіне ену үшін TADOtable
компонентін қолданамыз.
Бағдарлама жүктелгеннен кейін негізгі терезе экранға шығады ... Ол ... ... мен ... мәзірінен тұрады. Барлық әрекеттер
негізгі мәзір және құралдар панелі ... ... ... ... ... ... ... негізгі мәзірі:
– Негізгі – тауарлардың кірісін және ... ... ... №, ... ... ... саны және бағасы бойынша сұрыптау
және жоқ пункті бойынша сұрыптауды алып тастау;
– Фильтрациялау- №, ... ... ... саны және ... ... және жоқ ... ... фильтрациялауды алып тастау;
– Анықтама – тауарлар тізімін көрсету, қосу, өзгерту;
– Программалау туралы – программа құрушы туралы мәлімет ... ... ... ... ... қажет. Ол үшін анықтама->
тауарлар пунктісін басып келесі ... ... ... ... ... енгізу
Өзгерту немесе Өшіру батырмалары арқылы деректер қорына ... ... ... ... ... ... болады.
Тауардың келуі батырмасын басу арқылы тауар кірісін тіркейміз. Кіріс
күнін компьютерде орнатылған күннен алады, сондықтан программа ... ... үшін ... күн дұрыс болуы қажет.
3.3- сурет. Тауар кірісін енгізу
Сату батырмасын басу ... ... ... ... ... ... тауар кірісі терезесіндей.
3.4- сурет. Тауар шығысын енгізу
Пайда батырмасы арқылы түскен пайда тізімі есеп түрінде ... ... ... ... батырмасы арқылы қоймада қалған мүліктердің саны көрсетіледі.
Баспа батырмасы арқылы Тауардың кірісі / шығысы есеп түрінде бейнеленеді.
4 ТАРАУ. ЕҢБЕКТІ ... ЖӘНЕ ... ... ... қолданушысы ДЭЕМ жұмысының зиянды әсерін тартады, ... ... орны ... ... және қауіпсіз шарттарына жауап
беруі тиіс.
Осыған байланысты, ... ... осы ... ... жұмыс
орнының зиянсыз және қауіпсіз ... ... ... ... ... құру ... ... жұмыс істейтін құрушыға
тұрақты немесе периодты түрде ... ... және ... ... ... ... ... зиянды заттармен, шаңмен, микроорганизмдермен ластануы;
2. микроклимат параметрлерінің нормаға сәйкес келмеуі;
3. монитор экранында статикалық зарядтардың пайда ... Ол ... ең ... ... ... ... ... етеді. Ал ең
жақын зат көбінесе құрушының беті болып шығады;
4. жұмыс орнында ... ... ... ... ... ... жұмыс орнындағы статикалық электрдың жоғары
деңгейі;
6. электр желісі;
7. дисплейдің шығаратын рентген, ультракүлгін, ... ... ... да ... ... толқындар;
8. иондайтын сәулелердің (жұмсақ рентген, гамма-сәуле) жоғары деңгейі;
9. табиғи жарықтың болмауы немесе жетіспеушілігі;
10. жарықтың өте көп болуы;
11. ұзақ ... бір ... ... бір ... ... ... жүктер” синдромына алып келеді;
12. жұмыс орнының дұрыс ұйымдастырылмауы;
13. құрылғылар характеристикаларының нормаға жауап бермеуі;
14. өңделетін ақпаратты үлкен ... көру ... ... ... ... ... ... және психологиялық жүк;
17. өрт шығу қауіптілігі.
ДЭЕМ орналасқан жұмыс ... ... ... ... өте ... ... төмен болуына және жарықтың жыпылықтауына кеңірек
тоқталайық.
ДЭЕМ-мен жұмыс кезінде қолданушының көру мүшелеріне өте көп кұш ... бұл өз ... көру ... және ... нерв ... ... алып келеді.
Көру анализаторының қызметінің бұзылуы көру қабілетінің нашарлауынан,
анық көрмеуден, аккомодациядан білінеді.
Көру ... ... ... ... көру ... ... ... қарауы; обьектінің және фонның түсінің, көлемінің үнемі
өзгеріп тұруы; экрандағы ... ... мен ... ... ... ... жолдық түрі; тұрақты жыпылықтау; жарық
ағындарының клавиатураға және экранға шағылысуы; жұмыс беті мен ... ... ... ... болуы; қағаздағы бастапқы
ақпараттың анық болмауы; ... ... ... және ... ... ... ... монитор экранынан ақпаратты
қабылдауының ерекшеліктері бар:
қолданушының көру мүшелері қадалған монитор экраны оны ... ... ... ұзақ уақыт монитор алдында ... ... күш ... ол ... ... алып ... ... ұзақ уақыт ақпаратты қабылдауы баспа
ақпараттарына қарағанда қолайсыз,
монитор экрандағы ақпарат белгілі бір жиілікте жаңаланып тұрады,
сондықтан ... ... ... ... ... ... ... алдын алу және әсерін төмендету. ДЭЕМ- мен жұмыс
кезінде қолданушының көру ... ... ... ... үшін ... ұстану қажет. ДЭЕМ-мен жұмыс кезінде қолданушы объектінің өлшемі
0,3-0,5 мм (экрандағы символдың қалыңды-ғы), экран фоны ... ... ... түс ... қажет. Табиғи жарық 2%, аралас жасанды ... ... 200лк ... 400лк –ні ... ... орнының жасанды жарықтануының негізгі талаптары
Жұмыс орнының жарықтану жүйесіне келесі негізгі талаптар қойылады:
жұмыс ... сай ... ... жарықтану деңгейі;
жарықтың жұмыс бетінде және қоршаған заттарға біркелкі бөлінуі;
қою көлеңке, ... ... ... ... тиімді бағытталуы қажет;
жұмыс орнының жасанды жарықпен жақсы ... ... ... ақпараттың жақсы көрінуін қамтамасыз етеді.
Осыған байлынысты күн ... ... ... ... ... қара ... ... дақтар болмауы қажет. ... ... ... лампалар
қолданған жөн.
Жасанды жарықтандыруды есептеу. Мысалға, инженер – ... ... ... ... 5м; ені 4м; ... ... еден және ... боялған. Жарық ағынынығ әдісі келесі формуламен
жарық көздерінің санын анықтау болып ... - ... ... минимальді жарықтану нормасы;
-кабинеттің ауданы, =20;
- ... ... ... ... ... ... коэффициенті,
;
- люминесцентті лампалар үшін ... ... ... ... жарық ағыны, лм
- бір жарықтану көзіндегі лампа саны, ... ... ... ... келесі формуламен анықталады:
А және В – кабинеттің ұзындығы мен ені;
Мәндерді орнына қойғаннан кейін кабинеттің индексін табамыз:
Еденнің және төбенің шағылысу коэффициентін ... 0.75 және 0.50 ... ... ... және төбе мен ... ... тәуелді таблицадан жарық ағынының қолдану коэффициентін
табамыз.
Төменгі қысымды люминесцентті лампа типін таңдаймыз:
Лампа ЛТБ-20, ... ... 975 ... ... ... ... 1720 ... ЛТБ-40, жарық ағыны 3000 лм;
Барлық мәндерді қойып жарық ... ... ... ... ... ... Тиімдісін таңдау үшін келесіні
есептеуіміз қажет:
1.
2.
3.
бұдан, 2 вариант тиімді болатындығын көруге болады.
5 ТАРАУ. БАҒДАРЛАМАНЫҢ ЭКОНОМИКАЛЫҚ ТИІМДІЛІГІ
Дипломдық жоба ... үшін ... жүйе құру үшін ... өнім бұл ... ... ... жобалайды.
Сонымен қатар, бұл бағдарламалық өнім – орын ауыстыру және жұмыс жасау
жағынан өте жеңіл. Өніммен кез келген адам жұмыс ... ... ... ... ... Бұл ... жоба
бағдарламасының экономикалық тиімділігін есептеу қарастырылады. Ол ... ... ... қажет.
Таблица 2. Алғашқы мәліметтер.
|№ |Көрсеткіштер ... ... ... |
|1 ... ... ... |Ай |0,5 |
|2 ... ... ... уақыт |Ай |0,25 |
|3 ... ... құны ... |100 |
|4 ... ... ... ... |25000 |
|5 |Бір ... ЭЕМ – дегі ... ... |Сағат |3 |
|6 ... – ң ... ... ... саны |Күн |15 |
|7 ... ... күндер саны |Күн |22 |
|8 |Intel Pentium IV 2200 MHz - құны ... |120000 |
|9 ... ... ... |Тенге |30000 ... ... саны ... |1 ... ... – ң ай ... ... |Сағат |110 ... ... ... ... - алгоритмді жобалауға кеткен шығын;
- сипаттау және отладка шығыны;
- техникалық құралдар жиынтығын алуға ... ... ... ... шығын
Алгоритмді жобалау шығыны:
(2)
мұнда: - өндірушінің жалақысы;
У - өндіруге ... ... - ... ... ... 0,5 ай ... жұмсалынды, өндіруші жалақысы 25000 ... ... ... 1312,5 тг. ... ... жазу және отладка жасауға кеткен шығын
Шығын келесідей есептелінеді:
(3)
мұнда: - ... ... ... ... ... және отладка жасаудағы программистің жалақы
фонды;
(4)
мұнда: N – отладкаға кеткен уақыт;
- бір ... ... ... ... 0,25 ай уақыт жұмсалынды. Әлеуметтік қажеттілікке
аударымды қоса ... – ді ... 3 ... 15 күн ... ... жасалынды. Машина
уақытының бағасы 100 тг.
Машина уақыты:
(5)
мұнда: t – ЭЕМ – де бір күндік уақыт;
d – ЭЕМ – нің ... ... ... - ... уақыт құны;
(тенге).
Ары қарай, (3) – ші формула арқылы есептейміз.
(тенге).
Техникалық ...... ... ... ... ... жүйе ... визуальды моделіне жалғыз
компьютер жеткілікті. Pentium IV 2200/124/40 Gb/32 Mb video/CD-R ... 120 000 ... ... ... алуға кеткен шығынды (1) – ші ... ... ... ... ... ... ... Жоғары оқу орындарына оқу - әдістемелік бағдарлама ретінде
ұсынамыз. Бұл жоба ... ... ... ... ... береді.
Жоғарыда айтылғандай, жобаға кеткен шығын өте үлкен шама ... ... ... оқу ... ... онда бұл ... кез келген оқу
орындары ала – алатынын ... ... өз ... есептеу үшін, кеткен шығынды жобаны алатын оқу
орындары санына бөлуіміз керек.
ҚОРЫТЫНДЫ
Есептеуіш ... ... ... ... ... ... ... өміріне және оқу процесінде ... ... ... ... ... жоба ... және ... технология аймағындағы,
дәлірек айтсақ, олардың қосымшаларының адамзат ... ... ... ... шешуге арналған, яғни жаңа технологияларды қолданып,
жұмыс орнын автоматтандыру есебі қарастырылған.
Дипломдық жобаның негізгі ...... ... ... ... дипломдық жобаның өзектілігі: қойма қызметкерлерінің
жұмысын реттеу, ақпаратты өңдеу, толықтыру және іздеу жұмыстарын жеңілдету.
Мен ... ... ... алу ... жұмысын
автоматтандыру» атты дипломдық жобасын құру нәтижесінде автоматтандырылған
ақпараттық ... ... ... технология, ақпараттық жүйе,
оның құрылымын, сипатын ашып, анықтамасын беріп қарастырдым.
Дипломдық жобаны құру барысында “қойма автоматтандырылған жұмыс орны”
бағдарламасы құрылды. Бұл ... өнім ... ... ... ... және ... есептеу;
- пайда;
- қажетті есептерді беру.
Автоматтандырылған жұмыс орны ... ... ... жұмысын
жеңілдетеді және қағаздық жұмысты қысқартады.
Бұл бағдарлама Borland Delphi 6 ... ... және ... деректер қорын басқару жүйесін пайдаланып құрылған.
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМДЕРІ
1. Б.И. ... И.Т. ... Т.П. ... ... ... в экономике», Москва:Финансы и статистика. 1999
г.-578 с.
2. В.А. Благотатских, М.А. Енгибарян, Е.В. Ковалевская и др., ... и ... ... обеспечения, Москва: Финансы и
статистика». 1998 г.-500 ... ... ... ... ... для статистической
4. В.Гофман, А. Хомоненко .Delphi 6, bhv, Санкт-Петербург. 2001г – 1112 с.
5. В.М. Жеребин, В.Н. ... М.С. ... ... ... ... ... 1978 г.-200 ... Г.А. Титоренко, «Автоматизированные информационные технологии в
налоговой и ... ... ... 2001 г.-257 с.
данных», Москва:Нолидж. 2000 г. – 989 с.
7. И.Л.Кантарь, “Автоматизированные ... ... ... 1990г. – 457 ... данных”. 1990г. – 232 с.
8. П.А. Романовский, Н.В. Врублева, ... и ... и ... 2001 г.- 489 ... П.В. ... В.В. ... «Delphi 5 ... разработчика базы
10. Под ред. Г.А. ... ... ... ... ... Москва: Экономическое оборудование. 1993г.-
350 с.
11. «Предприятия и организации в Республике ... ... ...... 2001 ... Қазақстан Республикасының «Кәсіпорындар және кәсіпорындық қызмет
туралы» заңы. ... ... Л.В. ... ... ... ... - Москва, 1995 г.
14. Лаврушин О.И. Основы предпринимательсокго менеджмента: - Москва, 1995
г.
15. Лаврушин О.И. Предпринимательское ... - ... 1999 ... Мажитов Д. Проблемы устойчивости предпринимательской системы Казахстана
// Азия, 1997 №19; №20.
17. Питер С. Роуз. ... ... - ... 1995 ... ... А.Г. Управление предпринимательской ликвидностью и методы
её анализа: - Алматы, 1998 г.
19. Стоянова Е.С. Финансовый менеджмент: - ... 1998 ... ... А.Д., ... Г.Н. ... анализ в коммерческом
предприятия: - Москва, 2000 г.
21. Шойбеков Р., Қазбеков М. Русско-казахский словарь: - ... 1996 ... ... ... ... ... сөздігі / Құраст.:
Ә.Сембина, ... - ... 1995 ... Управление коммерческим предприятиям в условиях переходной экономики //
Финансы и ... 2000 г. №7, ... ... А.Я. ... в Delphi 6» ... ... – 2003г.
25. Симонович С.В. «Информатика, базовый курс» издат. Питер – 1999г. Санкт-
Петербург
ҚОСЫМША
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, ... ... ... ... = ... ... ... Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure ... ... ... ... ... ... Classes, ... Controls,
Forms,
Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids;
type
TForm2 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N11: ... ... ... ... TPanel;
Image1: TImage;
Timer1: TTimer;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn6: TBitBtn;
DBGrid2: TDBGrid;
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: ... ... ... ... TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... Unit1, Unit4, Unit5, Unit04, Unit05, Unit3, ... *.dfm}
procedure TForm2.FormShow(Sender: TObject);
begin
form1.free;
if messagedlg('Бугінгі орындалатын шараларды корсету кажет
пе?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
dm.TMeropr.Filtered:=false;
dm.TMeropr.Filter:='(dtwip='+''''+datetostr(date)+''''+') and
(wip='+''''+'false'+''''+')';
dm.TMeropr.Filtered:=true;
dbgrid2.Visible:=true;
DBGrid2.Align:=alclient;
end;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
Close;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.TDokTip.Close;
dm.TWorker.Close;
dm.TMeropr.Close;
dm.TDok.Close;
application.Terminate;
end;
procedure TForm2.N7Click(Sender: TObject);
begin
form4.ShowModal;
end;
procedure TForm2.N12Click(Sender: ... ... ... ... TObject);
begin
f05.ShowModal;
end;
procedure TForm2.BitBtn6Click(Sender: TObject);
begin
close;
end;
procedure TForm2.N5Click(Sender: TObject);
begin
form6.ShowModal;
end;
procedure TForm2.DBGrid2DblClick(Sender: TObject);
begin
dbgrid2.Visible:=false;
end;
end.
unit Unit3;
interface
uses
SysUtils, Classes, DB, ... = ... ... ... ... TIntegerField;
TDokTipName: TStringField;
TMeroprId: TIntegerField;
TMeroprOrderId: TIntegerField;
TMeroprMeropr: TStringField;
TMeroprDtWip: TDateField;
TMeroprWip: TBooleanField;
TMeroprSotr: TIntegerField;
TDok: TTable;
TDokId: TIntegerField;
TDokNumPric: TStringField;
TDokTypePric: TIntegerField;
TDokDt: TDateField;
TDokSoderg: TStringField;
TDokPodpis: TIntegerField;
DSTMeropr: TDataSource;
DSTDokTip: TDataSource;
DSTDok: TDataSource;
DSTWorker: TDataSource;
TDokSFIO: TStringField;
TWorkerId: ... ... ... ... ... ... TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.TDokTipAfterScroll(DataSet: ... ... ... ... Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, jpeg, Mask,
DBCtrls;
type
TForm4 = class(TForm)
Panel4: TPanel;
Panel1: ... ... ... TGroupBox;
DBEdit1: TDBEdit;
Panel2: TPanel;
Panel3: TPanel;
Image1: TImage;
Panel5: TPanel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Image2: TImage;
Image3: ... ... ... ... ... ... ... BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private ... ... Public ... }
end;
var
Form4: TForm4;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
dm.TWorker.Post;
panel1.Visible:=false;
panel5.Visible:=true;
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
dm.TWorker.Cancel;
panel5.Visible:=true;
panel1.Visible:=false;
end;
procedure TForm4.BitBtn3Click(Sender: TObject);
begin
dm.TWorker.Insert;
panel1.Visible:=true;
panel5.Visible:=false;
dbedit1.SetFocus;
end;
procedure TForm4.BitBtn4Click(Sender: TObject);
begin
dm.TWorker.Edit;
panel1.Visible:=true;
panel5.Visible:=false;;
dbedit1.SetFocus;
end;
procedure TForm4.BitBtn5Click(Sender: TObject);
begin
dm.TWorker.Delete;
end;
procedure TForm4.BitBtn6Click(Sender: TObject);
begin
close;
end;
procedure TForm4.FormClose(Sender: TObject; var Action: ... ... ... ... ... SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, ComCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls,
Buttons, jpeg, excelxp,comobj;
type
TForm5 = class(TForm)
Panel2: ... ... ... ... ... ... TImage;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit1: TDBEdit;
BitBtn7: ... ... ... ... ... TLabel;
BitBtn8: TBitBtn;
DBEdit3: TDBEdit;
DateTimePicker1: TDateTimePicker;
DBMemo1: TDBMemo;
GroupBox1: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: ... ... ... ... ... BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure ... ... ... ... ... ... Private ... }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit3, Unit4;
{$R *.dfm}
procedure TForm5.FormShow(Sender: TObject);
begin
panel5.Visible:=true;
panel1.Visible:=false;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
dm.TDokDt.Value:=datetimepicker1.Date;
dm.TDokId.Value:=dm.TWorkerid.Value;
dm.TDok.Post;
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
dm.TDok.Cancel;
panel5.Visible:=true;
panel1.Visible:=false;
end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
panel5.Visible:=false;
panel1.Visible:=true;
dm.TDok.Insert;
dbedit1.SetFocus;
end;
procedure TForm5.BitBtn4Click(Sender: TObject);
begin
panel5.Visible:=false;
panel1.Visible:=true;
dm.TDok.Edit;
dbedit1.SetFocus;
end;
procedure TForm5.BitBtn5Click(Sender: ... ... ... ... ... ... Variant;
begin
// Загружаем Excel
try
Excel:=CreateOleObject('Excel.Application'); // для остальных
except
Excel:=CreateOleObject('Excel.Application.10'); // для Office XP
end;
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add;
Sheet:=WorkBook.WorkSheets[1];
Sheet.Name:=dm.TDokTipName.AsString;
{{ Sheet.Range['A6',Sheet.Cells.Item[r+5,c-1]].Value:=TabGrid;}
// ... ... ... ... или :=1)
Sheet.PageSetup.CenterHorizontally:=true;
Sheet.PageSetup.Orientation:=xlLandscape; // альбомная (или :=2)
// Поля (дробные числа ... ... ... ... (дробные числа разделяются только '.')
Sheet.PageSetup.HeaderMargin:=Excel.CentimetersToPoints(0.5);
// &С, &К, &Д - страница, колво (всего), дата (dd,mm,yy)
// только для ... ... для English - &P, &N, ... &С из &К - &Д';
i:=4;
excel.ActiveSheet.cells[i,1].value:='№';
excel.ActiveSheet.cells[i,2].value:='Куні';
excel.ActiveSheet.cells[i,3].value:='Жауапты кызметкер';
excel.ActiveSheet.cells[i,4].value:='Мазмуны';
dm.TDok.First;
while not dm.TDok.Eof do
begin
i:=i+1;
excel.ActiveSheet.cells[i,1].value:=dm.TDokTypePric.AsString;
excel.ActiveSheet.cells[i,2].value:=dm.TDokDt.AsString;
excel.ActiveSheet.cells[i,3].value:=dm.TDokSFIO.AsString;
excel.ActiveSheet.cells[i,4].value:=dm.TDokSoderg.AsString;
Sheet.Range['A'+IntToStr(5),'D'+IntToStr(i)].Columns.Borders.LineStyle:=xlCo
ntinuous;
Sheet.Range['A'+IntToStr(5),'D'+IntToStr(i)].Font.Bold:=false;
Sheet.Range['A'+IntToStr(5),'D'+IntToStr(i)].Font.Size:=10;
dm.tdok.Next;
end;
Sheet.Range['A'+IntToStr(4),'D'+IntToStr(4)].Columns.Borders.LineStyle:=xlCo
ntinuous;
Sheet.Range['A'+IntToStr(4),'D'+IntToStr(4)].Font.Bold:=true;
Sheet.Range['A'+IntToStr(4),'D'+IntToStr(4)].Font.Size:=10;
// ... ... // ... по ... // ... ... Шапка над таблицей ([3,4] - строка, столбец)
Sheet.Cells[3,2]:=dm.TDokTipName.asstring;
Sheet.Range['A3','D3'].HorizontalAlignment:=xlHAlignCenter;
Sheet.Range['A3','D3'].Font.Name:='Times New Roman';
Sheet.Range['A3','D3'].Font.Bold:=true;
Sheet.Range['A3','D3'].Font.Size:=14;
Sheet.Range['A3','D3'].Columns.WrapText:=false;
// ... ... ... ... ... ... ... 6-го столбца
// Выравнивание первого столбца
// Выравнивание первой строки
// Показываем Excel
Excel.Visible:=True;
Excel.ScreenUpdating:=true;
// Unassign the Delphi Variant ... ... ... ... ... ... then ... radiobutton3.Checked then
dm.TDok.Filter:='Soderg='+''''+edit1.Text+'''';
dm.TDok.Filtered:=true;
speedbutton1.Enabled:=false;
end;
procedure TForm5.RadioButton1Click(Sender: TObject);
begin
speedbutton1.Enabled:=true;
end;
procedure TForm5.RadioButton2Click(Sender: TObject);
begin
speedbutton1.Enabled:=true;
end;
procedure TForm5.RadioButton3Click(Sender: TObject);
begin
speedbutton1.Enabled:=true;
end;
procedure TForm5.BitBtn8Click(Sender: TObject);
begin
form4.ShowModal;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, ... ... Classes, ... ... jpeg, ExtCtrls, StdCtrls, Buttons;
type
TForm6 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private ... ... Public ... }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit04;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, jpeg, ... = ... ... ... ... TBitBtn;
GroupBox1: TGroupBox;
DBEdit1: TDBEdit;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
Image1: TImage;
Panel5: TPanel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Image2: TImage;
Image3: TImage;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: ... ... ... ... ... ... TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private ... ... Public ... ... TF04;
implementation
uses Unit3;
{$R *.dfm}
procedure TF04.BitBtn1Click(Sender: TObject);
begin
panel5.Visible:=true;
panel1.Visible:=false;
dm.TDokTip.Post;
end;
procedure TF04.BitBtn2Click(Sender: TObject);
begin
panel5.Visible:=true;
panel1.Visible:=false;
dm.TDokTip.Cancel
end;
procedure TF04.BitBtn3Click(Sender: TObject);
begin
dm.TDokTip.Insert;
panel1.Visible:=true;
panel5.Visible:=false;
dbedit1.SetFocus;
end;
procedure TF04.BitBtn4Click(Sender: TObject);
begin
dm.TDokTip.Edit;
panel1.Visible:=true;
panel5.Visible:=false;;
dbedit1.SetFocus;
end;
procedure TF04.BitBtn5Click(Sender: TObject);
begin
dm.TDokTip.Delete;
end;
procedure TF04.BitBtn6Click(Sender: TObject);
begin
close;
end;
procedure TF04.FormClose(Sender: TObject; var Action: TCloseAction);
begin
panel1.Visible:=false;
panel5.Visible:=true;
end;
procedure ... ... ... ... ... ... Classes, ... Controls,
Forms,
Dialogs, ExtCtrls, ComCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls,
Buttons, jpeg, excelxp,comobj;
type
TF05 = class(TForm)
Panel2: TPanel;
Panel1: TPanel;
Image3: TImage;
BitBtn1: ... ... ... ... TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit2: TDBEdit;
BitBtn7: TBitBtn;
Panel3: TPanel;
DBGrid2: TDBGrid;
BitBtn8: TBitBtn;
DateTimePicker1: TDateTimePicker;
DBEdit1: TDBEdit;
GroupBox1: TGroupBox;
Label4: TLabel;
RadioButton1: ... ... ... ... ... ... ... TRadioButton;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn8Click(Sender: ... ... ... ... ... FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn7Click(Sender: TObject);
private
{ Private ... ... Public ... }
end;
var
F05: TF05;
implementation
uses Unit3, Unit4;
{$R *.dfm}
procedure TF05.FormShow(Sender: TObject);
begin
panel5.Visible:=true;
panel1.Visible:=false;
end;
procedure TF05.BitBtn1Click(Sender: TObject);
begin
panel5.Visible:=true;
panel1.Visible:=false;;
dm.TMeroprSotr.Value:=dm.TWorkerId.Value;
dm.TMeroprDtWip.Value:=datetimepicker1.Date;
dm.TMeropr.Post;
end;
procedure TF05.BitBtn2Click(Sender: TObject);
begin
panel5.Visible:=true;
panel1.Visible:=false;;
dm.TMeropr.Cancel;
end;
procedure TF05.BitBtn3Click(Sender: TObject);
begin
panel5.Visible:=false;
panel1.Visible:=true;
dm.TMeropr.Insert;
dbedit1.SetFocus;
end;
procedure TF05.BitBtn4Click(Sender: TObject);
begin
panel5.Visible:=false;
panel1.Visible:=true;
dm.TMeropr.Edit;
dbedit1.SetFocus;
end;
procedure TF05.BitBtn5Click(Sender: TObject);
begin
dm.TMeropr.Delete;
end;
procedure TF05.BitBtn6Click(Sender: TObject);
begin
close;
end;
procedure ... ... ... TObject);
begin
if radiobutton1.Checked then
begin
datetimepicker1.Visible:=true;
edit1.Visible:=false;
end
else
begin
datetimepicker1.Visible:=false;;
edit1.Visible:=true;
end;
end;
procedure TF05.SpeedButton1Click(Sender: TObject);
begin
dm.TMeropr.Filtered:=false;
if radiobutton1.Checked then
dm.TMeropr.Filter:='DTwip='+''''+datetostr(datetimepicker1.Date)+'''';
if radiobutton2.Checked ... ... then ... ... ... ... TObject; var Action: TCloseAction);
begin
dm.TMeropr.Filtered:=false;
end;
procedure TF05.BitBtn7Click(Sender: TObject);
var
i,j,r,c: integer;
Excel,WorkBook,Sheet: Variant;
begin
// Загружаем Excel
try
Excel:=CreateOleObject('Excel.Application'); // для остальных
except
Excel:=CreateOleObject('Excel.Application.10'); // для Office XP
end;
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add;
Sheet:=WorkBook.WorkSheets[1];
Sheet.Name:='Шаралар';
{{ Sheet.Range['A6',Sheet.Cells.Item[r+5,c-1]].Value:=TabGrid;}
// Ориентация ... ... ... или ... // ... (или :=2)
// Поля (дробные числа разделяются только '.')
Sheet.PageSetup.LeftMargin:=Excel.CentimetersToPoints(1);
Sheet.PageSetup.RightMargin:=Excel.CentimetersToPoints(1);
Sheet.PageSetup.TopMargin:=Excel.CentimetersToPoints(1);
Sheet.PageSetup.BottomMargin:=Excel.CentimetersToPoints(1);
// Колонтитулы (дробные числа разделяются только '.')
Sheet.PageSetup.HeaderMargin:=Excel.CentimetersToPoints(0.5);
// &С, &К, &Д - ... ... ... дата ... ... для ... ... для English - &P, &N, &D
Sheet.PageSetup.RightHeader:='Страница &С из &К - ... ... над ... ([3,4] - ... ... New Roman';
Sheet.Range['A3','D3'].Font.Bold:=true;
Sheet.Range['A3','D3'].Font.Size:=14;
Sheet.Range['A3','D3'].Columns.WrapText:=false;
i:=4;
excel.ActiveSheet.cells[i,1].value:='Куні';
excel.ActiveSheet.cells[i,2].value:='Шара атауы';
excel.ActiveSheet.cells[i,3].value:='Жауапты кызметкер';
excel.ActiveSheet.cells[i,4].value:='Белгі';
dm.TMeropr.First;
Sheet.Range['A'+IntToStr(4),'D'+IntToStr(4)].Columns.Borders.LineStyle:=xlCo
ntinuous;
Sheet.Range['A'+IntToStr(4),'D'+IntToStr(4)].Font.Bold:=true;
Sheet.Range['A'+IntToStr(4),'D'+IntToStr(4)].Font.Size:=10;
while not dm.TMeropr.Eof do
begin
i:=i+1;
excel.ActiveSheet.cells[i,1].value:=dm.TMeroprDtWip.AsString;
excel.ActiveSheet.cells[i,2].value:=dm.TMeroprMeropr.AsString;
excel.ActiveSheet.cells[i,3].value:=dm.TMeroprSFIO.AsString;
excel.ActiveSheet.cells[i,4].value:=dm.TMeroprWip.AsString;
Sheet.Range['A'+IntToStr(5),'D'+IntToStr(i)].Columns.Borders.LineStyle:=xlCo
ntinuous;
Sheet.Range['A'+IntToStr(5),'D'+IntToStr(i)].Font.Bold:=false;
Sheet.Range['A'+IntToStr(5),'D'+IntToStr(i)].Font.Size:=10;
dm.TMeropr.Next;
end;
// Свойства таблицы
Sheet.Columns.WrapText:=true; // переносить по словам
Sheet.Cells.Columns.AutoFit; // ... ... ... ... ... ... ... Размер шрифта 6-го столбца
// Выравнивание первого столбца
Sheet.Range['A'+IntToStr(6),'D'+IntToStr(r+5)].HorizontalAlignment:=xlHAlig
nCenter;
// Выравнивание первой строки
// Показываем Excel
Excel.Visible:=True;
Excel.ScreenUpdating:=true;
// Unassign the Delphi Variant Matrix
Excel:=Unassigned;
WorkBook:=Unassigned;
Sheet:=Unassigned;
end;
end

Пән: Информатика
Жұмыс түрі: Дипломдық жұмыс
Көлемі: 31 бет
Бұл жұмыстың бағасы: 5 000 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
”Қанжұған” кен орнынан жер асты ұңғымалы қышқылдық ерітінділерден U3O8 сары кек алу үшін , жылдық өнімділігі 500 тонна болатын цех жобала”Қанжұған” кен орнынан жер асты ұңғымалы қышқылдық ерітінділерден U3O8 сары кек алу үшін , жылдық өнімділігі 500 тонна болатын цех жобалау43 бет
Алкидті лак-бояу материалдарының сипаттамалары және қасиеттері17 бет
Биология және экология пәндерін оқытуда жергілікті жер материалдарын пайдалану35 бет
Биология пәнін оқытуда жергілікті жер материалдарын пайдалану20 бет
Газ шаруашылығындағы құрылыста қолданылатын материалдарының түрлері24 бет
Материалдарының түрлерінің құрылымы21 бет
Оңтүстік Қазақстан облысы шикізат материалдарыннан алынатын орташа тығыздығы 950 кг/м3 көбікті бетонның құрамын сұрыптау және көбікті бетон бұйымдарын дайындау технологиясы51 бет
Питомник. Питомниктер түрлері, отырғызу материалдарының түрлері. Орман питомнигі аумағын ұйымдастыру8 бет
Тоқыма материалдарының физикалық қасиеті7 бет
Тоқыма материалдарының физикалық қасиеттері11 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь