Кітапхана жұмысын автоматтандыру

Мазмұны

1. Кіріспе
1.1. DElPHI туралы мәлімет..............................................................2-7
2. Негізгі бөлім
2.1. Дельфидің консольдік режиміндегі жұмыс........................................8-13
2.2. Графикалық редактор.............................................................................13-28
2.3 Меню редакторы Main Menu. Popup Menu...........................................30
2.4 Қалып күй сызығы Status Bar.................................................................31-32
2.5 Кітапхананың автоматтандырылған жүйесі.........................................33-39
3. Қорытынды
3.1 Пайдаланылған әдебиет..........................................................................41
3.2. Мазмұны..................................................................................................42
Кіріспе

Обьектіге бағдарлы оқиғалық программалау тілінде программаның жұмысы негізінен оқиғалар тізбегінен және түрлі обьектілердің осы оқиғаларға жауабынан тұрады. Олардың визуальды түрлері – visual Basic тілі Qbasic программалау тілі негізінде, Delphi (Делфи) обьектілі Паскаль (Object Pascal) тілі негізінде Windows операциялық жүйесін басшылыққа алып құрылған (visual - көзбен көру, экрандық). Олар, әсірісе, Delphi программалау тілі - кез-келген қосымшаны дайындауға болатын жылдамдығы тез, қуатты тіл.
Delphi-дің бірінші нұсқасы 1994 жылы жарыққа шығып, кейінгі жылдары оның бірте-бірте кеңейтілген 2, 3, 4, 5, 6,7-нұсқалары жарық көрді.
Дәстүрлі Паскаль оқып үйренуге жеңіл және MS Dos жүйесінде программа дайындауға ең жақсы құрылымдық программалау тілі екені белгілі. Delphi – де Паскаль тілінде орындау мүмкін және мүмкін емес күрделі процестерді программалауға болады. Delphi-дің негізгі ерекшелігі – онда қосымша құруда компоненттік және обьектілік тәсілдер пайдаланылады(Windows ортасында пайдаланатындықтан, Delphi-де программаны көбінесе қосымша деп атайды). Бұл программалау технологиясында нағыз революция жасады деуге болады. Компоненттік тәсілдің мәнісі жеңіл: әр қосымша кітапханасы программалау ортасында дайындалып, арнайы іс - әрекеттерді орындайтын компоненттер элементтерінен жинақталады.
Delphi Windows жүйесінде программалаудың ыңғайлы құралы. Онда көптеген операторларды пайдаланып программа дайындау, программа мәзірін құру, анимация, мультимедиа процестерін ұйымдастыру, OLE технологиясын пайдаланып, басқа офистік қосымшаларды шақыру, олармен жұмыс істеу және т.б іс-әрекеттерді орындау да мүмкін.
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
1. Жантасова Ж.З. Системы управления базамы данных. Методически указания / Ж.З. Жантасоваю Издательство ВКГУ. – Усть-Каменогорск, 2003. – 78 стр.
2. Байшоланова Қ.С. Ақпараттық жүйелер теориясы / Қ.С. Байшоланова. Оқу құралы. Алматы: Экономика, 2002.  184бет
3. Малыхина М.П. Базы данных / М.П. Малыхина. Основы, проектирование, использование СПб.: БХВ  Петрбург, 2004.  512с.:ил
4. Хомоненко А.Д. Базы данных: Учебник для высших учебных заведений / Под ред.проф. А.Д. Хомоненко. / СПб. КОРОНА  принт, 2004.  736 С
5. Алешин Л. И. Автоматизация в библиотеке/ Л. И. Алешин - Москва.: Издательство МКУКУ, 2001. - Часть1,2 - 256 стр.
6. Архангельский А. Я.. Приемы программированние в Delphi Версий 5. 7/ А. Я. Архангельский-Москва.: ЗАО «Издательство БИНОМ», 2003.- 520 стр.
7. Драхвелидзе П.Г. Программирование в Delphi 7. / П.Г. Драхвелидзе, Е.П. Марков - СПб.: БХВ-Петербург, 2003. - 784 с.
8. Хомоненко А. Самоучитель Delphi / А. Хомоненко, В. Гофман. - СПб.: БХВ - Петербург, 2003г. - 556 с
9. Delphi 6 Воок.
10. Гофман В. Работа с базами данных в Delphi / В. Гофман. - СПб.: БХВ -Петербург, 2003г. - 624 с.
11. Фаронов В. Система программирования Delphi / В.Фаронов. - СПб.:БХВ-Петербург, 2004.-888 с
        
        Мазмұны
