Ведение банковских счетов юридических лиц
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
INTER OFFWINDOW dob
Файл RASHOD.PRGPOPUP operWINDOW orders TITLE 'Расход' FROM 7,20 TO 14,59WINDOW ordersВMEMVAR BLANK=SPACE(20)
@1,1 SAY 'Введите №счета' GET A
@3,1 SAY 'Введите сумму' GET M.rash
@5,11 PROMPT 'Принять'
@5,21 PROMPT 'Отмена'TO PWINDOW ordersCASE=1PRINTSTATUS( )AALLTRIM(A)=A.AND.!EMPTY(M.RASH)FOR LC=am.rash>a.sumsWINDOW vnim TITLE 'ВНИМАНИЕ' FROM 4,17 TO 12,63WINDOW vnim
@0,14 SAY 'Вкладчик '+surname
@1,1 SAY 'За попытку изъять сумму, превышающую вклад,'
@2,1 SAY 'вы облагаетесь штрафом в размере 5% вклада'
@4,12 SAY 'Сумма штрафа: '+ALLTRTM(str(sums/100*5))+'p.'
@6,19 PROMPT' OK 'MEMVAR.sums=rn.sums-m.surns/100*5MEMVARto i=lWINDOW vnimPRINTER ON
?'Ф№51'
?'Расходный ордер'
?
?'Счет №',1с
?'',day(date()),rusmon(AB),year(date())
?'',alltrim(a.surname),' ',alltrim(a.name),' ',alltrim(a.otch)
?' ------------------------------------------------------------------------------------'
?'(Фамилия,имя, и отчество вкладчика)'
?'
?'Прошу ВЫДАТЬ вклад в сумме'
? m.rash
??'ПОЛУЧИЛ:'
?'
?'Выдано',' | ОСТАТКИ (после взноса)'
?m.rash,'| Вклада ',a.sums-m.rash
?
?
?'ФилиалКонтролер Кассир' ?'№ (оператор)' SET PRINTER OFF CLEAR
SELECT Вm.rash#0a.sums WITH a.sums-m.rashBLANK.lc=a.lc.data2=date()MEMVAR
ENDIF
ENDIF
ELSE'ПРИНТЕР НЕ ГОТОВ' WINDOW
ENDIF
CASE P=2SHOW MENUS ALL
SELECT A
Файл PRIHOD.PRG
DEFINE WINDOW orders! TITLE 'Приход' FROM 7,20 TO 14,59WINDOW orders 1ВMEMVAR BLANK=SPACE(20)
@1 SAY 'Введите №счета' GET A
@3,1 SAY 'Введите сумму' GET M.prih
@5,11 PROMPT'Принять'
@5,21 PROMPT'Отмена'
READ
MENU TO PWINDOW orders 1
DO CASE CASEP=1PRINTSTATUS( )
SELECT AALLTRIM(A)=A.AND. !EMPTY(M.PRIH) LOCATE FOR LC=a
SET PRINTER ON
?'Ф №51' ?' Приходный ордер'
?
?'Счет №',1с
?
?'',day(date()),rusmon(AB),year(date())
?'',alltrim(a.surname),' ',trim(a.name),' ',alltrim(a.otch)
?' ____________________________________________________
(Фамилия,имя, и отчество вкладчика)'
?
?'Прошу Принять вклад в сумме'
? m.prih
?
?'Внес:'
?'Принято','! ОСТАТКИ (после взноса)' ?' ',m.prih,'| Вклада ',a.sums+m.prih
?
?'Филиал Контролер Кассир' ?'№ (оператор)' SET PRINTER OFF CLEAR SELECT 2a.sums WITH a.sums+m.prihBLANK.lc=a.lc.data2=date()memvarPOPUP ELSE 'ПРИНТЕР НЕ ГОТОВ' WINDOW
ENDIF
CASE P=2WINDOW orders!
ENDCASEAMENUS ALL
Файл POISKF.PRG
HIDE menu allPOPUP poiskWINDOW POISK FROM 6,20 TO 12,60 COLOR B+/R TITLE PROMPT();WINDOW POISK=space(20)
@ 0,1 SAY 'Введите ключ'
@0,18 GETkluch
@ 2,13 PROMPT'Поиск'
@ 2,21 PROMPT 'Выход'TO R=1POISKWINDOW POISKMENU ALL
Файл POISK.PRGSKIP TOWINDOW poisk kluch=alltrim(kluch) IF EMPTY(kluch)poiskfTOP=0CASEM3=lFOR surname=kluchM3=2FOR lc=kluchWHILE !EOF().AND.les#3.AND.LASTKEY()#27FOUND()MEMVARWINDOW W2 FROM 5,20 TO 18,56WINDOW W2
@ 1,1 SAY'№ счета:'
@ 1,10 SAY M.lc
@2,1 SAY'Фамилия: '
@2,10 SAY M.surname
@3,1 SAY 'Имя:'
@ 3,5 SAY M.name
@4,1 SAY'Отчество:'
@4,11 SAY M.otch
@5,1 SAY 'Адрес:'
@5,9 SAY M.adr
@ 6,1 SAY 'Номер паспорта:'
@ 6,18 SAY M.num_pas
@7,1 SAY Телефон:'
@7,11 SAY M.tel
@8,1 SAY 'Сумма:'
@8,10SAY M.sums
@ 9,1 SAY 'Дата открытия счета:'
@ 9,22 SAY M.datal
@ 10,2 PROMPT 'Поиск далее'
@ 10,14 PROMPT 'Новый поиск'
@ 10,26 PROMPT 'Выход'TO lesMEMVARCASEles=lles=2WINDOW W2POISKF OTHERWISEWINDOW W2WINDOW W2SKIP TO В
Файл RUSMON.PRGABCASE CASE AB=1='Января'AB=2='Февраля'AB=3='Марта'AB=4
М='Апреля'AB=5 CASE AB-6='Июня'AB=7='Июля'AB=8='Августа'AB=9='Сентября'AB=10=11='Ноября'=12N
Заключение
В курсовой работе мною создан комплекс программ на СУБД FoxPro 2.5 , состоящий из следующих компонентов:
. KURS.PRG - основная программа, реализующая вызов остальных компонентов и процедуру фильтрации по 3 полям:
Фамилия
Адрес
Номер счета
. MENU1 .PRG - программа, реализующая меню моей информационной системы
. NEWS.PRG - программа, позволяющая открыть новый счет.
. RASHOD.PRG - программа, организующая снятия суммы со счета и печать Расходного ордера.
. PRIHOD.PRG - программа, организующая принятия вклада и печать Приходного ордера.
. POISKF.PRG и POISK.PRG - программы, реализующие поиск данных по 2 полям:
Фамилия
Номер счета
. RUSMON.PRG - функция, преобразующая номер месяца в его название на русском языке.
Список использованной литературы
1. Диго С.М. Проектирование и использование баз данных.
. Попов А.А. Создание приложений для FoxPro 2.5/2.6 в DOS и Windows.
. Мурадов М.М. Курс лекции по дисциплине Базы данных и знаний.
. Наумов А.Н Системы управления базами данных и знаний. М.: Финансы и статистика