Projekt in Linux Prawns

Gambas ist eine Entwicklungsumgebung, die mit der GNU GPL-Lizenz vertrieben wird. Damit können wir sagen, dass es nicht nur eine Programmiersprache aus der Basissprache ist, sondern auch ein sehr nützliches Werkzeug, wenn es darum geht, visuelle Anwendungen für fast jede Distribution zu erstellen von GNU / Linux .

In Gambas hat der Programmierer die Möglichkeit, die 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 grundlegenden Interpreter mit Erweiterungen von Objekten, die Visual Basic ähneln. Der Vorteil von Gambas ist jedoch, dass Sie Ihre Grafikanwendung schnell mit QT oder GTK + entwerfen, auf MySQL- , PostgreSQL-, Firebird-, ODBC- und SQLite-Datenbanken zugreifen, Anwendungen mit DBUS steuern, Front-End von Linux-Befehlen erstellen und erstellen können OpenGL 3D-Anwendungen, Erstellen von CGI-Webanwendungen, Generieren von Installationspaketen unter anderem für verschiedene Distributionen.

Aus diesem Grund können wir dann sagen, dass Gambas keine Kopie oder ein Klon von Visual Basic ist, da es, obwohl es auf Basic basiert, eine Alternative ist, Programme und Anwendungen für GNU-Umgebungen zu erstellen. Wenn wir etwas über die Geschichte der Garnelen erfahren, werden wir feststellen, dass die erste Version der Garnelen 1999 von dem Franzosen Benoît Minisini herausgebracht wurde, wodurch eine Umgebung geschaffen wurde, die es uns ermöglichte, Anwendungen auf einfache Weise mit einer grafischen Benutzeroberfläche zu programmieren und zu entwickeln.

Zu Beginn war die Programmform in Gambas mit mehreren Fenstern der von Gimp ähnlich und orientierte sich an der Verwendung von Qt und KDE. Als er 2008 den Sprung zu Version 2.x machte, bedeutete dies eine komplette Neugestaltung der grafischen Programmierschnittstelle, die alles in einem einzigen Fenster zusammenfasste und die Verwendung von GTK + ermöglichte. Im Jahr 2011 sprang es auf Version 3.x.

Beginnen wir mit der Installation von Gambas3 .

1. Wie installiere ich Gambas3?

Die Einfachheit von Gambas macht es einfach zu bedienen, so dass es nicht erforderlich ist, eine Programmiersprache zu kennen. Sie brauchen nur ein kostenloses Handbuch und etwas Zeit. Aus diesem Grund ist es perfekt zu lernen, wenn Sie anfangen. Nun, lassen Sie uns lernen, wie man es in unserem Linux-Betriebssystem installiert:

Zuerst müssen wir das Befehlsterminal öffnen und nacheinander die folgenden Befehle 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 erhalten. Gegenwärtig verwenden sie die Version 3.8.1, obwohl ich empfehle, die stabilste Version zu haben, die wir mit diesen anderen Befehlen erhalten können, aber wir müssen bedenken, dass wir die beiden PPAs niemals gleichzeitig hinzufügen können, wir können nur eine der beiden haben, diese Dies liegt daran, dass wir einen Fehler verursachen könnten und die vorherigen Einrichtungen erneut reinigen müssten.

2. Projekt Prawns mit BBDD erstellen und melden

Als Erstes müssen wir die Datenbank entwerfen, in der unsere Informationen gespeichert werden sollen. Das, was ich vorschlage, wird “Schüler” heißen und zwei Tische haben (Schüler und Fächer).

 Tischschüler: Ausweis, Cedula, Name, Nachname, Adresse, Telefon und Post. Tabellensubjekte: id, nom_materia 

Dazu verwenden wir einen sehr einfachen Datenbank-Design-Manager namens SQLite Data Browser . Wir öffnen ihn und erstellen die Datenbank, indem wir auf die neue Schaltfläche klicken. Wir suchen den Speicherort und erstellen die Tabellen gemäß dem vorherigen Entwurf.

Einmal erstellt würde es so aussehen:

image1.jpg

Wir werden das Cedula-Feld in beiden Tabellen als Primärschlüssel belassen. Bevor wir den Mini-Manager schließen, fügen wir einige Daten hinzu, um die Funktionsweise zu überprüfen, wenn wir die Formulare im Programm entwerfen. Jetzt können wir auf die Schaltfläche Speichern klicken und den Mini- Datenbrowser- Manager schließen .

