Мазмұны
1 Пәндік облысты талдау 7
1.1 Пәндік облыстың ER диаграммасы 7
2 Бағдарламалық құжат 10
2.1 Техникалық тапсырма 10
2.1.1 Функционалдық тағайындауы 10
2.1.2 Пайдалану тағайындауы 10
2.1.3 Орындалатын функциялардың құрамына талаптар 10
2.1.4 Кіріс және шығыс деректерді ұйымдастыру 10
2.1.5 Уақыт сипаттамалары және орын алатын жадының көлемі 11
2.1.6 Техникалық құралдардың құрамы мен параметрлеріне талаптар 11
2.2 Түсініктеме хат 11
2.2.1 Тағайындалуы және қолдану облысы 11
2.2.2 Деректер қорының логикалық және физикалық модельдерін құру 11
2.2.3 Логикалық жобалау кезеңі 13
2.2.4 Физикалық жобалау кезеңі 13
2.3 Бағдарламаның сипаттамасы 15
2.3.1 Жалпы мәліметтер 15
2.3.2 Функционалдық тағайындау 17
2.3.3 Логикалық құрылымының сипаттамасы 18
2.3.4 Қолданылған әдістер 18
2.3.5 Шақыру және жүктеу 19
2.3.6 Кіріс деректер 19
2.3.7 Шығыс деректер 19
3 Пайдалану құжаты 20
3.1 Кірістерді енгізу 20
3.2 Шығыстарды енгізу 22
3.3 Қоймадағы тауарларды қарау 25
3.4 Анықтамалар 28
Қорытынды 32
Қолданылған әдебиеттер тізімі 33
А ҚОСЫМША 34
Б ҚОСЫМША 38
Кіріспе
Ақпаратты басқару компюьтерлерді қолданудың негізгі сферасы болып табылады және
Бағдарламалық өнімді жасаудың мақсаты қоймалық есепті жүргізу бойынша жұмыстың
Есепке алуды қолмен жүргізумен салыстыру бойынша үстемдер:
тауарларды қабылдау және өткізу рәсімдерінің жылдамдығының артуы;
сұраныстарды өңдеу жылдамдығының артуы;
құжаттарды толтыру кезінде қателердің азаюы.
Сапасы бойынша:
Арнайы дайындықты қажет етпейтін түсінікті, ыңғайлы графикалық пайдаланушы интерфейсі;
Тауарларды есептеудің негізгі міндеттері:
Дайындалған, келіп түскен және өндіріске немесе сыртқа босатылған тауарларды
Материалдардың қоймада және тасымалдау кезінде түгел сақталуын бақылау.
Материалдық қорлар қалдығының белгіленген мөлшерден артып немесе төмендеп кетпеуін
Материалдарды өндірісте пайдаланған кезде олардың техникалық жолмен анықталған мөлшерін
Материалдардың өндірісте ұтымды пайдаланылуын бақылау.
Дайындалған материалдардың өзіндік құнын анықтап және олардың жоспарлы есептеу
Жақсы және дұрыс ұйымдастырылған есеп материалдардың түгел сақталуына, үнемді
тиісті түрде жабдықталған материалдық-қорларды сақтайтын қойма немесе бөлме болуы
материалдар қойманың әр бөлігінде өздерінің түрлері, сорттары, өлшемдері бойынша
Кәсіпорындар мен ұйымдардың әкімшілігі материалдарды сақтайтын жерді таразымен, өлшеу
Материалдардың есебін дұрыс және ұтымды ұйымдастыру үшін мыналар керек:
материалдардың біріңғай наменклатурасы мен жоспарлы есеп айырысу бағасын белгілеу;
құжат айналымының дәл жүйесін белгілеу және материалдарды есепке алу
біріңғайланған алғашқы есеп құжаттары нысандарының түрлерін белгілеу және олармен
Сонымен қатар материалдарды алдағы уақыттарда пайдалану үшін өндіріске босату
Бұрынғы кездерден бастап сауда-саттық барлық адамдардың ажыратылмаған бөлігі болған.
Сауда қызметімен айналысатын фирма үшін ең қиын тапсырмалардың бірі
Мұндай бағдарлама не үшін қажет? Кәсіпорын енді құрылған кезінде
Пәндік облысты талдау
Бұл курстық жобаның пәндік облысы болып қоймалық операциялар болып
Ең алдымен қойма тауарлар мен ақпараттық ағымдар әрекетімен жұмыс
Әрбір материал, тауар бірлігінің қоймалық есепті жүргізгенде атауы және
Материалдар, тауарлар қоймаға жабдықтаушылардан келіп түседі. Сондықтан жабдықтаушы туралы
Қоймаға түскен әрбір тауарлар, материалдар тіркеледі. Міндетті түрде кімнен
Тауарлар қоймада қажетті көлемде тауарларды өткізу туралы өтінім келгенге
Пәндік облыстың ER диаграммасы
Пәндік облыстың ER диаграммасы төменде көрсетілген (1-сурет ). Мәні
ER- диаграмма
Әрбір қатынас бойынша атрибуттардың арасында функционалдық тәуелділіктерге талдау жасаймыз:
Кіріс (Жабдықтаушының атауы, Жөнелтпе құжаттың нөмірі, Түсім күні, Шифр,
Басқа функционалдық тәуелділіктер жоқ, қатынас 3 нормалды формада орналасқан.
Шығыс (Шифр, Саны, Шығыс күні, Чек№, Бағасы);
Басқа функционалдық тәуелділіктер жоқ, қатынас 3 нормалды формада орналасқан.
Қойма (Шифр, Өлшем бірлігі, Саны, Стеллаж);
Басқа функционалдық тәуелділіктер жоқ, қатынас 3 нормалды формада орналасқан.
Жабдықтаушы анықтамасы (Жабдықтаушының атауы, Мекен-жайы, Телефоны);
Басқа функционалдық тәуелділіктер жоқ, қатынас 3 нормалды формада орналасқан.
Өлшем бірліктер анықтамасы (Өлшем бірлігі, Толық атауы).
Басқа функционалдық тәуелділіктер жоқ, қатынас 3 нормалды формада орналасқан
Тауарлар анықтамасы (Шифр, Тауардың атауы, Өлшем бірлігі, Бағасы).
Басқа функционалдық тәуелділіктер жоқ, қатынас 3 нормалды формада орналасқан.
Бағдарламалық құжат
Техникалық тапсырма
Функционалдық тағайындауы
Бағдарламаның функционалдық қызметі кәсіпорындардың, сауда мекемелерінің, дүкендердің т.б. қоймадағы
Пайдалану тағайындауы
Бағдарлама кәсіпорындардың, сауда мекемелерінің, дүкендердің процесстері автоматтандыру объектісі болып
Орындалатын функциялардың құрамына талаптар
Бағдарлама келіп түскен тауарларды енгізуге мүмкіндік беру керек.
Түскен тауарлар бойынша іздеуді орындау.
Түскен тауарлар бойынша есептемені шығару керек.
Кіріс кестесінде жабдықтаушының атауы, тауардың шифры құламалы тізімнен таңдалуы
Бағдарлама қоймадан шығарылған тауарды дерек қорына тіркеу керек.
Өткізілген тауарлар бойынша іздеуді орындау керек.
Өткізілген тауарлар бойынша есептемені шығару.
Қоймада қанша тауар бар екенін қарауға мүмкіндік болу керек.
Жабдықтаушы туралы анықтама болу керек.
Жабдықтаушы туралы анықтамада деректерді енгізу, жою мүмкіндіктері болу керек.
Өлшем бірліктері туралы анықтама болу керек.
Өлшем бірліктері анықтамасында деректерді енгізу, жою мүмкіндіктері болу керек.
Тауарлар туралы анықтама болу керек.
Тауарлар туралы анықтамада деректерді енгізу жою мүмкіндіктері болу керек.
Кіріс және шығыс деректерді ұйымдастыру
Кіріс және шығыс деректерді ұйымдастыру А ҚОСЫМША ға сәйкес
Бағдарламаның жұмыс кезінде кіріс ақпарат деректер қорының файлы болу
Уақыт сипаттамалары және орын алатын жадының көлемі
Бағдараламаның кез келген батырмаға басу әрекетін жасау уақыты және
Техникалық құралдардың құрамы мен параметрлеріне талаптар
Бағдарлама келесі жүйелік талаптарға қамтамасыз ететін компьютерде жұмыс істеу
Pentium 4 процессоры және жоғары;
процессордың жиілігі 2 Ггц кем емес;
жедел жады 512 Мб кем емес;
қатты дисктің көлемі 40 Гб кем емес;
дисплей экранының көрсетілуі 1024х768 кем емес,
принтер.
Сонымен қатар пайдаланушының компьютерінде қазақ тілінің драйвері орнатылған болу
Түсініктеме хат
Тағайындалуы және қолдану облысы
«Қоймалық есеп» бағдарламасы сатып алу, өткізу және қоймадағы тауарлар
Деректер қорының логикалық және физикалық модельдерін құру
Бағдараламада кіріс құжат – келіп түскен тауар болып келеді,
Кіріс және шығыс құжаттар негізінде және жасалған талдау бойынша
–Атрибуттар мен олардың идентификаторлары
№ Атрибуттың атауы Типі, ұзындығы Мағынасы 1 Жабдықтаушының
2 Мекен-жайы Мәтіндік, 30 Жабдықтаушының толық мекен-жайы
3 Телефоны Мәтіндік, 30 Жабдықтаушының телефоны
4 Жөнелтпе құжаттың нөмірі Сандық Келіп түскен тауар бойынша
5 Түсім күні Күн/уақыт Қоймаға тауардың түскен күні
6 Шифр Сандық Тауардың шифры
7 Тауардың атауы Мәтіндік, 10 Тауардың атауы
8 Саны Сандық Тауардың саны
9 Бағасы Ақша Тауардың бағасы
10 Өлшем бірлігі Мәтіндік, 10 Тауардың өлшем бірлігі
11 Толық атауы Мәтіндік, 10 Өлшем бірліктің толық атауы
12 Стеллаж Сандық Қоймада тауардың орналасқан жері
13 Шығыс күні Күн/уақыты Тауардың қоймадан шығу күні
Ұсынылған атрибуттардың негізінде келесі мәндерді анықтаймыз:
Кіріс,
Шығыс,
Қойма,
Анықтамалар.
Әрбір мәнге атрибуттар жинағын береміз:
Кіріс (Жабдықтаушының атауы, Жөнелтпе құжаттың нөмірі, Түсім күні, Шифр,
Шығыс (Шифр, Саны, Шығыс күні, Чек№, Бағасы);
Қойма (Шифр, Өлшем бірлігі, Саны, Стеллаж);
Тауарлар анықтамасы (Шифр, Тауардың атауы, Өлшем бірлігі, Бағасы);
Жабдықтаушылар анықтамасы (Жабдықтаушының атауы, Мекен-жайы, Телефоны);
Өлшем бірліктер анықтамасы (Өлшем бірлігі, Толық атауы).
Логикалық жобалау кезеңі
Логикалық жобалау бағдарламаның концептуалдық ақпараттық схемасынан деректер базасының логикалық
Жұмысты орындау үшін деректердің реляциялық моделін және осы модельге
Ақпараттың құрамды бөлінбейтін бірлігі болып келетін көптік қатынастарды алғанға
Мәндердің арасындағы байланыстарды жасаймыз:
Жабдықтаушы, Кіріс –1:К типті байланыс;
Жабдықтаушы, Тауарлар – К:1 типті байланыс;
Тауарлар, Қойма –1:К типті байланыс;
Тауарлар, Шығыс –1:К типті байланыс;
Физикалық жобалау кезеңі
Аccess-те жобалау
Деректер қорының сервері ретінде Microsoft Access таңдалды. Бұл ДҚБЖ
Алдымен конструктор арқылы кестелер құру керек. Кестелерге құрылымды беру
Кіріс – тауардың түсімі туралы ақпарат;
Шығыс – тауардың сатылуы туралы ақпарат;
Қойма – қоймадағы тауарлар туралы ақпарат;
Жабдықтаушылар анықтамасы – жабдықтаушылар туралы ақпарат;
Өлшем бірліктер анықтамасы – өлшем бірліктер туралы ақпарат;
Тауарлар анықтамасы – тауарлар туралы ақпарат.
Кестелерді құрып болғаннан кейін конструктор режимінде қатынастар арасында байланыстар
Деректер схемасы
Delphi-де жобалау
ДҚБЖ құру үшін орта ретінде Delphi 7 таңдалды. Бұл
Access деректер қорын қосу үшін ADO қолданылды. Деректер қоры
Кестелермен жұмыс жасау үшін ADOTable компоненті қолданылады. Ол ADOConnection
Сұраныстарды құру үшін SQL сұраныстарын құратын тілді қолдайтын ADOQuery
Кестелермен, сұраныстармен және басқару графикалық элементтермен жұмыс істеу мүмкін
Графикалық элементтерге DBGrid, DBNavigator, QuickReport жатады. DBGrid элементі DataSource
Бағдарламаның сипаттамасы
Жалпы мәліметтер
«Қоймалық есеп» бағдарламасы тауарларды есепке алу операцияларын жүргізу үшін
Бұл бағдарлама Microsoft Access 2003 ортасының кестелері арқылы жасалынған
Деректер базасы – деректер жиынтығы.
Access – қарапайым әрі күрделі деректер базасымен жұмыс істеуге
Access деректер базасының компонентері.
Деректер базасының негізін оның ішіндегі сақталатын деректер құрайды. Бірақ
Олар келесідей болады:
Кестелер – деректерді құрайды.
Сұраныстар – деректерді алуды таңдау үшін шарттарды жасауға және
Формалар – ақпараттарды қарастыру мен өзгертуге мүмкіндік береді.
Беттер – HTML (Hypertext Markup Language) форматты файл.
Тапсырыстар – ақпараттарды қағазға шығаруға және жалпылауға мүмкіндік береді.
Макростар – бір немесе бірнеше операцияларды автоматты түрде орындайды.
Кестелер. Access деректер базасына енгізілетін қандайда бір ақпарат
Бұл жоба Borland Delphi7 бағдарламасында әзірленді.
Borland Delphi7.
Берілген жобаны жобалау үшін визуальді обьекттік бағытталған Delphi 7
Delphi 7 – бұд бағдарлама жасау ортасы, Windows жұмысына
Delphi 7 деректер базасының қосымшаларын жасаудың ең таратылған құралы
Бағадарламаны жасау кезінде ADO технологиясы қолданылды. ADO компонеттері MS
Деректер базасын жасау кезінде ADO-ның келесі компонентері қолданылды:
ADO Table – Әрбір кестені бөлек көрсететні компонент.
ADO Query – SQL сұраныстарын орындау арқылы деректер базасының
Microsoft ActiveX Data (ADO) технологиясы OLE DB – ға
ADO негізі. ADO-ның объектті моделі жеті объектіден тұрады, оның
Command объектісі OLE DB Command біратты объектісін инкапсуляциялайды. Объект
ADO-ның әрбір жоғарғы деңгейдегі объектісі Property объектілерінің коллекциясын құрайды.
Функционалдық тағайындау
«Қоймалық есеп» бағдарламасы келесі функционалдық қызметтерді атқарады:
Келіп түскен тауарларды деректер қорына енгізу,
Қоймадан жіберілетін тауарларды тіркеу,
Қоймада қалған тауарларды қарау, олармен жұмыс жасау,
Анықтамалармен жұмыс жасау.
Логикалық құрылымының сипаттамасы
Бағдарламаның алгоритмі.
Бағдарламаны іске қосқан кезде экранға мәзірден және үш қосымшадан
Тауардың келіп түсу алгоритмі:
Жабдықтаушымен келісім жасау.
Жабдықтаушы тауарды жеткізеді.
Менеджер келіп түскен тауарды бағдарламаға енгізеді.
Егер келіп түскен тауар қоймада бар болса, онда деректер
Егер келіп түскен тауар бірінші рет түскен болса, онда
Тауарды қоймадан шығару алгоритмі:
Тапсырыс құжаты бойынша тауарды қоймадан шығаруды бағдарламада тіркеу.
Егер қоймада тапсырыс жасалған тауар бар болса және тауардың
Егер қоймада мұндай тауар жоқ болса немесе тауардың саны
Қолданылған әдістер
Бұл бағдарламада объекттік бағдарламаның әдісі қолданылды. Бұның мақсаты командалардың
procedure TForm2.TntButton1Click(Sender: TObject) – келіп түскен тауарларды деректер қорына
procedure TForm2.TntButton4Click(Sender: Tobject) – қоймадан тауарларды шығару туралы деректерді
procedure TForm2.TntButton11Click(Sender: TObject) – қоймада таусылған тауарлардың тізімін шығарады;
function SQLTEXT2(par1,par2:string):string – енгізілген параметрлер бойынша жазбаларды іздейді;
procedure TForm2.N2Click(Sender: TObject) – экранға анықтамалар формасын шығарады;
procedure TForm2.Button1Click(Sender: TObject) – есептемені экранға шығарады;
procedure TForm2.N5Click(Sender: TObject) – бағдарламадан шығу.
Шақыру және жүктеу
Бағдарламаны іске қосу үшін дисктен бағдарлама орналасқан папканы өзіңіздің
Кіріс деректер
Келіп түскен тауарлар туралы деректерді бағдарламаға енгізу үшін келесі
жабдықтаушы;
тауардың атауы;
тауардың саны;
бағасы;
түсім күні;
анықтамалар.
Шығыс деректер
Шығыс деректері қоймаға келіп түскен тауарлар бойынша, қоймадан шығарылған
Пайдалану құжаты
Кірістерді енгізу
Қоймаға келіп түскен тауарларды есепке алу үшін Кіріс қосымшасында
Кіріс қосымшасы
Егер енгізілген тауар қоймада бар болса, онда бағдарлама хабарлама
Тауардың енгізілуі туралы хабарлама
Егер тауар жаңадан түскен болса, онда бағдарлама енгізілген деректерді
Тауарды қоймаға орналастыру терезесі
Деректерді енгізіп батырмасын басыңыз. Тауар деректер қорына
Кіріс қосымшасында жазбаларды жою үшін батырмасын басыңыз.
Кіріс тауарлары туралы деректерді баспаға шығару үшін немесе есептемені
Келіп түскен тауарлар бойынша есептеме
Келіп түскен тауарлар бойынша іздеуді орындау үшін Іздеу жиынтығында
Іздеу жиынтығы
Енгізілген параметрлерді тазарту үшін батырмасын басыңыз.
Шығыстарды енгізу
Қоймадан тауарларды шығару бойынша деректерді бағдарламаға енгізу үшін Шығыс
Шығыс қосымшасы
Шығысты енгізу кезінде, егер қоймадан шығарылатын тауар қоймада жоқ
Қоймада тауардың саны жетіспейтін немесе енгізілген тауар жоқ екені
Мұндай жағдайда қоймадан шығарылатын тауар туралы деректерді өзгертіп әрекететті
Егер тауар қоймада бар болса және тауардың саны жеткілікті
Тауардың қоймадан шығарылуы туралы хабарлама
Қоймадан шығарылған тауарлар бойынша жазбаларды жою үшін кестеден керекті
Қоймадын шығарылған тауарлар бойынша есептемені қарац үшін және баспаға
Қоймадан шығарылған тауарлар бойынша есептеме
Қоймадын шығарылған тауарлар бойынша жазбаларды іздеу үшін Іздеу жиынтығында
Іздеу жиынтығы
Енгізілген параметрлерді жаңарту үшін батырмасын басыңыз.
Қоймадағы тауарларды қарау
Қоймадағы қалған тауарлар туралы деректерді қарау үшін Қоймадағы тауарлар
Қоймадағы тауарлар қосымшасы
Қоймадағы таусылған тауарларды қарау үшін батырмасын басыңыз.
Қоймада таусылған тауарларды шығару
Қоймадағы тауарлар бойынша жазбаларды іздеу үшін іздеу параметрлерін енгізіп,
Өрістегі енгізілген параметрлерді тазарту үшін батырмасын басыңыз.
Қоймадағы тауарлар бойынша есептемені қарау үшін және баспаға шығару
Қоймадағы тауарлар бойынша есептеме
Анықтамалар
Анықтамалармен жұмыс жасау үшін Анықтама мәзірінен керекті анықтаманы таңдаңыз
Анықтама мәзірі
Бағдарлама үш анықтамадан тұрады:
Тауарлар анықтамасы,
Жабдықтаушылар анықтамасы,
Өлшем бікрліктер анықтамасы.
Анықтамалардың біреуін ашқан кезде үш қосымшадан тұратын терезе ашылады
Тауарлар анықтамасы
Жабдықтаушылар анықтамасы
Өлшем бірліктер анықтамасы
Қорытынды
Жасалған жұмыс нәтижесінде қойманың жұмысын қолдайтын автоматтандырылған бағдарлама жобаланып
Бұл бағдарлама қоймалық операцияларды, қоймадағы тауарларды есепке алуды, тауарлардың
Деректер қорының икемді моделі құрастырылды. Мұнда керекті сұраныс жасауға
Ұсынылған жұмысты орындау кезінде пәндік облысты зерттеуде, мәндерді, атрибуттарды
Бағдарлама Delphi 7 визуалдық бағдарламау жүйесінің көмегімен орындалды.
Қолданылған әдебиеттер тізімі
Бойко В.В., Савинков В.М. “Проектирование информационной базы автоматизированной
Волков С.И., Романов А.И. Организация машинной обработки экономической информации,
Глушаков С.В., Ломотько Д.В. Базы данных, 2000.
Джексон Г. Проектирование реляционных баз данных для использования с
Зеленков Ю.А. Введение в базы данных. Центр Интернет ЯрГУ,
Ивлиев М.К., Порошина Л.А. Автоматизация оперативного и
Качайлов А.Е. Автоматизация учета на базах и складах, 1970
А ҚОСЫМША
Кіріс деректер келесі формат түрінде болу керек:
– Кіріс кестесінің құрылымы
Өріс Деректер типі Сипаттамасы
Жабдықтаушының атауы Мәтіндік Тауарды жабдықтаушының атауы
Жөнелтпе құжаттың нөмірі Мәтіндік Түскен тауарлар бойынша жөнелтпе құжаттың
Түсім күні Күні/уақыты Тауардың түскен күні
Шифр Сандық Тауардың шифры
Саны Сандық Әкелген тауардың саны
Бағасы Ақша Тауардың бағасы
– Шығыс кестесінің құрылымы
Өріс Деректер типі Сипаттамасы
Шифр Мәтіндік Тауарды жабдықтаушының атауы
Саны Мәтіндік Түскен тауарлар бойынша жөнелтпе құжаттың нөмірі
Шығыс күні Күні/уақыты Тауардың түскен күні
Чек№ Сандық Тауардың шифры
Бағасы Сандық Тауардың бағасы
– Қойма кестесінің құрылымы
Өріс Деректер типі Сипаттамасы
Шифр Сандық Тауардың шифры
Өлшем бірлігі Мәтіндік Тауардың өлшем бірлігі
Саны Сандық Тауардың саны
Стеллаж Сандық Тауардық орналасқан орны
–Тауарлар анықтамысының құрылымы
Өріс Деректер типі Сипаттамасы
Шифр Сандық Тауардың шифры
Тауардың атауы Мәтіндік Тауардың атауы
Өлшем бірлігі Мәтіндік Тауардың өлшем бірлігі
Бағасы Сандық Тауардың бағасы
–Жабдықтаушылар анықтасының құрылымы
Өріс Деректер типі Сипаттамасы
Жабдықтаушының атауы Мәтіндік Жабдықтаушының атауы
Мекен жайы Мәтіндік Жабдықтаушының мекен жайы
Телефоны Мәтіндік Жабдықтаушының телефоны
– Өлшем бірліктер анықтамасының құрылымы
Өріс Деректер типі Сипаттамасы
Өлшем бірлік Мәтіндік Өлшем бірліктің қысқартылған атауы
Толық атауы Мәтіндік Өлшем бірліктің толық атауы
Шығыс деректері есептеме болып келеді.
А.1 сурет – Келіп түскен тауарлар бойынша
А.2 сурет – Қоймадан шығарылған тауарлар бойынша есептеме
А.3 сурет – Қоймадағы тауарлар бойынша есептеме
Б ҚОСЫМША
Бағдарлама листингі
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, DBTables, Grids, DBGrids, StdCtrls, ComCtrls, XPMan,
Menus, ExtCtrls, Mask, DBCtrls, TntDBCtrls, TntDBGrids, TntStdCtrls,
TntComCtrls, TntMenus;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOTable1: TADOTable;
XPManifest1: TXPManifest;
ADOTable4: TADOTable;
ADOQuery4: TADOQuery;
DataSource4: TDataSource;
ADOTable5: TADOTable;
ADOQuery5: TADOQuery;
DataSource5: TDataSource;
TntMainMenu1: TTntMainMenu;
N1: TTntMenuItem;
N2: TTntMenuItem;
N3: TTntMenuItem;
N4: TTntMenuItem;
N5: TTntMenuItem;
TntPageControl1: TTntPageControl;
TntTabSheet1: TTntTabSheet;
TntLabel1: TTntLabel;
TntLabel2: TTntLabel;
TntLabel3: TTntLabel;
TntLabel4: TTntLabel;
TntLabel5: TTntLabel;
TntLabel6: TTntLabel;
TntEdit1: TTntEdit;
TntEdit3: TTntEdit;
TntEdit4: TTntEdit;
TntButton1: TTntButton;
TntButton3: TTntButton;
TntDBGrid1: TTntDBGrid;
TntButton7: TTntButton;
TntTabSheet2: TTntTabSheet;
TntLabel8: TTntLabel;
TntLabel9: TTntLabel;
TntLabel10: TTntLabel;
TntLabel11: TTntLabel;
TntEdit5: TTntEdit;
TntEdit7: TTntEdit;
TntEdit8: TTntEdit;
TntDBGrid2: TTntDBGrid;
TntButton9: TTntButton;
TntTabSheet3: TTntTabSheet;
TntDBGrid3: TTntDBGrid;
TntButton4: TTntButton;
Edit1: TEdit;
Edit2: TEdit;
DBLookupComboBox1: TDBLookupComboBox;
Button2: TButton;
TntGroupBox1: TTntGroupBox;
TntEdit9: TTntEdit;
TntButton8: TTntButton;
TntEdit12: TTntEdit;
TntEdit13: TTntEdit;
TntEdit14: TTntEdit;
TntEdit15: TTntEdit;
TntLabel12: TTntLabel;
TntLabel13: TTntLabel;
TntLabel14: TTntLabel;
TntLabel15: TTntLabel;
TntLabel16: TTntLabel;
TntLabel7: TTntLabel;
TntButton2: TTntButton;
TntGroupBox2: TTntGroupBox;
TntLabel18: TTntLabel;
TntLabel21: TTntLabel;
TntEdit17: TTntEdit;
TntEdit20: TTntEdit;
TntButton5: TTntButton;
Button1: TButton;
TntButton10: TTntButton;
TntButton11: TTntButton;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
TntGroupBox3: TTntGroupBox;
TntLabel17: TTntLabel;
TntEdit10: TTntEdit;
TntLabel19: TTntLabel;
TntEdit2: TTntEdit;
TntLabel20: TTntLabel;
TntLabel22: TTntLabel;
TntEdit6: TTntEdit;
TntEdit11: TTntEdit;
TntButton6: TTntButton;
TntButton12: TTntButton;
procedure Button5Click(Sender: TObject);
procedure TntButton3Click(Sender: TObject);
procedure TntButton7Click(Sender: TObject);
procedure TntButton9Click(Sender: TObject);
procedure TntButton1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure TntButton4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure TntButton6Click(Sender: TObject);
procedure TntComboBox1Enter(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TntButton8Click(Sender: TObject);
procedure TntButton2Click(Sender: TObject);
procedure TntButton5Click(Sender: TObject);
procedure TntButton10Click(Sender: TObject);
procedure TntButton11Click(Sender: TObject);
procedure TntButton12Click(Sender: TObject);
private
{ Private declarations }
Public
{Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit10, Unit3, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
//кестедегі жазбаны жою
procedure TForm2.TntButton3Click(Sender: TObject);
begin
adotable1.Delete;
end;
//есептемені қарау
procedure TForm2.TntButton7Click(Sender: TObject);
begin
form1.QuickRep1.PreviewModal;
end;
//есептемені қарау
procedure TForm2.TntButton9Click(Sender: TObject);
begin
form5.QuickRep1.PreviewModal;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
adotable5.Delete;
end;
//тауарды қоймаға енгізу
procedure TForm2.TntButton1Click(Sender: TObject);
var i,s,k,l:integer;
begin
adotable1.Last;
adotable1.InsertRecord([dblookupcombobox1.text, tntedit1.Text,datetimepicker1.Date, dblookupcombobox2.Text, tntedit3.Text, tntedit4.Text]);
adotable4.First;
k:=0;
for i:=0 to adotable4.RecordCount-1 do begin
if ADOTable4.Fieldbyname('Шифр').Text=dblookupcombobox2.text then
begin
adotable4.Edit; k:=k+1;
ADOTable4.Fieldbyname('Саны').asinteger:=ADOTable4.Fieldbyname('Саны').asinteger+strtoint(tntedit3.text);
MessageBox(Handle, Widestring('Тауар қоймаға енгізілді'), Widestring('Өңдеу'), MB_OK) end; adotable4.Next; end;
if k=0 then form6.ShowModal;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
form3.Showmodal;
form3.tntPageControl1.ActivePage:=form3.tntTabSheet1;
end;
procedure TForm2.N3Click(Sender: TObject);
begin
form3.Showmodal;
form3.tntPageControl1.ActivePage:=form3.tntTabSheet2;
end;
procedure TForm2.N4Click(Sender: TObject);
begin
form3.Showmodal;
form3.tntPageControl1.ActivePage:=form3.tntTabSheet3;
end;
//тауарды қоймадан шығару
procedure TForm2.TntButton4Click(Sender: TObject);
var i,s,k,l:integer;
begin
k:=0; adotable4.First;
for i:=0 to adotable4.RecordCount-1 do begin
if (ADOTable4.Fieldbyname('Шифр').Text=dblookupcombobox3.text)
and (ADOTable4.Fieldbyname('Саны').asinteger>=strtoint(tntedit5.text)) then
begin
adotable4.Edit; k:=k+1;
ADOTable4.Fieldbyname('Саны').asinteger:=ADOTable4.Fieldbyname('Саны').asinteger-strtoint(tntedit5.text);
MessageBox(Handle, Widestring('Тауар қоймадан шығарылды'), Widestring('Өңдеу'), MB_OK);end; adotable4.Next;
end;
if k=0 then
MessageBox(Handle, Widestring('Қоймада тауарлардың саны жетіспейді немесе қоймада көрсетілген тауар
else begin
adotable5.Last;
adotable5.InsertRecord([dblookupcombobox3.text, tntedit5.Text, datetimepicker2.Date, tntedit7.Text, tntedit8.Text]);
adotable5.First;
tntEdit5.clear; tntEdit7.Clear; tntEdit8.Clear; end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form8.QuickRep1.PreviewModal;
end;
//сұраныс
function GetSQLText2(par1,par2, par3, par4:string):string;
var SQL:TStringList;
begin
try
SQL:=TStringList.Create;
SQL.Clear;
SQL.Add('SELECT * FROM Кіріс ');
if Trim(par1)'' then
SQL.Add('WHERE Жабдыктаушы LIKE '+QuotedStr(par1));
if Trim(par2)'' then
begin
if Trim(par1)'' then
SQL.Add('AND Шифр LIKE '+QuotedStr(par2))
else
SQL.Add('WHERE Шифр LIKE '+QuotedStr(par2));
end;
if trim (par3)'' then
begin
if Trim(par2)'' then
SQL.Add('AND Саны LIKE '+QuotedStr(par3))
else
SQL.Add('WHERE Саны LIKE '+QuotedStr(par3)); end;
if trim (par4)'' then
begin
if Trim(par3)'' then
SQL.Add('AND Багасы LIKE '+QuotedStr(par4))
else
SQL.Add('WHERE Багасы LIKE '+QuotedStr(par4)); end;
Result:=SQL.Text;
finally
SQL.Free;
end;
end;
procedure TForm2.TntButton6Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:=getSQLText2(tntedit10.Text, tntedit2.text, tntedit6.Text, tntedit11.text );
ADOQuery1.Open;
datasource1.DataSet:=adoquery1;
end;
procedure TForm2.TntComboBox1Enter(Sender: TObject);
begin
{form3.adotable2.Active := TRUE;
while not form3.adotable2.Eof do begin
tntComboBox1.Items.Add ( form3.adotable2.Fields [0].AsString);
form3.adotable2.Next;
end;
TntComboBox1.DroppedDown:=True; tntcombobox1.Refresh; }
end;
procedure TForm2.N5Click(Sender: TObject);
begin
form2.Close;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
adotable5.Delete;
end;
function GetSQLText(par1,par2, par3, par4, par5:string):string;
var SQL:TStringList;
begin
try
SQL:=TStringList.Create;
SQL.Clear;
SQL.Add('SELECT * FROM Шыгыс ');
if Trim(par1)'' then
SQL.Add('WHERE Шифр LIKE '+QuotedStr(par1));
if Trim(par2)'' then
begin
if Trim(par1)'' then
SQL.Add('AND Саны LIKE '+QuotedStr(par2))
else
SQL.Add('WHERE Саны LIKE '+QuotedStr(par2));
end;
if trim (par3)'' then
begin
if Trim(par2)'' then
SQL.Add('AND Куні LIKE '+QuotedStr(par3))
else
SQL.Add('WHERE Куні LIKE '+QuotedStr(par3)); end;
if trim (par4)'' then
begin
if Trim(par3)'' then
SQL.Add('AND Чек№ LIKE '+QuotedStr(par4))
else
SQL.Add('WHERE Чек№ LIKE '+QuotedStr(par4)); end;
if trim (par5)'' then
begin
if Trim(par4)'' then
SQL.Add('AND Багасы LIKE '+QuotedStr(par5))
else
SQL.Add('WHERE Багасы LIKE '+QuotedStr(par5)); end;
Result:=SQL.Text;
finally
SQL.Free;
end;
end;
procedure TForm2.TntButton8Click(Sender: TObject);
begin
ADOQuery5.Close;
ADOQuery5.SQL.Text:=GetSQLText(tntedit9.Text,tntedit12.Text, tntedit13.text, tntedit14.text, tntedit15.text);
ADOQuery5.Open;
datasource5.DataSet:=adoquery5;
end;
procedure TForm2.TntButton2Click(Sender: TObject);
begin
tntedit9.Clear; tntedit12.clear; tntedit13.clear; tntedit14.clear; tntedit15.clear;
end;
function sQLText2(par1,par2:string):string;
var SQL:TStringList;
begin
try
SQL:=TStringList.Create;
SQL.Clear;
SQL.Add('SELECT * FROM Койма ');
if Trim(par1)'' then
SQL.Add('WHERE Саны LIKE '+QuotedStr(par1));
if Trim(par2)'' then
begin
if Trim(par1)'' then
SQL.Add('AND Стеллаж LIKE '+QuotedStr(par2))
else
SQL.Add('WHERE Стеллаж LIKE '+QuotedStr(par2));
end;
Result:=SQL.Text;
finally
SQL.Free;
end;
end;
procedure TForm2.TntButton5Click(Sender: TObject);
begin
ADOQuery4.Close;
ADOQuery4.SQL.Text:=SQLText2(tntedit17.Text, tntedit20.text);
ADOQuery4.Open;
datasource4.DataSet:=adoquery4;
end;
procedure TForm2.TntButton10Click(Sender: TObject);
begin
tntedit17.clear; tntedit20.Clear;
with aDOQuery4 do
begin
Close;
active:=false;
SQL.Clear;
SQL.Add(‘SELECT * FROM Койма’);
Open;
datasource4.DataSet:=adoquery4;
end; end;
procedure TForm2.TntButton11Click(Sender: TObject);
var i: integer;
begin
with aDOQuery4 do
begin
Close;
active:=false;
SQL.Clear;
SQL.Add('SELECT * FROM Койма ') ;
SQL.Add('WHERE' );
SQL.Add('Саны=0');
Open;
datasource4.DataSet:=adoquery4; active:=true;
end; end;
procedure TForm2.TntButton12Click(Sender: TObject);
begin
tntedit10.clear; tntedit2.clear; tntedit6.clear; tntedit11.clear;
end;
end.
43