Редакция: +7 (777) 242 5522
Присоединяйтесь:

Есептің қойылымы

Есептің қойылымы

Ақпараттық жүйелер (АЖ) – экономикалық объектіні басқаруға қажетті ақпаратты жинау, сақтау, жаңарту, өндеу және шығарып беру жүйесі. Экономиканы басқарудың әр түрлі деңгейлері мен салаларына қызмет көрсететін АЖ – ның айырмашылығына қарамай, олар келесі ерекшеліктермен сипатталады: - экономикалық ақпараттың негізгі құрамдық өлшем бірлігін экономикалық корсеткіштер мен құжаттарды өндеуге бағытталуымен; - мәліметтерді үлгілік (модельдік) өңдеу мен есеп айырысу–есептеу кезеңінің байланыстылығымен; - уақытқа қарай – экономикалық есептер мен оның шешімдерін қажетті мәліметтермен жабдықтау зәрулігімен; - уақытша іс тәртібімен әкімдік–үйымдастыру құрылымына басқарылатын жүйені қатар тізу қажеттілігімен. Қазіргі уақытта әр түрлі мақсатта қолданылатын АЖ–ның көптеген саны қызмет етеді. Олардың бір–бірінен өзгешелігі келесі белгілермен түрлендіріледі: - басқару объектісінің сипатымен; - АЖ–ны тұрғызу мен жұмыс істетудің жинақталған тәжірибесімен; - басқару және басқарылушы жүйелерінің құрылымымен; - мәліметтерді жинауда, өткізіп беруде және өндеуде қолданылатын жабдықтармен; - АЖ–ны басқару объектісінің жетекшілік тұрғысымен және т.б. АЖ – бұл ақпараттық жүйелер жобасы мен акпаратты-есептеу жүйесінен (АЕЖ) тұратын күрделi жүйе. Мұндағы АЖ жобасы – бұл АЖ-ны тұрғызу мен жұмыс iстету шешiмдерi сипаттап жазылған техникалық құжат. Ал, АЕЖ - деп ақпараттық жүйелер жобасын жұмыс iстетуге бағытталған ұйымдастыру-техникалық кешенiң түсiнуге болады. АЕЖ мәлiметтердi жинауды, өткiзiп берудi, өңдеудi, сақтауды, жинақтап толтыруды және шығарып берудi АЖ жобасындағы шешiмдерге сәйкес қамтамасыз етедi. АЖ-ның келесi есебi –шешiмдердi қабылдау үшiн мәлiметтердi алу. Бұл жерде шешiмдi қабылдау деп әдетте алға қойылған белгiлi-бiр мақсатқа жету жолдарының бiрiн таңдауды ұғуға болады. Оның негiзгi есебi АЖ-ның үлкен көлемдегi жеке есептерiн қамтиды. - жүйенiң iшiнде және сыртында болып жатқандар туралы ақпаратпен жабдықтау; - шешiмдер ережесi туралы ақпаратпен жабдыктау(нұсқаулар, мөлшерлер , сiлтемелер, алгоритмдер және т.б); - шешiмдердi қабылдауға, қолдануға болатындай объектiнiң ортасы туралы мәлiметтердi тiркеу, талдау және бағалау; - басқарылатын кезеңдер барысын бақылау және басқарылатын жүйелердiң нақты күйi туралы мәлiметтердi өңдеудiң өзiн жабдықтау; - шешiм қабылдау үшiн өңделген мәлiметтерден керектi түрдегi және қажеттi көлемдегi ақпаратты тауып алу; - шешiмдi қабылдау үшiн әкiмшiлiк және себептiк ақпарат алу; - қабылданған шешiмдердiң орындалуын бақылау.