3. Realisierung des Programms Gambas

Wir öffnen Gambas und erstellen ein neues Projekt, das den Namen und die entsprechende Route trägt: image2.jpg

Der Einfachheit halber platzieren wir die erstellte Datenbank in dem für das Projekt erstellten Ordner, in diesem Fall in dem Ordner mit dem Namen GestionEstudiantes, damit Sie Ihre Route problemlos im Programm finden können.

 'Wir konfigurieren den Exit-Button. Public Sub btnClose_Click () Beenden Sie Ende 

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

image3.jpg

imagen4.jpg

Jetzt konfigurieren wir die Schaltfläche zur Eingabe von Schülern:

 Public Sub btnNew Student_Click () FMain.Hide FormEstudiantes.Show Ende 

Wir konfigurieren auch den Button Betreff hinzufügen:

 Public Sub btnNuevaAsignatura_Click () FMain.Hide FormCursos.Show Ende 

So werden wir es vergeben haben.

4. Gestaltung des Formulars zur Eingabe von Studierenden

Zu Beginn platzieren wir eine Spaltenansicht und zwei Schaltflächen, in die wir den neuen Text einfügen und beenden (Eigenschaft Text) .

Wenn wir möchten, können wir über die picture -Eigenschaft jeder Schaltfläche ein Symbol hinzufügen. Wir werden columview einfach “table” (In property name) nennen, da es jeder Tabelle sehr ähnlich ist und wir versuchen, dieses erste Datenbankprojekt so einfach wie möglich zu halten.

Die Buttons heißen: btnnew und btnsalir .

Das Formular würde so aussehen:

imagen5.jpg

Wir konfigurieren den Schließen-Button des Formulars.

 Public Sub btnExit_Click () Me.Close Ende 

Jetzt müssen wir codieren.

5. Wir fangen an, Gambas zu codieren

Wir werden anfangen, Code in unser Programm einzufügen, und wir werden ihn kommentieren. Das erste, was in einer Datenbank ist, ist die Verbindung zu ihr. Dafür stellt uns Gambas das Connection-Objekt zur Verfügung .

See also  So erstellen Sie ein Excel 2016-Datentrendliniendiagramm

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

Beispiel:

 'Testprojekt Private hconn As Connection 'Variable zum Herstellen der Verbindung Private Function ConnectBase () Gibt als boolesche Variable für die Verbindung einen wahren oder falschen Wert zurück Wenn hconn <> Null und dann Return False ', überprüfen wir, dass die Verbindung nicht geöffnet ist hconn = Neue Verbindung 'initialisieren wir die Verbindung mit der neuen Methode und übergeben dann die paramentros mit hconn 'Parameter für den Datenbankpfad hconn.Host = "/ home / test" hconn.Name = "students" Name der Datenbank hconn.Type = "sqlite3" 'Datenbanktyp Versuchen Sie es mit hconn.Open (). Wir versuchen, die Verbindung zu öffnen, wenn dies nicht gelingt. Wir senden eine Fehlermeldung und Wir geben ihm den Wert null Wenn Fehler dann hconn = Null Message.Error ("Fehler beim Herstellen der Verbindung zur Datenbank") Return True Endif Falsch zurück Ende 

Nachdem Sie den vorherigen Code kopiert haben, klicken Sie im Menü Debuggen auf die Option Ausführen. Wenn alles gut geht, sollten keine Fehler auftreten und der Bildschirm unseres Projekts wird erneut angezeigt. Dies bedeutet, dass die Verbindung zu unserer Datenbank erfolgreich war.

Im Fehlerfall gebe ich Ihnen nachfolgend mögliche Ursachen an:

Fehlerursachen
Sehen wir uns die Ursachen an:

1. Beim Kopieren und Einfügen des Codes sollten 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 ist es ratsam, die Anführungszeichen zu löschen und manuell zu platzieren. Der Code in den Anführungszeichen sollte fuchsia sein, um zu wissen, dass es in Ordnung ist.

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

  • bg
  • gb.db
  • gb.db.sqlite3
  • gb.form
  • gb.db.mysql (Dies sollte aufgrund der von uns erstellten Datenbank nicht erforderlich sein, wir markieren sie jedoch trotzdem)

