Ведение банковских счетов юридических лиц
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Расходного ордера При попытке снять сумму, превышающую вклад, вкладчик облагается штрафом в размере 5% вклада.
Приход служит для осуществления операции вклада денег.
После ввода номера счета и суммы происходит печать Приходного ордера.
Пункт Поиск содержит:
поиск по фамилии
поиск по счету Пункт Поиск по фамилии позволяет осуществлять поиск клиентов по фамилии.
Действие пункта Поиск по счету аналогично действию пункта Поиск по фамилии, но поиск производится по номеру счета.
Фильтрация производится
по фамилии
по адресу
по счету
При выборе пункта По фамилии появляется диалоговое окно, где запрашивается ключ. После ввода ключа и нажатии кнопки Фильтрация, отфильтрованные данные выводятся в BROWSE-окно.
Действие пунктов По счету и По адресу аналогично действию пункта По фамилии, только фильтрация происходит по соответствующим полям.
Пункт Выход содержит:
выход в DOS
выход в FOXPRO
После выбора пункта ВЫХОД в DOS или ВЫХОД в FOXPRO, происходит выход, соответственно, в OS MS-DOS или в СУБД FOXPRO 2.5.
Даталогическая модель.
База данных KLIENT.DBF
nametypewidthdecLCCharacter20SURNAMECharacter15NAMECharacter12отснCharacter15ADRCharacter20NUM PASCharacter10TELNumeric60SUMSNumeric92DATA1Date8
База данных SCHET.DBF
NameTypeWidthDecLCCharacter20PRIHNumeric92RASHNumeric92DATA2Date8Тексты программы.
SET ТАЕК OFF
SET BEEE OFF SET ESCAPE OFF SET DATE GERMAN CEOSE DATABASES CEEARFILE klc.idx DELETE FILE slc.idxklient IN 1schet IN 21ON 1c TO klc2ON Ic TO sic1REEATION TO 1c INTO ВSKIP TO ВWINDOW EIST1 FROM 0,0 TO 24,79 WINDOW listl
TEXT
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ ДАГЕСТАНСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ
УНИВЕРСИТЕТ
Факультет Информационных Систем Кафедра: Информационных Систем в Экономике
КУРСОВАЯ РАБОТА
по дисциплине "База данных и знаний"
на тему: "Ведение банковских счетов юридических лиц"
Выполнила: ст-т гр. 3162 Вердиханов А.С.
Проверил: Мурадов М.М
Махачкала 2003г.
ENDTEXT
WAIT 'Для продолжения нажмите любую клавишу' RELEASE WINDOW listl
DEFINE WINDOW title 1 from 0,0 to 24,79 COEOR GR+/G TITLE 'ИНФОРМАЦИОННАЯ СИСТЕМА "БАНК"' DEFINE WINDOW prosm FROM 2,0 TO 24,79 COLOR N/W ACTIVATE WINDOW title 1menu 1prl PARAMETERS Ml DO CASE=1 TITLE 'ДАННЫЕ -Выход без сохранения'
FIELDS Lс:Н='Счет №',;
Surname:Н='Фамилия',;
Name:Н='Имя',;
Otch:H='Отчество ',;
Adr:H= Адрес',;
Num_pas:H='Hoмep паспорта',;
Те1:Н=Телефон',;
Sums:H= Сумма',;
Datal :Н='Дата отк. счета',;
B.prih:H= 'Приход',;
В.rash:H='Расход',;
В.data2:Н='Дата операции';
WINDOW prosmMl =2 SELECT 1TITLE 'ДАННЫЕ'; FIELDS Lc:H='Cчет№',;:Н='Фамилия',;
Name:Н='Имя',;
Otch:H='Отчество ',;
Adr:H= Адрес',;
Num_pas:H='Hoмep паспорта',;
Те1:Н=Телефон',;
Sums:H= Сумма',;
Datal :Н='Дата отк. счета',;
B.prih:H= 'Приход',;
В.rash:H='Расход',;
В.data2:Н='Дата операции';
NODELETE NOEDIT NO APPEND WINDOW prosmPOPUPMl =4POPUP
ENDCASEpr2 PARAMETERS M2 AB=MONTH(DATE()) DO CASEM2=lnewsM2=2rashodM2=3prihodM2=5POPUPpr3M3CASE=1POISKFM3=2POISKFPOPUPpr5M5CASE=1M5=2WINDOW title 1menu mlM5=4POPUPfilterM4M4=5POPUP fltPOPUP fltSKIP TO=SPACE(20)WINDOW flitl TITLE 'Фильтрация '+PROMPTQ FROM 5,22 TO 11,58WINDOW flitl
@1,1 SAY 'Введите ключ' GET kluich
@3,8 PROMPT 'Фильтрация'
@3,23 PROMPT'Выход1to kljklj=lCASEM4=lFILTER TO sumame=ALLTRIM(kluich)M4=2FILTER TO adr=ALLTRIM(kluich)M4=3FILTER TO lc=ALLTRIM(kluich)WINDOW flitlTITLE 'ФИЛЬТРАЦИЯ ПО КЛЮЧУ;Lc:H='Cчет №',;:Н='Фамилия',;
Name:Н='Имя',;
Otch:H='Отчество ',;
Adr:H= Адрес',;
Num_pas:H='Hoмep паспорта',;
Те1:Н=Телефон',;
Sums:H= Сумма',;
Datal :Н='Дата отк. счета',;
NOEDIT NO APPEND NODELETE;
WINDOW prosmWINDOW flitlFILTER TO
SET SKIP TO ВWINDOW prosm RETURN.PRG
DEFINE MENU Ml COLOR SCHEME 10PAD datl OF Ml PROMPT 'Данные';'Работа с базами данных1PAD dat2 OF Ml PROMPT 'Операции банка';
MESSAGE 'Операции банка'PAD dat3 OF Ml PROMPT 'Поиск';'Поиск по ключу'PAD dat4 OF Ml PROMPT 'Фильтрация';'Фильтрация по ключу'PAD dat5 OF Ml PROMPT 'Выход';'Выход из программы'SELECTION PAD datl OF Ml ACTIVATE POPUP dann ON SELECTION PAD dat2 OF Ml ACTIVATE POPUP oper ON SELECTION PAD dat3 OF Ml ACTIVATE POPUP poisk ON SELECTION PAD dat4 OF Ml ACTIVATE POPUP fit ON SELECTION PAD dat5 OF Ml ACTIVATE POPUP vihodPOPUP dann FROM 1,0BAR 1 OF dann PROMPT 'Редактирование'; 'Просмотр данных с возможностью внесения зменений'
DEFINE BAR 2 OF dann PROMPT 'Просмотр'; 'Просмотр данных без внесения изменений'
DEFINE BAR 3 OF dann PROMPT '\-'BAR 4 OF dann PROMPT 'Возврат в главное меню';'Переход в главное меню'SELECTION POPUP dann DO prl WITH BAR()POPUP oper from 1,9BAR 1 OF oper PROMPT 'Открытие счета';'Открытие нового счета'BAR 2 OF oper PROMPT 'Расход';'Печать расходного ордера'BAR 3 OF oper PROMPT 'Приход';'Печать приходного ордера'BAR 4 OF oper PROMPT '\-'BAR 5 OF oper PROMPT 'Возврат в главное меню';'Переход в главное меню'SELECTION POPUP oper DO pr2 WITH BAR()POPUP poisk FROM 1,26BAR 1 OF poisk PROMPT 'Поиск по фамилии'; 'Поиск данных по фамилии'
DEFINE BAR 2 OF poisk PROMPT 'Поиск по счету';
MESSAGE 'Поиск данных по номеру счета'
DEFINE BAR 3 OF poisk PROMPT '\-'BAR 4 OF poisk PROMPT 'Возврат в главное меню';'Переход в главное меню'SELECTION POPUP poisk DO ргЗ WITH BAR()POPUP fit FROM 1,34BAR 1 OF fit PROMPT 'По фамилии';'Фильтрация по фамилии'BAR 2 OF fit PROMPT 'По адресу';'Фильтрация по адресу'BAR 3 OF fit PROMPT 'По счету';'Фильтрация по счету'BAR 4 OF fit PROMPT '\-'BAR 5 OF fit PROMPT 'Возврат в главное меню';'Переход в главное меню'SELECTION POPUP fit DO fliter WITH BAR()POPUP vihod FROM 1,47BAR 1 OF vihod PROMPT 'Выход в DOS';'Выход в ОС MS-DOS'BAR 2 OF vihod PROMPT 'Выход в FoxPro';'Выход в СУБД FoxPro'BAR 3 OF vihod PROMPT '\-'BAR 4 OF vihod PROMPT 'Возврат в главное меню';'Переход в главное меню'SELECTION POPUP vihod DO pr5 WITH BAR()MENU Ml RETURN
Файл NEWS.PRGWINDOW dob FROM 6,20 TO 19,60 TITLE 'Открытие счета' DOUBLEWINDOW dobMEMVAR BLANK.DATA1=DATE()
@ 1,1 SAY '№ счета:' GET M.LC
@ 2,1 SAY 'Фамилия:' GET M.SURNAME
@ 3,1 SAY 'Имя:' GET M.NAME
@ 4,1 SAY 'Отчество:' GET M.OTCH
@ 5,1 SAY 'Адрес:' GET M.ADR
@ 6,1 SAY 'Номер паспорта:' GET M.NUM_PAS
@ 7,1 SAY Телефон:' GET M.TEL
@ 8,1 SAY 'Сумма:'ОЕТ M.SUMS
@ 9,1 SAY 'Дата открытия счета:' GET M.DATA1 DISABLED
@ 11,10 PROMPT 'Сохранить'
@ 11,25 PROMPT 'Отмена'TO qq=lBLANKMEMVARWINDOW dobPRINTER ON
?
?
?
?
?'Уведомление об открытие счета ' ?' юридическим лицом'
?
?'Счет №', m.lc
?'Лицо на имя которого открыт счет', ALLTRIM(m.surname),' '
??ALLTRIM(m.name), ' ',ALLTRIM(m.otch)
?
?'Сумма вклада',sums
?
?'Дата открытия счета',date()
SET PR