Gambas-Linux-Projekt

Gambas ist eine Entwicklungsumgebung, die unter der GNU GPL-Lizenz vertrieben wirdDamit können wir sagen, dass es sich nicht nur um eine von der Basissprache abgeleitete Programmiersprache handelt, sondern auch um ein sehr nützliches Werkzeug beim Erstellen visueller Anwendungen für fast jede GNU / Linux-Distribution.

In Gambas hat der Programmierer die Möglichkeit, Fenster grafisch zu gestalten, Objekte aus der Toolbox zu ziehen und dann den Code für jedes Objekt in Basic zu schreiben.

Wie wir bereits gesehen haben, basiert Gambas auf einem einfachen Interpreter mit Objekterweiterungen, ähnlich wie Visual Basic. Aber der Vorteil, den wir mit Gambas haben, ist, dass Sie Ihre grafische Anwendung schnell mit QT oder GTK + entwerfen, auf MySQL-, PostgreSQL-, Firebird-, ODBC- und SQLite-Datenbanken zugreifen, Anwendungen mit DBUS steuern, Frontend von Linux-Befehlen erstellen, 3D-OpenGL-Anwendungen ausführen können , CGI-Webanwendungen erstellen, Installationspakete für verschiedene Distributionen generieren, unter anderem.

Aus diesem Grund können wir sagen, dass es sich in Gambas nicht um eine Kopie oder einen Klon von Visual Basic handelt, da es trotz seiner Basis auf Basis eine Alternative zum Erstellen von Programmen und Anwendungen für GNU-Umgebungen darstellt. Wenn wir uns die Geschichte der Garnelen ansehen, werden wir feststellen, dass die erste Version von Garnelen 1999 vom Franzosen Benoît Minisini veröffentlicht wurde und eine Umgebung geschaffen hat, die es uns ermöglicht, Anwendungen mit einer grafischen Benutzeroberfläche einfach zu programmieren und zu entwickeln.

Die Programmform in Gambas war zunächst ähnlich der von Gimp, mit mehreren Fenstern, und orientiert sich an der Verwendung von Qt und KDE. Als es 2008 den Sprung auf 2.x-Versionen schaffte, beinhaltete es eine komplette Neugestaltung der grafischen Programmieroberfläche, die alles in einem einzigen Fenster integriert und die Verwendung von GTK + ermöglicht. Im Jahr 2011 sprang es auf Version 3.x.

Beginnen wir mit dem Gambas3-Installation.

1. So installieren Sie Gambas3

Die Einfachheit von Gambas macht es einfach zu bedienen, so dass es nicht notwendig ist, eine Programmiersprache zu kennen. Sie müssen nur ein kostenloses Handbuch haben und etwas Zeit damit verbringen. Aus diesem Grund ist es perfekt zum Lernen, wenn Sie gerade erst anfangen. Nun, lass uns lernen, wie man es auf unserem Linux-Betriebssystem installiert:

Zuerst müssen wir das Befehlsterminal öffnen und diese Befehle nacheinander eingeben:

 sudo add-apt-repository ppa: gambas-team / gambas-daily sudo apt-get update sudo apt-get install gambas3 

Gambas-Installationsbefehle

Mit dieser Befehlszeile können wir die neueste veröffentlichte Version von Gambas abrufen. Derzeit gehen sie für 3.8.1, obwohl ich empfehle, die stabilste Version zu verwenden, die wir mit diesen anderen Befehlen erhalten können, aber wir müssen bedenken, dass wir niemals die beiden PPAs gleichzeitig hinzufügen können, wir können nur einen haben von beiden liegt dies daran, dass wir einen Fehler verursachen könnten und wir die vorherigen Installationen erneut reinigen müssten.

2. Gambas-Projekt mit DB erstellen und melden

Das erste, was wir tun müssen, ist die Datenbank zu entwerfen, die wir zum Speichern unserer Informationen benötigen. Der, den ich vorschlage, wird "Studenten" heißen und zwei Tabellen haben (Studenten und Fächer).

 Schülertabelle: Ausweis, Ausweis, Vor- und Nachnamen, Adresse, Telefon und E-Mail. Betrefftabelle: id, Betreff_name 