3. Ein weiterer sehr häufiger Fehler ist die Route, auf der sich sowohl das Projekt als auch die Datenbank befinden. Dort befinden sich die im zu kopierenden und einzufügenden Code hervorgehobenen Zeilen.

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

 PUBLIC SUB enge Verbindung () IF hconn = NULL THEN RETURN hconn.Close () hconn = NULL ENDE 

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

6. Gespeicherte Daten anzeigen

Wir öffnen das Formular und innerhalb des Formularprozesses und platzieren den folgenden Code:

(Vergessen Sie nicht, die Anführungszeichen zu überprüfen, die beim Einfügen des Codes möglicherweise geändert wurden.)

 Öffentliches Unterformular_Öffnen () 'Zuerst deklarieren wir die Variablen und bereinigen die Spaltenansicht Dim hresul As Result Dim key As String Filter dimmen als String tabla.Clear Wenn ConnectBase () Then Return ', bestätigen wir die Verbindung mit den Daten bse 'Wir definieren die Eigenschaften für die Spaltenansicht 'count für die Anzahl der Spalten 'Text für den Titel der Spalten 'width für die Breite der Spalten 'alignierung für die ausrichtung der felder. table.Columns.Count = 6 tabla.Columns [0] .Text = "Cedula" table.Columns [0] .Alignment = Align.Center tabla.Columns [0] .Width = 100 tabla.Columns [1] .Text = "Names" Table.Columns [1] .Alignment = Align.Center tabla.Columns [1] .Width = 120 tabla.Columns [2] .Text = "Familiennamen" tabla.Columns [2] .Alignment = Align.Center tabla.Columns [2] .Width = 120 tabla.Columns [3] .Text = "Address" table.Columns [3] .Alignment = Align.Center tabla.Columns [3] .Width = 120 tabla.Columns [4] .Text = "Telephone" tabla.Columns [4] .Alignment = Align.Center tabla.Columns [4] .Width = 120 tabla.Columns [5] .Text = "Mail" tabla.Columns [5] .Alignment = Align.Center tabla.Columns [5] .Width = 120 hresul = hconn.Exec ("select * from students") 'Diese Anweisung durchsucht die Datenbank. Wenn sie Daten findet, macht sie die Variable hresul wahr und damit verfügbar (Verfügbar). Do While hresul.Available 'durchläuft dann die Tabelle mit einer do while-Schleife basierend auf dem Schlüssel (Cedula) und füllt die Tabelle mit den Daten. clave = hresul ["cedula"] 'Wir machen das Cedula-Feld zum primären Suchfeld table.Add (key, key) '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"] table [password] [4] = hresul ["phone"] table [password] [5] = hresul ["mail"] hresul.MoveNext () 'Diese Anweisung erweitert die Suche auf die folgenden Daten Schleife 'Führen Sie die Anweisungen in der Schleife erneut aus, bis keine Daten mehr vorhanden sind zeigen Verbindung schließen () 'schließt die Verbindung Ende 

Formularprozess

Am Ende führen wir es aus und prüfen seinen Betrieb, was folgendes Ergebnis liefert:

imagen6.jpg

7. Formular zur Eingabe der Schülerdaten erstellen

Jetzt erstellen wir ein neues Formular, in das wir Daten von neuen Schülern eingeben können. Der vorgeschlagene Name ist edata.

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

Das vorgeschlagene Design lautet wie folgt:

imagen7.jpg

Um zu sehen, ob alles gut läuft, rufen Sie das Formular mit der Liste der Schüler auf und konfigurieren Sie die neue Schaltfläche wie folgt:

See also  Steganographie, um Nachrichten in Dateien zu verbergen

imagen8.jpg

Wenn es keine Fehler gibt und alles in Ordnung ist, können Sie das neu erstellte Formular für die Eingabe neuer Studentendaten konfigurieren. Dieses Formular wird einen Verweis auf ein Objekt vom Typ Verbindung erhalten , in unserem Fall hconn deshalb setzen wir es am Anfang unseres Formulars.

 'Gambas Klassendatei 'Zuerst konfigurieren wir die Verbindung Private Verbindung als Verbindung 'Wir haben eine Laufmethode erstellt, die aus dem Formular aufgerufen wird, in dem die Schüler aufgelistet sind Öffentlicher Unterlauf (Daten als Verbindung) hconn = Datenreferenz für das vorherige Formular Me.ShowModal () 'zwingt Sie, mit dem Formular zu interagieren, bevor Sie es schließen Ende Wir konfigurieren die Abbrechen-Schaltfläche: Public Sub btnCancelar_Click () Me.Close (0) Ende Um neue Daten einzugeben, verwenden wir die folgende Anweisung: TRY hconn.EXEC ("Einfügen in Mitabla-Werte (& 1, & 2, & 3, & 4, & 5. & 6)", txtid, txtname, txtapellido, txttelefono, txtmovil, txtcumple) exec Die Felder werden mit einem Et-Zeichen und dem entsprechenden Index aufgerufen wie unten gezeigt. (& 1, & 2, & 3, & 4, & 5. & 6) 

