Access 2000 Księga eksperta

Podstrony

[ Pobierz całość w formacie PDF ]
.VBScript lub JScript.Aby używać formantu w skryptach,musisz znać właściwości i metody, jakie udostępnia formant.Omówimy je w dalszej części rozdziału.Rysunek 25.7.Wykres w MicrosoftExcel 2000Rysunek 25.8.Formant Wykreswyeksportowanyjako strona WWWUżycie formantu w AccessieWstaw formant na formularz Accessa przy użyciu Wstaw, Formant ActiveX.Musisz wybrać z listy formantów ActiveX Wykres pakietu Microsoft Office 9.0.Po utworzeniu formantu zmień jego nazwę na Chart1 w oknie właściwości.Gdyużywasz formantu Wykres w trybie niezwiązanym musisz pamiętać o dwóch ważnych sprawach.Po pierwsze, formantWykres może przechowywać wiele obiektów, więc każdy utworzony wykres będzie częścią kolekcji Charts.Po drugie,możesz wypełnić tablice wartości dla serii wykresów i tablicę wartości dla danych serii wykresów.Aby to przedstawić, stworzyłem prostą kwerendę przestawną w demonstracyjnej bazie danych Northwind, za pomocąnastępującego wyrażenia SQL:TRANSFORM Sum(CCur([Order Details].[UnitPrice]*[Quantity]*(1-[Discount])/100)*100) AS ProductAmountSELECT Year([OrderDate]) AS OrderYearFROM Products INNER JOIN (Orders INNER JOIN[Order Details] ON Orders.OrderID = [Order Details]ON Products.ProductID = [Order Details].ProductIDWHERE (((Orders.OrderDate)Between #1/1/1997# And #12/31/1997#))GROUP BY Year([OrderDate])PIVOT "Qtr " & DatePart("q",[OrderDate],1,0)465Rozdział 25.f& Przenoszenie Access a 2000 do sieci WWWIn ("Qtr 1","Qtr 2","Qtr 3","Qtr 4");Podane wyrażenie SQL dzieli całkowitą sprzedaż na kwartały i wylicza wynik pokazany na rysunku 25.9.Rysunek 25.9.Prosta kwerendaprzestawnaw Accessie 2000Teraz skorzystamy z utworzonej kwerendy przestawnej, aby utworzyć niezwiązany wykres w procedurze obsługi zdarzeniaOpen formularza.Utworzona została tablica aHeaders, wypełniona nazwami nagłówków dla serii (w tym przypadkuczterema kwartałami roku podatkowego).Następnie otwierany jest recordset ADO oparty o zapisaną kwerendęprzestawną nazwaną qryQuarterlySales i wypełniana jest tablica aValues wartościami pól z wyniku kwerendy.Całytekst procedury przedstawiony jest na wydruku 25.2.Wydruk 25.2.Tworzenie niezwiązanego wykresuPrivate Sub Form Open(Cancel As Integer)'Aaduje do formantu ActiveX Wykres'dane pochodzące z kwerendy z AccessaDim ChartSpace1, aHeaders(3), aValues(3)Dim rst As ADODB.RecordsetOn Error GoTo Proc_ErrSet rst = New ADODB.Recordset' Tworzenie tablicy elementów dla wykresuaHeaders(0) = "Q1"aHeaders(1) = "Q2"aHeaders(2) = "Q3"aHeaders(3) = "Qq"' Otwarcie recordsetu opartego o kwerendę XTAB' i wypełniamy wartości dla słupków wykresurst.Open "qry0uarterlySales", CurrentProject.ConnectionaValues(0) = rst![Otr 1]aValues(1) = rst![Qtr 2]aValues(2) = rst![Otr 3]aValues(3) = rst![Otr 4]Set ChartSpace1 = Me.Chart1With ChartSpace1.Border.Color = chColorAutomatic' Można mieć więcej niż jeden wykres w' obszarze wykresu, więc należy odwołać się do kolekcji.Charts.AddWith.Charts(0).Type = chChartTypeColumnClustered.SeriesCollection.Add.SeriesCollection(0).Caption = "Sprzedaż w 1999"' Wiązanie danych do wcześniej stworzonych tablic.SeriesCollection(0).SetData _chDimCategories, chDataLiteral, aHeaders.SeriesCollection(0).SetData _chDimValues, chDataLiteral, aValues.HasLegend = TrueEnd WithEnd Withrst.CloseSet rst = NothingProc_Exit:Exit SubProc_Err:MsgBox Err.DescriptionResume Proc_ExitEnd SubUżycie formantu Office Tabela przestawnaTak jak w przypadku dwóch formantów przedstawionych w tym rozdziale, Tabela przestawna może być używana w trybiezwiązanym i niezwiązanym.Dalsza część rozdziału przedstawi sposób użycia formantu w trybie niezwiązanym, natomiast wnastępnym rozdziale przedstawimy sposób wiązania formantu do danych na stronie dostępu do danych.466Część VIII f& Publikowanie w sieci za pomocą Access a 2000RozpoczynamyTabele przestawne są jedną z najpopularniejszych funkcji programu Microsoft Excel.Dają one możliwość tworzenia odręki raportów w Excelu.Wielu użytkowników staje się entuzjastami tabel przestawnych po nauczeniu ich tworzenia.Możliwość tworzenia tabel przestawnych i użycia ich jako część witryny WWW lub formularza Accessa jest świetnąmożliwością.Zacznij od stworzenia tabeli przestawnej w Excelu 2000 w sposób pokazany na rysunku 25.10.Rysunek 25.10 [ Pobierz całość w formacie PDF ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

bezglutenowo.pev.pl