Dazu verwenden wir einen sehr einfachen Manager für das Datenbankdesign namens SQLite-Datenbrowser, öffnen wir es und erstellen die Datenbank, indem wir auf den neuen Button klicken. Wir suchen, wo wir es speichern und erstellen die Tabellen nach dem vorherigen Design.

Einmal erstellt würde es so aussehen:

Wir belassen das ID-Feld als Primärschlüssel in beiden Tabellen. Bevor wir den Mini-Manager schließen, fügen wir ihm einige Daten hinzu, um seine Funktion beim Entwerfen der Formulare im Programm zu überprüfen. Wenn wir jetzt auf die Schaltfläche Speichern klicken und die Mini-Datenbrowser-Manager.

3. Durchführung des Gambas-Programms

Wir öffnen Gambas und erstellen ein neues Projekt mit dem Namen und dem entsprechenden Pfad:

VERGRÖSSERN

Der Einfachheit halber legen wir die erstellte Datenbank in den Ordner, der für das Projekt erstellt wurde, in diesem Fall den Ordner GestionEstudiantes, damit es leicht ist, ihren Pfad im Programm zu finden.

 „Wir konfigurieren den Exit-Button. Öffentlicher Sub btnCerrar_Click () Beenden Ende 

Wir haben zwei neue Formulare erstellt, für die Eingabe von Studenten und für die Fächer.

Jetzt konfigurieren wir die Schaltfläche zum Eingeben von Schülern:

 Public Sub btnNuevoEstudiante_Click () FMain.Hide FormEstudiantes.Show End 

Wir konfigurieren auch die Schaltfläche Betreff hinzufügen:

 Public Sub btnNuevaAsignatura_Click () FMain.Hide FormCourses.Show End 

Also werden wir es zugewiesen haben.

4. Gestaltung des Formulars zur Eingabe von Schülern

Zu Beginn setzen wir a Spaltenansicht und zwei Schaltflächen, auf die wir den neuen Text einfügen bzw. beenden (Text-Eigenschaft).

Wenn wir möchten, können wir jeder Schaltfläche über ihre Bildeigenschaft ein Symbol hinzufügen. Zum Spaltenansicht wir nennen es einfach "Tisch" (Im Eigenschaftsnamen) es ist jeder Tabelle sehr ähnlich und wir versuchen, dieses erste Datenbankprojekt so einfach wie möglich zu halten.

Wir nennen die Tasten: btnneu Ja hinausgehen.

Das Formular würde so aussehen:

Wir konfigurieren den Schließen-Button des Formulars.

 Public Sub btnExit_Click () Me.Close End 

Jetzt gehen wir zur Codierung über.

5. Wir haben angefangen, Gambas zu programmieren

Wir werden anfangen, Code in unser Programm einzubauen, und wir werden ihn kommentieren. Das erste, was in einer Datenbank ist, ist die Verbindung zu ihr. Gambas stellt uns hierfür die Verbindungsobjekt.

Alles, was im Code mit einem einzelnen Apostroph erscheint, ist ein Kommentar, der vom Programm nicht interpretiert wird.

Beispiel:

 'Project Test Private hconn As Connection' Variable zum Herstellen der Verbindung Private Function ConnectBase () As Boolean 'Variable für die Verbindung, gibt einen wahren oder falschen Wert zurück Wenn hconn Null Then Return False' überprüfen wir, dass die Verbindung nicht geöffnet ist hconn = New Connection 'Wir initialisieren die Verbindung mit der neuen Methode und übergeben ihr dann die Parameter mit hconn' Parameter für den Datenbankpfad hconn.Host = "/home / test" hconn.Name = "students" 'Datenbankname hconn.Type = " sqlite3" 'Datenbanktyp Versuchen Sie hconn.Open ()' wir versuchen die Verbindung zu öffnen, wenn wir nicht erfolgreich sind senden wir eine Fehlermeldung und geben ihr den Wert null If Error Then hconn = Null Message.Error ( "Failed to connect to die Datenbank") Return True Endif Return False End 

