Visual Basic .NET

Aplikacja Subiekt GT Sfera jest to system sprzedaży, który oprócz widocznego okienkowego interfejsu użytkownika posiada jeszcze wewnętrzny (niewidoczny dla użytkownika) interfejs. Interfejs ten to mechanizm, który pozwala na wykonywanie operacji w aplikacji Subiekt GT Sfera przez inne programy. Ujmując to inaczej – do wykonywania operacji, które normalnie wykonuje operator programu przy pomocy myszki i klawiatury można użyć odpowiednio napisanej aplikacji, która wszystkie bądź większość tych operacji wykona automatycznie – dużo szybciej i z mniejszym prawdopodobieństwem popełnienia błędu.

Sposobność do skorzystania z wyżej opisanych możliwości pojawia się kiedy:

- pojawia się uzasadniona potrzeba wprowadzenia dużej ilości danych do systemu Subiekt pochodzących z innych źródeł,

- zgromadzone w systemie dane są wykorzystywane przez inny system przetwarzający te dane,

- zaistnieje potrzeba uproszczenia pracochłonnych i powtarzalnych operacji wykonywanych w systemie Subiekt,

- należy zminimalizować użytkownikom dostęp do operacji wykonywanych w systemie jedynie do tych niezbędnych, potrzebnych do wykonania ściśle określonych zadań.

- należy odczytać i wprowadzić dane zakodowane (np. dane zakodowane kodem kreskowym GS1-128)
Każda z powyższych sytuacji skłania do zastanowienia się nad rozwiązaniem problemu. Przy pomocy aplikacji współpracującej z systemem Subiekt można pomóc rozwiązać powyższe zagadnienia. Wpierw jednak należy się zastanowić czy i jakie rozwiązania przyniosą największe korzyści.

Korzyści jakie są możliwe do osiągnięcia przez skorzystanie z możliwości systemu Subiekt GT Sfera można zebrać w kilku punktach:

- oszczędność czasu potrzebnego na wykonywanie operacji w systemie (wystawiania dokumentów, aktualizacji danych o produktach, tworzenia zestawień i raportów),

- zminimalizowanie możliwości niepoprawnego wprowadzenia danych bądź zupełne wyeliminowanie pomyłek,

- oszczędność zasobów wymaganych do wyszkolenia użytkownika do obsługi systemu Subiekt GT na rzecz zapoznania się jego jedynie z aplikacją o prostym, mało złożonym interfejsie – szybkie wdrożenie użytkownika do pracy z systemem

- dostosowanie do procedur obowiązujących w organizacji do wdrożonego weń systemu.

Łączenie się z bazą danych to jedna z podstawoych operacji, które się wykonuje tworząc oprogramowanie. Przedstawiam przykład jak w prosty sposób połączyć się z bazą danych.

Bez pomocy kreatora można w prosty sposób utworzyć źródło danych oraz podłączyć je do odpowiedniej kontrolki. Podłużę się w tym celu przykładową bazą danych instalowaną razem z serwerem bazy danych SQL Server Compact 3.5.

Komentarze w kodzie opisują resztę. Dla zainteresowanych plik projektu w załączeniu.

Plik z projektem

'import modułu do obsługi serwera SQL Compact
Imports System.Data.SqlServerCe

Public Class formProductBrowser

    'Połączenie z bazą danych.
    Private conn As SqlCeConnection
    'Zmienne przechowująceo "connection string".
    Private database_path, con_string As String
    'Data set - przechowuje dane w pamięcid.
    Private ds As New DataSet
    ' Przygotowanie komend do wykonania na bazie        '
    Private cmd_select, cmd_update As SqlCeCommand
    'Tabela z danymi pobranymi z bazy danych.
    Private my_table As New System.Data.DataTable()
    ' Adapter - reprezentuje zestaw komend na danych i połączenie z bazą
    ' używane do wypełniania DataSet
    Private my_adapter As New SqlCeDataAdapter()

    'Identyfikator i cena produktu
    Private product_id As Integer
    Private unit_price As Decimal

    'Nazwa tabeli i pól
    Private nazwa_tabeli As String
    'Nazwa pola ID
    Private nazwa_id As String
    'Nazwa pola do modyfikacji
    Private nazwa_do_mod As String
    'Nazwa pola do modyfikacji
    Private nazwa_sort As String

    Private Sub formEmployeesBrowser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        nazwa_tabeli = "Products"
        nazwa_do_mod = "Unit Price"
        nazwa_id = "Product ID"
        nazwa_sort = "Product Name"

        ' Otwarcie połączenia.
        database_path = "C:\Program Files\Microsoft SQL Server Compact Edition\v3.5\Samples\Northwind.sdf;"
        con_string = "Data Source = " & database_path & ";Persist Security Info=False;"
        conn = New SqlCeConnection(con_string)
        conn.Open()

        ' Utworzenie komend do operacyj na zbiorze danych.
        cmd_select = conn.CreateCommand()
        cmd_select.CommandText = "SELECT * FROM " & nazwa_tabeli '& _
        '" ORDER BY '" & nazwa_sort & "';"

        my_adapter.SelectCommand = cmd_select
        my_adapter.UpdateCommand = cmd_update

        'Wypełnianie DataSet danymi z bazy
        my_adapter.Fill(ds, nazwa_tabeli)

        my_table = ds.Tables(nazwa_tabeli)
        'Wypełnienie pola kombo z produktami
        cmbProduct.DataSource = my_table
        cmbProduct.DisplayMember = "Product Name"
        cmbProduct.ValueMember = nazwa_id

    End Sub

    Private Sub cmbProduct_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProduct.SelectedIndexChanged
        lblProdId.Text = cmbProduct.SelectedItem(0)
        lblQtyPerUnit.Text = cmbProduct.SelectedItem(5)
        txtUnitPrice.Text = cmbProduct.SelectedItem(6)
        lblProdName.Text = cmbProduct.SelectedItem(3)
    End Sub

    Private Sub formEmployeesBrowser_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If conn.State = ConnectionState.Open Then
            conn.Close()
        End If
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
End Class