1. Есептің қойылымы (мақсаты, шарты, программаның қандай болу керектігі) Мәліметтер базасы - деп деректердің электрондық сақтаушысын айтады. Оларға қатынас, бір немесе бірнеше компьютерлер көмегімен іске асады. Әдетте деректер базасы деректерді сақтау үшін жасалады. Мәліметтер базасы – ақпаратты сақтауды және де мәліметтерге ыңғайлы, тез кіруді қамтамасыз етеді. Мәліметтер базасы өзінен белгілі бір ережелерге сай құрылған деректер жиынтығын құрайды. Деректер базасындағы ақпарат: - қайшылықсыз - артықсыз - тұтас Мәліметтер базасы басқару жүйесі деректер базасын құруға, толтыруға, жаңартқанға, жоюға, арналған программалық жабдық болып табылады. Бұл курстық жұмыстың программасының мақсаты – пайдаланушыға программаны қолдануға лайықты етіп құру. Программа тақырыбы - АТС. Ол қолданушыға лайықты кез-келген адам туралы мәлімет, оның телефон номері бойынша реттелуі тиіс. Іздеуге көп уақыт жұмсамау үшін мекен-жайы және аты-жөні бойынша іздеу функциясы көзделуі тиіс. Егер де пайдаланушы жұмысты қағазға бастырып алғысы келсе, оған арнайы есеп беру функциясы құрылуы керек. Программа соңында әрбір пайдаланушы қолданатынындай болуы тиіс. Delphi программалық жүйесінде деректер базасын құру оңай болғандықтан мен осы программалық тілде курстық жұмысты жасадым. 1.1. Кiру құжаты Кiру құжаты – бұл ақпараттық жүйелер функциясының орындалуына қажет, клавиатурадан терiлген, құжат, мәлiмет, сигнал түрiнде берiлетiн ақпарат. Мәліметтер базасын құру техникасы Қарапайым ақпараттық жүйенi құруда Delphi-дiң МБ-мен жұмыс iстеуiн қарастырайық. Бұл АЖ-нi код жазбай-ақ атқаруға болады. Барлық керектi операциялар Database Desktop, форманың конструкторы, объектiлер инспекторы көмегiмен жүзеге асады. АЖ-де жүмыс iстеу келесi басты кезеңдерден тұрады: • МБ-ын құру; • жоба құру; Мәліметтер базасы(МБ) мен жобадан басқа АЖ-ге есептеу жүйесi мен мәліметтер базасын басқару жүйесі (МББЖ) кiредi. Компьютер немесе компьютерлiк желi бар делiк, және олардың характеристикалары болашақ АЖ-нiң қажеттiлiктерiн өтейдi делiк. МББЖ ретiнде Delphi-дi таңдаймыз. Қарапайым кезде МБ бiр кестеден тұрады. Егер кестелер бар болса, онда бiрiншi кезең орындалмайды. Айта кететiн жайт, Delphi-мен қоса жобаның көптеген мысалдары, сонымен қатар МБ-ның жобасы да берiледi. Осы жобаға арналған кестелердiң файлдары С:/Program Files/CommonFiles/BorlandShared/Data каталогында орналасқан. Мәліметтердің ұйымдастыру - түріне байланысты мәліметтер базасындағы деректердің негізгі модульдері келесі түрде болады: - иерархиялық - желілік - реляциялық - объектілі–бағытталған Иерархиялық модельде деректер ағаштәріздес (иерархиялық) құрылым түріне беріледі. Деректердің осындай ұйымы иерархиялық реттелген ақпараттармен жұмыс жасағанда ыңғайлы, бірақ қиын логикалық байланыстармен жұмыс жасағанда иерархиялық модель әлсіз. Желілік модельде деректер ерікті граф түрінде ұйымдастырылады. Желілік модельдің кемшілігі болып, құрылымының қаттылығы және оны ұйымдастырудың қиындылығы болып табылады. Сонымен қатар, иерархиялық және желілік модельдерінің кемшіліктерінің бірі болып, деректер құрылымының деректер базасын жобалау кезінде берілуі және деректерге қатынау барысында өзгертуге келмейді. Объектілі–бағытталған модельде мәліметтер базасының жазбасы объект түрінде беріледі. Объектілі–бағытталған модель желілік және реляциялық модель ерекшеліктерін қамтып, күрделі мәліметтер базасын құруда пайдаланылады. Мәліметтер базасының кестесін құру Деректер базасын құрайтын кестелер қатты дискідегі каталогта тұрады. Кестелер файлдарда сақталып, бөлек құжаттарға немесе электрондық кестелерге ұқсас. Кестелерді көшіруге, орнын ауыстыруға болады. Бірақ, құжаттарға қарағанда, деректер базасының кестелері көпқолданбалы қатынау режимін қолдайды, яғни бірнеше қолданбалармен бір мезгілде қолданылуына болады. Бір кесте үшін (деректер, кілттер, индекстер т.б. құрайтын) бірнеше файлдар жасалады. Осылардың ішінде негізгісі болып кестенің атымен аталатын деректер файлы болып есептеледі. Кестені таңдағанда, әсіресе оның негізгі файлы таңдалады. Мысалы: dBase кестесі үшін кеңейтіндісі DBF болатын файл, ал Paradox кестесі үшін DB кеңейтіндісі болып табылады. Деректер базасының әрбір кестесі жолдан және бағаннан тұрады, бір типті объектілердің ақпараттық жүйелер деректерін сақтауға негізделген. Өріс мүмкін болатын типтің деректерін қамтиды. Кестенің негізін оның өрісінің сипаты құрайды. Әрбір кестенің кем дегенде бір өрісі болуы тиіс. Кестенің құрылымдық түсінігі өте кең және оның құрамына: - өріс сипаты - кілт - индекс - өрістің мәтініне шек қою - кестелер арсындағы біртұтастықты сақтау - парольдер кіреді. Кестені құрғанда кестенің аты және құрылымы беріледі. Кестенің атын өзгерткенде кесте және оның файлдары жаңа атқа ие болады. Бұл үшін деректер базасының кестелерімен жұмыс істейтін арнайы программалар қолданылады. Мыс: DataBase немесе Data Pump. Дискіден кестені жойғанда, оның барлық файлдары да жойылады. Ал енді мәліметтер базасымен жұмыс жасамас бұрын, біз оның каталогын құрып алайық. Ол каталог бізде D:\POS. Деректер базасын құру DataBase Desktop (DBD) утилит көмегімен іске асырылады. DBD утилит көмегімен кестені құруға және оның құрылымын өзгертуге, оның біріншілік кілттерін және индекстерін, жазбалар құру және өзгертулер жасауға болады. Жаңа кестені құру келесі команда бойынша іске асады: Пуск\Программы\Borland Delphi7\Database Desktop. DBD кірген мезетте жұмыс істейтін каталогты таңдап алу керек. Ол үшін DBD менюінде File\Working Directory және көрсетілген терезеден D:\POS каталогына сілтеме жасаймыз. Менің жағдайымда кестені құру үшін File\New\Table. DBD Creat Table терезесін шығарады, оның форматын таңдап алу керек. Құрылып жатқан кестенің әрбір өрісіне бір жазба сәйкес келеді. Field Name бағанына өріс атын, Type – символ, өрісте сақталынатын мәліметтердің типін анықтайды. Size бағанына – сан қойылады, өрістің ұзындығын анықтайды, Key-«*» символы, егер бұл өріс бойынша біріншілік кілт қою керек болса.