Nachdem Sie den obigen Code kopiert haben, klicken Sie im Debug-Menü auf die Option Ausführen. Wenn alles gut geht, sollte kein Fehler angezeigt werden und der Bildschirm unseres Projekts wird wieder angezeigt. Das bedeutet, dass die Verbindung zu unserer Datenbank zufriedenstellend hergestellt wurde.

Im Fehlerfall sind folgende Ursachen möglich:

FehlerursachenSchauen wir uns die Arten von Ursachen an:

1. Beim Kopieren und Einfügen des Codes müssen Sie die Anführungszeichen berücksichtigen, die beim Kopieren und Einfügen häufig geändert werden und daher von der Anwendung nicht erkannt werden. In diesem Fall empfiehlt es sich, die Anführungszeichen zu löschen und manuell zu platzieren. Der Code in den Anführungszeichen muss in Fuchsia sein, um zu wissen, dass er korrekt ist.

2. Ein weiterer möglicher Fehler besteht darin, dass Sie die entsprechenden Optionen auf der Registerkarte Projekteigenschaften nicht markiert haben, die Sie finden, indem Sie auf das Menü Projekt, dann auf Eigenschaften klicken und dort auf der Registerkarte Komponenten überprüfen, ob die folgenden Optionen markiert sind:

• bg
• gb.db
• gb.db.sqlite3
• gb.form
• gb.db.mysql (Dies sollte für die von uns erstellte Datenbank nicht erforderlich sein, aber wir markieren sie trotzdem)

3. Ein weiterer sehr häufiger Fehler ist der Pfad, in dem wir sowohl das Projekt als auch die Datenbank haben, wo sich die hervorgehobenen Zeilen im Code befinden, die kopiert und eingefügt werden sollen.

Nachdem wir die möglichen Fehler korrigiert und überprüft haben, ob unsere Anwendung funktioniert, schließen wir die Verbindung, indem wir den folgenden Code am Ende einfügen.

 PUBLIC SUB Verbindung schließen () IF hconn = NULL THEN RETURN hconn.Close () hconn = NULL END 

Zuerst sehen wir, dass es nicht mehr geschlossen ist, wenn nicht, schließen wir es mit .schließen

6. Gespeicherte Daten anzeigen

Wir öffnen das Formular und innerhalb der Formularprozess und wir setzen den folgenden Code ein:

(Vergessen Sie nicht, die Anführungszeichen zu überprüfen, die beim Einfügen des Codes geändert worden sein könnten).

 Public Sub Form_Open () 'zuerst deklarieren wir die Variablen und löschen die Spaltenansicht Dim hresul Als Ergebnis Dim key As String Dim filter As String table Clear If ConnectBase () Then Return' wir bestätigen die Verbindung mit der Datenbank 'wir definieren die Eigenschaften für die Spaltenansicht 'Anzahl der Spalten' Text für den Titel der Spalten 'Breite für die Breite der Spalten' Ausrichtung für die Ausrichtung der Felder. table.Columns.Count = 6 table.Columns [0] .Text = "Cedula" table.Columns [0] .Alignment = Align.Center table.Columns [0] .Breite = 100 table.Columns [1] .Text = "Namen"-Tabelle.Spalten [1] .Alignment = Align.Center table.Columns [1] .Breite = 120 Tabelle.Columns [2] .Text = "Nachname"-Tabelle.Spalten [2] .Alignment = Align.Center table .Columns [2] .Width = 120 table.Columns [3] .Text = "Address" table.Columns [3] .Alignment = Align.Center table.Columns [3] .Width = 120 table.Columns [4]. Text = "Telefon"-Tabelle.Spalten [4] .Ausrichtung = Ausrichten.Tabelle zentrieren.Spalten [4] .Breite = 120 Tabelle.Spalten [5] .Text = "Mail"-Tabelle.Spalten [5] .Ausrichtung = Ausrichten. Center table.Columns [5] .Width = 120 hresul = hconn.Exec ("select * from students") 'Dieser Befehl durchsucht die Datenbank, wenn er Daten findet, macht er die Variable hresul wahr und somit verfügbar (Verfügbar) Do While hresul .Available 'dann durchläuft es die Tabelle mit einer do while Schleife basierend auf dem Schlüssel (Cedula) und füllt die Tabelle mit den Daten. key = hresul ["ID"] 'wir machen das ID-Feld als primäres für Tabellensuchen.Add (Passwort, Passwort)' wir fügen die in der Datenbank gefundenen Daten hinzu. Tabelle [Schlüssel] [1] = hresul ["Namen"] Tabelle [Schlüssel] [2] = hresul ["Nachname"] Tabelle [Schlüssel] [3] = hresul ["Adresse"] Tabelle [Schlüssel] [4] = hresul ["phone"] table [key] [5] = hresul ["mail"] hresul.MoveNext () 'diese Anweisung führt die Suche zur nächsten Datenschleife weiter' Führt die Anweisungen innerhalb der Schleife erneut aus, bis keine mehr vorhanden sind Daten anzuzeigen. CloseConnection () 'schließt die Verbindung End 