Kehren wir zum vorherigen Formular zurück und konfigurieren Sie die Schaltfläche zum Akzeptieren wie folgt: image9.jpg

Zuerst versuchen wir, eine Verbindung zu unserer Datenbank herzustellen. Wenn wir sie nicht erhalten, verlassen wir die Datenbank. Sobald die Verbindung hergestellt ist , rufen wir die runew-Methode fdata auf . Da dieses Formular in modaler Form angezeigt wird, wartet dieser Code darauf, dass wir Daten in fdata eingeben oder einfach schließen.

Schließen Sie dann die Verbindung und rufen Sie die form_open-Methode auf, die für das erneute Laden der Daten verantwortlich ist, um die vorgenommenen Änderungen anzuzeigen. Lassen Sie uns nun sehen, wie Sie einen Datensatz ändern. Wenn beispielsweise ein Freund das Telefon wechselt, bearbeiten Sie einfach dieses Feld.

Wir werden das enable -Ereignis unseres colunmview- Steuerelements (Tabelle) nutzen , um diese Funktionalität hinzuzufügen. Dieses Ereignis wird durch einen Doppelklick auf eine Spalte in der Tabelle ausgelöst.

 Public Sub table_Activate () Dim hresul As Result If tabla.Current = Null Then Return If ConnectBase () Then Return hresul = hconn.Edit ("Studenten", "cedula = & 1", table.Current.Key) edata.runedit (hresul) 'Ruft die runeedit-Methode des edata-Formulars auf tabla.Current [0] = hresul ["cedula"] tabla.Current [1] = hresul ["names"] tabla.Current [2] = hresul ["Nachname"] table.Current [3] = hresul ["address"] table.Current [4] = hresul ["phone"] tabla.Current [5] = hresul ["mail"] closeConexion () Ende 

Ereignis aktivieren

Die fette Linie ist diejenige, die die runedit-Methode von edata aufruft . Da wir diese Methode noch nicht erstellt haben, funktioniert sie nicht, wenn wir versuchen, sie jetzt auszuführen.

Kehren wir zu edata zurück und platzieren die folgenden Variablen am Anfang des Formulars, sodass sie vom gesamten Formular aus zugänglich sind.

 Private Verbindung als Verbindung Private hresul Als Ergebnis Private Bearbeitung als Boolean 

Dann erstellen wir die neue Methode runedit :

 Public Sub runedit (Daten als Ergebnis) hresul = Daten Bearbeitung = True txtCedula.Text = hresul ["cedula"] txtNombres.Text = hresul ["names"] txtApellidos.Text = hresul ["Nachname"] txtDirection.Text = hresul ["Adresse"] txtTelefono.Text = hresul ["telefono"] txtCorreo.Text = hresul ["mail"] Me.ShowModal Ende 

Dies zeigt uns die Daten des ausgewählten Datensatzes, damit wir sie bearbeiten können, und setzt die zu bearbeitende Variable auf den Wert true. Dies ist notwendig, damit beim Klicken auf btnacept mittels einer bedingten Anweisung zwischen neu und ändern unterschieden werden kann.

imagen10.jpg

Wir können es versuchen, obwohl es noch nicht funktioniert. Wir müssen noch die Schaltfläche zum Akzeptieren konfigurieren , können aber überprüfen, ob das angeforderte Formular angezeigt wird.

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

 Public Sub btnAccept_Click () Beim Bearbeiten dann Versuchen Sie es mit hresul ["cedula"] = txtCedula.Text Versuchen Sie es mit hresul ["names"] = txtName.Text Versuchen Sie es mit hresul ["last names"] = txtLastname.Text Versuchen Sie es mit hresul ["address"] = txtAddress.Text Versuchen Sie es mit hresul ["telephone"] = txtTelephone.Text Versuchen Sie es mit hresul ["mail"] = txtCorreo.Text Versuchen Sie es mit hresul.Update Sonst Versuchen Sie es mit hconn.Exec ("In Schülerwerte einfügen (& 1, & 2, & 3, & 4, & 5, & 6)", txtCedula.Text, txtNombres.Text, txtLastName.Text, txtDireccion.Text, txtTelefono.Text, txtCorreo.Text) 'Hier geben wir die gesendeten Informationen ein Endif Me.Close () Fang Message.Error ("Eingeben der gesendeten Daten nicht möglich") Ende 

