Po wpisaniu nazwy pobieranie ceny z zewnętrznej bazy danych

Użytkowanie arkusza kalkulacyjnego

Po wpisaniu nazwy pobieranie ceny z zewnętrznej bazy danych

Postprzez lobotomia666 » Pt lut 12, 2010 2:37 pm

Próbuje stworzyć w oddzielnym arkuszu bazę danych składającą się z produktów i ich cen, w drugim arkuszu chciałbym stworzyć ramkę która ma liczyć sumę
produktów korzystając z tejże bazy.
Chciałbym żeby po wpisaniu nazwy produktu, w komórce obok pokazywała się jego cena oraz żeby tworzył się nowy wiersz w ramce do wpisania kolejnego
produktu.
Jest to mój pierwszy kontakt z OpenOffice i tego typu bazą danych, nie mam pojęcia jak to ugryźć.

Dziękuję za pomoc
Ubuntu 9.10
Openoffice 3.1
lobotomia666
 
Posty: 1
Dołączył(a): Pt lut 12, 2010 2:04 pm

Re: Po wpisaniu nazwy pobieranie ceny z zewnętrznej bazy danych

Postprzez mg2 » Pt lut 12, 2010 6:35 pm

To zadanie do zrobienia w module bazodanowym a to jest dział arkuszy kalkulacyjnych.

Na początek utwórz pustą bazę danych i wstaw tabelę "produkty" z kolumnami: "produkt", "cena", "ilość" i kluczem głównym. Potem trzeba zrobić kwerendę liczącą "wartość" i na podstawie tej kwerendy przygotować formularz.

W tym wątku masz plik dokładnie z czymś takim
viewtopic.php?f=13&t=340

PS

A może o coś takiego chodziło?
(+ zał.)
Kod: Zaznacz cały   Rozszerz widokZwiń widok
option explicit


'====================
sub do_rachunku

dim dok as object
dim ark as object
dim kom_wybr_towar as object
dim kom_wybr_cena as object
dim kom_rach_towar as object
dim kom_rach_cena as object
dim kom_ilosc_zakup as object
dim towar as string
dim cena as double
dim ilosc_zakup as long
dim kom_sum as object
dim sum as integer

'dok = starDesktop.thisComponent
ark = thisComponent.Sheets(0)

kom_sum = ark.getCellByPosition(8,0)
kom_ilosc_zakup = ark.getCellByPosition(8,1)
sum = kom_sum.value
if sum = 0 then
ilosc_zakup = 0
else ilosc_zakup = kom_ilosc_zakup.value
end if

kom_rach_towar = ark.getCellByPosition(3,1)
kom_rach_cena = ark.getCellByPosition(4,1)
towar = kom_rach_towar.string
cena = kom_rach_cena.value

kom_rach_towar = ark.getCellByPosition(7,ilosc_zakup+3)
kom_rach_cena = ark.getCellByPosition(8,ilosc_zakup+3)
kom_rach_towar.string = towar
kom_rach_cena.value = cena

ilosc_zakup = ilosc_zakup + 1
kom_ilosc_zakup.value = ilosc_zakup

end sub
'=====================
sub skasuj

dim dok as object
dim ark as object
dim kom_rach_towar as object
dim kom_rach_cena as object
dim kom_ilosc_zakup as object
dim ilosc_zakup as long

'dok = starDesktop.thisComponent
ark = thisComponent.Sheets(0)

kom_ilosc_zakup = ark.getCellByPosition(8,1)

for ilosc_zakup = kom_ilosc_zakup.value to 0 step -1
kom_rach_towar = ark.getCellByPosition(7,ilosc_zakup+3)
kom_rach_cena = ark.getCellByPosition(8,ilosc_zakup+3)
kom_rach_towar.string = ""
kom_rach_cena.string = ""
next ilosc_zakup

kom_ilosc_zakup.value = 0

end sub
'=======================
Załączniki
cennik.ods
(14.16 KiB) Pobrane 99 razy
OOo3.1.1 na Ubuntu 9.04
mg2
 
Posty: 170
Dołączył(a): Cz sty 28, 2010 9:20 pm


Powrót do Calc

Kto przegląda forum

Użytkownicy przeglądający ten dział: Google [Bot] i 3 gości