Кестенің қасиетін беру Validity Checks – бұл қасиет кестенің мәндерінің дұрыстығын тексереді. Table Lookup – бұл бөлім берілген кестенің өрісін басқа көрсетіліп отырған кестенің өрісімен байланысын көрсетеді. Table Lookup – ті таңдағанннан кейін Define – аңықтау батырмасы шығады. Бұл терезеде драйверлер мен псевдонимдерді қолдана аламыз. Secondary Index – бұл бөлім ары қарай жұмыс барысына керекті екінші индекс құруға мүмкіндік береді. Жаңа индекс құру үшін Define – анықтау батырмасын басу керек. Бұл батырманы басқанда көру диалогтық терезесі ашылады. Оның сол жақ терезесінде Fields қатынау өрістерінің тізімі көрсетілген, ал оң жақ терезесінде Indexed Fields екінші индекс болатын өрістер көрсетіледі. Индексі таңдалғаннан кейін, оның индексін беретін терезе ашылады. Referential Integrity – бұл бөлім әртүрлі кестелердің арасында бүтін сілтеме байланыстарды қамтамасыз ету үшін қолданылады. Егер екі кестенің арасында сілтеме байланыс көрсетілсе, оның біреу – бас, ал басқасы – қосымша кестелер, онда қосымша кестеде бас кестеден алатын мәнің өрісі көрсетіледі. Сонымен қатар, бас кестедегі кілттік өрістің өзгерістеріне қосымша кестенің өзгеруін қамтамасыз ететін операция көрсетуге болады. Бұндай бүтін сілтеме деңгейі барлық кестелерге тән емес, бірақ Paradox 7 – де барлығы қарастырылған.