Formularprozess

Am Ende führen wir es aus und überprüfen seine Funktion, was das folgende Ergebnis zurückgibt:

VERGRÖSSERN

7. Formular erstellen, um Schülerdaten einzugeben

Jetzt werden wir ein neues Formular erstellen, das es uns ermöglicht, Daten für neue Studenten einzugeben, der vorgeschlagene Name dafür ist edata.

Es wird die folgenden Objekte haben: 6 Etikettenetiketten, 6 Textfelder und zwei Schaltflächen.

Das vorgeschlagene Layout sieht wie folgt aus:

Um zu sehen, ob alles gut läuft, gehen wir zum Formular, das die Schülerliste anzeigt, und konfigurieren die neue Schaltfläche wie folgt:

VERGRÖSSERN

Wenn keine Fehler aufgetreten sind und alles gut läuft, konfigurieren wir das neu erstellte Formular für die Eingabe neuer Schülerdaten. Dieses Formular erhält einen Verweis auf ein Objekt vom Typ Verbindung, in unserem Fall hconn deshalb platzieren wir es am Anfang unseres Formulars.

 'Gambas-Klassendatei' zuerst konfigurieren wir die Verbindung Private hconn As Connection 'wir erstellen eine runnew-Methode, die aus dem Formular aufgerufen wird, das die Schüler Public Sub runnew (data As Connection) hconn = data' Referenz für das vorherige Formular Me auflistet. ShowModal () 'zwingt, mit dem Formular zu interagieren, bevor es geschlossen wird End Wir konfigurieren den Abbrechen-Button: Public Sub btnCancelar_Click () Me.Close (0) End Um neue Daten einzugeben, verwenden wir die folgende Anweisung: TRY hconn.EXEC (" in mytable Werte einfügen ( & 1, & 2, & 3, & 4, & 5. & 6) ”, txtid, txtname, txlastname, txtphone, txtmobile, txtcumple) exec Die Felder werden mit einem kaufmännischen Und und dem entsprechenden Index wie unten gezeigt. (& 1, & 2, & 3, & 4, & 5. & 6) 

Kehren wir zum vorherigen Formular zurück und konfigurieren den Akzeptieren-Button wie folgt:

VERGRÖSSERN

Zuerst versuchen wir, eine Verbindung zu unserer Datenbank herzustellen, wenn uns dies nicht gelingt, gehen wir. Nachdem die Verbindung hergestellt war, riefen wir an runnewde fdata-Methode. Da dieses Formular in modaler Form angezeigt wird, wartet dieser Code darauf, dass wir Daten in fdata eingeben oder wir schließen es einfach.

Anschließend wird die Verbindung geschlossen und die form_open-Methode aufgerufen, die die Daten neu lädt, um die vorgenommenen Änderungen anzuzeigen. Jetzt werden wir sehen, wie wir einen Datensatz ändern, zum Beispiel wenn ein Freund das Handy wechselt, bearbeiten Sie einfach dieses Feld.