Jetzt können wir die Änderungen speichern.

8. Konfigurieren Sie die Datensuche

Fügen Sie dem Formular eine Suchschaltfläche und ein Textfeld hinzu. Dies ist der neue Aspekt des Formulars: imagen11.jpg

Wir konfigurieren die Suchschaltfläche auf ähnliche Weise wie die neue Schaltfläche. Dies ist der Code:

 Öffentliches Sub btnBus_Click () Dim hresul As Result Dim key As String Filter dimmen als String tabla.Clear If ConnectBase () Then Return table.Columns.Count = 6 tabla.Columns [0] .Text = "Cedula" table.Columns [0] .Alignment = Align.Center tabla.Columns [0] .Width = 100 tabla.Columns [1] .Text = "Names" Table.Columns [1] .Alignment = Align.Center tabla.Columns [1] .Width = 120 tabla.Columns [2] .Text = "Familiennamen" tabla.Columns [2] .Alignment = Align.Center tabla.Columns [2] .Width = 120 tabla.Columns [3] .Text = "Address" table.Columns [3] .Alignment = Align.Center tabla.Columns [3] .Width = 120 tabla.Columns [4] .Text = "Telephone" tabla.Columns [4] .Alignment = Align.Center tabla.Columns [4] .Width = 120 tabla.Columns [5] .Text = "Mail" tabla.Columns [5] .Alignment = Align.Center tabla.Columns [5] .Width = 120 filter = txtBuscar.Text hresul = hconn.Exec ("wähle * von Schülern mit Namen wie '" & filter & "'" aus) Do While hresul.Available key = hresul ["cedula"] table.Add (Schlüssel, Schlüssel) Tabelle [Schlüssel] [1] = hresul ["Namen"] Tabelle [Schlüssel] [2] = hresul ["Nachname"] Tabelle [Schlüssel] [3] = hresul ["Adresse"] table [password] [4] = hresul ["phone"] table [password] [5] = hresul ["mail"] hresul.MoveNext () Schleife closeConexion () Ende 

Mit dem, was wir getan haben, können wir bereits eine klare Vorstellung davon haben, wie der Prozess abläuft. Jetzt werden wir dasselbe mit dem Formular für die Subjekte tun. Das vorgeschlagene Design lautet wie folgt:

See also  Deaktivieren Sie Geburtstags- oder Kalenderbenachrichtigungen in Windows 10

imagen12.jpg

Wie immer ist das erste, was wir programmieren, die Schaltfläche zum Beenden:

 Public Sub btnExit_Click () Me.Close Ende 

Nun stellen wir die Verbindung zur Datenbank her:

 Private Verbindung als Verbindung Private Function connectbase () Als Boolescher Wert Wenn hconn <> Null, dann geben Sie False zurück hconn = Neue Verbindung hconn.Host = "/ home / test" hconn.Name = "students" Name der Datenbank hconn.Type = "sqlite3" 'Datenbanktyp Versuchen Sie hconn.Open () Wenn Fehler dann hconn = Null Message.Error ("Fehler beim Verbinden der Datenbank") Return True Endif Falsch zurück Ende 

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

 Public Sub closeConexion () Wenn hconn = Null, dann kehre zurück hconn.Close () hconn = Null Ende 

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

image13.jpg

Der Code lautet wie folgt:

 Öffentliches Unterformular_Öffnen () Dim hresul As Result Dim key As String Filter dimmen als String tabla2.Clear If connectbase () Then Return Table2.Columns.Count = 2 tabla2.Columns [0] .Text = "id" tabla2.Columns [0] .Alignment = Align.Right tabla2.Columns [1] .Text = "Name des Fachs oder Kurses" hresul = hconn.Exec ("select * from asignaturas") Do While hresul.Available key = hresul ["id"] table2.Add (Schlüssel, Schlüssel) tabla2 [password] [1] = hresul ["nom_materia"] hresul.MoveNext () Schleife closeConexion () Ende 

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. (Probandendaten).