Update Rule – радиобатырмалар тобы егер бас кестеде кілттік өрісті өшіргенде қосымша кестеде болатын өзгерістерді анықтайды. Егер Prohibit – ті таңдасақ, онда Database Desktop бұндай операцияны болдыртпайды. Егерде Cascade опциясы тұрса, онда кілттік өрісі бар бас кестеде өзгеріс болса, онда қосымша кестеде де өзгеріс болады. Ал егер сіз бас кестеден кілт өрісі бар жазбаны өшірсеңіз, онда қосымша кестеде сол кілттік өрісі бар жазба автоматты түрде өшеді. Strict Referential индекстерін орнатқанда Paradox –тың алғашқы версияларына (соның ішінде Paradox for DOS) кестелердің ашылуын және бұзылуына жол бермейді. Барлық операциялар біткеннен кейін құрылған сілтеме атын беру керек. Table Language – бұл бөлім BDE Administrator арқылы кестенің тілін көсетуге (егер көрсетілмесе) немесе анықтауға (Modify батырмасы) мүмкіндік береді. Dependent Tables – бұл бөлім Referential Integrity сілтемелі деңгейіндегі кестелерді көруге мүмкіндік береді. Барлық керекті құрылымдық мәліметтер кестеге еңгізілгеннен кейін Save As батырмасын басу керек, сол кезде Windows – тағы стандартты сақтау терезе шығады. Кәдімгі терезеден айырмашылығы Alias тізімнің болуында. Бұл тізімде әр түрлі мәліметтер базасының псевдонимдері бар. Сіз тізімнен керекті псевдонимді таңдап, кестені сақтайсыз. dBase және Paradox форматының кестелері. Delphi–дің өзіндік кестелік форматы жоқ, бірақ ол dBase және Paradox кестелерімен жұмыс істей береді. Осы кестелердің әрқайсысының өзіндік ерекшеліктері бар. dBase кестесі персоналды компьютерлерге арналған бірінші форматтық кестелердің біріне жатады. dBase кестесінің негізгі қасиеті болып, оның қолданылуының қарапайымдылығы және көп қолданбалармен бірігіп жұмыс істеуі болып табылады. 1.1. кестесінде dBase кестесінің өрістік тип тізімі құралған. Мұнда әрбір типке символ беріледі. Тип Белгіленуi Мәннің мазмұны Character C Символдық қатар. Ұзындығы 256 символдан аспайды. Float F Жүзбелі нүкте саны. Дәлдігі мантис саның 15 саны. Number N BCD форматындағы екілік–ондық жүйесінің саны. Date D Күн. Logical L Логикалық мән. Memo M Символдық мән. Ұзындығы шектелмеген. Ole O Форматтағы деректер. Деректер DBT кеңейтіндідегі файлда сақталады. Binare B Байттар тізбегі. Ұзындығы шектелмеген.