Wir werden das Aktivierungsereignis unserer Kontrolle nutzen Spaltenansicht (Tabelle) um diese Funktionalität hinzuzufügen. Dieses Ereignis wird durch einen Doppelklick auf eine beliebige Spalte in der Tabelle ausgelöst.

 Public Sub table_Activate () Dim hresul Als Ergebnis If table.Current = Null Then Return If ConnectBase () Then Return hresul = hconn.Edit ("students", "ID = & 1", table.Current.Key) edata.runedit ( hresul ) 'Runeedit-Methode des Formulars edata table.Current [0] = hresul ["ID"] table.Current [1] = hresul ["Vornamen"] table.Current [2] = hresul ["Nachnamen" "] table. Current [3] = hresul ["address"] table.Current [4] = hresul ["phone"] table.Current [5] = hresul ["mail"] closeConnection () End 

Ereignis aktivieren

Die fettgedruckte Zeile ist diejenige, die die ruft edata-Runedit-Methode. Da wir diese Methode noch nicht erstellt haben, funktioniert sie nicht, wenn wir sie jetzt ausführen.

Kehren wir daher zurück zu Alter und lassen Sie uns die folgenden Variablen am Anfang des Formulars platzieren, damit sie vom gesamten Formular aus zugänglich sind.

 Privat hconn Als Verbindung Privat hresul Als Ergebnis Private Bearbeitung Als Boolean 

Dann erstellen wir die neue Methode namens Runedit:

 Public Sub runedit (Daten als Ergebnis) hresul = Datenbearbeitung = True txtCedula.Text = hresul ["ID"] txtName.Text = hresul ["Vorname"] txtName.Text = hresul ["Nachname"] txtAddress.Text = hresul [ "Adresse"] txtTelephone.Text = hresul ["Telefon"] txtEmail.Text = hresul ["mail"] Me.ShowModal End 

Dies zeigt uns edata mit den Daten des ausgewählten Datensatzes, damit wir ihn bearbeiten können und setzt die Variablenbearbeitung mit dem Wert true. Dies ist notwendig, damit die Verwendung einer bedingten Anweisung beim Klicken btna akzeptieren Unterscheiden Sie zwischen neu und ändern.

Wir können es testen obwohl es immer noch nicht funktioniert, es fehlt noch Akzeptieren-Taste einstellen, aber wir können überprüfen, ob es uns zum angeforderten Formular führt.

Lassen Sie uns die Schaltfläche "Akzeptieren" konfigurieren, um die Änderungen zu speichern:

 Public Sub btnAccept_Click () Beim Bearbeiten Dann Versuchen Sie hresul ["cedula"] = txtCedula.Text Versuchen Sie hresul ["names"] = txtNames.Text Versuchen Sie hresul ["surnames"] = txtSurname.Text Versuchen Sie hresul ["address"] = txtAddress .Text Versuchen Sie hresul ["phone"] = txtTelephone.Text Versuchen Sie hresul ["mail"] = txtEmail.Text Versuchen Sie hresul.Update Else Versuchen Sie hconn.Exec ("in Schülerwerte einfügen (& 1, & 2, & 3 , & 4, & 5, & 6)", txtCedula.Text, txtName.Text, txtSurname.Text, txtAddress.Text, txtTelephone.Text, txtEmail.Text) 'damit geben wir die gesendeten Informationen ein Endif Me.Close () Catch Message.Error (" Unmöglich, die gesendeten Daten einzugeben ") Ende 

Jetzt können wir die Änderungen speichern.

8. Datensuche konfigurieren

Fügen wir dem Formular eine Suchschaltfläche und ein Textfeld hinzu. So sieht das Formular neu aus:

VERGRÖSSERN