|1. Кіріспе ... DElPHI ... ... ... Негізгі бөлім ... ... ... режиміндегі ... ... ... ... ... Меню ... Main Menu. Popup ... ... ... күй ... Status ... ... ... ... ... ... Қорытынды ... ... ... ... ... ... ... оқиғалық программалау тілінде программаның жұмысы
негізінен оқиғалар тізбегінен және ... ... осы ... ... ... визуальды түрлері – visual Basic тілі Qbasic
программалау тілі негізінде, Delphi ... ... ... ... тілі ... Windows ... ... басшылыққа алып құрылған
(visual - көзбен көру, ... ... ... Delphi ... ... ... қосымшаны дайындауға болатын жылдамдығы тез, қуатты тіл.
Delphi-дің ... ... 1994 жылы ... ... ... жылдары
оның бірте-бірте кеңейтілген 2, 3, 4, 5, 6,7-нұсқалары жарық көрді.
Дәстүрлі Паскаль оқып үйренуге жеңіл және MS Dos ... ... ең ... ... ... тілі ... белгілі. Delphi – де
Паскаль тілінде орындау мүмкін және ... емес ... ... болады. Delphi-дің негізгі ерекшелігі – онда қосымша құруда
компоненттік және ... ... ... ... Delphi-де программаны көбінесе қосымша деп атайды). Бұл
программалау технологиясында нағыз революция ... ... ... ... мәнісі жеңіл: әр қосымша ... ... ... ... іс - ... орындайтын компоненттер
элементтерінен жинақталады.
Delphi Windows жүйесінде программалаудың ыңғайлы құралы. Онда көптеген
операторларды ... ... ... программа мәзірін ... ... ... ұйымдастыру, OLE технологиясын
пайдаланып, басқа офистік ... ... ... ... ... және ... ... да мүмкін.
Негізгі бөлім
2.1. Дельфидің консольдік режиміндегі жұмыс
Delphi – де берілгендерді ... мен ... үшін ... ... read (оқу) жєне write ... ... пайдалану тєсілі
де бар. Оларды пайдаланып құрылатын программалар, осы үшін арналған, MS ... ... ... ... істейтін консольдық қосымша терезесіне
енгізіледі. Қосымшаны іске қосу тєсілі:
File – New Application (Файл-Жаңа қолданба) қосымшасын беру;
Кµрінген Form1, Unit.pas ... ... ... Delphi мен Object
Inspector терезелері қалады;
Project-View Source ...... ... командасын беру.
Project.dpr тақырыпты терезе ашылады;
Терезені тазалау жєне экранды ақ түсті ету ... үшін ... ... ... ... ... ... таңдап шықса болғаны);
Программа теру. Ол ASCII ... ... ... ... ... ... Программа мєтіні {$APPTYPE ... ... (2.20- ... Ол консольдық қошымша дайындалатыны
жµнінде компилятар нұсқауы. Мысалы,
Program My Progr;
{$APPTYPE CONSOLE}
Uses
SysUtils;
Var x, y : ... ... y : 6 : ... ... соң ... қосу ... беру ... My Progr тақырыпты
терезе пайда болады (терезеде орнатылған ... ... ... ... ... ... ақ ... ету қиын емес). Терезеде кµрінген сұраққа
жауап енгізілген соң КҚ ... басу ... ... ... readln ... консольдық терезені
экранда ұстап тұрады.
Программа жазылған терезеге қайтып µту үшін ... ... ... ... ... ... ... екінші тєсілі:File-New
командасын беріп, ашылған терезенің Consol Wizard ( не ... ... ... ... ... (мағыналық), синтаксистік жєне алгоритмдік
қателер жиі кездеседі. Программаны ... ... ... компилятор µзі табады да, машина жұмысын тоқтатады. Ал, ... 25 ... ... ... ... еске ... ... аяқталған кезде қате нєтиже шығады. Программада қате жазылған
оператор сияқты алгоритмдік қате де программаның ... ... ... сµзсіз. Сондықтан программаны құрып болған соң он ... ... ... ... ... түрде жазылуы дұрыстығын компилятордың µзі
қадағалап отыруы жєне ... ... ... үшін ... ... соң ол ... келтіріліп қойылады. Оның бірі – Project – Options
(проект –күйге келтіру) ... ... ... терезенің Compiler
бетіндегі жазуларды 2.21 – суреттегі сияқты орнатып қою ... - дегі ... ... ... ... Borland DataBase ... болып табылады - Borland фирмасының мәліметтер базасының процессоры.
BDE мәліметтер базасы және ... ... ... қызмет атқарады. Ол
қолданушыға мәліметтер ... ... ... ... ... үшін бір ... ұсынады, Delphi қосымшасы мәліметтер базасына тікелей катынаса
алады, тек BDE - ге ғана катынасады.
Delphi қосымшасы, мәліметтер базасымен ... ... ... ... - ге ... және ... ... псевдонимін және сондағы
керек таблицаны хабарлайды. BDE DLL - ге қосылатын минамикалық библиотека
ретінде іске ... ... ... ... ... API - ... Program Interface -интерфейс прикладных программ) және IDAPI -
мен (Intergrate DataBase Application Program Interface) байланысқан. Бұл
қосымша ... ... ... ... ... ... ... тізімі.
BDE - псевдоним бойынша мәліметтер базасы үшін лайықты драйвер табады.
Драйвер - көмекші ... ол ... ... ... ... жұмыс істеу керек екендігіне көмектеседі. Егер BDE - нің СУБД — ға
сәйкес ... ... бар ... онда BDE осы арқылы мәліметтер
базасындағы ... ... ... және ... ... ... ... нәтижесін керсетеді.
3. Ерекше жағдайлар
Программаға нолге бµлу жєне т.с.с. орындалмайтын қате ... ... де ... Олар ... ... ... Ерекше
жағдайларды µңдеу үшін Delphi-ге стандартты µңдеуіштер класы енгізілген.
¤ңдеуіштер атаулары E єріпінен ...... ...... ... ... кезінде кездесетін қателер;
EConvertErrror – мєннің типін түрлендіру қатесі, т.б.
Мысалы, мынадай программа үзіндісін
Begin
Y:=x/k;
ShowMessage(Floattostr(y));
End;
Орындау кезінде нөлге бөлуге болмайтыны жазылған суреттегі хабар ... ... ... ... ... ... ... үшін Delphi ортасында блокты қорғау механизмі
қарастырылған.Оның жазылу түрі:
Try
;
except

else

end;
Блокты қорғау блогы Try ... ... ... ... ... ... ... алдымен try..except ... ... Егер ... ... ... қорғалған блоктың
жұмысы осымен аяқталып, басқару end операторынан соң жазылған ... ... бар ... ... except - тен соң ... ... else бөлімін енгізу міндетті емес).
1 – мысал. h=1 қадам бойынша [-2;2 кесіндісінде ... ... ... керек.
Procedure Tform1. Button1Click(sender:Tobject);
Var y:real;x:integer;y1:string;
Begin
Try
For x:=-2 to 2 do
Begin
Y:=2*x/(x+1); y1:=FloatTo Str(y);
ShowMessage(y1);
End;
Except
On ... ... бөлу ... ... іске ... ... алдымен суретте көрсетілген терезе
шығады. Ал программа қайта қосылса типті түрлендіру қате сөйлемі ... ... ... ... ... ... редактор
Қарапайым графиктерді сызу әдістері
LineTo әдісі ... ... ... ... координатасы
көрсетілген нүктеге дейін сызады.
Объект.Canvas.LineTo(х, у);
MoveTo әдісі қарандашты белгіленген нүктеге апарады:
Объект.Canvas.MoveTo(х, у);
Ellipse ... ... ... ... ... шеңбер – параметр
мәндеріне тәуелді болады):
Объект.Canvas.Ellipse(x1, y1, x2, y2);
Мұндағы х1, у1, х2, у2 – ... ... ... ... ... доға сызады:
Объект.Canvas.Arc(x1, y1, x2, y2, х3, у3, х4, у4);
Мұндағы х1, у1, х2, у2 – эллипс параметрлері, ... ... ... доға ... ... ... сызады:
Объект.Canvas.Rectangle (x1, y1, x2, y2);
Мұндағы х1, у1 және х2, у2 – сол жақ үстінгі және оң жақ ... ... ... ... ... ... ... берілген түсімен
тіктөртбұрышты бояйды. Бұл әдістің бір ғана ... бар, ... TRect ... ... ... 20, 150, 150);
with Canvas do
begin
Brush.Color:=clRed;
FillRect(R);
end;
end;
TComponent класы келесі ... ... ...... компоненттер тізімі
• ComponentCount тиісті компоненттердің саны
• Componentlndex -- ... ... ... ... ... ... - ағынды компоненттің жағдайы
• Name - компоненттің аты
• Owner - компоненттің иесі
Tag - компонентпен сақталынатын бүтін мәні ... ... ... Destroy ... - ... ... ... жою (бұзу)
• Destroying - тиісті компоненттің жойылғаны ... ... ... ... - Component тізімінен компонентті табу (іздеу)
Тілдің сөздігі
Сөздер келесі түрлерге бөлінеді:
• Кілттік сөздер (ключевые, заразервированные)
• Стандатты идентификаторлар
• Қолданушының ... ... ... ... ... ... келеді. Редактор кодында
кілттік сөздер қалың (полужирный) шрифтпен бөлінеді, Мысалы,
And Expor ts ... File ... ... ... For ... Function ... Goto ... If ... ... ... In ... ... ... ... property ... Inline ... ... record
Downto Is ... Label resource ... Library ... Finally ... ... келесі анықталған ... ... ... үшін ... ... ... ... Тұрақты (Констант)
• Процедура және функция
Стандартты ... ... ... стандарттармен
байланысқан.
Оларға:
Absolute Name ... Near ... ... ... Override ... Packade ... Pascal ... ... ... ... ... ... ... ... ... Requires
Message ... ... ... атын, тұрақты (констант),
айнымалы, процедура, функция және ... ... ... ... Бұл аттар бағдарламашының (программист) өзі береді және ол
келесі ... сай келу ... әріп ... ... ... ... барлық уақытта әріппен басталады, тек 0 – 9999
диапазонында орналасқан бүтін сан болатын белгі кірмейді,
Идентификаторда кіші және бас ... ... ... ... бірдей қабылдайды. Арнайы символдарды пайдалануға ... ... үшін ... ... ... болады. Мысалы, NumberLmes
немесе btnOpen.
Бағдарламада екі идентификаторлардың арасына ең ... бір ... ... ... Меню ... ... Popup Menu)
□ TMainMenu түрінің MainMenu туындысы арқылы ... меню ... ... Меню ... мәтіндік редакторға ұқсас және онымен
жұмыс атқару ... және ... ... орындалады. Компонентті толықтай
орналастырғаннан кейін менюдын пункттерін жасау кажет. Менюдын пункттерін
жасау үшін тышқанның он жак батырмасымен бір рет ... ... ... Designer ... ... ... немесе жазудын ортасында тұрған
ITEMS обьект инспекторынын терезесін шерту керек. ... ... құру ... ... туғызбайды, обьект инспекторы
терезесіне өтіп пунктын атауын Caption ... ... жазу ... содан
кейін Enter батырмасын басып келесі пунктка көше ... ... ... меню ... үшін меню пунктына тышканмен бір ... ... ... үшін ... ... ... енгізу керек, осылайша
менюдағы барлық пунктарды қайталап жасай аламыз. Бұл ... ... ... ... қиындырақ болады.Егер көпсатылы меню құрғыныз
келсе, меню астындағы пункттардан бірнеше ... меню ... ... ... ... ... дефис – қоямыз, немесе Ctrl+ батырмасын басамыз.
Осындай меню қосымшасын жасау үшін тышқанның он жақ ... ... ... ... басу ... Dhelpi ... ... астындағы пункттармен байланыстыру функциясы бар, бұл суреттерді
BitMap қасиетімен немесе ImageIndex (бұл компонент Dhelpi ... ... жоқ) ... ... сол жағында пайда болады.
□ TPopupMenu түрінің туындысы PopupMenu арқылы белгілі бір компоненттің
аумағында тышқанның оң ... ... ... ... байланысты ) меню жүйесін шығаруға болады.
2.4. Қалып күй ... Status ... ара Delphi ... ... күй ... ... ... Компонентте мәтіндік сипат ын(Text) , барлық ақпаратты
мәтінге деген аударуға мәжбүр боламыз. Бұл компонентте бірнеше панельдар
бар, секцияның төменгі бөлігіне ... Status Bar ... ... ... бұл панельдің әрқайсысы келесі
кестедегі қасиеттері бар.Бұл контексті менюдің бас ... ... ... ... ... сай келе береді.
StatusBar мысалда біренеше панельдер бар, сол сипат жолымен
SimplePanel=true жұмыс жасайды Ал міне тағы мынадай жағдай,
SimplePanel=false, сол ... ... Panels ... ... ... ... алу ... алу болады екі әдіс-айламен арқылы Items
немесе арқылы Panels.
StatusBar1.Panels[0]:='мәтін'; қарамастан немесе
StatusBar1.Panels.Items[0]:='мәтін'; - бір болып табылады .
Жалпы сипаттамасы
|Ерекшелігі ... ... ... ... |
| ... ... бір ... екінші күйге өтуін корсетеді |
| |Hint ... ... alTop, ... alLeft, alRight |
| ... |
| ... Align:TAlign; |
| ... ... ... ... ... |
| ... ... салу мүмкіндігін береді |
| ... ... ... Panels: ... |
| ... жиынтығы ... ... |
| ... күй сызыында бірнеше панельді көрсетеді ... ... ... string; |
| ... устіне жазу ... ... |
| ... мен ... ... ... ... ... ... жүйесі
XXI ғасырдағы адамзат өркениетінің дамуындағы ғаламдық ө згерістер
оны жаңа кезеңге компьютерленген еңбек ... мен ... ... ... ... ... ... ақпарат адам қызметінің негізгі өнімдерінің бipi
болып табылады, ал үлкен көлемді ақпараттық қоры бар ... ... ... және кызметіндегі библиографиялық ақпаратпен қатар
аналитикалық, сондай - ақ дәстүрлі және жаңа ... ... ... ... ақпараттық өнім түрлерін кеңейте отырып акпараттық жүйе даму
үрдісіне енуі қажет. Осының барлығына, кітапханалық үрдістерді
автоматтандырылған ... ... құру ... кездегі ең маңызды
сұрақтардың бipi болмақ.
Қолданушылар кітапханадан өзіне қажетті кез - ... ... ... Қaзip ақпараттың мөлшерден тыс көптігі жағдайында кітапханалық қор
құру, ақпараттың - библиографикалық жене абономенттік қызмет көрсету сияқты
негізгі функцияларды атқару күннен - ... ... ... бұл ... жаңа түсімдерді өңдеуді орындауда
картотекаларды, басылымдарды, тізімдерді, тапсырыстарды, есептік
құжаттамаларды дайындау бойынша қызметкерлердің уақытын үнемдеумен қатар,
бip сарынды жұмыстан босату, түсімдер туралы мәліметтер ... ... ... ... ... операцияларды орындауды білдіреді. Ең бастысы -
кітапхана оқырмандарды отандық және ... ... ... ... ... ... қоры дегеніміз – ақпаратты сақтауға және жинақтауға
арналған ұйымдасқан құрылым. Ең алғаш ... қоры ... ... онда шындығында мәліметтер сақталатын. Бірақ қазіргі кездегі көптеген
мәліметтер қорын басқару жүйелері өздерінің құрлымдарында тек ... ... ... қатар олардың тұтынушымен және де басқа да ақпараттық ... ... ...... ... де ... ... адам іс әрекетінің барлық салаларына компьютерлік
технология кеңінен қолданылатын болды, ... ... оның ... ... отыр. Осыған байланысты жаңа бағдарламалаудың жаңа ... ... ... ... ... ... ... дәрежеде қажет
екендігін көрсетеді. Осы орайда мәліметтерді автоматтандыру, деректер қорын
басқару және ... ... ... бүгінгі өмірдің өзекті
қажеттілігіне, сұранымына айналды. Кез келген АЖО ... ... ... ... ... ... ... сәйкес жүзеге асырылуы
тиіс.
Төменде АЖО Delphi ортасында әзірленетіндей, негізгі ... ... ... ... АЖО құру ... ... ... мен қажетті өрістерді анықтау.
в) кестелер арасындағы байланыстарды анықтау.
2) Кестелерді құру.
а) кестелерді құру.
б) кесте өрістері үшін мәліметтер типтерін тағайындау ... ... ... ... байланыстарды құру.
1) Қалалар (қала_коды, қала)-мұнда оқырмандар тұратын қалалардың атаулары
жайлы мәліметтер сақталады. ... ... ... ... ал жаңа көше ... қосылған сайын бір бірлікке автоматты
түрде артып отырады.
2) Көшелер (Көше__коды, көше)-мұнда ... ... ... атауы
туралы мәліметтер сақталады. Сондай-ақ Көше_коды-бүтін санды атрибутын
енгіземіз, ал жаңа көше атауы ... ... бір ... автоматты
түрде артып отырады.
Бұл кестелерді бөлу қайшылықтардың пайда болуынан ... ... ... ... ... және ... қайталанып
енгізілуін болдырмайды.
Кестеге тиісті ақпараттар ғана жазылады; Келесі кестелер ... ... ... ... ... қүрастыруға қатысқан
адамдар ... ... ... ... ... ... санды атрибутын енгіземіз, ал жаңа құрастырушы қосылған
сайын бір бірлікке автоматты түрде артып ... ... ... ... ... ... және орналасқан жері туралы
ақпарат сақталады. Сондай-ақ Баспа_коды-бүтін санды атрибутын енгіземіз, ал
жаңа Баспа_коды қосылған сайын бір бірлікке ... ... ... ... Басылым түрі (Баспа_түрі, Түр_атауы)-мүнда баспа түрі атауы туралы
ақпараттар сақталады. Сондай-ақ Баспа_түрі бүтін типті атрибут ... ... ... бір ... артып отырады.
4) Бөлім (Бөлім_атауы, Кітапханалық_код)-мүнда бөлім туралы ... оның ... коды ... ... ... ... ... бүтін санды атрибут енгізіледі, және ол автоматты түрде бір
бірлікке өсіп ... ... ... ... ... Оқырман белгісі (Белгі_коды)-мұнда оқырмандар билетінің нөмірі
және олардың өзара ... ... ... акпараттар сақталады.
2) Фамилия (Фамилия_коды, Фамилия) - мұнда ... ... ... ... Фамилия_коды бүтін типті атрибут. Жаңа
Фамилия_қодын қосу кезінде ол автоматты түрде бір ... өсіп ... Аты ... Аты) - ... ... аты ... ... Сонымен қатар. Аты_коды бүтін типті атрибут енгізіледі. Жаңа
Аты_кодын қосу кезінде автоматты түрде бір бірлікке ... ... Тегі ... ... ... ... тегі ... ақпараттар сақталады.
Сонымен қатар, Тегі_коды бүтін типті атрибут енгізіледі. Жаңа Тегі_кодын
енгізу ... бір ... ... түрде өсіп отырады
Кесте 1 Оқырмандар кестесі үшін мәліметтер типін анықтау
|Оқырмандар (читатель.mdb) ... ... ... ... ... |
|1 ... ... |Длинное целое |Топтар номері |
|2 ... ... ... ... ... |Фамилия номері |
|3 ... ... |15 ... ... |
|4 |Имя ... |15 |Аты ... |
|5 ... ... |10 ... |
|6 ... ... |10 ... |
|7 |Дом ... ... ... |Үй номері |
|8 ... ... ... ... |Квартира номері |
|9 |Датарождения ... ... ... ... ... ... 2 Баспалар кестесі үшін мәліметтер типін анықтау
|Баспалар. ... ... ... ... ... ... |
|1 |Код ... ... ... ... ... |
|2 |ББК ... ... ... ... ... |
|3 ... ... |15 ... ... |
|4 ... ... ... |50 ... ... |
|5 |Издательство |Текстовый |30 ... |
|6 ... ... |Длинное целое |Даналар саны |
|7 ... ... ... ... ... ... | | | ... |
|8 ... ... |Длинное целое |жылы ... ... ... қарастырылған мәселе кітапхана әкімшілігінің
қызметінің жұмысын автоматтандыру. ... ... ... ... ... ... мүмкіндіктерін қолдану қазіргі
бағдарламашылардың басты ... ... ... құру үшін ... оның алгоритмін жасау керек. ... ... ... және қызметкерлердің тізімінен
басталады. Тізім ... ... ... ... ... ... қойылған мақсаттарға жету үшін, алдымен программаның қағаз жүзінде
алгоритмін жасап алу қажет. Блок ... ... не ... ... тіл де ... ... құру ... Программаның жоспарына
қателерді өңдеу де кіреді. Өйткені қазіргі кезде қарапайым қолданушылар қай
батырманы басқанын да білей қалады. Біздің жағдайда ... ... ... ... ... ... құрылған. Ол өте қарапайым. Алдымен санды
жолдық типке айналдырып аламыз Сандар өте ... ке ... 2-3 ... ... асып кетсе 6 символдан тұрады. Бұл дегеніңіз ... ... ... ... оңай болады деген сөз.
Программаны әсерлеу үшін соңғы екі ... ... ... ... үшін ... ... ... бар. Олардың құрылымының
күрделілігіне қарай, сонымен қатар тапсырманы шешу ... ... ... ... ... Ж.З. ... ... базамы данных. Методически указания /
Ж.З. Жантасоваю Издательство ВКГУ. – Усть-Каменогорск, 2003. – 78 ... ... Қ.С. ... ... ... / Қ.С. Байшоланова. Оқу
құралы. Алматы: Экономика, 2002. ( 184бет
3. Малыхина М.П. Базы данных / М.П. ... ... ... СПб.: БХВ ( ... 2004. ( ... ... А.Д. Базы данных: Учебник для высших учебных заведений / Под
ред.проф. А.Д. ... / СПб. ... ( ... 2004. ( 736 ... ... Л. И. ... в ... Л. И. Алешин - Москва.:
Издательство МКУКУ, 2001. - Часть1,2 - 256 ... ... А. Я.. ... ... в Delphi ... 5. 7/ ... Архангельский-Москва.: ЗАО «Издательство БИНОМ», 2003.- 520 стр.
7. Драхвелидзе П.Г. ... в Delphi 7. / П.Г. ... ... - СПб.: ... 2003. - 784 ... Хомоненко А. Самоучитель Delphi / А. Хомоненко, В. Гофман. - СПб.: БХВ
- Петербург, 2003г. - 556 с
9. Delphi 6 ... ... В. ... с ... данных в Delphi / В. Гофман. - СПб.: БХВ
-Петербург, 2003г. - 624 с.
11. Фаронов В. ... ... Delphi / ... - ... ... ... Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, ... = ... ... ... TDBGrid;
Query1: TQuery;
DataSource2: TDataSource;
Query2: TQuery;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Query3: TQuery;
ComboBox1: ... ... ... ... TBitBtn;
DBGrid2: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
numb:string;
end;
var
Form4: ... ... ... ... := ... := ExtractFilePath(Application.ExeName);
Query3.DatabaseName := ExtractFilePath(Application.ExeName);
end;
procedure TForm4.FormShow(Sender: TObject);
var max:string;
begin
with Query1.SQL do
begin
clear();
add('select max(numb) maxi from zakaz');
end;
Query1.Open;
max := IntToStr(Query1.FieldByName('maxi').AsInteger+1);
with ... ... * from zakaz where (act=1) and ... ... ... * from ... ... do
begin
clear();
add('select * from kyzm');
end;
Query3.Open;
ComboBox1.Items.Clear;
Query3.First;
while not Query3.Eof do
begin
ComboBox1.Items.Add(Query3.FieldByName('nm').AsString);
Query3.Next;
end;
if Query1.RecordCount0 ... ... := ... := ... := ... := numb+'-столдың тапсырыстары';
end;
procedure TForm4.ComboBox1Change(Sender: TObject);
var nm:string;
begin
nm:=ComboBox1.Text;
with Query3.SQL do
begin
clear();
add('update zakaz set kznm="'+nm+'" where numb='+Edit1.Text);
end;
Query3.ExecSQL;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
with ... ... into zakaz ... ... ... '+Query2.FieldByName('bg').AsString+',
'+numb+',1)');
end;
Query3.ExecSQL;
FormShow(self);
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
with Query3.SQL do
begin
clear();
add('delete from zakaz where
(nm='''+Query1.FieldByName('nm').AsString+''') and (numb='+Edit1.Text+')');
end;
Query3.ExecSQL;
FormShow(self);
end;
procedure TForm4.BitBtn3Click(Sender: TObject);
var f:textfile;
i,j,summ,pr:integer;
path:string;
begin
path:=copy(Application.ExeName,1,length(Application.ExeName)-8);
assignfile(f,'current.xls');
rewrite(f);
writeln(f,'');
writeln(f,'Есеп №00000'+edit1.text+'');
writeln(f,'Қызметкер: '+combobox1.text+'');
writeln(f,'');
for i:=0 to ... ... i:=1 to ... ... j:=0 to ... do
writeln(f,''+DBGrid1.Fields[j].AsString+'');
writeln(f,'');
summ:=summ+Query1.FieldByName('bg').AsInteger;
Query1.Next;
end;
pr:=round((summ/100)*10);
writeln(f,'Қызмет көрсету
құны:'+IntToStr(pr)+'');
writeln(f,'Барлығы:'+IntToStr(summ+pr)+'
');
writeln(f,'');
closefile(f);
ShellExecute(0, 'open',PChar(path+'\current.xls'), nil, PChar(path),
sw_show);
with Query3.SQL do
begin
clear();
add('update zakaz set act=0 where numb='+Edit1.Text);
end;
Query3.ExecSQL;
Close;
end;
end.

Пән: Автоматтандыру, Техника
Жұмыс түрі: Реферат
Көлемі: 14 бет
Бұл жұмыстың бағасы: 600 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
"Кітапхана" жұмысын автоматтандыру21 бет
Кітапханашының жұмысын автоматтандыру14 бет
Мектеп кітапханасы жұмысын автоматтандыру55 бет
Delphi ортасында «Кітапхана» ақпараттық жүйесін құру23 бет
Delphi ортасында құрылыс дүкенінің жұмысын автоматтандыру22 бет
Ms office қосымшаларында VBA-ны қолдану37 бет
Жаңа ақпараттық (информациялық) технологиялар19 бет
Кітапханаларды автоматтандыру тарихы62 бет
Кітапхананы автоматтандыру процессі38 бет
Қазақстан Республикасының кітапхана ісін автоматтандыру14 бет


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


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

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

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

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

Email: info@stud.kz

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

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