dBase кестесі жеткілікті қарапайым және дискіде едәуір аз физикалық файлдарды сақтауда қолданылады. Файлдың кеңейтіндісіне қарап, оның құрамында қандай деректер бар екенін көруге болады. DBF – кестелік деректер. DBT – үлкен екілі объектілі деректер, немесе BLOB – деректер (Binary Large Object) MDX – колданба индекстер NDX – dBase форматтық кестесін колдамайтын индекс. Осындай кестемен жұмыс істегенде программист бұны өзі өңдеу керек. dBase кестесінде өріс аты әріптер мен сандардан құралу керек және ол әріптен басталуы керек. Аттың максимал ұзындығы 10 символдан тұрады. Атты жазғанда арнайы символ және пробел жазуға болмайды. dBase кестесінің кемшілігі - оның парольдік қорғаныстың болмауы және байланыстын бақылаудың болмауы. Сондықтан программист өзі осы істерді кодтау керек. Paradox кестесі деректер базасын құруға және онымен жұмыс істегенде ыңғайлы болып табылады. Оның негізгі артықшылықтарын атап өтейік: - деректердің тұтастығын - әртүрлі типті деректерді ұсынуға арналған өрістік типті - енгізілген деректерді тексеруді - кестенің парольдық қорғанысын қамтамасыз етеді. BDE Administrator DELPHI қолданбасы деректер базасына қатынауды BDE (Borland DataBase Engine – Borland фирмасының деректер базасының процессоры) арқылы жүзеге асырады. BDE өзінен деректерге қатынайтын динамикалық кітапханалар және драйвер жиынтығын құрайды. BDE деректер базасымен жұмыс істейтін барлық компьютерлерге орнатылуы тиіс. Деректер базасына BDE арқылы жіберілген сұраныс, қолданушы сұрақтар деректерді алады.

Деректер базасымен жұмыс, ережеге сай, бірқолданушылық режимде жұмыс істейді. STANDART драйверлер үшін, әдетте Paradox деректер базасы, мінездемелер псевдонимі жиынтығы минималды болады: Type – драйвер және аты және PATH – деректер базасына жол. PATH параметрін басқанда, сіз көп нүктелі батырманы көресіз. Оны басқанда Windows–тің жаңа каталогты таңдау стандартты диалогы ашылады, ол арқылы біз керекті каталогты таңдап аламыз. STANDART типті драйверлерді тек Paradox, dBase, FoxPro кестелері үшін қолдануға болады. Жергілікті деректер базасына қатынау үшін BDE деректер базасының процессоры стандартты драйверлерді қолданады. Олар dBase, Paradox, FoxPro және текстік файлдарымен жұмыс жасайды. Жергілікті деректер базасын қолданғанда, желіде деректер базасына көпқолданушылық қатынауды ұйымдастыруға болады. Бұл жағдайда деректер базасының файлдары және осымен жұмыс істейтін қолданбалар желінің серверінде орналасады. Сонда әрбір қолданушы өз компьютерінде қолданбаның көшірмесі іске асады. 1.2. Шығу құжаты Кейбір кезде пайдаланушыға қазіргі уақыттағы мәліметтер қоры жайлы отчет керек болады. Сондықтан отчетті құру өте қажет. Ол үшін жаңа форма ашып Table – дің компонентің орналастырып, мәліметтер қорының кестелерімен байланыстырамыз (біздің жағдайда ол darik). Оның Active қасиетіне True мәнін қоямыз. Бұл жерде Table1 darik кестесімен байланыстырылып, мәліметтердің негізігі жинағы болады. Енді осы формаға Rave бетінен RvDataSetConnection – ң компонентін орналастырамыз. RvDataSetConnection1 – ді DataSet қасиетінде Table1 – мен байланыстырамыз. Енді формаға RvProgect компонентін орналастырамыз. Осымен кішкене тоқталып, біздің жобаға отчет формасын құруға көшеміз. Ол үшін Delphi – гі Tools/Rave Designer бұйрығын орындаймыз. Бұл жерде Rave терезесі ашылады, бірінші істейтініміз ол мәліметтер көзін көрсететін зерзат енгізу. Ол үшін File/New Data Object бұйрығын орындаймыз. Ашылған терезеде Direct data View – ді таңдап алып Next батырмасын басамыз. Келесі терезеде біздің жобаның активті қосылымдарының тізімі орналасады: RvDataConnection1.Оны таңдап алып, Finish батырмасын басу керек. Сонда DataViewDictionary – үстінде DataView1 пайда болады. Енді отчет формасын құру керек. Отчетті құрғанда Region1, Band, DataBand, Text, dataText компоненттерін пайдалану керек. Жұмыстың соңында болашақ отчеттің кейпі мынандай болуы тиіс:

Отчет формасы аяқталды, енді оны Delphi ортасына қайтып келіп аяқтаймыз. RvProject - тің ProjectFile қасиетінде құрастырған жобаның құжатын көрсету керек. Формаға Button кнопкасын орналастырып, оның басылым операторына RvProject1.Execute; программасын жазамыз. Сонда біздің аяқталған отчетіміз мынандай болады:

2. Программалық жабдықтау Программалық жабдықтау деп, ТЖЖ–ны жұмыс істетуде жабдықтайтын АЖ–ның қызметін жүзеге асыратын программалардың бірігуін үғуға болады. Ол математикалық жабдықтау негізінде құрастырылып және оның нақты «жұмыс істейтін» пішіні болады. Программалық жабдықтау екі бөлімнен тұрады: жалпы программалық жабдықтау, арнаулы программалық жабдықтау.

Жалпы программалық жабдықтау – бұл жабдықтаудың кең көлемдегі қолданушыларға есептелген және ақпаратты өңдеу есебінде жиі кездесетін, есептеу кезеңінің «және–немесе» шешімін ұйымдастыруға арналған программалардың бірігуін бейнелейтін АЖ–ны программалық жабдықтаудың бөлімі. Амалдық (операциялық) жүйе – ол есептеу кезеңін тиімді ұйымдастырып және есептеу жүйесінің қорларын (жедел жадыны, процессорды, арналарды және т.б.) тиімді тиеуді орындайды. Бұл жүйеге амалдық жүйелер мен жеке программалардың (драйверлердің) мүмкіндігін кеңейтетін программалар жатады. Есептеу кезеңін ұйымдастырудың тиімділігі АЖ–ның тәсілін, оның генерациясының параметрлерін және оған тиімді қолданбалы программалар пакетін (ҚПП) қосуды ұйлесімді таңдаумен жүзеге асырады. Әдетте программалық өнімді тұрғызу жабдығы жабдығы бар болып отырған амалдық жүйеде қамтылмаған көптеген осы заманғы программалау жабдықтары да бар. Бұл өнімдер АЖ–дағы программалық жабдықтауда өте қажет. Сынаққа арналған программалар (тесттер) ДЭЕМ–нің жұмыс қабілетін тексеріп, егер жөндеу қажет болса, оны анықтап, машинаның немесе жүйе жұмысының ақауына ат қойып (диагноз), оны шектеп тоқтатады. Арнаулы программалық жабдықтауға ҚПП мен бөлек функцияларды орындайтын және АЖ–ның әр түрлі функционалды ішкі жүйесінің нақты есептерін шешетін программалар кіреді. ҚПП – жалпы жүйелік және функционалдық болып екі топқа бөлінеді. Мұндағы жалпы жүйелік ҚПП кез–келген АЖ–да қолданылуы мүмкін.

