Мейрамхана жұмысын автоматтандыру (Delphi ортасында)

МАЗМҰНЫ
Кіріспе 2
1 Бағдарламалау ортасының негізгі элементтері 4
1.1 Delphi.дi iске қосу. Delphi интерфейсi. Проект 4
1.2 Оқиғалар. Программалық код терезесi. әдiс 6
1.3 Компоненттер палитрасы 12
1.4 Компоненттердi пайдаланып қарапайым проект құру 14
1.5 Проектiнi сақтау және ашу 17
2 Жиындар 19
3. Delphi.де қолданылатын мәліметтер қорының түрлері 27
3.1. Delphi.де МҚ байланысты ұйымдастыру 30
3.2. TQuery компонентімен жұмыс 33
4. «МЕЙРАМХАНА ЖҰМЫСЫН АВТОМАТТАНЫДРУ» БАҒДАРЛАМАСЫН СИПАТТАУ 36
4.1. Бағдарламаның негізгі сипаты 36
4.2. Тағамды іздеу 37
4.3. Мәліметтерді қосу, өзгерту және өшіру 39
4.4. Тапсырыс беру 41
4.5. Тапсырыстар кестесі 42
ҚОРЫТЫНДЫ 43
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР 44
Қосымша 45
        
        МАЗМҰНЫ
