Q-Szkielet 3000

QBS >> Q-Line 3000 Szybki Start >> Pierwsze dane

Tabela z danymi użytkownika
Czas ćwiczenia:
  30 min. Cel:
  Założenie tabeli z danymi użytkownika Kroki:
  Modyfikacja pliku struct.qcon
  Wprowadzenie danych użytkownika programu

Nowa pozycja w MENU

Spróbujmy dodać do MENU dodatkową pozycję "Moje dane".
Poniżej prezentuję krótki opis w jaki sposób możemy to wykonać:

W katalogu z programem znajduję się katalog qcon a w nim plik struct.qcon, który będziemy edytować. Plik ten można edytować dowolnym edytorem tekstowym pod warunkiem, że używany przez nas edytor nie dopisuje własnych znaków do pliku. Do naszych celów możemy używać np: notepada. Po otworzeniu plik powinien wyglądać tak:

//---------------------------------------------------------------------------
// POCZĄTEK:  MainMenu
//---------------------------------------------------------------------------

MENU MainMenu

    TITLE="Menu główne"
    POS=50 50

{
ID      ACTION         SHORTCUT    NAME                    ;
PODR    MENU PodrMenu     P        "Komplet podręczników"  ;        
FunSys  MENU SysMenu      S        "Operacje systemowe"    ;   
}
//---------------------------------------------------------------------------
// KONIEC:  MainMenu
//---------------------------------------------------------------------------

MENU PodrMenu
      TITLE = "Menu dodatkowe"
      POS   = 50 50
{
ID          ACTION                              SHORTCUT  NAME;
OGOLNY      THTML SRC="podr/ogolny/index.html"
            DST="podr/ogolny/dysk.html";          O       "Podręcznik ogólny do programów serii 3000";
PRINT_ERROR THTML SRC="podr/print_error.html";    D       "Problemy podczas drukowania"              ;
}

UWAGA !!!
To co znajduje się pomiędzy wpisami
POCZĄTEK: MainMenu
KONIEC: MainMenu
przekłada się na MENU w sposób następujący:

Opis pliku struct.qcon

Dla początkujących konstruktorów zapis ten może wydawać się dość skomplikowany, dlatego postaramy się objaśnić elementy występujące w struct.qcon

Plik rozpoczyna się od //, są to znaczniki rozpoczynające komentarz. Po nich możemy wpisywać dowolny tekst, interpreter ominie te linie. Komentarzy używamy aby zaznaczyć poszczególne bloki w pliku np: tabele, menu przez co plik staje się czytelniejszy.
Kolejna linia to początek bloku definiującego Menu główne. Słowo MENU oznacza, że definiujemy obiekt typu MENU. Słowo Main Menu oznacza, że obiekt ten będzie identyfikowany poprzez identyfikator (nazwę, akronim) Main Menu.
Interpreter na samym początku poszukuje w pliku struct.qcon obiektu MENU o nazwie MainMenu i od niego rozpoczyna pracę.
Następna pozycja TITLE - to identyfikator jednego z dostępnych atrybutów obiektu MENU: nazwy menu. Ciąg znaków umieszczony w " " pojawi się na ekranie
Kolejnym atrybutem opisującym MENU jest POS - pozycja ekranowa MENU wraz z jego wartościami podanymi w procentach. 50 50 oznacza - umieść centralnie.
W nawiasach { } następuje opis macierzowy atrybutów listowych występujących w MENU
- Pierwszy wiersz to wiersz identyfikatorów kolumn
- Kolejne wiersze to wartośći kolejnych elementów
- ID - to identyfikator identyfikatorów
- ACTION - to identyfikator akcji wykonywanych po wyborze tej właśnie linii MENU
- SHORTCUT - to skrót klawiszowy (litera) uruchamiający tą akcję
- NAME - to identyfikator atrybutu: nazwa ekranowa danej linii MENU
Na początku MENU ma tylko dwie pozycje
PodrMenu - jest to wywołanie kolejnego MENU o tej nazwie. W dodatkowym MENU wywoływane są kolejne pozycje. Tym razem są to odwołania do plików HTML. Pliki tworzone są przy wykorzystaniu tak zwanego języka THTML, który jest analogiczny do klasycznego HTML'a wzbogaconego o funkcje ściągania danych z baz "Q-Line 3000".
- SRC - oznacza ścieżkę do pliku z którego będziemy pobierać informację
- DST - ścieżkę do pliku w którym te informacje zostaną zapisane
SysMenu - w tym miejscu jest podłączone menu systemowe. Za jego pomocą możemy wykonywać np: kopie bezpieczeństwa, zarządzać użytkownikami itp. Pomimo, iż nigdzie w struct.qcon nie definiowaliśmy tych funkcji są one zdefiniowane w kodzie JAVA i program "wie" jakie pozycje należy podłączyć do SysMenu.
Następną linią jest znowu komentarz, po nim następuje wywołanie Menu dodatkowego i po zamknięciu bloku z atrybutami następuje koniec pliku struct.qcon