image14.jpg

9. Wir programmieren den Schließen-Button

 Public Sub btnClose_Click () Me.Close Ende 

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

 Private Verbindung als Verbindung 

Zusätzlich erstellen wir die Laufmethode, die vom Hauptformular aus aufgerufen wird. Die Syntax lautet wie folgt:

 Öffentlicher Unterlauf (Daten als Verbindung) hconn = Daten Me.ShowModal () Ende 

Wir gehen jetzt zum Formular, um die Daten der Probanden einzugeben und im Falle von btnnnew platzieren wir den folgenden Code:

 Public Sub btnNew_Click () If connectbase () Then Return adata.runnew (hconn) closeConexion () Form_Open () Ende 

Jetzt können wir den neuen Knopf auf diesem Formular ausprobieren .

In derselben Form kodifizieren wir die Methode zum Ändern von Datensätzen wie folgt. Wir werden das enable -Ereignis unseres colunmview-Steuerelements (Tabelle) nutzen , um diese Funktionalität hinzuzufügen. Dieses Ereignis wird durch einen Doppelklick auf eine Spalte in der Tabelle ausgelöst.

 Public Sub table2_Activate () Dim hresul As Result If tabla2.Current = Null Then Return If connectbase () Then Return hresul = hconn.Edit ("asignaturas", "id = & 1", tabla2.Current.Key) adata.runedit (hresul) tabla2.Current [0] = hresul ["id"] tabla2.Current [1] = hresul ["nom_materia"] closeConexion () Ende 

Denken Sie daran, dass dies erst dann funktioniert, wenn wir dieses Ereignis im Adata-Formular erstellt haben. Kehren wir zu fdata zurück und platzieren die folgenden Variablen am Anfang des Formulars, so dass 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 mit folgendem Code:

 Public Sub runedit (Daten als Ergebnis) hresul = Daten Bearbeitung = True txtAsignaturas.Text = hresul ["nom_materia"] Me.ShowModal Ende 

Denken Sie daran, zu testen, ob alles gut geht. Nun programmieren wir den Accept Button wie folgt:

 Public Sub btnAccept_Click () Beim Bearbeiten dann Versuchen Sie es mit hresul ["nom_materia"] = txtAsignaturas.Text Versuchen Sie es mit hresul.Update Sonst Versuchen Sie hconn.Exec ("Einfügen in nom_materia-Werte (& 1)", txtAsignaturas.Text) Endif Me.Close () Fang Message.Error ("Eingeben der gesendeten Daten nicht möglich") Ende 

Jetzt programmieren wir die Routine der Suche nach Themen:

 Öffentliches Sub btnBus_Click () Dim hresul As Result Dim key As String Filter dimmen als String tabla2.Clear If connectbase () Then Return Table2.Columns.Count = 2 tabla2.Columns [0] .Text = "id" tabla2.Columns [0] .Alignment = Align.Right tabla2.Columns [1] .Text = "Name des Fachs oder Kurses" filter = txtBuscar.Text hresul = hconn.Exec ("wähle * von Themen aus, bei denen nom_materia wie" & filter & "" lautet) Do While hresul.Available key = hresul ["id"] table2.Add (Schlüssel, Schlüssel) tabla2 [password] [1] = hresul ["nom_materia"] hresul.MoveNext () Schleife closeConexion () Ende 

Wir werden es fertig haben.

Schlussfolgerungen zu Garnelen

Für Benutzer, die bereits einige Anwendungen in Visual Basic ausgeführt haben und Interesse an der Programmierung haben, ist dies eines der Tools, die Sie zweifellos interessieren und 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 es nicht wirklich lange dauert , eine andere einfache Anwendung für Linux zu erstellen .

Wie wir sehen können, ist die automatische Vervollständigung mit Garnelen auf das Objekt beschränkt, mit dem Sie arbeiten, nicht wie im Fall von Geany, der alles setzen kann. Wir müssen Punkte geben, weil es wie Java und Netbeans und ohne weitere Komplikationen funktioniert.

Für diejenigen, die lernen möchten, wie man einfache Linux-Anwendungen programmiert, und neugierig sind, empfehlen wir, Gambas3 eine Chance zu geben.

administrator

Leave a Reply

Your email address will not be published. Required fields are marked *