Delphi туралы мәлімет

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
1 DElPHI туралы мәлімет ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .2
Негізгі бөлім
Дельфидің консольдік режиміндегі жұмыс ... ... ... ... ... ... ... ... ... ... ... ... ...3.7
Графикалық редактор ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..7.9
Көп парақты тақталар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..10.11
Басқару батырмалары ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..12.14
Дәмхананың автоматтандырылған жүйесі ... ... ... ... ... ... ... ... ... ... ... ... ... 15.18
Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...18.19
Пайдаланылған әдебиет ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...19
Обьектіге бағдарлы оқиғалық программалау тілінде программаның жұмысы негізінен оқиғалар тізбегінен және түрлі обьектілердің осы оқиғаларға жауабынан тұрады. Олардың визуальды түрлері – visual Basic тілі Qbasic программалау тілі негізінде, Delphi (Делфи) обьектілі Паскаль (Object Pascal) тілі негізінде Windows операциялық жүйесін басшылыққа алып құрылған (visual - көзбен көру, экрандық). Олар, әсірісе, Delphi программалау тілі - кез-келген қосымшаны дайындауға болатын жылдамдығы тез, қуатты тіл.
Менің курстық жұмысымда дәмханадағы әкімшілік (администратор) жұмысын автоматтандыру мақсаты қойылды. Дәмханадағы әрбір жұмысшының қанша ақша түсіргендігін реттейтін, әрбір столдың жеке қабылдау сияқты жұмыстарын автоматтандыру – осы курстық жұмыстың қойылған талаптарының бірі. Ал теориялық бөлімде процедуралар мен функциялар туралы, мәліметтерді сұраныстар арқылы сүзгілеу және курстық жұмыстың бағдарламасын сипаттау.
Delphi-дің бірінші нұсқасы 1994 жылы жарыққа шығып, кейінгі жылдары оның бірте-бірте кеңейтілген 2, 3, 4, 5, 6,7-нұсқалары жарық көрді.
Дәстүрлі Паскаль оқып үйренуге жеңіл және MS Dos жүйесінде программа дайындауға ең жақсы құрылымдық программалау тілі екені белгілі. Delphi – де Паскаль тілінде орындау мүмкін және мүмкін емес күрделі процестерді программалауға болады. Delphi-дің негізгі ерекшелігі – онда қосымша құруда компоненттік және обьектілік тәсілдер пайдаланылады(Windows ортасында пайдаланатындықтан, Delphi-де программаны көбінесе қосымша деп атайды). Бұл программалау технологиясында нағыз революция жасады деуге болады. Компоненттік тәсілдің мәнісі жеңіл: әр қосымша кітапханасы программалау ортасында дайындалып, арнайы іс - әрекеттерді орындайтын компоненттер элементтерінен жинақталады.
1. В Фаронов. Объектно-риентированная среда Delphi. Версия 6. Учебное пособие. "Русская редакция", 2002.
2. Я. Н. Глинский, В. Е. Анохин, В. А. Ряжская – TURBO PASCAL 7.0 и Delphi. Учебное пособие. Москва – Санкт – Петербург-Киев. 2001.
3. Нурбекова Ж. Практикум решения задач на Delphi 5.O. Учебно-
методическое пособие. Павлодар, 2001. -106 с.
4. Халықова К.З. Паскаль тілінде программалау. Оқу құралы. Абай ат.ҚазҰПУ. Алматы, 2002. -2106.
5. Дудина И.П. Построние графиков функций в Delphi. Информатика и образование. №6, 2003, стр.27-31.
6. Давыдова Е.В., Скородумов И.А., Балаханов В.А. Создание базовых элементов интерфейса Windows программы в среде Delphi.
Информатика и образование. №4,5,6. 2002.
7. Халықова К.З., Ануарбекова Г.Ж. Object Pascal тілі. Delphi ортасы. Оқу әдістемелік құрал. – Алматы: Абай ат.ҚазҰПУ, 2008. – 220 бет.
8. Б. Д. Сыдықов, Ш. Т. Шекербекова, Н. И. Культин - Delphi ортасында бағдарламалау практикумы
        
        Мазмұны
