Pierwsze kroki w Sferze dla Subiekta GT
W niniejszym rozdziale pokazujemy jak rozpocząć najprostszy projekt VBA sterujący Subiektem GT za pomocą Sfery. W przykładzie wykorzystano Microsoft Excel, który jest bardzo sprawnym środowiskiem dla projektów realizowanych za pomocą Sfery.
Po instalacji najnowszej wersji Subiekta GT i Sfery oraz wykonaniu niezbędnych operacji licencyjnych opisanych w rozdziale Wstęp należy:
Uruchomić Microsoft Excel.
Z menu Narzedzia wybrać opcje Makro a nastepnie Edytor Visual Basic (lub skorzystać ze skrótu klawiszowego [Alt+F11]).
Na ekranie pojawi się okno Microsoft Visual Basic, gdzie można pisać makra w języku VBA (Visual Basic for Applications).
Aby podłączyć się do biblioteki programistycznej Sfery należy z menu Tools wybrać opcję References.
Na liście zarejestrowanych w systemie bibliotek odszukać i zaznaczyć "InsERT GT dla aplikacji - biblioteka obiektowa (ver.1.0)" i nacisnąć OK.
Biblioteka jest w tej chwili dostępna i widoczna przez edytor VBA. Można rozpocząć pisanie własnych procedur opartych na Sferze.
Jeśli nie został automatycznie otwarty arkusz do edycji, należy dwukrotnie kliknąć Arkusz1 (angielska wersja: Sheet1) w oknie Project w lewej górnej części ekranu. Od tej pory w oknie edytora można wpisywać własne skrypty.
Poniżej przykład podstawowej procedury uruchamiającej Subiekta GT. Aby uruchomić przykład, wystarczy wkleić poniższy kod oraz podać właściwe parametry własnego połączenia (linie od 5 do 11).
Sub Test()
    Dim gt As New InsERT.gt
    Dim sgt As InsERT.Subiekt

    gt.Produkt = InsERT.gtaProduktSubiekt
    gt.Serwer = "serwer\insertgt"
    gt.Baza = "BIMBO"
    gt.Autentykacja = InsERT.gtaAutentykacjaMieszana
    gt.Uzytkownik = "sa"
    gt.UzytkownikHaslo = ""
    gt.Operator = "Szef"
    gt.OperatorHaslo = ""

    Set sgt = gt.Uruchom(InsERT.gtaUruchomDopasuj, InsERT.gtaUruchom)
    sgt.Okno.Widoczne = true
End Sub