Dodanie tabeli "Moje dane"

Po tym krótkim wstępie spróbujmy dodać do MENU dodatkową pozycję. Aby to zrobić należy w pliku struct.qcon umieścić następujący wpis:

MYDATA  RECEDIT   TAB=SYSED_MOJE_DANE;  "Moje dane"             ;

Wpis ten należy dodać do definicji menu głównego. Po tej operacji plik powinien wyglądać tak

//---------------------------------------------------------------------------
// POCZĄTEK:  MainMenu
//---------------------------------------------------------------------------

MENU MainMenu

    TITLE="Menu główne"
    POS=75 20

{
ID      ACTION                          NAME                    ;
PODR    MENU PodrMenu                   "Komplet podręczników"  ;        
FunSys  MENU SysMenu                    "Operacje systemowe"    ;   
//---------------------------------------------------------------------------
MYDATA  RECEDIT   TAB=SYSED_MOJE_DANE;  "Moje dane"             ;
//---------------------------------------------------------------------------
}
//---------------------------------------------------------------------------
// KONIEC:  MainMenu
//---------------------------------------------------------------------------

MENU PodrMenu
      TITLE = "Menu dodatkowe"
      POS   = 50 50
{
ID          ACTION                              SHORTCUT  NAME;
OGOLNY      THTML SRC="podr/ogolny/index.html"
            DST="podr/ogolny/dysk.html";          O       "Podręcznik ogólny do programów serii 3000";
PRINT_ERROR THTML SRC="podr/print_error.html";    D       "Problemy podczas drukowania"              ;
}

Po uruchomieniu programu (standardowo plik q.bat) w MENU pokazała się nowa pozycja "Moje dane".

Gdy będziemy próbowali w nią wejść program zakończy działanie, ponieważ nie zdefiniowaliśmy tabeli o nazwie SYSED_MOJE_DANE, którą wywołujemy w MENU. Wszystkie błędy występujące podczas niespodziewanego zakończenia programu zapisywane są w pliku out.txt. Na podstawie wpisów z pliku out.txt możemy odnajdywać i eliminować te błędy. Aby naprawić błąd, który wystąpił należy zdefiniować tabelę o nazwie SYSED_MOJE_DANE tuż za MENU. Oto kod który należy wprowadzić:

TAB SYSED_MOJE_DANE
    TITLE="Moje dane"
    LAYOUT= HPAN(
                 GRP("Dane osobiste" TCP(NAZWA ULICA PNA MIASTO NIP))
                 GRP("Logo użytkownika" VPAN(TCP(FILENAME) TCP(LOGO)))
                )
{
ID            LEN     TYPE      ATTRIB      NAME     ;
ID            8       INT       -           "Id"          VIS=HIDE   ;
NAZWA        30       STRING    (FCAPITAL)  "Nazwa"  ;
ULICA        30       STRING    (FCAPITAL)  "Ulica"  ;
PNA           6       STRING    -           "Kod pocztowy" MASK=MASK("00\\-000");
MIASTO       30       STRING    (CAPITAL)   "Miejscowość"  ;
NIP          13       STRING    (CAPITAL)   "NIP"   MASK=MASK("000\\-000\\-00\\-00");
LOGO          8       INT           -       "  " MASK=IMAGE RESIZABLE(11 5) AUTFUN=filedata(FILENAME);
FILENAME      60      STRING        -       "Nazwa pliku"    
                                            MASK=FILE (APIC="Pliki graficzne (*.jpg; *.gif; *.png;)"
                                                       BALL="Wszystkie pliki (*.*;)")
                                            EDILEN=15
                                            ANCHOR="imageName";
}