Мәліметтерді фильтрлеу Table компоненті мәліметтерді бейнелеп, реттеп, түзетіп қана қоймай, оған қоса белгілі бір шарттарға сәйкес фильтрлеуге мүмкіндік береді. Фильтрация – Table компонентінің Filter, Filtred, Filter options қажеттері арқылы беріледі. Filtred – фильтрацияны қосып, ажыратады (true, false). Filter – өріс мәнін шектейтін жолдық түрде шартты көрсетеді. Мысалы: Біздің программада фильтрацияны жасау үшін радиобатырмалар тобы RadioGroup, батырманы қолдандық. Оның құру программасы: procedure TForm1.BitBtn2Click(Sender: TObject); begin case RadioGroup2.ItemIndex of 0: Table1.Filter:='(Fam='''+Edit1.Text+'*'+''')'; 1:Table1.Filter:='(Name='''+Edit1.Text+'*'+''')'; 2:Table1.Filter:='(Tel='''+Edit1.Text+'*'+''')'; 3:Table1.Filter:=''; end; end; procedure TForm1.RadioGroup2Click(Sender: TObject); begin case RadioGroup2.ItemIndex of 0,1,2:begin GroupBox1.Visible:=true; Edit1.Visible:=true; end; 3:begin GroupBox1.Visible:=false; Edit1.Visible:=false; end; end; if RadioGroup2.ItemIndex=0 then Edit1.SetFocus; if RadioGroup2.ItemIndex=1 then Edit1.SetFocus; if RadioGroup2.ItemIndex=2 then Edit1.SetFocus; end; Осы программа арқылы біздің фильтрация жұмыс істей бастайды. Filter options – фильтрациялау ерекшілігін беру. Фильтрацияны есептелінетін өрістерге қолдануға болмайды.Мәліметтерде фильтрлеу кезіндегі біздің жобаның үлгісі:

Мәліметтерді іздеу Жазбаларды іздеу, белгілі - бір шарттарды қанағаттандыратын, сол жазбаға өту дегенді білдіреді. Іздеу көбінесе фильтрацияға ұқсайды, себебі іздеу процессінде белгілі шартқа сәйкес жазбаларды тексереді. Айырмашылығы тек іздеуде жазбалар саны мәліметтер жинағында өзгермейді. Біздің программада жазбаларды жол бойынша іздейміз. Ол үшін Locate және Lookup амалдары қолданылады. Locate функциясы жолдың берілген мәнімен іздейді. Егер де Іздеу шартын қанағаттандыратын жазбалар болса, онда көрсеткіш ағымдағы жазбаның басына орналасады. Ал жазба табылмаса функция True мәнін қайтарады, керісінше – False мәнін. Options параметрі жолды іздеу барысында мін беруге рұқсат етеді. Бұл параметр көпшілік TlocateOptions – ке жатады және келесі міндерді қабылдайды: • LoCaseInsensitive (әріп регистрі саналмайды); • LoPartialKey(мәндердің бөліктік сәйкес келуін қабылдайды). Енді мысал ретінде бөліктеп іздеуді қарастырайық. Төменде Edit1 және радиобатырмалар тобы RadioGroup қолданылуы көрсетілуде: procedure TForm1.Edit2Change(Sender: TObject); begin case RadioGroup3.itemIndex of 0:Table1.IndexFieldNames:='Fam'; 1:Table1.IndexFieldNames:='Gorod'; 2:Table1.IndexFieldNames:='Adres'; end; Table1.FindNearest([Edit2.Text]); end; procedure TForm1.RadioGroup3Click(Sender: TObject); begin if RadioGroup3.ItemIndex=0 then Edit2.SetFocus; if RadioGroup3.ItemIndex=1 then Edit2.SetFocus; if RadioGroup3.ItemIndex=2 then Edit2.SetFocus; end; Мәліметтерді іздеу жобада төмендегідей жүзеге асады:

3.Терминология

МББЖ Мәлiметтер базасын басқару жүйесi. МБ МББЖ мәлiметтерiн, объектiлерiн сақтауға арналған файл. Әдетте МБ нақты бiр қолданбалы тапсырмаға арналып құрылады. Кесте МБ-ның негiзгi объектiсi, ақпараттың сақтаушысы. Ол өрiстен(баған) және жазбадан(жол) тұрады. Мәлiмет Сақтауға және бiрнеше рет хабарласуға болатын нәрсе. Бұл мәтiн, сан, дата, сурет және т.б болуы мүмкiн. Форма Мәлiметтердi экранда көрсетуге және оларды басқаруға арналған бейне. Отчёт Мәлiметтердi печатьқа шығаруды көрсететiн бейне. Жазба Кестедегi жол аналогы . Ол кестедегi мәлiметтердi cақтаудың , запростағы , формадағы мәлiметтердiң таңдамасының стандартты блогы болып табылады. Өрic Delphi-дегi кесте элементi. Кiлттiк өрiс Өрiс, оның мағынасы кестедегi бiрыңғай анықталған жазба үшiн қызмет iстейдi. Кiлттiк өрiс iздеу, әртурлi кестедегi мәлiметтердi байланыстыру және сақтауды эффектiлi түрде ұйымдастыруға көмектеседi.

4.Листинг

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, DBTables, ExtCtrls, DBCtrls, StdCtrls, Buttons, ComCtrls, RpRave, RpDefine, RpCon, RpConDS;

type TForm1 = class(TForm) DataSource1: TDataSource; Table1: TTable; DBGrid1: TDBGrid; Table1Tel: TFloatField; Table1Fam: TStringField; Table1Name: TStringField; Table1Adres: TStringField; Table1Gorod: TStringField; DBNavigator1: TDBNavigator; Table1Num: TAutoIncField; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; RadioGroup1: TRadioGroup; BitBtn1: TBitBtn; RadioGroup2: TRadioGroup; BitBtn2: TBitBtn; GroupBox1: TGroupBox; Edit1: TEdit; RadioGroup3: TRadioGroup; Edit2: TEdit; Table2: TTable; RvDataSetConnection1: TRvDataSetConnection; RvProject1: TRvProject; GroupBox2: TGroupBox; BitBtn3: TBitBtn; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure RadioGroup2Click(Sender: TObject); procedure RadioGroup3Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

Қорытынды Аталмыш курстық жұмыс өз деңгейінде жазылды. Қойылған алғышарттардың барлығы орындалып, ең бастысы АТС тақырыбына құрылған мәліметтер базасының бүтінділігі сақталды, программа пайдаланушының кез-келген дерлік сұранысын орындауға қабілетті, барлық жүктелген операциялар(келтірілген мәліметтерді өңдеу, толықтыру,өшіру, қосу, іздеу, сұрыптау, реттеу, кескіндеу, өзгерту, т.б.) толыққанды орындалады. Сонымен дайындалған жұмыс көздеген мақсатқа жетті — құрылған бағдарлама бойынша кез келген қолданушы АТС жүйесі туралы мәліметтерді қолдануға мүмкіндік алады. Бағдарлама келешекте одан ары күрделендірілуге, байытылуға, қолданысқа ыңғайлы.

Қолданылған әдебиеттер тізімі: 1. А.Я. Архангельский. Программирование в Delphi7. Москва, 2004ж. 2. А. Хомоненко, В. Гофман, Е. Мещеряков, В. Никифоров. Delphi 7. Санкт – Петербург, 2004ж. 3. С. В. Федотова. Создание Windows – приложениий в среде Delphi. Москва, 2004ж. 4. А. Я. Архангельский. Приемы программирования в Delphi. Москва, 2003ж. 5. Халықова, Бостанов, Тұрғанбаев. “Объектілі бағдарланған программалау жүйелерінің негіздері”. Алматы, 2004ж.

Қосымша procedure TForm1.FormCreate(Sender: TObject); begin Table1.Active:=true; height:=590; width:=790; Table1.Filtered:=true; end;

procedure TForm1.FormDestroy(Sender: TObject); begin Table1.Active:=false; Table1.Filtered:=false; Form1:=nil; end;

procedure TForm1.BitBtn1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0:Table1.IndexName:='Famname'; 1:Table1.IndexName:='Imia'; 2:Table1.IndexName:='Mesto'; 3:Table1.IndexName:=''; end; end;

procedure TForm1.BitBtn2Click(Sender: TObject); begin case RadioGroup2.ItemIndex of 0: Table1.Filter:='(Fam='''+Edit1.Text+'*'+''')'; 1:Table1.Filter:='(Name='''+Edit1.Text+'*'+''')'; 2:Table1.Filter:='(Tel='''+Edit1.Text+'*'+''')'; 3:Table1.Filter:='';

end; end;

procedure TForm1.Edit2Change(Sender: TObject); begin case RadioGroup3.itemIndex of 0:Table1.IndexFieldNames:='Fam'; 1:Table1.IndexFieldNames:='Gorod'; 2:Table1.IndexFieldNames:='Adres'; end; Table1.FindNearest([Edit2.Text]); end;

procedure TForm1.RadioGroup2Click(Sender: TObject); begin case RadioGroup2.ItemIndex of 0,1,2:begin GroupBox1.Visible:=true; Edit1.Visible:=true; end; 3:begin GroupBox1.Visible:=false; Edit1.Visible:=false; end; end; if RadioGroup2.ItemIndex=0 then Edit1.SetFocus; if RadioGroup2.ItemIndex=1 then Edit1.SetFocus; if RadioGroup2.ItemIndex=2 then Edit1.SetFocus; end;

procedure TForm1.RadioGroup3Click(Sender: TObject); begin if RadioGroup3.ItemIndex=0 then Edit2.SetFocus; if RadioGroup3.ItemIndex=1 then Edit2.SetFocus; if RadioGroup3.ItemIndex=2 then Edit2.SetFocus; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin RvProject1.Execute; end;

end.

Похожие материалы