Похожие работы на «Разработка автоматизированной системы учета выбывших из стационара »

Разработка автоматизированной системы учета выбывших из стационара
Программирование и комп-ры, Разработка автоматизированной системы учета выбывших из стационара , Рефераты ... END2 REPLACE END3 WITH _END3 REPLACE DATE_END WITH _DATE_END REPLACE HOUR_END WITH _HOUR_END REPLACE MINS_END WITH _MINS_END REPLACE ALL_DAY WITH _ALL ...
... KARTA->MINS_END))<7 REPLACE A3 WITH A3+1 ENDIF ENDIF ELSE REPLACE A4 WITH A4+1 IF KARTA->END1=3 REPLACE A5 WITH A5+1 IF (KARTA->DATE_END-KARTA->DATE_B ...


Программное обеспечение пункта обмена валюты банка [нестрогое соответствие]
Программирование и комп-ры, Программное обеспечение пункта обмена валюты банка, ... SCODCUR,; field->SSUM_ with SSUM,; field->DATE_ with date(),; field->OPERATION_ with 1 commit if _err(06,40,"Печатать справку?","",""," ~Д~а "," ~Н~ет ...
... Печатать справку?","",""," ~Д~а "," ~Н~ет ","")=1 // printspr() endif FINIT=.T. loop else FINIT=.F. endif enddo _nort() set key K_F3 to restscreen(1


Билеты, решения и методичка по Информатике (2.0) [нестрогое соответствие]
Программирование и комп-ры, Билеты, решения и методичка по Информатике (2.0) , Шпаргалки ... база Товаров (Goods.dbf), получаемая из БД Supply.dbf SET TALK OFF IF FILE ('Goods.dbf') ERASE Goods.dbf ENDIF IF FILE ('Indnum.idx') ERASE Indnum.idx ...
... count :H = 'Счет поставщика' DEACTIVATE WINDOW vivod SET FILTER TO ENDIF DEACTIVATE WINDOW vvod IF LASTKEY()=27 EXIT ENDIF ENDDO PACK CLOSE ALL CLEAR ...


Разработка программного обеспечения [нестрогое соответствие]
Программирование и комп-ры, Разработка программного обеспечения, Диплом ... READF() kol=1 ENDIF ENDIF ENDIF NEXT ENDIF IF filesost='end' IF AT('{COMP_DEF ',bufer)=0 ends=1 ENDIF ELSEIF ends=0 contin=1 ENDIF NEXT IF verkont=0 ...
... ры",2},{"Диоды",2},{"Микросхемы",2},{"Вилки",1},{"Прочие",1}} private //массив со всевозможными обозначчениями элементов soboz:={{'C','c'},{'R','r' ...


Разработка базы данных Кадры [нестрогое соответствие]
Программирование и комп-ры, Разработка базы данных Кадры , Диплом и связанное с ним ... 1989 г. 6. ПРИЛОЖЕНИЕ Распечатка командных файлов START.PRG CLEAR CLEAR MACROS SET COLOR TO N SET HELP OFF SET CLOCK OFF SET RESOURCE OFF SET TALK OFF ...
... 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 ...


Автоматизированное рабочее место [нестрогое соответствие]
Программирование и комп-ры, Автоматизированное рабочее место, Диплом YL=Y.AND.DOM=D.AND.KW_RA=K GO TOP REPLACE ALL kw_pll WITH 0,g_wl WITH 0,x_wl WITH 0,k_ysll WITH 0,; otopll WITH 0,rad_rl WITH 0,tel_rl WITH 0,itog_l ...
... RA=K go top scan IF or_r=1 os=itog_n+SM REPLACE itog WITH os,sum_it WITH SM,sum_kw WITH SKW ,sum_gw WITH SG,; sum_xw WITH SX,sum_ot WITH SOT,sum_tl ...


Ведение реляционной БД на яз. CLIPPER 5.02 [нестрогое соответствие]
Программирование и комп-ры, Ведение реляционной БД на яз. CLIPPER 5.02, Курсовая ... eof() tinvnom:=bb->invnom tdata:=bb->dateprof tidzap:=bb->idzap tidst:=cc->idst skip if(bb->invnom=tinvnom).and.(bb->dateprof-tdata>aa->norma) ...
... x=NIL // Центр по X x := (80-ml)/2 ENDIF IF y=NIL // Центр по Y y := 24/2 - 1 ENDIF IF color <> NIL c := SETCOLOR(color) @ y,x SAY m SETCOLOR(c) ELSE ...


Ведение реляционной БД на яз. CLIPPER 5.02 [нестрогое соответствие]
Программирование и комп-ры, Ведение реляционной БД на яз. CLIPPER 5.02, Курсовая ... eof() tinvnom:=bb->invnom tdata:=bb->dateprof tidzap:=bb->idzap tidst:=cc->idst skip if(bb->invnom=tinvnom).and.(bb->dateprof-tdata>aa->norma) ...
... x=NIL // Центр по X x := (80-ml)/2 ENDIF IF y=NIL // Центр по Y y := 24/2 - 1 ENDIF IF color <> NIL c := SETCOLOR(color) @ y,x SAY m SETCOLOR(c) ELSE ...


ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ (на прикладі ПП Біомед) [нестрогое соответствие]
Менеджмент, ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ (на прикладі ПП Біомед) , Диплом и связанное с ним ... CLS clear wind all CLOSE ALL set dele on set excl off set multi on set confirm on set point to ',' set separator to ['] set reprocess to 5 PUSH MENU ...
... lcErrorMsg,20,_screen.Caption)#6 RETURN .F. else QUIT ENDIF ENDFUNC * FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp. ...


Информационная система (ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ) [нестрогое соответствие]
Программирование и комп-ры, Информационная система (ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ) , Диплом и ... ... CLS clear wind all CLOSE ALL set dele on set excl off set multi on set confirm on set point to ',' set separator to ['] set reprocess to 5 PUSH MENU ...
... lcErrorMsg,20,_screen.Caption)#6 RETURN .F. else QUIT ENDIF ENDFUNC * FUNCTION ShutDown IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) RETURN goApp. ...