Wir konfigurieren die Suchschaltfläche ähnlich wie die neue Schaltfläche, dies ist der Code:

 Public Sub btnBuscar_Click () Dim hresul As Result Dim key As String Dim filter As String table.Clear If ConnectBase () Then Return table.Columns.Count = 6 table.Columns [0] .Text = "Cedula" table.Columns [0 ] .Alignment = Align.Center table.Columns [0] .Width = 100 table.Columns [1] .Text = "Names" table.Columns [1] .Alignment = Align.Center table.Columns [1] .Width = 120 table.Columns [2] .Text = "Nachname" table.Columns [2] .Alignment = Align.Center table.Columns [2] .Width = 120 table.Columns [3] .Text = "Address"-Tabelle. Spalten [3] .Alignment = Align.Center table.Columns [3] .Breite = 120 table.Columns [4] .Text = "Phone" table.Columns [4] .Alignment = Align.Center table.Columns [4] . Breite = 120 table.Columns [5] .Text = "Mail" table.Columns [5] .Alignment = Align.Center table.Columns [5] .Width = 120 filter = txtBuscar.Text hresul = hconn.Exec (" Wählen Sie * aus Schülern aus, bei denen Namen wie '"& filter &"' ") Do While hresul.Available key = hresul [" ID "] table.Add (key, key) table [key] [1] = hresul [" name res "] Tabelle [Passwort] [2] = hresul [" Nachname "] Tabelle [Passwort] [3] = hresul [" Adresse "] Tabelle [Passwort] [4] = hresul [" Telefon "] Tabelle [Passwort] [ 5] = hresul ["mail"] hresul.MoveNext () Schleife closeConexion () End 

Mit dem, was wir getan haben, können wir uns bereits über den Prozess klar werden, jetzt werden wir dasselbe mit dem Formular für die Fächer tun. Das Layoutvorschlag ist das Folgende:

Wie immer programmieren wir als erstes den Exit-Button:

 Public Sub btnExit_Click () Me.Close End 

Jetzt stellen wir die Verbindung zur Datenbank her:

 Privat hconn Als Verbindung Private Funktion connectbase () Als Boolean Wenn hconn Null Then Rückgabe Falsch hconn = Neue Verbindung hconn.Host = "/ home / test" hconn.Name = "students" 'database name hconn.Type = " sqlite3 "'database type Versuchen Sie hconn.Open () Wenn Fehler Then hconn = Null Message.Error (" Fehler beim Verbinden der Datenbank ") Rückgabe True Endif Rückgabe False End 

Wir planen die Veranstaltung, um die Verbindung zu schließen:

 Public Sub closeConexion () Wenn hconn = Null Then Return hconn.Close () hconn = Null End 

Jetzt visualisieren wir die Daten im Spaltenansicht, im geöffneten Ereignis des Formulars.

Der Code ist folgender:

 Public Sub Form_Open () Dim hresul As Result Dim key As String Dim filter As String table2.Clear If connectbase () Then Rückgabe table2.Columns.Count = 2 table2.Columns [0] .Text = "id" table2.Columns [0 ] .Alignment = Align.Right table2.Columns [1] .Text = "Name des Fachs oder Kurses" hresul = hconn.Exec ("Auswahl * von Fächern") Do While hresul.Available key = hresul ["id"] table2.Add (key, key) table2 [key] [1] = hresul ["matter_name"] hresul.MoveNext () Loop closeConnection () End 

Jetzt erstellen wir das Formular, um die Daten der Tabelle, Fächer oder Kurse hinzuzufügen und / oder zu bearbeiten. Der vorgeschlagene Name ist adata. (betroffene Personen).

9. Wir programmieren den Schließen-Button

 Öffentlicher Sub btnCerrar_Click () Me.Close End 

Wir erstellen die Referenz auf ein Objekt vom Typ connection, in unserem Fall hconn, daher werden wir am Anfang unseres adata-Formulars folgenden Code platzieren:

 Private hconn als Verbindung 

Außerdem erstellen wir die runnew-Methode, die aus dem Hauptformular aufgerufen wird. Die Syntax lautet wie folgt:

 Public Sub runnew (data As Connection) hconn = data Me.ShowModal () End 

