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
Po wpisaniu nazwy pobieranie ceny z zewnętrznej bazy danych
-
- Posty: 1
- Rejestracja: pt lut 12, 2010 2:04 pm
Po wpisaniu nazwy pobieranie ceny z zewnętrznej bazy danych
Ubuntu 9.10
Openoffice 3.1
Openoffice 3.1
Re: Po wpisaniu nazwy pobieranie ceny z zewnętrznej bazy danych
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
http://user.services.openoffice.org/pl/ ... f=13&t=340
PS
A może o coś takiego chodziło?
(+ zał.)
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
http://user.services.openoffice.org/pl/ ... f=13&t=340
PS
A może o coś takiego chodziło?
(+ zał.)
Kod: Zaznacz cały
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) Pobrany 399 razy
OOo3.1.1 na Ubuntu 9.04