Кіріспе 2
1 Бағдарламалау ортасының негізгі элементтері 4
1.1 Delphi-дi iске ... Delphi ... ... ... ... Программалық код терезесi. әдiс 6
1.3 Компоненттер ... ... ... пайдаланып қарапайым проект құру 14
1.5 Проектiнi сақтау және ашу 17
2 Жиындар 19
3. ... ... ... ... ... ... ... МҚ байланысты ұйымдастыру 30
3.2. TQuery компонентімен жұмыс 33
4. ... ... ... ... СИПАТТАУ 36
4.1. Бағдарламаның ... ... ... ... іздеу 37
4.3. Мәліметтерді қосу, өзгерту және өшіру ... ... беру ... ... кестесі 42
ҚОРЫТЫНДЫ 43
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ... ... ... ... ... ... ... қарқыны өте жылдам
дамып келеді. Ақпараттық процесстер - адамдар арасында, тірі ... ... ... ... ақпарат тасымалдау, жинақтау мен
түрлендіру процесстері.
Ақпаратты басқару компьютерлерді қолданудың ... ... ... және де, ... ... роль ... қоры - ... қандай да бір саласындағы немесе оның
бөлігіндегі ... ... ... ... ... ... ... жүйесі компьютерлік техниканың даму ... ... ... ... ... ... ... деңгейдегі
талаптарын орындауға бейімделді.
Қазіргі қоғамның талаптарына сәйкес жаңа ... ... ... ... ... мәселелердің бірі.
Өнеркәсіптерде, ... және жеке ... ... ... және ... да ... ... жүйесін кеңейту және
ақпаратты-іздестіру жүйесі мәселелері алға ... ... ... ... ... ... жүйелер мен құрылғылар
қолданылады, олардың ішінде ... ... ... ... оқу ... есептеу, қызметкерлер, студенттер туралы электронды
мәліметтер қоры және тағы да басқалар бар.
Курстық жұмыс Delphi ... ... ... ... ... ... басқару жүйесі ретінде Paradox қосымшасы ... ... Delphi ... ... үшін ... ... ... құруда бірден-бір кеңінен таралған құрылғы болып
есептелінеді. Delphi-де МҚ ... ... ... ... интерфейсі реализациясы әдістерін таңдай алу мүмкіндігі ғана
емес, ... ... ... ... және мәліметтерге ену мүмкіндігі
да бар. Бұл тіл визуалды бағдарламалау ортасы, бағдарламалауға тиімді және
қолайлы ... ... ... ... ... ... өтер ... «Мейрамхана жұмысын автоматтандыру». Бұл курстық жұмыстың
мақсаты, мейрамханада жұмыс ... ... ... ... ... ... ... элементтері
1.1 Delphi-дi iске қосу. Delphi интерфейсi. Проект
Windows жүйесiнде Delphi ... iске қосу үшiн оны ... ... ... Орта ... ... соң, ... iске
қосу командасы:
Iске қосу - Программалар - Borland Delphi 6 ( Delphi 6
Нәтижеде экранда Delphi интерфейсi көрiнедi (1-сурет).
1.1-сурет. Delphi ортасы
1 - ... 1. ... ... ... негiзгi терезесi;
2 - Форма (Form1);
3 - Объект инспекторы терезесi (Object Inspector).
- Ортада программа ... ... ... ... да iске
қосылады (Unit1.pas). ... ... ... ол ... ... Delphi интерфейсiнiң құрамына негiзгi мәзiр, аспаптар панелi
және компоненттер палитрасы (2-сурет) енгiзiлген.
Сурет 2. Delphi-дiң негiзгi терезесi
Негiзгi ... ... (iшкi ... ... жұмыс iстеу
командалары, аспаптар панелiне iшкi ... ... ... ... түймелер орналастырылған.
Delphi-де дайындалатын программа проект деп аталады. ... ... ... алдында ашылатын, программаның сүхбаттық терезесi.
Delphi ... рет iске ... ... ... Form1 ... берiледi (1-
сурет). Оның жиектерiне тышқан көрсеткiшiн ... ол екi ... ... айналған кезде форманы кеңейтуге не қысуға болады.
Программа пайдалану үшiн форма бетiне түрлi компоненттер орнатылады.
Негiзгi ... Delphi ... ... ... және ... ... енгiзiлетiн компоненттердiң ... бар. Олар ... ... ... ... ... анықтайды. Мысалы, форма қасиеттерi - ... ... ... экранда орналасуы, түсi т.б. Delphi iске қосылған кезде форма
қасиеттерiне алғашқы ағымдық ... ... ... онда ... ... ... құру үшiн дайындау оның
кейбiр қасиеттерiнiң мәндерiн өзгертуден басталады. ... ... ... (Object ... ... ... Тiзiмдi инспектор
терезесiне шығару үшiн керектi объектiнi (форманы не формада ... ... ... ... Инспектор терезесiнiң жоғарғы қатарына
таңдалған объект атауы ... ... Delphi iске ... кезде
форманың алғашқы қасиеттер терезесi 1-суретте көрсетiлген. Қасиеттер
терезесiнiң екi ... бетi бар: ... ... және Events
(Оқиғалар). Терезе ашылғанда екi ... ... ... ... оның
Properties бөлiмi ашылулы тұрады (1-сурет). Бiрiншi бағанда – ... ... ... ... – олардың мәндерi енгiзiледi.
- Объект қасиетiн программа (программалық код) iшiнде орнатуға
болады. ... ... ... ... ... 14 ету ... ... := 14 меншiктеу операторын
енгiзуге болады.
- Экранда қасиеттер терезесi көрiнбесе, оны шығару үшiн ... ... ... беру жеткiлiктi. Ол ±11 клавишi
басылған кезде де көрiнедi.
Ескерту. Жаңа проект iске ... ... ... Delphi ... iске ... ... Терезеден Delphi News бумасын таңдау
жеткiлiктi.
1.2 ... ... код ... әдiс
Delphi-де программалар оқиғалар арқылы басқарылады. Мысалы,
пайдаланушы программа құру үшiн ... ... ... ... ... компоненттi тышқан арқылы шертуi мүмкiн. Осы iс-әрекет
(тышқанның шертiлуi) оқиға деп ... ... ... - ... ... ... ... жағдайын өзгертетiн белгiлi бiр iс-әрекеттi
шақырады.
- Delphi-де әр ... атау ... ... ... ... Button ... арқылы формада
орнатылған Button1 компонентiн шерту Click (Шерту) ... ... ... ... ... бар. Мысалы, формаға
байланысты оқиғалар саны – 35 (3-сурет). Олар ... Events ... ... ... Терезеде оқиға
атауларының алдына On префиксi (қосымшасы) тiркестiрiлiп
жазылған. Ол - ... ... ... бiлдiретiн белгi.
Сурет 3. Форма оқиғалары
Delphi ортасында жиi қолданылатын оқиғалар:
OnClick – тышқан түймесiн бiр рет ...... ... екi рет басу;
OnKeyDown – клавиштi басу;
OnKeyUp – басылған клавиштi босату;
OnMouseDown – тышқан ... ...... ... босату;
OnMouseMove – тышқан көрсеткiшiн жылжыту;
OnCreate – форманы екi рет шерту, т.б.
Delphi-де программа (проект) екi бөлiмнен тұрады: алғашқыда автоматты
түрде project1 атауы ... ... ... (негiзгi модуль) және unit1.pas
атауы берiлетiн модуль. Олар жеке терезелерде орналастырылған. Модульге
оқиғаларға сәйкес iс-әрекеттердi орындайтын программа мәтiнi (процедуралар)
енгiзiледi ... ... кең ... ... ... ... код деп, ... программалық код терезесi не қысқаша
редактор терезесi деп те атайды. Оны экранға шығару тәсiлдерi:
- форманы жабу (жабу тұймесiн шерту);
- код ... бiр шетi ... ... ... ... шерту. Терезе белсендiрулi тұрде ашылады да, онда процедура дайындамасы
(ұлгiсi) көрiнедi. Оның ... ... ... бөлiнген класс және процедура
атауларынан тұрады (4-сурет), т.б.
Формадан код терезесiне өту және код ... ... өту ... ... басу ... 4-суретте көрiнiп тұрғаны – код ... ... ... ... ... құрылатын процедура
оқиғаны өңдеуiш не оқиғаны өңдеу процедурасы делiнедi. ... ... ... (Sender : ... ... ... ... Sender параметрi құрылатын процедураның қай класқа
тиiстiлiгiн анықтайды.
Терезенiң сол бөлiгiндегi - ... ... Онда код ... ... ... ... ... болады.
Сурет 4. Программалық код терезесi.
Кез келген программа program сөзiнен басталатын проект файлы мен бiр
не бiрнеше модульдерден тұрады да, ... ... ... ... ... ... файлы dpr, модуль pas ... ... ... файлын негiзгi модуль деп атайды. Негiзгi модульдiң мазмұны
проектiнiң ... ... ... Delphi iске ... ... оны ... ... дайындап шығады. Негiзгi модульге ерекше жағдайлардан басқа
кездерде қосымша нұсқаулар енгiзудiң қажетi жоқ. Негiзгi модуль ... ... in ... ... ... Form1);
Application.Run;
end.
- мұндағы,
Project1 – негiзгi модуль (проект) атауы. ... ... ... ... сақтаған кезде ол соңғы атауға алмастырылып қойылады;
Uses (қолдану) – Турбо Паскальдағы сияқты, қызметшi сөз. Оның соңына
программада пайдаланылатын ... ... Forms ... ... ... ... рет меншiктеген атауы (Unit1) жазылған. Unit1-
ден соң оның қайсы модульдiк файлда құрылатыны (in ’Unit1.pas’) және онымен
байланысты ... ... ... ...... Ол ... ... (Windows көмегiмен
дайындалған қолданбалы программаның) қор ... ... ... ... ... және ... пайдалану
керектiгiн көрсетедi (файлдың кеңейтiлуi - .res);
Begin - end операторларының ... ... ... ... ... алғашқы жұктелуiн қамтамасыз ететiн әдiстер (Delphi-де арнайы iс-
әрекеттi орындайтын процедура, функция және командалар әдiстер ...... ... инициалдау (программаны
алғашқы рет дайындау) әдiсi;
Application.CreateForm – проект құрамына енетiн форманы ... ... әдiсi (create - ...... iске ... ... ету әдiсi.
- Delphi-де әдiстiң командалық тұрде жазылуы:
.
- Мысалы, Application.Initialize – Application ... ... ... ... ... ... сақталатын бума атын меншiктеу
командасын қосып қою да мұмкiн, ... ... ... ... ... ... ... басталады.
Модуль – тұрлi iс-әрекеттердi орындауға арналған программа бөлiмi.
Модуль тақырыбы Unit (модуль) ... ... ... ... ... ұтiр (;) ... ... модуль атауы жазылады.
Delphi-дiң модульге алғашқы рет меншiктейтiн атауы: Unit1. Жаңа ... ... ... ... да автоматты тұрде құрылады:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs;
type
TForm1 = ... Private ... ... Public ... ... ... *.DFM}
end.
Интерфейс (interface) бөлiмi interface кiлттiк сөзiмен басталады да,
оған ... ... ... uses – ... ... ... ... оған стандартты модуль атаулары жазылады, ... ... ... атауын кiрiстiрiп қою да мұмкiн. Одан әрi, ... ... типi ... ... ... ... компоненттер
сипатталып, олардан соң модульде жазылатын процедуралар мен ... ... ... т.б.).
Private (жеке, дербес) бөлiмiне тек ағымдық модульге ... ... ... (элемент – өрiстер, әдiстер, қасиеттер мен оқиғалар);
Public (көпшiлiк) бөлiмiнiң iшiнде ағымдық модульге қол ... ... ... ... не ... ... элементтерi, облыстары
енгiзiледi. Олар класқа енетiн элементтердiң ... ... ... ... әдетте (көп жағдайда) олар бос көрiнедi.
Implementation (iске асыру,орындау) бөлiмiндегi {$R*.DFM} – ... ... ... ... ... нұсқауы. Ол модульдi оған
сәйкес форманың сипаттамасымен байланыстырады (файлға ... ... ... ... Ол формада орнатылған компоненттер қасиеттерiнiң
де сипаттаммаларын бойында сақтайды. Қасиеттер ... Object ... ... Одан ... ... программалаушы Delphi тiлiнде
қажеттi процедураларды қолдан ... ... ... ... ... процедуралардың тақырыптары модульдiң интерфейс бөлiмiнде автоматты
тұрде ... ... ... ... ... (initialization) бөлiмi енгiзiледi.
Бөлiм модуль айнымалыларын инициалдап (бастапқы ... ... ... ұшiн ... Егер ол ... бұл ... басқаруды программа
денесiне беруден ... ... ... ... begin және ... ... ... енгiзу керек. Жоғарыда көрсетiлген сияқты, бөлiм
толтырылмаса, begin сөзi жазылмай, оған тек end. сөзi ... Ол ... ... бiлдiретiн кiлттiк сөз.
1.3 Компоненттер палитрасы
Delphi-де программа дайындау ұшiн компоненттiк ... ... ... ... ... ... бiрге
ұсынылатын, белгiлi бiр iс-әрекеттi орындайтын компоненттерден жинақталады,
ал олар ... ... ... Компоненттiк тәсiл программалау
технологиясына нағыз төңкерiс жасады ... ... ... ... ... ... ... тұрде жеңiлдеттi.
- Компоненттер кiтапханасын визуальды компоненттер кiтапханасы
(Visual Component Library, VCL) деп ... Онда ... ... (Delphi 5-те ... саны ... олар ... атаулы 19 бетке орнатылып қойылған.
Жиi қолданылатын беттер мен компонеттер 1-кестеде көрсетiлген:
1.1-кесте
|Standard ... жиi ... ... ... |
| ... бет. ... ... ... толықтырушы қосымша бет. ... |Windows 95/98 ... ... ... компонеттер|
|System |Таймер, плеер т.с.с. жұйелiк компонеттер бетi ... ... BDE ... ... бетi ... ... ... бетi ... ... ... тiкелей байланыс |
|Midas ... ... ... қосымшаларын құру ... ...... ... ... ... құру ... |Есептер даярлау ... |“Open file”, ... ... ... ... |
| ... ... кейбiр компоненттерi: ... ... ... ... |Бiр жолдық мәтiндi енгiзу және редакциялау ... |Көп ... ... ... және редакциялау ... ... ... құру ... |Компоненттердi ... ... ... ... құру |
| ... ... ... ... ... ... бейне орнатуға болатын командалық тұйме |
|Image |Графикалық кескiндердi ... ... ... ... ... тұрлi геометриялық фигураларды шығару |
|Chart ... мен ... ... |
| ... ... ... ... |Дыбыссыз клиптердi орындау ... ... ... уақыт алатын процестердi бейнелеу |
| ... ... ... ... ... ... интервалын беру ... ... ... ... ... ... облыс құру |
| ... ... ... ... ... ... ашу ... терезесiн |
| ... ... ... ... ... ... ... |
| ... ... ... ... ... 1-тарауда келтiрiлген.
Пайдаланушы жаңа компонент дайындап, оны ... ... ... ... Компоненттердi пайдаланып қарапайым проект құру
- Формада орнатылған Label, Edit компоненттерiнiң Caption,
Text ... ... ... қол жеткiзу – Паскальдағы
жазу өрiсiне қол жеткiзу сияқты. Алдымен ... ... одан соң ... ... да, оның ... ... ... Қасиетке мән меншiктеу тәсiлi әдеттегiдей.
Мысалы:
Label1.Caption:=’Бiз студенттермiз’;
Edit1 өрiсiне енгiзiлген қарапайым мәтiндi (S) Label1 ... ... ... Ол ұшiн ... ... ... етiп алу жеткiлiктi
(Edit1.Text - Edit1 объектiсiнiң Text қасиетiн программа арқылы
орнату ... s : ... := ... := ... Екi ... ... есептейтiн қосымша құру керек.
- Delphi-дi iске қосып, жаңа ... ... ... Edit1, Edit2, Label1, Label2, Label3, ... ... ... бетiне 5-суреттегiдей етiп
орнату;
Сурет 5. Компонеттер орнатылған форма
- ... және оның ... ... ... ... |Меншiктелетiн мән ... |Font |Times Kaz, 10 |
| |Caption ... ... ... |Text | (бос ету) ... |Text | (бос ету) ... |Caption ... ... |Caption ... ... |Caption ... ... |Caption |- (бос ету) ... |Caption ... |
- ... ... ... ... екi рет шерту. Click
оқиғасы процедурасының дайындамасы көрiнедi. Оның тақырыбы:
- ... TForm1. ... (Sender : ... ... ... енгiзу:
Рrocedure TForm1.Button1Click(Sender: TObject);
Begin {негiзгi програма}
// Меншiктеу
Panel1.Caption:=Edit1.Text+'*'+Edit2.Text+'='+
FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
end;
Фигуралық жақшалар iшiне ({ }) жазылған мәтiн – тұсiнiктеме ... ... ... бiр ... ... қос ... ... // ) соң жазуға да болады (процедураны қараңыз).
- Iске қосу командасын беру ... ... ... соң, жұйе “Сандарды көбейту” тақырыбы
жазылған форманы экранға шығарады;
- 1-сан және 2-сан өрiстерiне мәндер ... (-8 және ... ... тұймесiн шерту. Panel1 өрiсiне нәтиже жазылып
қойылады (6-сурет).
Сурет 6. Нәтиже шығарылған форма
Delphi-де визуальды программалау ... екi ... ... ... не
онда орнатылған компоненттер арқылы программаның визуальды ... және ... ... ... код ... Проектiнi сақтау және ашу
Проектiнi дайындап болған соң оны сақтау ұшiн File-Save Project As не
File-Save All командасын беру ... Егер ... ... рет ... онда ... ... сұралатын Save Unit1 As терезесi көрiнедi.
Проект сақталу ұшiн арнайы бума дайындалмаған болса, ол ... ... ... ... ... ... ... жаңа бума құрып, проектiнi сонда сақтағаны
жөн. Ол оны iздеп табуды жеңiлдетедi. Жаңа бума құру тәсiлi:
сақтау ... ... Жаңа бума құру ... ... ... ... ... қойылады;
клавиатурадан бума атын енгiзу;
буманы екi рет шертiп, ашу;
терезенiң Файл аты ... ... ... ... ... ... ... .pas кеңейтiлуi бойынша сақталып қойылады да, экранда проект
аты сұралатын терезе ... аты ... ... атын ... ... ... шерту. Проект
файлы .dpr кеңейтiлуi бойынша ... да, ... ... ... осы ... Ол ... ... ретiнде қабылданады.
Мұндағы ескеретiн жайт: модуль мен проектiнi бiрдей атау бойынша
сақтауға да болады, ... ... ... ... ... басқа
проектiлерде де пайдалану мұмкiн. Сондықтан оларды тұрлi атаулар бойынша
сақтау керек.
Сақтаулы ... ашу ұшiн ... Project ... ... ... терезеден қажеттi буманы ашып, онда көрiнген проект атауын
екi рет шертсе болғаны.
1.6 ... ... ЕХЕ ... ... ... ... сақтаған соң, оны iске қосу
ұшiн ... ... Ол ұшiн ... ... ... ... ... Жұйенiң сәйкес кұйге келтiрiлуiне
байланысты, iске қосу ... ... ... ... ... сұхбаттық терезесiнде көрiнiп тұрады (7-сурет).
Сурет 7. Компиляциялау барысын көрсету терезесi
Компиляциялау командасы ... ... ... ... ... ықтимал. Оны экранға шығару тәсiлi:
Tools-Environment Options ... ... ... ... Options ... ... Preferences (Орнату) қосымша бетiн ашып, Compiling ... ... және ... блогында орналасқан Show ... ... ... көрсету) жалаушасын орнату.
Компилятор ерекшелеген жолда ... қате ... қате ... ... ... де ... мысалы, оған енгiзiлген команда соңына
нұктелi ұтiр (;) таңбасы қойылмаған, т.б.
Қате тұзетiлiп болған соң Iске қосу командасын қайта беру ... не ... Over (Iске ... ... ... ... болады.
Егер программада синтаксистiк қате бар болса, компиляциялау кезiнде
Delphi қате ... ... код ... ... ... қате
жiберiлген орынға курсорды орналастырады және қате типiн терезенiң төменгi
бөлiгiнде орналасқан терезеде ... ... ... ... ... ... компилятор бiр қатенi төменгi ... ... ... ... - ... қате жөнiнде мәлiмет, екiншiсi -
файлдың компиляцияланбағанын және орындалмайтынын хабарлау.
Проектiнi сақтау кезiнде Delphi PAS, DFM, DCU ... ... ... ... ... PAS - ... – код терезесiндегi мәтiн көшiрмесi; DFM
файлында форма терезесiнiң ... ... DCU - ...... да машиналық нұсқауға тұрлендiру ... Егер ... қате ... ... ... ехе файлға тұрлендiрiп шығады
(файлдың аты проект атауымен бiрдей етiп жазылады да, оған .ехе кеңейтiлуi
қосылып ... Ол ... ... ... ... ... ... Оны Windows жетекшiсi (сiлтеушiсi) терезесiнен
әдеттегiдей iске қоса беру ... ... ... деп белгілі.бір қасиеттері жағынан бір-бірімен
жақын байланысқан элементтердің жиынтығын ... ... ... ... квадраттар жазықтықтағы фигуралар ... ал куб, ... ... ... ... ... ... табылады. Turbo
Pascal-да жиындар деп бір ... ... ... ... ... ... бір идентификатормен белгіленеді. Жиындарға
кіретін элементтер типін негізгі тип деп атайды. Негізгі тип ... ... ... барлық скалярлық типтердің бәрін қолдануға болады.
Бағдарламада жиындар ... ... ... ... сипатталады.
Жиындар типін сипаттау үшін SET OF тіркесі қолданылады. Жиынды құрайтын
элементтер санын жиынның ... деп ... оның ... ... аспауы
тиіс. Жиындардың айнымалылар бөлімінде жазылуы:
VAR жиын аты - Set Of негізгі тип;
Сипатталуы:
VAR A:Set Of ... Set Of ... А, ... ... ... ... - ... білдіретін қызметші сөз.
Жиындардың типтер бөлімінде жазылуы мен сипаттапуы:
TYPE тип аты=Set Of ... ... жиын ... ... Jy= Set Of ... A:Jy;
мұндағы: Jy - жиындағы элементтердің ортақ типі,
1..31 - жиын элементтерінің негізгі типі, 1-ден 31-ге ... ... A - жиын аты ... белгіленген идентификатор .
Өрнектерде жиын элементтерінің мәндері арнаулы ... ... ... деп тік ... ішінде бір-бірінен үтір арқылы
жазылатын негізгі типті элементтер тізімін айтады, егер ... ... ... жоқ ... онда ... ... бос жиын деп ... да, тік
жақшаның іші бос болып жазылады. Жиындардың ... ... ... 5, 2, 4, 3]; //А ... 5 ... ... ... 'В', 'С', 'D']; //В жиыны 4 символдан тұрады
С:=[ ] //С ... бос ... ... ... ... ... ... (жиындарды біріктіру) - Екі жиынның ... ... ... ... ... ... үшінші жиын шығады.
Х:=А*В (жиындарды қиылыстыру) - Екі жиынның қиылысу нәтижесінде тек екі
жиында да бар элементтерден ... ... жиын ... (бір жиыннан екінші жиынды алу) - Бір жиыннан екінші жиынды алып
тастау нәтижесінде ... ... ... ... жоқ ... ... жиын шығады.
Бұлармен қатар жиындарға төмендегідей логикалық салыстыру амалдарын
қолдануға болады:
А=В, АВ - Егер А ... ... ... В ... бар ... ... ... барлық элементтері A жиынында бар болса және олардағы элементтер
саны бірдей болса, онда А мен В ... тең, ... бұл ... тең ... ... - Егер А жиынының барлық элементтері В жиынының элементі
болып табылса, онда А ... В ... ... ... ... іn В - X ... В ... элементі болып табылатындығын
анықтау функциясы.
Сондай-ақ In функциясын құрама шарттардың орнына қолдануға болады,
мысалға:
While (K>=1) And ... by nm ... ... ... ... TForm1.ToolButton3Click(Sender: TObject);
begin
form2.act:=nbInsert;
Form2.ShowModal;
end;
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
form2.act:=nbEdit;
Form2.ShowModal;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
var nm:string;
begin
nm:=DBGrid1.Fields[0].AsString;
if nm='' then exit;
if MessageDlg('Таңдағаныңызды өшіресіз бе?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo then ... ... ... from goods where ... ... ... TForm1.ToolButton9Click(Sender: TObject);
begin
//Form5.QuickRep1.Preview;
//Form5.ShowModal;
end;
procedure TForm1.ToolButton10Click(Sender: TObject);
var f:textfile;
i,j:integer;
path:string;
begin
path:=copy(Application.ExeName,1,length(Application.ExeName)-13);
assignfile(f,'current.doc');
rewrite(f);
writeln(f,'');
writeln(f,'Меню');
writeln(f,'№');
writeln(f,'Суреті');
for i:=0 to DBGrid1.Columns.Count-1 do
begin
writeln(f,''+DBGrid1.Columns[i].Title.Caption+'');
end;
writeln(f,'');
Query1.First;
for i:=1 to Query1.RecordCount do
begin
writeln(f,''+inttostr(i)+'');
DBImage1.Picture.SaveToFile(path+'\img\'+IntToStr(i)+'.bmp');
writeln(f,'');
for j:=0 to ... ... ... nil, ... ... TObject);
begin
ShowMessage('Құжат түрінде');
end;
procedure TForm1.ToolButton12Click(Sender: TObject);
begin
ShowMessage('Кесте түрінде');
end;
procedure TForm1.ToolButton14Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.ToolButton15Click(Sender: TObject);
begin
Form7.ShowModal;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
StatusBar1.Panels[2].Text:='Таңдау өрісі: аты бойынша';
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
StatusBar1.Panels[2].Text:='Таңдау өрісі: бағасы бойынша';
end;
procedure ... ... ... жасы ... TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
if Application.MessageBox('Программадан шығасыз ба?','Мейрамхана мәліметтер
қоры',MB_YESNO)=idyes then CanClose:=true;
end;
procedure ... ... ... ... s:string;
begin
s:=edit1.Text;
if RadioButton1.Checked then
begin
Query1.SQL[3]:='(upper(nm) like "%'+Ansiuppercase(edit1.Text)+'%")';
end;
if RadioButton2.Checked then
begin
if Edit1.Text='' then ... ... ... mtInformation,[mbOk], 0);
exit;
end;
if (s[1]='>') or (s[1]='') or (s[1]='

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 42 бет
Бұл жұмыстың бағасы: 500 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
DELPHI ортасында мәлметтер қорымен жұмыс жасау24 бет
Delphi-де математикалық есептеуге арналған бағдарлама құру19 бет
Delphi-де мәліметтер қорын құру технологиялары жайлы ақпарат7 бет
Граф тиімділік есептерін шешу әдістерінің алгоритмдері мен программалары42 бет
100 орынды люкс мейрамханасының ыстық цехы10 бет
60-80 жылдардағы ортасындағы Қазақстандағы нақты социализм12 бет
70 орынды мейрамхананың көкөніс цехының есебі9 бет
80 орындық мейрамхана жұмысын ұйымдастыру20 бет
Access ортасындағы деректер базасы8 бет
Borland Delphi ортасында электронды оқулық жасау45 бет


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


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

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

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

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

Email: info@stud.kz

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

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