ЖОСПАР
КІРІСПЕ 8
1 ЖАЛПЫ БӨЛІМ 11
1,1 Бағдарламалық қамсыздандырудың сипаттамасы 11
1.2 Delphi – ортасының негізгі түсініктері 16
1.3 Компоненттермен танысу 21
1.4 Delphi ортасында деректер қорын құру
2 АРНАЙЫ БӨЛІМ 32
2.1 Есептің жалпы қойылымы 32
2,2 Бағдарлама құрылымын сипаттау 33
2.3 Индекстер және кілттер 38
3 ЭКОНОМИКАЛЫҚ БӨЛІМ 39
3.1 Жобаның ұйымдық – экономикалық сипаттамасы 39
3.4 Жалпы шығындардың есебі 45
3.5 Өнімнің бәсекеге төзімділігін бағалау 46
4 ЕҢБЕК ҚОРҒАУ 47
4.1 Электр қауіпсіздігі 49
4.2 Электр зақымдануынан қорғану шаралары 50
4.3 ДК-мен жұмыс істеу кезіндегі қауіпсіздік ережелері 52
4.4 Өрт 53
ҚОРЫТЫНДЫ 55
Қолданылған әдебиеттер тізімі 58
ҚОСЫМША А 60
КІРІСПЕ
Бұдан үш он жылдық бұрын, ЭЕМ бірнеше кең
Сол кездегі адамдардың артық бағалау мүмкіндіктерін түсіндіруге болады.
Қазіргі заманғы компьютерлер туралы не айтуға болады, жинақты,
Компьютерлер жанұясының (одағы) – ақпараттарды қайта өңдеу үшін
Үлкендеу компьютерлер - карточке – күнтізбе көлеміндей және
Кітаптың орташа форматындай, көлемі жазба кітапшаларындай калькуляторлар да
Тіпті сыртқы жадымен қалталы калькуляторлар модельдері де бар
Міне осылай қарапайым электронды есептеуіштерден кеңейтілген мүмкіндіктермен нағыз
Электронды есептеуіш машиналарды енгізу, қоғамды информатизациялауда қазіргі тәсілдермен
Қазір компьютер адам жұмыстарының ажырамас бір бөлігі болып
Электрондық шамдар пайдаланылған ENIAC және барлық басқа
1955 жылдардан бастап келесі, екінші буындағы
Интегралды схема негізінде құрасытырылған ЭЕМ-дер
Қазіргі кезде ЭЕМ-дер бұл төртінші буындағы ЭЕМ-дер
Дербес компьютерді шығарудың қарқынды өсуі
Құнының арзандылығы
Түсінікті және ыңғайлы диалогтық программалық құралдар көмегімен
Қызмет орнында жеке жұмыстар үшін пайдалану мүмкіндігі;
Информацияны өңдеудің жоғары мүмкіндігіне ие;
ДЭЕМ-ді адамзат іс-әрекетінің кез-келген аумағында
Дербес компьютер желілік жүйелерге қосу
IBM PC пайда болуы. 70-шы жылдар аяғында дербес
Компьютердің негізгі микропроцессоры жаңадан 16-разрядты Intel-8088 микропроцессоры таңдалынды.Оны
1981ж. тамызда жаңа компьютер IBM PC атауы
Бірақ IBM PC компьютерлері басқаша болды. IBM
IBM PC өзін тартымды және танымал болса, ол
Осыдан келе көптеген фирмалар өздері IBM PC комплектілік
Пайдаланушылар өздері әртүрлі құрылғылармен толықтыруға және жүздеген өндірушулерін
Осының барлығы IBM PC компьютерлерін жақсартып және оны
Дипломдық жобаның мақсаты “Delphi программалау
1 ЖАЛПЫ БӨЛІМ
1,1 Бағдарламалық қамсыздандырудың сипаттамасы
Компьютерлік бағдарламалар 3 негізгі дәрежеге бөлуге болады:
ЭЕМ жұмысы кезінде пайда болатын ақауларды жөндейтін және
Қолданушыға қажетті әрекеттерді орындайтын қолданбалы бағдарламалар (мәтінді редакторлау,
Бағдарламалық қамсыздандыруды жобалау жүйесі. Мұндай бағдарламалау қолданушыларға емес,
Жүйелік бағдармалардың ең маңыздысы компьютер ресурстарын жалпы
Сыртқы құрылғыларына қызмет етудіңі операциялық жүйе мүмкіндіктерін кеңейту
Жүйелік бағдарламалардың маңызды бөлігі утилиттер деп аталатын
кішігірім өлшемді файл көмірмесін құрып, дискіде информация сақтайтын
компьютердің, оның құрылғыларының конфигурациясын тексеретін, оның жұмыс мүмкіндіктерін
мәліметтерге рұқсат жылдамдығын ұлғайту, операциялық жүйенің қызметші файлдарды
қолданушы таңдаған қатты дискідегі қызметші файлдардың қайсысы жазуды
дискілік кеңістікте қолданылған файлдар көлемін қысқартуға мүмкіндік беретін
Қолданбалы бағдарламалар категориялары өте көп, қолданбалы бағдарламалы қамсыздандырудың
Бағдарламаны қамсыздандырудың үшінші категориясы-бағдарламалау жүйесі есеп шығару үшін
Бағдарламамен қамсыздандыруды бір классификациясы оның құнына негізделген.Сондықтан бағалау
Ақысыз бағдарламалар Интернетке жіберу және FIN-желілер файлдың қоймаларда
Сұрауы көп компютер бағдарламар өңдемді,жақсартылады,жаңа функциялармен толтырылады,т.б.Дегенмен,қолданушыларға аты
Бұдан кейін тараған бағдарламалық өнімге толығымен тоқталамыз.
Windows нұсқаларының тарихы
Дербес ЭЕМ қолданушыларына танымал болған терезелі графикалық интерфейсі
Операциялық жүйенің стандартты жүйесіне бірнеше бағдарламалар- Paint графикалық
Windows 1.01 DOS үшін терезелі-графикалық келтіру болып табылады.
1990 жылы шыққан Windows 3.0 нұсқасы IBM PC
VGA адаптеріне арналған. MS-DOS файлдық менеджері File Manager
Windows 3.0 8086 процессорымен ағымды режимде жұмыс
Windows 3.1 нұсқасында жүйелік реестр алғаш қолданды. Мұнда
Бұл операциялық жүйенің жаңалығы Windows компонентін қосу/жою тақтасы
Windows 3.11 for WorkGroups желімен жұмыс кезіндегі
Microsoft Mail жергілікті желі ішінде пошталық серверді ұйымдастыруға
Мұндай операциялық жүйенің бірінші нұсқасы Windows NT 3.1
Администраторлар қолданушының мәлімет файлдарына (оқу, жазу, жою рұқсаттары)
NT 3.51 нұсқасы екі түрлі болып шықты: Server
1995 жылы операциялық жүйенің жаңа нұсқасы графикалық терезелі
1996 жылы Windows NT төртінші нұсқасы
1998 жылы Windows 95 кейінгі дамытылған
Windows 98 нұсқасында FAT 32 файлдық жүйесін қолдау
Келесі нұсқа бірден 3 түрлі болып шыққан
Үйге арналған операциялық жүйе ретінде сол жылы шыққан
Бір типті қосымшалар тапсырма тақтасында топталады. Кемшілігі: 1.
1.2 Delphi – ортасының негізгі түсініктері
Соңғы кезде бағдарламаға деген қызығушылық лезде өсті. Бұл
Есептеу техникасының қарқынды дамуы бағдарламаны жасауды қамтамасыз
Delphi ортасы визуалды бағдарламалау жүйесі болып табылады.
Delphi – бұл тез жұмыс істеу ортасы, бағдарламалау
Қазіргі уақытта бағдарламашыларға Delphi пакетінің кезесті болжамы Borland
Delphi ортасы – бағдарламашының жоғарғы әсерлі жұмысын
1.2.1-сурет. Delphi терезесі
Басты терезе
Басты терезе құрылатын бағдарламаның жобамен
1.2.2 –сурет. Delphi терезесінің басты менюі
Компоненттер палитрасы
Компоненттер палитрасы – бұл Delphi – дің басты
1.2.3-сурет. Delphi компонеттер палитрасы
Формалар терезесі
Формалар терезесі болашақ бағдарламаны
Объектілер ағашының (дерева) терезесі
Бұл терезе 6-шы версияда пайда болған
Объектілер инспекторының терезесі
Формаға орналасқан кез келген компонент кейбір
Нысандар инспектор терезесінің әрбір беті екі
1.2.4-сурет. Delphi ортасының объектілер инспекторының терезесі
Бағдарлама кодтарының терезесі
Бағдарламаның кодтар терезесі бағдарламаның текстін
1.1.5-сурет. Бағдарлама кодтарының терезесі
1.3 Компоненттермен танысу
Компоненттер көрінетін бейнені құрастыратын элементтерінен тұрады. Delphi-дің
STANDARD беті
Standard бетінде Windows интерфейстік элементтері үшін компонентер
Frame - рама. Формадан бөлек компоненттер палитрасында орналаса
MainMenu – программаның басты менюі. Бұл компонент күрделі
PopupMenu – көмекші немесе жергілікті меню. Бұл меню
Label - белгі. Бұл компонентті ұзақ емес бірқатарлы
Edit – енгізу жолы. Бір текстік жолды редактрлеу
Memo – көпжолды текстік редактор. Көпжолды тексті енгізу
Button - командалық батырма. Бұл компоненттің OnClick хабарын
CheckBox – тәуелсіз ауыстырғыш. Жұмыс істеуші программада осы
ListBox – таңдау тізімі. Қойылған нұсқалардың тізімін құрайды
ComboBox – комбинирленген таңдау тізімі. Текстік редактордың және
Radio Button- тәуелді ауыстырғыш.Топқа тағы да бір
ScrollBar – басқару сызығы. Windows-терезе бүйірінен айналдырғандағы
GroupBox – элементтер тобы. Бұл компонент бірнеше
RadioGroup – тәуелді ауыстырғыштардың тобы. Бірнеше байланысқан тәуелді
Panel - панель. Бұл компонент GroupBox сияқты
ADDITIONAL беті
Additonal бетінде 18 қосымша компоненттерорналасқан және олардың көмегі
BitBtn – жазулармен және пиктограммасымен командалық батырма.
SpeedButton – пиктографиялық батырма. Басты менюдағы опцияларға
MaskEdit – арнайы текстік редактор. Енгізілген тексті сүзгіден
StringGrid – жолдар кестесі. Бұл компонент кестелік түрде
DrawGrid - өзінді кесте. StringGrid ұящығының компонентінен айырмашылығы
Image - сурет. Бұл компонент суреттердің бейнесі
WIN32 беті
Win32 беті Windows 95/98/NT/2000 32-разрядты операциялық жүйесі үшін
ImageList – суреттер жиынтығы. Бір өлшемді бірнеше суреттер
RichEdit – пішімделген текстің көпжолдық редакторы.
Page Control- закладкаларымен панельдер жиынтығы. Әрбір панель
TrackBar - регулятор. Программаларда кейбір өлшемдердің мәндерін басқару
Animate - мультипликатор. Жай анимацияны енгізуге мүмкіндік береді.
TreeView – таңдау ағашы. Каталогтардың және иерархиялық қатынастармен
SYSTEM беті
Бұл бетте функционалды тағайындаулары бар компоненттер орналасқан.
Timer - таймер. Бұл компонент шынайы уақыттың
PaintBox – сурет салу терезесі. Тікбұрышты аймақты құрады.
MediaPlayer – мультимедиялық проигрывателі. Бұл компоненттің көмегі арқылы
DIALOGS беті
Dialogs бетінің компоненттері Windows диалогтық терезесі үшін
OpenDialog - ашу. «Файлды ашу» диалогтық терезесі стандартты.
SaveDialog - сақтау. «Файлды сақтау» диалогтық терезесі стандартты.
FontDialog - қаріп. Диалогтық терезенің қаріпті таңдау стандарты.
ColorDialog - түс. Диалогтық терезенің түсті таңдау стандарты.
Кластар
Object Pascal-да класстар деп – қасиеттер және әдістерді,
Инкапсуляция
Класс өрістердің, әдістердің және қасиеттердің маңыздылығының бірлігін көрсетеді.
Мұрагерлік (наследование)
Кез келген класс басқа класстан тууы мүмкін. Ол
TChildСlass = сlass(TParentClass)
Пайда болған класс өзінің ата-анасының қасиеттеірн және әдістерін,
Полиморфизм
Полиморфизм бұл класстардың қасиеттері мағынасы бойынша ұқсас проблемаларды
Классты құрастырушылар
Өрістер
Класстағы инкапсулирленген мәліметтер өрістер деп аталады.
type TMyClass = class
aIntField: Integer;
aStrField: String;
aObjField: TObject;
end;
Әр объект өрістердің бірегей жиынтығын
type
TMyClass = class
FIntField: Integer;
FStrField: String; end;
var
aObject: TMyClass;
begin
aObject.FIntField := 0;
aObject.FStrField := ' Символов жолы ';
end;
Әдістер
Класстағы инкапсулирленген процедуралар мен функциялар
type
TMyClass = class
Function MyFunc(aPar: Integer): Integer;
Procedure MyProc;
end;
var
Класстың әдістеріне сондай-ақ олардың өрістеріне
aObject: TMyClass;
begin
aObject.MyProc;
end;
Класстың әдістері ұрпақтарда қайта тығылуы
type
TParentClass = class Procedure DoWork;
end;
TChildClass = class(TParentClass) Procedure DoWork;
end;
Екі класстың да ұрпақтары аты бойынша
Қасиет
Қасиет - өрітерге рұқсат алуды реттейтін класстардың
type
TaClass = class
IntField: Integer; Function GetField: Integer;
Procedure SetField (Value: Integers);
Property IntegerValue: Integer read GetField
write SetField;
end;
Бағдарлама контекстінде қасиет өзін
var
aClass: TaClass;
Value: Integer;
begin
aClass := TaClass.Create;
aClass.IntegerValue := 0;
Value := aClass.IntegerValue;
aClass.Destroy; // Қажеті жоқ объектіні жою
end;
Меншіктеу операторын да көрсетуге болады:
aClass.IntField := NewValue;
1.4 Delphi ортасында деректер қорын құру
Delphi ортасында деректер қорын құру - бұл кестелер
Кестелердi модификациялау, сақтаушы процедуралар мен мәлiметтердi бейнелеуге
Деректер қорын кең ауқымды қойма деп санап,
Деректер қоры дегенiмiз – оларды бiр немесе бiрнеше
Деректер қоры және деректер қорын басқару казiргi кезде
Қазiргi кезде көп қолданылатын және ыңғайлы тiлдiң бiрi
Деректер қорын өдеуге арналған динамикалық орта. Өңдеудегi интеграциялық
Delphi-клиент-сервер архитектурасы бар деректер қорын өңдеудегi ірi күштi,
Delphi – деректер қорын құрудағы заман талабына сай,
Деректер қорында бастапы кiлттер және сыртқы кесте кiлттерiнiң
Жүйеде деректер қорыны жиынтығы бар деп осы деректер
Реляциондық деректер қоры казiргi кезде көп қолданылатын және
Деректер қорын жоба терезесiнде құру
Деректер қоры - жобаның негiзгi бөлiгi болып табылады,
Кейде деректер қорындағы терминдер кең түрде түсіндіріледі.және деректер
Delphi–ді деректер қоры деп атауға болмайды. Оның форматты
Бір немесе бірнеше компьютерлердің көмегімен ақпараттарды элетрондық сақтағыш
Осы Delphi ортасында құрылған деректер қорына қысқаша тоқталар
Delphi программалау жүйесі қолданушылардың арасында кең көлемде
Delphi жүйесі әртүрлі мысалдарды тез және дәрежелі
Деректер қоры мәліметтерді сақтауды қамтамасыз етіп, берілгендерге тез
Қарама – қайшы емес
Артық емес
Бүтін
ДҚБЖ бағдарлама құралы мен тілдер жиынтығын ұсынады. Ол
Дербес ДҚБЖ бір компьютерде жұмыс істейтін жергілікті қорын
Қолданбалы бағдарламалары және ұсыныстар деректер қорындағы берілгендерді өңдеуге
Деректер қорына псевдоним құру
Локальді деректер қорын құру барысында деректер қорының өзі
Программа және утелитадан ДҚ – на назар аудару
Реляционды деректер қоры
Деректер қорының әр түрлі модельдері бар. Неңұрлым кең
Реляционды деректер қоры әр түрлі деректерден тұратын кестелердің
Сілтемелік бірлік деректерді қате өзгертулерден, өшірулерден қорғау және
Индекстердің типтері – деректерге жол ашу мен еңгізуді
Бірінші дәрежелік және екінші дәрежелік кілттер – кестелер
Кестелердің бірден – бірге қатынасы – “негізгі” деп
Кестелердің бірдің көпке байланысты – негізгі бір кестенің
Деректер шығындануының жоқтығы – деректерді көрсетудің қалыпты жағдайын
Реляционды ДҚБЖ өңдеушіге тек реляционды модельді құру құралдарының
Кесте екі өлшемді жолдар (немесе жазулар) және бағандар
2 АРНАЙЫ БӨЛІМ
2.1 Есептің жалпы қойылымы
“Delphi программалау ортасында жобаны нұсқалау” мақсатында ақпараттық-есептеу пәндік-циклдық
Берілген деректер қорын жасау үшін Delphi
Бағдарламаның жұмысын жақсы атқару үшін
Pentium 100 процессор базасындағы компьютер
Қатты диск 500 Мб көлемімен
Оперативті жадысының көлемі 8 Мб кіші емес
Windows 95 Операциялық жүйесі
Яғни осы аталған параметрлер Delphi ортасында
Delphi – деректер қорын жүйелік басқаруға негізделген, обьектілі
Бір немесе бірнеше компьютерлердің көмегімен ақпараттарды элетрондық сақтағыш
2,2 Бағдарлама құрылымын сипаттау
Базаға кіру формасы
Бағдарламаны іске қосқанда негізгі форма ашылады. Бұл формада
2.2.1.– сурет. Басты мәзір формасы
«Действия» мәзрінің қызметі
«Действия» мәзірінің ішіндегі Жаңадан енгізу командасы арқылы
«Действия» мәзірінің ішіндегі Жаңадан енгізу-командасын немесе экран
2.2.2– сурет. Жаңадан енгізу формасы
Өзгерту
«Действия» мәзірінің ішіндегі Өзгерту командасын таңдасаңыз арнайы өзгерту
2.2.3 – сурет. Өзгерту формасы
Жою
Мәзірдегі және формадағы Жою батырмасын таңдасаңыз. Бұл батырма
2.2.4-сурет Жою алдындағы ескерту терезесі
Сұрыптау
Экран бетінде арнайы сұрыптау терезешелері орналасқан. Бұл
2.2.5-сурет. Мәліметтерді сұрыптау терезешелері
Курстар терезесі
Мәзір жолынан «Курстар» командасын таңдасаңыз сіз
2.2.6-сурет. Курстар анықтамалығы терезесі
Жаңадан енгізу батырмасын басу арқылы жаңа курс тізімін
2.2.7-сурет. Жаңадан енгізу терезешесі
Жою батырмасын басу арқылы қажет емес мәліметті жоюға
2.2.8-сурет. Жою алдындағы ескерту терезесі
Сабақ кестесі терезесі
«Справочник» мәзірінің ішіндегі Сабақ кестесі командасын таңдасаңыз арнайы
2.2.9-сурет. Сабақ кестесі терезесі
Сабақ кестесі терезесінде кестемен жұмыс істеу үшін
2.2.10-сурет. Жаңадан енгізу терезесі
2.2.11-сурет. Өзгерту терезесі
Программаның авторы жайлы
Негізгі мәзірдегі Об авторах командасын басаңыз сіз
2.2.12-сурет. Программаның авторы жайлы
2.3 Индекстер және кілттер
Индекстер деректерге жол ашуды жылдамдату үшін, сонымен бірге
Бірақ, бұл индекстер қалай аталса да, кез келген
Бірінші дәрежелік индекс – кестенің тек бір ғана
Екінші дәрежелік бірегей индекс – кестенің бірнеше индекстері
Қарапайым екінші дәрежелік индекс – кесте бірнеше индекстерге
Кез келген индекс қарапайым да, құрамдас та бола
Кілттер деректерді байланыстыру үшін қолданылады. Бірінші дәрежелі және
Көптеген ДҚБЖ – рі үшін кілт тек индекстік
Еске түсіре кетейік, кілт немесе мүмкін кілт –
3 ЭКОНОМИКАЛЫҚ БӨЛІМ
3.1 Жобаның ұйымдық – экономикалық сипаттамасы
Аталған жұмыс Delphi ортасында «Ақпараттық-есептеу пәндік-циклдық комиссиясының оқушылары
3.2 Бағдарламалық өнімді құруға кеткен шығынды анықтау
Бағдарламалық өнімді құру шығыны бағдарлама өңдеушісінің еңбек ақысының
Шбөқ =Шбшбөқ + Шмубөқ + Шжал
мұндағы
Шбөқ – бағдарлама өнім құруға кеткен шығын;
Шбшбөқ – бағдарлама өңдеушінің еңбек ақысының шығындары;
Шмубөқ – машиналық уақыт ақысының шығыны;
Шжал – жалпы шығындар.
Бағдарлама өңдеушісінің еңбек ақысының шығындары
Бағдарлама өңдеушісінің еңбек ақысының шығыны бағдарламалық өнімді құру
Шбшбөқ = t * Тсағ
Бағдарламалық өнім құрудағы еңбек сыйымдылығын есептеу
Бағдарламалық өнімнің еңбек сыйымдылығын өңдеуді келесі түрде анықтауға
t = tс + tа + tбс
мұндағы
tс – тапсырманы сипаттау дайындығына кеткен еңбек шығыны;
tа - тапсырманы шешу алгоритміне құруға кеткен
tбс - тапрсыманы шешу алгоритмінің блок-схемасын құруға кеткен
tб – дайын болк-схема бойынша бағдарлама құруға кеткен
tқ – тапсырманы құжаттмасын дайындауға кеткен еңбек шығыны;
tж – ЭЕМ-да тапрсырманың кешенді бағдарламасын жөндеуге кеткен
Q – операторының саны арқылы шығын құрамын анықтауға
Сипаттауға кеткен еңбек шығынын есептеу
Жұмыс шығармашылығына байланысты болғандықтан тапсырманы сипаттау дайындығына кеткен
tс = Q * В/(55...75*К)
мұндағы
В – тапсырма сипаттамасының еңбек шығынын ұлғайту коэффициенті
К - өңдеушінің біліктілік коэффициенті, жұмыс істейтіндер үшін
Аталған тапсырманың сипаттамасын зерттеуі кезінде көптеген дәлдіктер мен
Осылайша формулаға салып есептейміз.
=Q*B(55…75*K)=3*4/(65*0,2)=0,9
Алгоритм құруға кеткен еңбек шығынын есептеу
Тапсырманы шешу алгоритмін құруға кеткен еңбек шығыны:
tа = Q/(40...65*К) = 3/(50*0,2) = 0,3 (адам-сағат)
Бағдарламаны құруға кеткен еңбек шығынын есептеу
Дайын блок-схема бойынша бағдарламаны құруға кеткен еңбек шығынын
tб = Q/(40...65*К) = 3/(50*0,2) = 0,3 (адам-сағат)
= 0,3
Бағдарламаны жөңдеуге кеткен еңбек шығынын есептеу
ЭЕМ-да тапсырманы кешенді жөндеу кезінде бағдарламаны жөндеуге кеткен
tж = 1,5 * tав.жж
мұндағы
tав.жж – ЭЕМ-да бір тапсырманың автономды жөндеу кезінде
tав.жж = Q/(30...50*К) = 3/(40*0,2) = 0,4 (адам-сағат)
осыдан
tж = 1,5 * 0,4 = 0,6 (адам-сағат)
Құжаттаманы дайындауға кеткен еңбек шығындары тапсырма бойынша анықталады:
tқ = tқ қ + tқ б
мұндағы
tқ қ – қолжазбадағы материалдарды дайындауға кеткен еңбек
tқ б - құжаттамаларды баспаға шығару және безендіруге,
tқ қ = Q/(100...150*К) = 3/(130*0,2) =
tқ б = 0,75* tқ қ = 0,75*0,12
осыдан
tқ =0,12+0,09= 0,21 (адам-сағат)
Сонымен бағдарламалық өнімнің жалпы еңбек сыйымдылығын былай есептеуге
t = 0,9+0,3+0,3+0,3+0,21+0,6 = 2,61 (адам-сағат)
Бағдарламашының орташа жалақысын есептеу
Бағдарламашының орта жалақының қазіргі нарықтық шарттарына байланысты төленеді.
Бағдарламашының еңбек ақысының шығындары бағдарламашының жалақысы мен әлеуметтік
Зейнетақы қоры (10%),
Табыс салығы (5 - 8%),
Нәтижесінде әлеуметтік қажеттіліктер 15%-н құрайды. Осыдан бағдарламашының еңбекақысы
Мысалға Тсағ табу үшін
Машиналық уақыттың төлем шығындарын есептеу
Бағдарламаны жөндеу кезінде машиналық уақыттың төлем шығындарын анықтау
Шмубөқ = Ссағ * t эем ,
мұндағы
Ссағ - жалға беру машина-сағат құны, тең/сағ;
t эем - ЭЕМ-де бағдарлама жөнлеудің нақты
Жөндеудің нақты уақытын есептеу
Жөндеудің нақты уақытын мына формуламен есептейміз:
t эем = tб + tқб + tж
t эем = 0,3 + 0,09 +
Машина-сағат құнын есептеу
Машина-сағат құнын мына формуламен анықталады:
Ссағ = Шэем + Тэем ,
мұндағы
Шэем – жыл бойына ЭЕМ-ді пайдалануға кеткен толық
Тэем - ЭЕМ уақытының нақты жылдық қоры,
ДЭЕМ IBM PC AT жұмыс уақытының жылдық қорын
Жыл күндерінің жалпы саны – 365
Мерекелік және демалыс күндерінің саны – 112
Апта саны -52
Профилактикалық жұмыстарды апта сайынғы профилактиканы 4 сағаттан анықтайды.
Нәтижесінде ДЭЕМ жұмыс уақытының жылдық қоры мынадай:
Тэем = 8 * ( 365-112 ) –
ЭЕМ-ны пайдаланудың толық шығынын есептеу
ЭЕМ-ны пайдаланудың толық шығынын мына формуламен анықтайды:
Шэем = ( Шұж + Шамор+ Шэл+ Шқм+
мұндағы
Шұж – қызмет көрсету ұжымы жалақысының жылдық шығыны,
Шамор – амртизацияның жылдық шығыны,тең/жыл;
Шэл - ЭЕм-ға қажет электроэнергияның жылдық шығыны,
Шқм – қосымша материалдардың жылдық шығыны, тең/жыл;
Шаж – компьютердің ағымдағы жөндеу шығыны, тең/жыл;
Шөз - өзге қажеттіліктердің жылдық шығыны, тең/жыл.
Амортизациялық аударымдар
Амортизациялық шығындардың жылдық сомасы мына формула арқылы анықталады:
мұндағы
Сбал - компьютердің баланстық құны, тең/жыл
Наморт – амортизация мөлшері, % ;оны қызмет
ДЭЕМ-ның баланстық құны көлік шығынын, құрылғыны орнату құнын
Сбал = Снар + Шорн
мұндағы
Снар – компьютердің нарықтық құны, тең/жыл
Шорн – компьютерді жеткізуге және орнату шығыны, тең/жыл
Жұмыс жүргізілген компьютер Снар = 95000 теігеге сатып
Шорн = 1% * Снар = 0,01*95000
Осыдан
Сбал = 95000+ 950 = 95950ң/жыл
ал
Шамор = (95950*12%)100%=11514
Электроэнергия шығынын есептеу
Жыл бойы қолданылатын электроэнергия құны мына формуламен анықталады:
Шэл = Рэл * Тэем * Сэл *
мұндағы
Рэл – ЭЕМ-ң сомалы қуаты,
А – машина қуатын қолдану коэффициенті,
Сэл - электорэнергиясын 1кВт*сағ құны.
ЭЕМ-ң техникалық куәлігіне сай Рэл = 0,22 кВт,
Сонда электроэнергия шығынының есептік мәні:
Шэл = 0,22 * 1868 * 5 *
Ағымдағы жөндеу шығынын есептеу
Ағымдағы және профилактикалық жөндеу шығындары ЭЕМ құнының 5%-на
Шаж = 0,05 * Сбал = 0,05 *95950
Қосымша материалдардың шығынын есептеу
ДЭЕМ жұмысын қамтамасыз етуге қажетті материалдар шығындары ЭЕМ
Шқм = 0,03 * 95950 = 2878тенге
ДЭЕМ –ді пайдаланудың өзге шығындары
ДЭЕМ-ны пайдаланумен байланысты өзге шығындар ғимараттың амортизациялық аударымдар,
Шөз = 0,07 * 95950= 6716 теңге.
Қызмет көрсету ұжымы жалақысының жылдық шығыны
Қызмет көрсету ұжымы жалқысының жылдық шығыны негізгі жалақы,
Шұж = Шнегж + Шқосж + Шшығж
Негізгі жалақының сомасы ұжымдағы қызметкерлердің барлық санынан шығады:
Шнегж = 12 * ∑ Ш iокл
мұндағы
Ш iокл - айына і-нші қызметкердің тарифты
Қызмет көрсету ұжымы құрамына 18700 теңге жалақысы бар
Ұжым 10 машинамен қызмет көрсету ұжымының негізгі жалақысының
Шнегж = 12 * ( 18700 + 14000
Қосымша жалақы негізгі жалақының 30%-н құрайды:
Шқосж = 0,3 * 56057 = 16817
Әлеуметтік қажеттіліктер шығынының сомасы негізгі және қосымша жалақыларының
Шшығж = 0,15 * ( 56057 +16817) =
Сонда қызмет көрсету ұжымы жалақысының жылдық шығындары:
Шұж = 56057+16817+10931=83805
ЭЕМ – ді жыл бойы пайдалануға кеткен толық
Шэем= 83805+11514+1993,1+2878+4797+6716 =111703 теңге
Онда жалға алу уақытының машина-сағат құны
Ссағ = 111703/ 1868 = 59,7 тенге
Ал машина уақытының төлем шығыны
Шмубөқ = 59,7*0,99= 59,1 теңгені құрайды.
3.4 Жалпы шығындардың есебі
Жалпы шығындар бұл – жарыққа, жылуға, коммуналды қызмет
Шбөқ = 15895+59,1+5298 =21252 теңге
Қорытынды
Берілген бағдарламалық өнімді құруға кеткен шығындарды есептеу нәтижесінде
Шығындарды төмендету үшін келесі шешімдерді ұсынуға болады. Бағдарламашының
3.5 Өнімнің бәсекеге төзімділігін бағалау
Бұл бағдарлама тек пәндік-циклдық комиссиялар бойынша студенттер жөніндегі
Аталған бағдарлама өңдеушінің меншігі болғандықтан, бағдарламаны коммерциялық қолдану
Бағдарламаның функциялары мен жұмыс алгоритмі кез келген
Енді құрылған бағдарламаның бәсекеге төзімділігін бағалайық. Аталған бағдарлама
Салыстырмалы кестеде құрылған бағдарлама мен Delphi тілінен
3.5.1 – кесте. Салыстырмалы кесте
Көрсеткіштер өзіндік бағдарлама Сабақ кестесі бағдарламасы
Амортизациялық аударымдар 11514 14615
Электрэнергия шығыны 1993,1 2243
Қосымша материалдар шығын 2878 3456
ДЭЕМ-ді пайдаланудың өзге шығындары 6716 8631
Жалпы шығын 21252 27452
Жалпы осы 2 бағдарламаны
4 ЕҢБЕК ҚОРҒАУ
Қазақстан Республикасының Конституциясы бойынша (24 - бап) әр
Жұмысшылардың қауіпсіздік және еңбектегі гигиена еңбектіқорғау құқығын келесі
1.ҚР конститутциясы 30 август 1995 жыл.
2.ҚР еңбекті қорғау заңы 22 қаңтар 1993 жыл.
3.ҚР еңбек туралы заңы 10 желтоқсан 1999 жыл.
Еңбекті қорғауда нормативтік актілерге мынылар жатады.
1.Стандартты еңбек қауіпсіздігінің системалары.
2.Бекітілген мемлекеттік стандарттар.
3.Сала стандарты.
4.Кәсіпорындық стандарттар.
5.Санитарлық ережелермен нормалар гигиеналық нормативтер.
6.Сала аралық еңбекті қорғау ережелері мен инструкциялары.
«Еңбек қорғау» курсы жоғары оқу орындарында 1965
«Еңбек қорғау» пәні өндірісте еңбек жағдайларын толық қауіпсіздендіру,
Еңбек қорғау мәселелерінің мақсаты - өндірістік жағдайларда
Бұл курс төрт бөлімнен тұрады:
1. еңбек қорғау жөнінде жалпы мәселелер
2. өндіріс санитариясы
3. қауіпсіздік техникасы
4. өрт қаупсіздігі
Бірінші бөлімде қауіпсіздік қызметін ұйымдастыру, еңбек қорғау жөнінде
Екінші бөлімде өндірістік зияндылықтар және олардан қорғану шаралар
Үшінші бөлімде әр түрлі технологиялық процестерді жүргізу
Төртінші бөлімде өндірісте өрт шығуына мүмкіндік бермеу және
Еңбек қорғау мәселелерімен студенттер үш этап бойы танысады:
1. инженерлік пәндерді өткен кезде
2. осы арнайы курсты өткенде.
3. дипломдық жобаны дайындағанда.
Бұл курстың мақсаты – студенттерді еңбек қорғау мәселелерінің
Еңбек қорғау мәселелерін әрі қарай дамытып, жетілдіру үшін
Дәрігер Никитин А.Н. өз жұмыстарында гигиена мәселелерін көтерген,
Профессор Хлопин Г.В. кәсіби аурулар мен улануды білу
4.1 Электр қауіпсіздігі
Электр энергиясы өнеркәсіптің барлық саласында кеңінен қолданылады.
Электр энергиясын пайдалану адам еңбегін жеңілдетіп, оның өнімділігі
4.2 Электр зақымдануынан қорғану шаралары
Электр тогымен зақымдану қауіптілігін төмендету үшін әр түрлі
1. Аз шамалы кернеу деп 42 В дейін
2. Электр изоляциясы адам ток өткізгіштерге тиіскен жағдайда
Өткізгіштердің жұмыс изоляциясы электр қондырғылардың әдеттегі жұмысын және
Электр ток өткізгіштер изоляциясының 500 мың Ом кем
3. Қоршаулар изоляциясыз ток өткішгізтерге және жоғары кернеулі
4. Блокировка арнайы құралдардың көмегімен адамның қызмет барысында
5. Ескерту сигналы электр қондырғыларында электр тоғы (кернеу)
6. Еден ток өткізгіш материалдардан жасалған жағдайда (металл,
7. Электр қондырғыларының корпусы эмаль, лак, сыр тағы
8. Ток өткізгіштерді оларға тиісе алмайтын жерлерге орналастыру
9. Электр қондырғыларды аулақтан (қашықтан) басқару олармен қызметшілердің
10. Электр желісінде токтың күші шамадан артық
Ең қарапайым және көп тарағаны балқу сақтандырғышы болады.
Әр балқу сақтандырғыш токтың нақты шамасы көрсетіліп, колибрланған
Электр желісінде қолдану ток күшінің үлкен қауіпінен сақтану
11. Ескерту плакаттары жұмыскерлерді токпен зақымдану қауіптіліг туралы
12. Электр жабдықтарына қатысы бар адамдардың мамандық дәрежесі
13. Орындалған конструкциясына байланысты электр қондырғылары ашық, қоршалған
Қоршалған қондырғыларда ток өткізгіш және қозғалғыш бөлшектерге тиісу
Жабық түрлі қондырғылардың ішкі құрлысы сыртқы ортадан түгелдей
Электр қондырғыларының жарылудан және ылғалдан қорғалған түрлері болады.
4.3 ДК-мен жұмыс істеу кезіндегі қауіпсіздік ережелері
Сіздің жұмыс орныңызда компьютердің бөліктері орналасқан: жүйелік блок,
Компьютермен жұмыс кезінде монитордың сәуле түтігі жоғарғы кернеуде
Төмендегілерді істеуге болмайды:
Оқытушының рұқсатынсыз аппаратураларды тоқ көзіне қосуға, үзіп тастауға
Кабельдердің қосылған орындарына тиюге болмайды.
Жұмыс істеп отырғанэкранға, монитор мен пернетақтаның артына тиюге
Компьютерді мұғалімнің рұқсатынсыз қосып, сөндіруге болмайды.
Компьютердің жанына сөмкелер, кітаптар, пернетақтаның үстіне дәптерлер мен
Су киіммен және су қолмен жұмыс істеуге тиым
Компьютерлік аудиторияда жүгіруге және ойнауға болмайды.
Жұмыс атқару тәртібі:
Компьютер экранынан 60-70 см дұрыс,еңкеймей,жатып алмай отыру керек.
Компьютерде 20 минут жұмыс атқарған соң міндетті түрде
Компьютермен жұмыс істеп отырған адамның қасына отырып, кедергі
Аппаратуралардың дұрыс жұмыс атқаруын қадағалап отыру керек. Егер
Пернелерді қатты баспай, жай басыңыз.
Аппаратураның ақауын өз бетінше жөндемеңіз.
4.4 Өрт
Өрт адамның басқаруынан және бақылауынан шыққан жану процесі
Қазіргі кезде республика көлемінде кәсіпорындарда өртке қарсы күресу
Өрт шығу жағдайларын болдырмау өрт қауіпсіздігімен қамтамасыз етіледі.
Өртің адамдарға әсер ететін қауіпті факторлары: ашық от
Кәсіпорындарында өрт қауіпсіздігі өрт болдырмау және өрттен қорғау
Өрт сөндіру үшін пайдаланылатын құралдарды үш түрге бөлуге
Бірінші қолданылатын өрт сөндіргіш құралдарына жататын жабдықтар: өрт
Бұл құралдарды бірінші деп атайтыны, олар өрт шыққан
Химиялық көбікті то сөндіргіштер ОХП-10 (ОХВП-10) және ауа
Көмір қышқыл от сөндіргіштер ОУ-2, ОУ-5, ОУ-8 шағын
Көмір қышқыл-бромэтилді от сөндіргіштер ОУБ-3А, ОУБ-7А талшық заттарды,
Ұнтақты от сөндіргіштерді ОПС-6, ОПС-10, ОП-8УI тоғы бар
Тез тұтанғыш және жанғыш заттар көп мөлшерде тұратын
Қызыл сырмен боялған, көлемі 0,5-1м3, темір жәшіктер ұсақ
Кәсіпорындарында үлкен өрттерді сөндіру үшін стационарлы өрт сөндіргіш
Жылжымалы өрт сөндіргіш құралдары негізгі және арнайы
Арнайы құралдарға жатады: байланыс және жарық автомобилдері, автобасқыштар,
ҚОРЫТЫНДЫ
Визуализация – бұл күрделі процестердің (құру) графикалық бейнелену
Программалар дайындығы көрнекті, осының есебінен тиімді етуге ұмтылу
Визуалды программалау программаны құру бойынша жобалаудан жинақтауға дейін
Визуалды программалаудың болашағы оның құралдық және когнтивті қасиетімен
Дайындалған компоненттерден арнайы түрде программаны визуалды жинақтауға немесе
Delphi ортасы – визуалды программалау жүйесін көп қолданушылар
Delphi арқылы локальды, алшақтағы деректер қорымен жұмыс істеуге,
Delphi программалау тілі – объектілі- бағдарланған көрнекілі программаланатын
Қазіргі заманда негізгі - Object Pascal тілі болатын
“Delphi ортасындағы жобаны нұсқаулау” тақырыбы бойынша орындалған дипломдық
Қорыта айтқанда, бұл дипломдық жобаны жазу және
Қолданылған әдебиеттер тізімі
Архангельский А. Я. Интегрированная среда разработки Delphi –
Архангельский А.Я. Приемы программирования в Delphi .-М.:ЗАО «
Архангельский А.Я. Программирование в Delphi 7.-М.:ООО «Бином-Пресс», 2003.
Ахаян Р.М. «Эффективная работа с СУБД». Санкт-Петербург, «Питер»,
Бланк И.А. Финансовый менеджмент: Учебный курс.
Брусенцов Н.П., Маслов С.П., Х.Рамиль Альварес Микрокомпьютерная система
Возневич Э. «Освой самостоятельно Delphi: Полное руководство для
Гусева Т.И., Башин Ю.Б. Проектирование баз данных в
Евдокимов В.И., Козаченко В.И., Нейман Л.А., Румянцев В.В.
Ефимова О.В. Финансовый анализ. М.: Бухгалтерский учет, 2000.
Культин Н. «Delphi. Программирование на Object Pascal» -
Культин Н. Программирование в Turbo Pascal 7.0. и
Ларcон, Брюс. «Руководство по экспертным базам данных». Пер
Липаев В.В. Тестирование программ. - М.: Радио и
Марко Кэнту. Для профессионалов Delphi 6. Санкт-Петербург, изд.
Миллер Т., Пауэл Д. Использование Delphi 3. Специальное
Сван Том. Секреты 32-разрядного программирования в Delphi. К:
Сергиевский М.В., Шалашов А.В. «Турбо Паскаль 7.0: Язык,
Фаронов В.В. Delphi 4. Учебный курс. –М.: Нолидж,
Федоров А. Г. Создание Windows-приложений в среде Delphi.
ҚОСЫМША А
Бағдарламаның листингісі
procedure Tf_main.N8Click(Sender: TObject);
begin
fs_kurs.ShowModal;
end;
procedure Tf_main.es_adresChange(Sender: TObject);
begin
Query1.Close; // Закрываем таблицу
// Передаем в запрос Ф.И.О. - для фильтрации
Query1.ParamByName('adr').Value:=es_adres.Text;
Query1.open; // Открываем таблицу
end;
procedure Tf_main.N9Click(Sender: TObject);
begin
f_Watch.ShowModal;
end;
end.
unit U_per_info;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons;
type
TF_per_info = kurs(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_per_info: TF_per_info;
implementation
uses U_main;
{$R *.dfm}
end.
unit U_f_Watch;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Grids, DBGrids, Buttons, DB, DBTables,
Menus;
type
Tf_Watch = kurs(TForm)
DBGrid1: TDBGrid;
Label1: TLabel;
list_class: TDBLookupComboBox;
BitBtn1: TBitBtn;
ComboBox1: TComboBox;
Label2: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
rasp: TQuery;
rasp_s: TDataSource;
GroupBox1: TGroupBox;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Label3: TLabel;
Label4: TLabel;
e_pred: TEdit;
Label5: TLabel;
NPP: TSpinEdit;
rasp_edit: TQuery;
e_dday: TComboBox;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure BitBtn4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure list_ kursClick(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure e_predKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure NPPKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure e_ddayKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
f_Watch: Tf_Watch;
pr_edit: boolean;
implementation
uses U_main, U_repRasp;
{$R *.dfm}
procedure Tf_Watch.BitBtn4Click(Sender: TObject);
begin
close;
end;
procedure Tf_Watch.FormShow(Sender: TObject);
begin
f_main.s_ kurs.close;
f_main.s_ kurs.open;
list_ kurs.KeyValue:=f_main.s_ kurs.FieldValues[' kurs '];
rasp_edit.Close;
rasp.Close;
rasp.ParamByName('d').Value:='%';
rasp.ParamByName('id').Value:=f_main.s_ kurs.FieldValues['id'];
rasp.open;
rasp_edit.Open;
end;
procedure Tf_Watch.ComboBox1Change(Sender: TObject);
begin
rasp.Close;
IF combobox1.ItemIndex=0 THEN rasp.ParamByName('d').Value:='%'
ELSE rasp.ParamByName('d').Value:= combobox1.Text;
rasp.open;
end;
procedure Tf_Watch.list_ kurs Click(Sender: TObject);
begin
rasp.Close;
rasp.ParamByName('id').Value:=f_main.s_ kurs.FieldValues['id'];
rasp.open;
end;
procedure Tf_Watch.BitBtn6Click(Sender: TObject);
begin
GroupBox1.Hide;
end;
procedure Tf_Watch.BitBtn5Click(Sender: TObject);
var id:integer;
begin
IF pr_edit=false THEN
BEGIN // Добавление новой записи
rasp_edit.Append;
rasp_edit.FieldByName('id_ kurs ').AsInteger:=f_main.s_ kurs.FieldValues['id'];
rasp_edit.FieldByName('NPP').AsInteger:=npp.Value;
rasp_edit.FieldByName('Dday').AsString:=e_dday.Text;
rasp_edit.FieldByName('iDday').AsInteger:=e_dday.ItemIndex;
rasp_edit.FieldByName('name_urok').AsString:=e_pred.Text;
rasp_edit.Post;
END
ELSE IF rasp.RecordCount>0 THEN
BEGIN // Редактирование записи
rasp_edit.Edit;
rasp_edit.FieldByName('id_ kurs ').AsInteger:=f_main.s_ kurs.FieldValues['id'];
rasp_edit.FieldByName('NPP').AsInteger:=npp.Value;
rasp_edit.FieldByName('Dday').AsString:=e_dday.Text;
rasp_edit.FieldByName('iDday').AsInteger:=e_dday.ItemIndex;
rasp_edit.FieldByName('name_urok').AsString:=e_pred.Text;
rasp_edit.Post;
END;
id:=rasp_edit.FieldByName('id').AsInteger;
rasp.Close;
rasp.Open;
rasp.Locate('id',id,[]);
GroupBox1.Hide;
end;
procedure Tf_Watch.BitBtn1Click(Sender: TObject);
begin
pr_edit:=false;
GroupBox1.show;
e_pred.SetFocus;
GroupBox1.Caption:='Добавление:';
end;
procedure Tf_Watch.BitBtn2Click(Sender: TObject);
begin
pr_edit:=true;
e_pred.Text:=rasp.fieldbyname('name_urok').AsString;
npp.Value:=rasp.fieldbyname('npp').AsInteger;
e_dday.ItemIndex:=rasp.FieldByName('idday').AsInteger;
GroupBox1.show;
GroupBox1.Caption:='Редактирование:';
end;
procedure Tf_Watch.BitBtn3Click(Sender: TObject);
begin
if rasp.RecordCount>0 THEN
IF application.MessageBox('Удалить запись ?','Удаление', mb_yesNo) =6 THEN
BEGIN
rasp_edit.Delete;
rasp.close;
rasp.Open;
END;
end;
procedure Tf_Watch.N1Click(Sender: TObject);
begin
BitBtn1.Click;
end;
procedure Tf_Watch.N2Click(Sender: TObject);
begin
BitBtn2.Click;
end;
procedure Tf_Watch.N3Click(Sender: TObject);
begin
BitBtn3.Click;
end;
procedure Tf_Watch.e_predKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ord(key)=13 THEN bitbtn5.Click;
end;
procedure Tf_Watch.NPPKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ord(key)=13 THEN bitbtn5.Click;
end;
procedure Tf_Watch.e_ddayKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ord(key)=13 THEN bitbtn5.Click;
end;
end.
unit u_s kurs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Buttons;
type
Tfs_ kurs = kurs (TForm)
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
GroupBox1: TGroupBox;
e_ kurs: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure BitBtn3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fs_ kurs: Tfs_ kurs;
implementation
uses U_main;
{$R *.dfm}
procedure Tfs_ kurs.BitBtn3Click(Sender: TObject);
begin
close;
end;
procedure Tfs_ kurs.SpeedButton1Click(Sender: TObject);
begin
GroupBox1.Hide;
end;
procedure Tfs_ kurs.BitBtn1Click(Sender: TObject);
begin
GroupBox1.Show;
end;
procedure Tfs_ kurs.SpeedButton2Click(Sender: TObject);
begin
IF Length(trim(e_ kurs.text))>0 THEN
BEGIN
TRY
f_main.s_ kurs.Append;
f_main.s_ kurs.FieldByName(' kurs ').AsString:=trim(e_ kurs.text);
f_main.s_ kurs.post;
GroupBox1.Hide;
EXCEPT
application.MessageBox('Возможно такой класс уже есть в базе данных!
END;
END ELSE application.MessageBox('Введите название класса (операция отменена)',nil);
end;
procedure Tfs_ kurs.BitBtn2Click(Sender: TObject);
begin
if f_main.s_ kurs.RecordCount>0 THEN
if application.MessageBox('Удалить курс?','Удаление',mb_YesNo)= 6 THEN
f_main.s_ kurs.Delete;
end;
procedure Tfs_ kurs.FormShow(Sender: TObject);
begin
f_main.s_ kurs.Close;
f_main.s_ kurs.Open;
end;
end.
unit U_repRasp;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, QRExport;
type
TRep_rasp = kurs (TQuickRep)
private
public
end;
var
Rep_rasp: TRep_rasp;
sdd:string;
implementation
uses U_main, U_f_Watch;
{$R *.DFM}
end.
unit U_about;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
Tabout = kurs (TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
about: Tabout;
implementation
{$R *.dfm}
procedure Tabout.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
ҚР ҚЭУ ДЖ ИСЗ1 Бет
8
Өзг Бет Құжат № Қолы Күні