Похожие работы на «Программное обеспечение пункта обмена валюты банка»

Программное обеспечение пункта обмена валюты банка
Программирование и комп-ры, Программное обеспечение пункта обмена валюты банка, ... и считывание их из файла public AT_M0_F,AT_M0_N,AT_M0_S,AT_M0_U,AT_M1_F,AT_M1_N,AT_M1_S public AT_M1_U,AT_M2_F,AT_M2_N,AT_M2_S,AT_M2_U,AT_E_F
... MENU=selopt(MENU,M1,M2,M3,40,.T.,.F.,AT_M1_S,AT_M1_U) if MENU=0.or.lastkey()=27 clear type exit endif do case case MENU=1 setupm(M1[MENU]) case MENU=2 ...


Разработка автоматизированной системы учета выбывших из стационара [нестрогое соответствие]
Программирование и комп-ры, Разработка автоматизированной системы учета выбывших из стационара , Рефераты ... q=3,"1","2")+IF(q=5,"2","3") SEEK s && _NUM_IB+IF(q=3,"1","2")+IF(q=5,"2","3") IF !FOUND() APPEND BLANK REPLACE NUM_IB WITH _NUM_IB REPLACE KOD1 WITH ...
... DELETE flag_del=flag_del+1 stor_ib[flag_del]=NUM_IB ELSE RECALL tr=ASCAN(stor_ib,NUM_IB) ADEL(stor_ib,tr) flag_del=flag_del-1 ENDIF ENDIF CASE c_d=3 ...


Организация баз данных Паспортный стол [нестрогое соответствие]
Программирование и комп-ры, Организация баз данных Паспортный стол, Курсовая ... n/w,n/g") TEXT_MENU:={} aadd(TEXT_MENU,"уплотнить базу") aadd(TEXT_MENU,"заполнить базу заново") aadd(TEXT_MENU,"выход") @1,0,5,22 BOX B_DOUBLE_SINGLE ...
... nkey=K_F9 recall k_obnovka=.t. priznak=.f. case nkey=K_ESC clear typeahead priznak=.f. k_obnovka=.f. case nkey=K_ENTER redakt(recno()) k_obnovka=.t. ...


Билеты, решения и методичка по Информатике (2.0) [нестрогое соответствие]
Программирование и комп-ры, Билеты, решения и методичка по Информатике (2.0) , Шпаргалки ... 5,20 PROMPT "Редактирование данных " @7,20 PROMPT "Поиск данных " @9,20 PROMPT "Средняя заработная плата " @11,20 PROMPT "Конец работы " MENU TO P DO ...
... P=3 CALCULATE SUM(SRZAR) TO SUMM SUMM = SUMM/RECCOUNT( ) @ 12,15 SAY STR(SUMM) WAIT CASE P=4 EXIT ENDDO CLOSE ALL 2) * PULLDOWN МЕНЮ * SET MESSAGE ТО ...


Автоматизированное рабочее место [нестрогое соответствие]
Программирование и комп-ры, Автоматизированное рабочее место, Диплом ... 1 квартиру платить не могут' color scheme 12 @ 2,1 say 'За квартиру платит:' @ 3,2 say fam+ 'Таб.'+STR(tab,4) READ deactivate window vib if red=2 go r ...
... r=1.and.!empty(m.tel) m.tel_l=.t. tl=.t. ELSE m.tel_l=.f. ENDIF DO CASE CASE pod=1 DO CASE CASE red=1 SELE a GO top APPEND BLANK GATHER MEMVAR t=tab r ...


Организация баз данных Паспортный стол [нестрогое соответствие]
Программирование и комп-ры, Организация баз данных Паспортный стол, Курсовая ... NKEY=K_LEFT ob:left() //управление курсорными клавишами case nkey=K_F8 delete k_obnovka=.t. priznak=.f. //если F8 то удалить запись выйти //из обьекта ...
... на //25*80 WHILE .T. //открываем бесконечный цикл опроса меню setcolor("n/g") DO CASE CASE A=1 @0,1 say " " °" " SETCOLOR("N/N") @ 2, 1 CLEAR TO 7,24 ...


Разработка программного обеспечения [нестрогое соответствие]
Программирование и комп-ры, Разработка программного обеспечения, Диплом ... ELSEIF ends=1 ends=1 ELSE IF filesost<>'end' filesost=READF() kol=1 ENDIF ENDIF ENDIF NEXT ENDIF IF filesost='end' IF AT('{COMP_DEF ',bufer)=0 ends=1 ...
... 60)) NEXT RETURN rez //* FUNCTION SHELK(max) //проверка компонента на слой шелкографии false:=0 FOR proo:=1 TO 2 proo=2 n1:=AT ('[Ly "SLK',bufer) n2= ...


Разработка базы данных Кадры [нестрогое соответствие]
Программирование и комп-ры, Разработка базы данных Кадры , Диплом и связанное с ним ... t. GO BOTTOM ENDIF ENDIF IF next=1 SKIP 1 IF EOF()=.t. GO TOP ENDIF ENDIF IF down=1 IF list<>1 list=list-1 ELSE list=5 ENDIF ENDIF IF up=1 IF list<>5 ...
... n=alltrim(surname)+' '+alltrim(name)+' '+alltrim(patron) ? space((80-len(n))/2),n ? '' d=MONTH(birth_date) IF d=1 n='января' ENDIF IF d=2 n='февраля' ...


Автоматизированное рабочее место [нестрогое соответствие]
Программирование и комп-ры, Автоматизированное рабочее место, Диплом ... AT(27),elec PICTURE('9999999'),'|' AT(36),elec1 PICTURE('9999999'),'|' AT(44) ?? c.el_c PICTURE('####.##'),'|' AT(55) PG=PG+1 ENDIF ENDSCAN IF PG=45 ...
... c.itog_n PICTURE('#####.##'),'|' AT(39),c.itog PICTURE('#####.##'),'|' AT(49),ost_k PICTURE('####.##'),'|' AT(58) PG=PG+1 ENDIF ENDSCAN IF PG=45 ...


Ведение реляционной БД на яз. CLIPPER 5.02 [нестрогое соответствие]
Программирование и комп-ры, Ведение реляционной БД на яз. CLIPPER 5.02, Курсовая ... F3 - Вставить строку ' SET COLOR TO ("r+/n") @ 22,1 SAY chr(24) + ... + chr(25) + ... + CHR(26) + ... + CHR(27) + ... + CHR(26) + " PgUp / PgDn ...
PROCEDURE msgs(x,y,m,color) LOCAL ml,c IF m = NIL RETURN ENDIF ml=LEN(m) IF ml=0 && .OR. ml > 80 RETURN ENDIF IF x=NIL // Центр по X x := (80-ml)/2 ...