Jetzt gehen wir zum Formular, um die Daten der Probanden einzugeben und in das btnnuevo-Klick-Ereignis setzen wir den folgenden Code:

 Public Sub btnNuevo_Click () If connectbase () Then Return adata.runnew (hconn) closeConexion () Form_Open () End 

Jetzt können wir Neue Schaltfläche ausprobieren besagter Form.

Wir fahren mit der gleichen Form fort und codieren die Methode zum Ändern von Datensätzen wie folgt. Wir werden das Aktiv-Event unserer Spaltenansichtssteuerung (Tabelle) um diese Funktionalität hinzuzufügen. Dieses Ereignis wird durch einen Doppelklick auf eine beliebige Spalte in der Tabelle ausgelöst.

 Public Sub table2_Activate () Dim hresul Als Ergebnis If table2.Current = Null Then Return If connectbase () Then Return hresul = hconn.Edit ("subjects", "id = & 1", table2.Current.Key) adata.runedit ( hresul ) table2.Current [0] = hresul ["id"] table2.Current [1] = hresul ["matter_name"] closeConnection () End 

Denken Sie daran, dass es nicht funktioniert, bis wir dieses Ereignis im adata-Formular erstellt haben. Kehren wir daher zurück zu fdata und lassen Sie uns die folgenden Variablen am Anfang des Formulars platzieren, damit sie vom gesamten Formular aus zugänglich sind.

 PRIVATE hconn AS Verbindung PRIVATE hresul AS Ergebnis PRIVATE Bearbeitung AS Boolean 

Wir erstellen die runedit-Methode, deren Code der folgende ist:

 Public Sub runedit (data As Result) hresul = Datenbearbeitung = True txtAsignaturas.Text = hresul ["subject_name"] Me.ShowModal End 

Denken Sie daran, zu testen, ob alles gut läuft. Jetzt Wir programmieren den Akzeptieren-Button wie folgt:

 Public Sub btnAceptar_Click () Beim Bearbeiten Dann Versuchen Sie hresul ["subject_name"] = txtAsignaturas.Text Versuchen Sie hresul.Update Else Versuchen Sie hconn.Exec ("insert into subject_name values ​​​​(& 1)", txtAsignaturas.Text) Endif Me.Close () Catch Message.Error ("Gesendete Daten können nicht eingegeben werden") Ende 

Nun programmieren wir die Themensuchroutine:

 Public Sub btnBuscar_Click () Dim hresul As Result Dim key As String Dim filter As String table2.Clear If connectbase () Then Rückgabe table2.Columns.Count = 2 table2.Columns [0] .Text = "id" table2.Columns [0 ] .Alignment = Align.Right table2.Columns [1] .Text = "Name des Fachs oder Kurses" filter = txtBuscar.Text hresul = hconn.Exec ("wählen Sie * aus Fächern aus, bei denen Betreffname wie '" & Filter & "' ") Do While hresul.Available key = hresul [" id "] table2.Add (key, key) table2 [key] [1] = hresul [" matter_name "] hresul.MoveNext () Loop closeConexion () End 

Wir werden es fertig haben.

Schlussfolgerungen zu Garnelen
Für Leute, die eine Anwendung in Visual Basic erstellt haben und sich für die Programmierung interessieren, ist dies eines der Tools, das Sie zweifellos interessieren wird, und es ist eine klare Option, die Sie in Betracht ziehen sollten.

Dank der Tests, die wir in diesem Tutorial sehen können, können wir sehen, dass es einfach zu arbeiten ist und wirklich Es dauert nicht lange, eine andere einfache Anwendung für Linux zu erstellen.

Wie wir sehen, ist die Autovervollständigung mit Garnelen auf das Objekt beschränkt, mit dem Sie arbeiten, und nicht wie im Fall von Geany, das Ihnen alles zufügen kann. Wir müssen ihm Punkte geben, da es wie Java und Netbeans und ohne weitere Komplikationen funktioniert.

Wer also lernen möchte, einfache Anwendungen unter Linux zu programmieren und neugierig ist, dem empfehlen wir Gambas3 auszuprobieren.