Witajcie. Mam za zadanie stworzyć bazę danych w programie dBase. Ma być ona tak zrobiona aby miała podprogramy dzięki którym będę mógł ją: a) przeglądać b) edytować c) kasować dane d) tzw. wydruki danych Baza ma dotyczyć telefonów komórkowych. Model, marka, seria, cena itp. Wrzucam to co do tej pory zrobiłem, tylko ze dalej nie mam pomysłu. Bardzo potrzebuje pomocy kogoś kto coś takiego robił.
set color to w+/b
clear
klawisz='t'
do while klawisz='t' .or. klawisz='T'
set cursor on
clear gets
clear
nazw=space(20)
im=space(15)
pz1=0
premiap1=0
stazp1=0
ds1=0
dt1=0
df1=0
inne1=0
@0,0 to 24,79 double
@1,25 say ' & lt; & lt; DOPISYWANIE PLAC & gt; & gt; '
@2,1 to 2,78
@4,10 say 'Nazwisko:' get nazw picture ' !xxxxxxxxxxxxxxxxxxx'
@4,50 say' Imie: ' get im picture ' !xxxxxxxxxxxxxx'
@6,10 say 'Placa zasadnicza:' get pz1 picture '99 999.99'
@8,10 say 'Premia:' get premiap1 picture '99'
@8,20 say '%'
@8,50 say 'Staz pracy:' get stazp1 picture '99'
@8,64 say '%'
@9,10 say 'Premia:'
@9,50 say 'Staz prazy:'
@11,10 say 'Dodatek szkodliwy:' get ds1 picture '999.99'
@11,50 say 'Dodatek trudnosciowy;' get dt1 picture '999.99'
@13,10 say 'Dodatek funkcyjny:' get df1 picture '9 999.99'
@13,50 say 'inne dodatki:' get inne1 picture '999.99'
read
premiaz1=round (pz1*premiap1/100,2)
stazz1=round (pz1*stazp1/100,2)
pb1=pz1+premiaz1+stazz1+ds1+dt1+df1+inne1
se1=round (pb1*.00976,2)
sr1=round (pb1*0.015,2)
sch1=round (pb1*0.0245,2)
@15,1 to 15,78
@16,20 say 'placa brutto:'
@17,1 to 17,78
@19,20 say 'skladka emerytalna:'
@20,20 say 'skladka rentowa:'
@21,20 say 'Skladka chorobowa:'
set color to gr+/b
@9,17 say premiaz1 picture '9 999.99'
@9,62 say stazp1 picture '9 999.99'
@16,34 say pb1 picture '99 999.99'
@19,40 say se1 picture '9 999.99'
@20,40 say sr1 picture '9 999.99'
@21,40 say sch1 picture '9 999.99'
set color to n/w
@23,1 clear to 23,78
@23,25 say 'Dane prawidlowe T/N ?'
kl=0
do while kl & lt; & gt; 110 .and. kl & lt; & gt; 84 .and. kl & lt; & gt; 116
kl=inkey()
enddo
if kl=84 .or. kl=116
use placa
append blank
replace nazwisko with nazw
replace imie with im
replace pz with pz1
replace premiap with premiap1
replace stazp with stazp1
replace premiaz with premiaz1
replace stazz with stazz1
replace ds with ds1
replace dt with dt1
replace df with df1
replace inne with inne1
replace pb with pb1
replace se with se1
replace sr with sr1
replace sch with sch1
else
endif
@23,1 clear to 23,78
@23,25 say 'Nastepny wpis T/N ?'
set color to w+/b
kl=0
do while kl & lt; & gt; 110 .and. kl & lt; & gt; 78 .and. kl & lt; & gt; 84 .and. kl & lt; & gt; 116
kl=inkey()
enddo
if kl=110 .or. kl=78
clear
return
endif
klawisz=chr (kl)
clear
enddo