Jeżeli występują błędy lub program niespodziewanie kończy swoje działanie to prawdopodobnie w pliku struct.qcon znajdują się błędne wpisy. Należy podejrzeć plik out.txt i tam szukać błędów lub porównać plik struct.qcon z wpisem poniżej.

//---------------------------------------------------------------------------
// POCZĄTEK:  MainMenu
//---------------------------------------------------------------------------

MENU MainMenu

    TITLE="Menu główne"
    POS=75 20

{
ID      ACTION                          NAME                    ;
PODR    MENU PodrMenu                   "Komplet podręczników"  ;        
FunSys  MENU SysMenu                    "Operacje systemowe"    ;   
MYDATA  RECEDIT   TAB=SYSED_MOJE_DANE;  "Moje dane"             ;
}
//---------------------------------------------------------------------------
// KONIEC:  MainMenu
//---------------------------------------------------------------------------

MENU PodrMenu
      TITLE = "Menu dodatkowe"
      POS   = 50 50
{
ID          ACTION                              SHORTCUT  NAME;
OGOLNY      THTML SRC="podr/ogolny/index.html"
            DST="podr/ogolny/dysk.html";          O       "Podręcznik ogólny do programów serii 3000";
PRINT_ERROR THTML SRC="podr/print_error.html";    D       "Problemy podczas drukowania"              ;
}
//---------------------------------------------------------------------------
// POCZĄTEK:  Moje dane
//---------------------------------------------------------------------------
TAB SYSED_MOJE_DANE
    TITLE="Moje dane"
    LAYOUT= HPAN(
                 GRP("Dane osobiste" TCP(NAZWA ULICA PNA MIASTO NIP))
                 GRP("Logo użytkownika" VPAN(TCP(FILENAME) TCP(LOGO)))
                )
{
ID            LEN     TYPE      ATTRIB      NAME     ;
ID            8       INT       -           "Id"          VIS=HIDE   ;
NAZWA        30       STRING    (FCAPITAL)  "Nazwa"  ;
ULICA        30       STRING    (FCAPITAL)  "Ulica"  ;
PNA           6       STRING    -           "Kod pocztowy" MASK=MASK("00\\-000");
MIASTO       30       STRING    (CAPITAL)   "Miejscowość"  ;
NIP          13       STRING    (CAPITAL)   "NIP"   MASK=MASK("000\\-000\\-00\\-00");
LOGO          8       INT           -       "  " MASK=IMAGE RESIZABLE(11 5) AUTFUN=filedata(FILENAME);
FILENAME      60      STRING        -       "Nazwa pliku"    
                                            MASK=FILE (APIC="Pliki graficzne (*.jpg; *.gif; *.png;)"
                                                       BALL="Wszystkie pliki (*.*;)")
                                            EDILEN=15
                                            ANCHOR="imageName";
}
//---------------------------------------------------------------------------
// KONIEC:  Moje dane
//---------------------------------------------------------------------------

Po poprawnym zdefiniowaniu tabeli możemy rozpocząć wprowadzanie danych użytkownika systemu.

Wprowadzenie własnych danych.

W celu otworzenia okna z własnymi danymi należy wybrać opcję "Moje dane" z menu.
Pojawia się karta "Moje dane". Kursor znajduje się w na pierwszym polu "Nazwa".
Spróbujmy przemieścić go do kolejnych pól za pomocą klawisza [Tab]. W przeciwnym kierunku poruszać się można wciskając klawisz [Tab] przy wciśniętym jednocześnie klawiszu [Shift].
Dodana przed chwilą karta "Moje dane" pozwala użytkownikowi programu na wprowadzenie swoich danych. Dodatkowo może podać plik zawierający np. logo firmy bądź własne zdjęcie. Jeśli ścieżka została wybrana poprawnie, to wybrany obrazek pokaże się w okienku obok.
Dane potwierdza się klikając myszą na widocznym przycisku "OK".
I to już wszystko - "Moje dane" zostały zapamiętane i są teraz gotowe do wykorzystania. Będą wykorzystane przy np: adresowaniu kopert, tworzeniu i wydruku etykiet itp.

Powrót