|Кіріспе.................................................................|
|............................................... |
|1 DElPHI ... ... ... ... ... консольдік режиміндегі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... негізінен оқиғалар тізбегінен және түрлі обьектілердің ... ... ... ... ... ... – visual Basic тілі
Qbasic программалау тілі негізінде, Delphi ... ... ... Pascal) тілі негізінде Windows операциялық жүйесін басшылыққа алып
құрылған (visual - ... ... ... ... ... Delphi
программалау тілі - кез-келген қосымшаны ... ... ... ... ... ... жұмысымда дәмханадағы әкімшілік (администратор) жұмысын
автоматтандыру мақсаты қойылды. Дәмханадағы ... ... ... ... ... ... ... жеке қабылдау сияқты ... – осы ... ... ... ... бірі. Ал
теориялық бөлімде процедуралар мен ... ... ... ... ... және ... жұмыстың бағдарламасын сипаттау.
Delphi-дің бірінші нұсқасы 1994 жылы жарыққа шығып, кейінгі жылдары
оның бірте-бірте кеңейтілген 2, 3, 4, 5, ... ... ... Паскаль оқып үйренуге жеңіл және MS Dos жүйесінде программа
дайындауға ең жақсы құрылымдық программалау тілі ... ... Delphi – ... ... ... мүмкін және мүмкін емес күрделі процестерді
программалауға болады. Delphi-дің негізгі ерекшелігі – онда ... ... және ... ... пайдаланылады(Windows ортасында
пайдаланатындықтан, Delphi-де программаны көбінесе қосымша деп атайды). Бұл
программалау технологиясында ... ... ... ... ... ... ... жеңіл: әр қосымша кітапханасы программалау
ортасында дайындалып, арнайы іс - ... ... ... ... Windows жүйесінде программалаудың ыңғайлы құралы. Онда көптеген
операторларды ... ... ... ... ... ... мультимедиа процестерін ұйымдастыру, OLE технологиясын
пайдаланып, басқа офистік ... ... ... жұмыс істеу және т.б
іс-әрекеттерді орындау да мүмкін.
2. Негізгі бөлім
2.1. Дельфидің консольдік режиміндегі ... іске ... Delphi ... ... ... Delphi –ді іске қосу командасы:
Іске қосу – Программалар – Borland delphi6 – Delphi 6
Жалпы ... ... ... ... ... ... ... де
іске қосылады(Unit1.pas). Форма терезесінің астында орналасатындықтан, ол
алғашқыда кµрінбейді.
Delphi-дің негізгі ... ... ... ... ... жєне компоненттер палитрасы енгізілген (1.2-сурет). Негізгі мәзір
пункттеріне Delphi-де жұмыс істеу командалары, ... ... ... ... ... командаларды орындайтын түймелер
орналатырылған. Сурет.1. Саймандар тақтасы
Delphi – де берілгендерді енгізу мен шығару үшін Турбо ... read (оқу) жєне write ... ... ... ... бар. ... пайдаланып құрылатын программалар, осы үшін арналған, MS –
DOS ... ... ... ... ... қосымша терезесіне
енгізіледі. Қосымшаны іске қосу тєсілі:
File – New Application (Файл-Жаңа ... ... ... Form1, Unit.pas ... ... Экранда Delphi мен Object
Inspector терезелері қалады;
Project-View Source (Проект – ... ... ... беру.
Project.dpr тақырыпты терезе ашылады;
Терезені тазалау жєне ... ақ ... ету ... үшін ... түймесін шертіп, көрсеткіш арқылы экранды таңдап шықса болғаны);
Программа теру. Ол ASCII кодтары ... ... ... ... ... ... ... {$APPTYPE CONSOLE}
нұсқауынан басталады (2.20- сурет). Ол консольдық қошымша дайындалатыны
жµнінде ... ... ... My ... ... x, y : real;
Begin
Write(‘x=?’); readln(x);
Y:=3*x+5;
Writeln(‘y=’, y : 6 : 3);
Readln;
End.
Жазып болған соң (іске қосу командасын беру керек. My Progr ... ... ... ... ... ... арқылы терезені үлкейту,
шрифті таңдау, терезені ақ түсті ету қиын ... ... ... сұраққа
жауап енгізілген соң КҚ клавишін басу керек.
Программаға енгізілген параметрсіз readln операторы ... ... ... тұрады. Программа жазылған терезеге қайтып өту үшін ... ... ... ... ... экранға шығарудың екінші тәсілі:File-
New командасын беріп, ... ... Consol Wizard ( не ... ... ... ... семантикалық (мағыналық), синтаксистік және алгоритмдік
қателер жиі ... ... ... кезінде синтаксистік
қателерді компилятор өзі ... да, ... ... ... Ал, ... 25 ... ... қатені компілятор еске алмай, программаның
орындалуы аяқталған кезде қате ... ... ... қате ... сияқты алгоритмдік қате де программаның орындалу ... ... ... ... ... құрып болған соң он мұқият
қайта тексеріп шығуы керек.
Программаның синтаксистік түрде жазылуы дұрыстығын компилятордың ... ... және ... ... көрсету үшін әдетте Delphi
орнатылған соң ол ... ... ... Оның бірі – Project – ... ... келтіру) командасын беріп, ашылған терезенің Compiler
бетіндегі жазуларды 2.21 – ... ... ... қою ...... ... күйге келтіру терезесі.
3. Ерекше жағдайлар
Программаға нолге бөлу жєне т.с.с. орындалмайтын қате ... ... де ... Олар ... ... ... Ерекше
жағдайларды өңдеу үшін Delphi-ге стандартты өңдеуіштер класы енгізілген.
өңдеуіштер атаулары E әріпінен басталады:
EZeroDrivide – нөлге ...... ... ... кезінде кездесетін қателер;
EConvertErrror – мәннің типін түрлендіру ... ... ... ... үзіндісін
Begin
Y:=x/k;
ShowMessage(Floattostr(y));
End;
Орындау кезінде нөлге бөлуге болмайтыны жазылған суреттегі ... ... ... ... ... ... ... өңдеу үшін Delphi ортасында блокты қорғау механизмі
қарастырылған.Оның ... ... ... ... Try ... ... қызметші сөзінен басталып,
end сөзімен аяқталады.Мұнда алдымен try..except ... ... Егер ... ... ... қорғалған блоктың
жұмысы осымен аяқталып, басқару end операторынан соң жазылған операторға
беріледі.Егер ерекшелік бар ... ... except - тен соң ... ... else ... енгізу міндетті емес).
1 – мысал. h=1 қадам бойынша [-2;2 кесіндісінде y=2x/(x+1) функциясының
мәндерін есептеу керек.
Procedure Tform1. ... ... x:=-2 to 2 ... y1:=FloatTo Str(y);
ShowMessage(y1);
End;
Except
On EzeroDivide do
Begin
ShowMessage(‘Нөлге бөлу мүмкін емес’);
Close;
End;
End;
Программаны іске ... ... ... суретте көрсетілген терезе
шығады. Ал программа қайта ... ... ... қате сөйлемі жазылған
шығару терезесі көрініп, программа жұмысы тоқтатылады.
Delphi ... төрт ... бар. ... ... - Delphi5-тің негізгі терезесі;
2) Form1 — Форма;
3) Object ... - ... ... ... Unitl.pas — Редактор терезесі.
1 DeIphi-дің негізгі терезесі үш құрылымнан тұрады:
1 Мәзір.
2 Acnanamap панелі алтыға бөлінеді:
• Standard — ... View — ... Debug — ... Custom- ... Desktop — ... ... Internet — Интернет.
1. Компоненттер палитрасы төмендегідей беттерден тұрады:
• Standard — ... ... - ... Win32 — Windows ... ... System — ... жүйеге кіру мүмкіндік;
• Data Access — Берілгендер қорындағы ... ... ...... ... ... ... dbExpress - SQL-серверіне кіру мүмкіндігі;
• DataSnap - Көп салалы берілгендер қорындағы қосымшаны құру;
• BDE — BDE ... ... кіру ... ADO — ActivX ... ... ... ... қорына байланыс
жасау;
• InterBase — Аттас берілгендер қорына тікелей кіру мүмкіндігін қамтамасыз
етеді;
• SOAP — ... ... ... ... ... берілгендерді
алмастыру;
• InternetExpress — Аттас қосымшаны құру үшін берілгендер қорындағы
анықталған ... және ... бір ... ... Internet — ... желісінде қосымша Web-серверін құру;
• FastNet — Инетернет желісіне кіру хаттамасын қамтамасыз ету;
• Decision Cube — Көп өлшемді талдау;
• QReport — ... ... DiaIogs — ... ... ... ... Win3.1 — ... интерфейсі;
• SampIes — Бірге қойылатын жүйелік мысалдар;
• ActivX — ActivX компанентті;
• COM+ - Аттас объектілерді басқару;
...... ... ... кіру мүмкіндігін
басқару;
• WebSnap — Web-серверінің қосымшасын құру;
• Server — Жалпы COM серверлер VCL ... ... ...... үшін ... ... тұжырымдама
компоненті;
• Indy Servers - Сервер үшін тәуелсіз тұжырымдама компоненті;
• Indy Miss — ... ... ... ... ... ... ... проект (жоба) деп аталады. ... ... ... ... ... ... Delphi ... рет іске қосылған кезде форма Form1 атауымен
көрінеді. Оның ... ... ... орналастырып,
ол екі жақты нұсқама түріне айналған кезде ... және ... ... форманы кеңейту не қысу қиын емес. Кей жағдайларда ... ... ... Оны экранға шығару үшін View Forms ... ... ... не онда ... ... ... құру
үшін дайындау оның кейбір қасиеттерінің мәндерін өзгертуден ... ... ... инспекторы (Object Inspektor) терезесіне
енгізілген. ... ... ... шығару үшін сәйкес
объектіні ... не ... ... ... ... ... ... таңдау керек. Инспектор терезесінің жоғарғы қатарына
таңдалған объект атауы да ... ... ... екі ... бар: ... - ... және Events — оқиғалар. ... екі ... ... жазулардан тұратын ... ... ... ... Бірінші бағанда көрінетіндер - қасиет
атаулары, екінші бағанға сәйкес жазылғандар — олардың мәндері.
4. Delphi-де ... ... екі ... тұрады:
алғашқыда автоматты түрде project1 атауы берілетін проект файлы (негізгі
модуль) және ... ... ... ... Олар жеке ... Модульге оқиғаларға сәйкес ... ... ... ... енгізіледі. ... ... код деп, ... ... код ... не қысқаша
редактор терезесі деп те атайды. Delphi іске ... ... ол ... ... ... тұрады. Оны экранға шығару тәсілдері:
- форманы жабу (жабу түймесін шерту);
- код терезесінің бір шеті форма астында көрініп тұрса, оны ... ... ... ... да, онда процедура дайындамасы (үлгісі)
көрінеді.
Database Desktop утилитасы ... ... бос ... ... ... ... дайындауға болады. Мысалы, Paradox типті ... ... ... ... ... Маркасы, Шығарған жылы, Түсі,
Бағасы атаулы алты өрістен түратын Rous5.db ... өріс ... ... мына ... ... ... Жаңа ... ашып, формада Tablel, Buttonl компоненттерін орнату.
2. Код терезесінде Buttonl ... OnClick ... ... құру ... ... Table do ... = 'My ... = 'Rous5.db';
With FieldDefs do
Begin
With AddFieldDef do
Begin
Name: = 'Шығарған завод';
DataType:=ftString;
Size:=20; End;
With AddFieldDef do Begin
Name: = 'MapKacbi'; DataType:=ftString; Size:=20; ... ... do ... = ... Create Table (Кесте құру) - TTable ... ... ... Ол ... ... бойынша бос кесте құрады (әдісті Paradox не
dBase форматында ғана пайдалану мүмкін); Table — ... қоры ... ... ... ... ... қасиеттер: DatabaseName —
алиас атауын анықтау; TableType — кесте типі; TableName — кесте атауы;
FieIdDefs — кесте ... ... ... ... - өріс ... өрістер string типті етіп сипатталды.
1) Программада Create Table әдісі барлық қасиеттерді орындап, Add әдісін
енгізген соң ғана жазылады.
2) TableType қасиеттерінің ... ... ... ... ... ... ... DBTabIes модулінде сақталған. Ол модульдің
Uses бөліміне кірістіріліп қойылуы тиіс (оның автоматты түрде кірістірілуі
де мүмкін).
3) ... іске ... ... ... Button 1 ... шерту.
Кесте алиас түрінде сақталған берілгендер ... ... ... ... толтыру тәсілін жоғарыда айтып кеткенбіз.
2.2.Графикалық редактор
Қарапайым графиктерді сызу әдістері
LineTo әдісі ... ... ... ... ... нүктеге дейін сызады.
Объект.Canvas.LineTo(х, у);
MoveTo әдісі қарандашты белгіленген нүктеге апарады:
Объект.Canvas.MoveTo(х, у);
Ellipse әдісі эллипс сызады ... ... ...... ... болады):
Объект.Canvas.Ellipse(x1, y1, x2, y2);
Мұндағы х1, у1, х2, у2 – ішіне эллипс сызылатын тіктөртбұрыш координаттары.
Arc ... доға ... y1, x2, y2, х3, у3, х4, ... х1, у1, х2, у2 – эллипс параметрлері, эллипс бөлігі яғни сызылатын
доға болады.
Rectangle әдісі тіктөртбұрыш сызады:
Объект.Canvas.Rectangle (x1, y1, x2, ... х1, у1 және х2, у2 – сол жақ ... және оң жақ ... ... ... ... Brush.Color қасиеті арқылы берілген түсімен
тіктөртбұрышты бояйды. Бұл әдістің бір ғана ... бар, ... TRect ... ... ... 20, 150, ... Canvas do
begin
Brush.Color:=clRed;
FillRect(R);
end;
2.3. Көп парақты тақталар TABCONTROL
TTABCONTROL компоненті ... бар ... ... ... атауын және санын анықтайтын қасиеті бар. OnChange оқиғасында
жаңа ... ... ... ... және компоненттің терезелерінің ішінде
басқару мүмкіндік береді.
Кестеде TTABCONTROL қосымшасының қасиеттері берілген:
|Қасиеттері ... ... ... DisplayRect: |Басқа компоненттерді орналастыру үшін арналған |
|TRect; ... ... ... анықтайды. |
| ... ... ... ... ... |мен ... аймағынан тұрады. ... ... ... ... True ... ... нұсқағышы |
|Boolean; ... ... ... бірден түсімен ерекшеленеді|
|Property MultiLine: |Қосымшаларды бірнеше қатарға қоюға ... ... ... False ... ... ... ... |
| ... ... ... тұрса, қосымшалар |
| ... ... ... ... ... ... ... емес компоненттерді қарама – қарсы |
|Boolean; ... ... / ... салуға болады. |
| ... саны ... көп ... ғана |
| ... ... ... ... қосымшалардың биіктігін пиксельдермен |
|Smallint ... егер 0 ... ... ... |
| ... түрде шрифт өлшемімен бірдей болады. |
|Property TabIndex |Таңдалған қосымшаның индексін табады немесе ... ... ... ... ... |
| ... 0 ден ... ... ... ... ... ... |
|tpBottom) ... ... ... / tpTop- ... ... |жоғары, tpBottom - төмен/ ... | ... Tabs TSrings ... ... ... мен ... |
| ... ... ... қосу үшін немесе |
| ... үшін Tabs ... қосу ... ... |
| ... Tabs ... алып ... керек. |
|Property TabWidth ... ... енін ... ... |
| ... ... ені 0 ... қосымшаның енін |
| ... ... ... ... ... |
| ... ... ... ... ... OnChanging аймағына жаңа қосымша қосылады ол үшін
қосымша түрін ауыстыру керек:
Type TTabChangingEvent= procedure (sender: TObject;
Var AllowChange: Boolen) ... ... ... ... ... ... өндеу жылдамдығы;
➢ Жасалған қосымшаның өнімділігінің ... ... ... ... ... ... ... етуі;
➢ Delphi ортасына жаңа компоненттер мен құрылғыларды қосу ... ... ... Delphi-дің жеке құралдарымен жаңа компонент пен ... ... ... ... ... – бұл ... маңызды технологиялардың комбинациясы:
➢ машина кодына аударатын жоғары өнімді компилятор;
➢ объекті-бағытталған модель компонент;
➢ программалық прототиптерден визуальді ( ... ... ... ... құру;
➢ мәліметтер қорын құру үшін арналған масштабталатын құралдар;
2.4. Басқару батырмалары Button1 ,TBitBtn1, TSpeedButton1
Button - терезелік ... ... ... ... Оның ... тағайындалуы туралы немесе батырманы басқандағы орындалатын іс
- әрекеттің қысқаша анықтамасы келтірілуі мүмкін.
Button ... ... ... ... - OnClick - оны ... Осы сәтте батырма түрін өзгертіп, команданы қабылдағанын көрсетіп
тұрады. Батырманы жібергеннен кейін OnClick ... ... ... ... ... ... ... әртүрлі әдістермен басуға болады. Delphi
жиынтығында осы батырмаларға ... ... ... суреттер графикалық
суреттер жасалған.
Kind аймағы 11 стандартты батырмалардың біреуін көрсетеді, кез келген
суретке басқанда / bk Custom және bkhelp ... ... ... ... және ... mrXXX ... ... және
т.б) түріне қайта қайтарады.
bkClose батырмасы модальдык терезені mrCancel аймағына қайтарады, ал
бас терезедегі программаның жұмысын ... ... ... ... ... ... ... терезесін шақырады, бұл
батырма HelpContext формасымен байланысты, егер батырмада сурет өзгертілген
болса, дельфи автоматты түрде Kind ... / bk Custom ... ... ... ... келесі кестеде көрсетілген:
|Қасиеттері ... ... ... ... әртүрлі аймағын көрсетеді |
|bkok,bkCancel, bkHelp, | ... bkNo, bkClose, | ... ... | ... | ... Kind: | ... | ... Clyph: TBitmat; |1 ден 4 ке дейін бір бірімен байланысты |
| ... ... ... ... ... қай ... ... |көрсетеді (blGlyphleft сол жағына, |
|blGlyphTop, blGlyphBottom); |blGlyphright – он ... ...... Layout: |жоғары, blGlyphBottom – төменгі ... | ... Margin: Integer; ... шеті мен суретке дейінгі ара |
| ... ... ... ... ... ... ... анықтайды |
|Property NumGlyphs: | ... | ... Integer; ... ... пен жазу ... |
| ... ... өлшейді |
|TButtonStyle= ... ... ... ... |
|(bsAutodetect, bsWin31, |стилін анықтап жазады, bsNew 32 разрядты |
|bsNew); |Windows ... сай ... |
| | |
| | ... Style: ... ... батырманың қандай |
|TButtonStyle; ... ... ... ... ... |
| ... ... ... қасиеттерін |
| ... ... ... ... және ... келесі батырмаларды
ескеру керек, батырмалардағы суреттер батырма түріне қарай әрдайым өзгеріп
отыруы тиісті. Мұндай жағдай 4 ... ... ... ... ... батырма басылған немесе жойылған (соңғысы тек Speed ... ғана ... ... ... тек 4 ... ... ... жасалады, олар растрдың ұзындығына ... ... Button- ... ... 3 ... ... барлық жағдайда белгіленіп тұрады
2) модальдык терезені жаба ... ... ... ... ретінде таңдала алмайды.
Бұл батырманы даралау ... ... ... ... ... арасында болуы тиіс. Бұл үшін GroupIndex; Integer; қолданылады,
бірақ оның мәні 0 ге тең болмауы тиіс.
2.5. Дәмхананың ... ... ... бағдарламада негізгі 4 функция бар: іздеу, мәліметтерді басқару
(қосу, өзгерту және өшіру), ... беру және ... ... ... функционалды командаларды қолдану өте оңай, ... ... ... көмегімен немесе құрал- саймандар қатарынан іске қосуға болады.
Бағдарламадағы барлығы бес форма бар. Атап ... ... ... ... ... ... қосу/ өзгерту, тапсырыс беру және
программа ... ... ... ... жұмысты атқарады, соларға
тоқталып кетер болсақ:
- Негізгі форма - мунда аталған командалардың бәрі қамтылған, негізгі
атқаратын ...... есеп ... Тапсырыстар кестесі – мунда осы уақытқа дейінгі ... ... ... ... ... ... ... бұл екі команда жеке орындалады.
- Тапсырыс беру – мунда тапсырыс берушінің сұранысын жазуға арналған.
- Программа туралы – ... ... ... Меню ...... ... жүйелеп орналастыру керек
• Құрал саймандар – қатары – командаларды оңай орындау үшін;
... ...... ... беріп, нәтижені көру үшін;
• Нәтиже алаңы – қолданушының сұрауы бойынша алынған нәтижені
шығаратын контейнер;
... күй ...... ... ... ... көрсететін
қатар.
Бағдарламаның негізгі артықшылықтары:
• Ыстық пернелердің болуы
• Интерфейстің қарапайымдылығы
• әртүрлі форматта есеп алу;
... және файл дар ... ... Аз форма пайдаланып, есесіне көп функцияның ықшамдалуына себе болу
Сонымен, 4 ... ... ... ... ... ақпаратты іздестіру жүйелері пайда болған кезде оның жылдам түрде
нәтиже беру жағы қарастырылады, ал ... ... оған ... ... жоқ, ... мен ... қорын пайдаландым, ал онда
қарапайым өзінің дайын функциялары арқылы табамыз.Жалпы қай ... ... ... ... ... бәрі де «немесе» критериін пайдаланады, яғни
бірнеше сөздің ішіндегі барлық сөздермен жеке жеке ... ... ... ... Осы ... дейін ең жылдам іздейтін жүйе Google болса,
қазір оны көптеген жұмыс пен ... ... ... MSN ... алға шығып отыр.
Windows операциялық жүйесінің файлдармен ... ... ... ... өте көп ... ... болды, қазір Windows ХР жүйесінің индекстеу
тәсілі арқылы көп ... ... ... ал Windows Vista ... ... өте ... Сөзді қалай енгізесіз сондай нәтиже шығады.
Сонымен бағдарламаға келетін болсақ, үш өріс бойынша іздейді. Алдымен аты
бойынша іздеуді ... ... ... толық атын енгізбей – ақ оның
орнына тағам атының ішінде кезедесетін сөзді енгізуге ... ... ... ... ... келсе, пица сөзін ... ... ... ... басыңыз. Алдымен сұраныс бойынша неше ... ... ... ... ... ... Дайындалу уақыты бойынша іздеу,
яғни дайындалу уақытын енгізесіз. ... ... ... уақыты 30
минуттан үлкен немесе тең тағамдарды іздейміз.
Мәліметтерді қосу, өзгерту және өшіру
Алдымен құрал- саймандар қатарындағы Мәліметтер- ... ... не ... ... ... ... ... қосу диалогтық терезесін ашасыз.
Ашылған терезеде тағамның мәліметтерін толтырып , оны қосу батырмасы арқылы
МҚ- на ... Ал ... үшін ... ... ... ... ... тауып алыңыз, содан кейін құрал- ... ... ... ... не ... Ctrl+Ins ... басыңыз,
тағамды өзгертуге сұхбат терезесі пайда болады.Қалағаныңызша ... ... ... үшін өшіргіңіз келсе, өшіргіңіз келген тағамды таңдап,
құрал- саймандар қатарындағы Х батырмасына не болмаса Мәліметтер-
Белгілегенді өшіру не болмаса Ctrl+Del пернесін басыңыз,сол ... ... ... ... сіз өз ... бойынша жауап бересіз.
Тапсырыс беру
Тапсырыс беру үшін Сервис- Тапсырыс беру немесе Ctrl+T ыстық ... ... ... соң ... беру сұхбат терезесі ашылады,
барлық өрісті толтырып , ОК батырмасын басыңыз.
Тапсырыстар кестесі
Тапсырыстар кестесі ... осы ... ... ... ... ... мұндағы есеп батырмасы арқылы есепті ехсеl форматында есеп
береді.
3. Қорытынды
Курстық жұмыстың мақсаты өндірістік мәліметтер ... ... ... ... ... ... ... мәліметтер қорын құрып,
тағамдар бойынша ақпараттар жинастыру, тапсырыс ... ... ... ... тағамдары туралы ақпарат алатындай бағдарлама
құрылды. Қолданушы ... ... ... ... ... жүргізе
алады. Курстық жұмысты жазу барысында алға қойған мақсатқа жету ... ... ... ... ... ұйымдастырылуын;
2) Delphi программалау ортасының компоненттерін, осы ортадағы мәліметтер
қорын ұйымдастыруды және өңдеуді;
3) Тағамдар туралы мәлметтер жинастырдым;
4) Экспорт процедурасын бір ... ... ... ... қарапайым қолданушының жұмыс істей
алатындығы.
Программаны ... ... ... ... ... яғни бір ... ... пайдаланып бірдей нәтиже алу
мүмкіндігін қалыс қалдырмадым. Ол үшін бағдарламаның ... ... оны ... ... ... ... ... SQL Explorer
бағдарламасы арқылы әр бір программа орналасқан компьютерге баптау жүргізу
керек. Содан кейін, мәлметтер қорын ... ... бір ... ... SQL Explorer ... ... ... компьютерді көрсету керек.
Қазіргі интернет технолгияларды пайдалану арқылы, қажет деген барлық
ақпарат алмасу ... қол ... ... ... ... В ... Объектно-риентированная среда Delphi. Версия 6. Учебное
пособие. "Русская редакция", 2002.
2. Я. Н. Глинский, В. Е. Анохин, В. А. ... – TURBO PASCAL 7.0 ... ... ... Москва – Санкт – Петербург-Киев. 2001.
3. Нурбекова Ж. Практикум решения задач на Delphi 5.O. ... ... ... 2001. -106 ... Халықова К.З. Паскаль тілінде программалау. Оқу ... ... ... 2002. ... ... И.П. Построние графиков функций в Delphi. Информатика и
образование. №6, 2003, ... ... Е.В., ... И.А., ... В.А. ... ... интерфейса Windows программы в среде Delphi.
Информатика и образование. №4,5,6. 2002.
7. Халықова К.З., ... Г.Ж. Object Pascal ... Delphi ... ... ...... Абай ат.ҚазҰПУ, 2008. – 220 бет.
8. Б. Д. Сыдықов, Ш. Т. ... Н. И. ... - Delphi ... ... ... Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Menus, DB, ... DBCtrls, Grids, DBGrids, ToolWin, ... Buttons, ... jpeg, ... = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
HTML1: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: ... ... ... TMenuItem;
StatusBar1: TStatusBar;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBImage1: TDBImage;
Query1: TQuery;
DBMemo1: TDBMemo;
Edit1: TEdit;
BitBtn1: TBitBtn;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
ToolBar1: TToolBar;
ToolButton1: ... ... ... TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton10: TToolButton;
ToolButton13: TToolButton;
ToolButton15: TToolButton;
ImageList1: TImageList;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
SaveDialog1: TSaveDialog;
PrintDialog1: TPrintDialog;
ToolButton11: TToolButton;
ToolButton12: ... ... ... TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: ... ... ... ... ... ... TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton12Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: ... ... ... FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure N8Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... of ... ... ... TForm1.FormResize(Sender: TObject);
begin
DBGrid1.Width:=Form1.Width-35;
DBGrid1.Columns[0].Width:=StrToInt(formatfloat('0',(DBGrid1.Width-200)/2));
DBGrid1.Columns[1].Width:=StrToInt(formatfloat('0',(DBGrid1.Width-200)/2));
DBGrid1.Columns[2].Width:=57;
DBGrid1.Columns[3].Width:=101;
DBGrid1.Height:=Form1.Height-325;
DBImage1.Top:=form1.Height-200;
DBMemo1.Top:=form1.Height-200;
StatusBar1.Panels[0].Width:=StrToInt(formatfloat('0',(Form1.Width-10)/3));
StatusBar1.Panels[1].Width:=StrToInt(formatfloat('0',(Form1.Width-10)/3));
StatusBar1.Panels[2].Width:=StrToInt(formatfloat('0',(Form1.Width-10)/3));
end;
procedure TForm1.FormShow(Sender: TObject);
var pp:string;
begin
pp:=copy(Application.ExeName,1,length(Application.ExeName)-13);
Query1.DatabaseName:=pp+'\base';
with Query1.SQL do
begin
Clear;
add('select *');
add('from goods');
add('where');
add('(vozr>0)');
add('order by nm asc');
end;
Query1.Open;
StatusBar1.Panels[0].Text:='Барлығы: '+IntToStr(Query1.RecordCount);
Query1.Open;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
form4.showmodal;
end;
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
form2.act:=nbInsert;
Form2.ShowModal;
end;
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
form2.act:=nbEdit;
Form2.ShowModal;
end;
procedure ... ... ... nm='' then ... ... ... бе?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo then exit;
with Query1.SQL do
begin
Clear;
add('delete from goods where (nm='''+nm+''')');
end;
Query1.ExecSQL;
formshow(self);
end;
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
//Form5.QuickRep1.Preview;
//Form5.ShowModal;
end;
procedure ... ... ... i:=0 to ... ... 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 DBGrid1.Columns.Count-1 do
writeln(f,''+DBGrid1.Fields[j].AsString+'');
writeln(f,'');
Query1.Next;
end;
writeln(f,'');
closefile(f);
ShellExecute(0, 'open',PChar(path+'\current.doc'), nil, PChar(path),
sw_show);
end;
procedure TForm1.ToolButton11Click(Sender: 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
StatusBar1.Panels[2].Text:='Таңдау өрісі: бағасы бойынша';
end;
procedure TForm1.RadioButton3Click(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 ... ... ... ... ... ... ... then
begin
Query1.SQL[3]:='(upper(nm) like "%'+Ansiuppercase(edit1.Text)+'%")';
end;
if RadioButton2.Checked then
begin
if Edit1.Text='' then begin
MessageDlg('Алдымен сөзді енгізіңіз.', mtInformation,[mbOk], 0);
exit;
end;
if (s[1]='>') or ... or (s[1]='

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









Ұқсас жұмыстар
Тақырыб Бет саны
Delphi және мәліметтер қоры100 бет
Delphi және мәліметтер қоры сервері31 бет
Delphi және мәліметтер қоры сервері. мәліметтерге ado арқылы қатынау26 бет
Delphi ортасында мәліметтер қорымен жұмыс39 бет
Delphi программалау ортасы және мәліметтер қоры34 бет
Delphi программалау ортасы. Мәліметтер базасы19 бет
Delphi программалау ортасында Қазақстан туралы мәліметтер қорын даярлау 51 бет
Delphi-де мәліметтер қорымен байланысты ұйымдастыру55 бет
Delphi-де мәліметтер қорын құру технологиялары6 бет
Delphi-де мәліметтер қорын құру технологиялары жайлы11 бет


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


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

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

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

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

Email: info@stud.kz

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

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