Gambas Linux projekts

Gambas ir izstrādes vide, kas tiek izplatīta saskaņā ar GNU GPL licenciAr to mēs varam teikt, ka tā ir ne tikai programmēšanas valoda, kas iegūta no pamatvalodas, bet arī ir ļoti noderīgs rīks, veidojot vizuālas lietojumprogrammas gandrīz jebkuram GNU / Linux izplatījumam.

Programmā Gambas programmētājam ir iespēja grafiski noformēt logus, vilkt objektus no rīkjoslas un pēc tam katram objektam uzrakstīt pamata kodu.

Kā redzējām iepriekš, Gambas pamatā ir pamata tulks ar objektu paplašinājumiem, līdzīgi kā Visual Basic. Bet Gambas priekšrocība ir tā, ka jūs varat ātri noformēt savu grafisko lietojumprogrammu, izmantojot QT vai GTK +, piekļūt MySQL, PostgreSQL, Firebird, ODBC un SQLite datu bāzēm, kontrolēt lietojumprogrammas ar DBUS, veidot Linux komandu priekšgalu, veikt 3D OpenGL lietojumprogrammas , izveidot CGI tīmekļa lietojumprogrammas, ģenerēt instalācijas paketes dažādiem izplatījumiem, cita starpā.

Šī iemesla dēļ mēs varam teikt, ka programmā Gambas tā nav Visual Basic kopija vai klons, jo, neskatoties uz to, ka tā ir balstīta uz pamata, tā ir alternatīva, lai izveidotu programmas un lietojumprogrammas GNU vidēm. Ja paskatāmies uz garneļu vēsturi, atklāsim, ka pirmo garneļu versiju 1999. gadā izlaida francūzis Benoît Minisini, radot vidi, kas ļautu viegli programmēt un attīstīt aplikācijas ar grafisku lietotāja saskarni.

Sākumā programmas forma Gambasā bija līdzīga Gimp formai ar vairākiem logiem un bija orientēta uz Qt un KDE izmantošanu. Kad 2008. gadā tika pāriets uz 2.x versijām, tas ietvēra pilnīgu grafiskās programmēšanas saskarnes pārveidošanu, apvienojot visu vienā logā un ļaujot izmantot GTK +. 2011. gadā tas pārlēca uz 3.x versiju.

Sāksim ar Gambas3 instalēšana.

1. Kā instalēt Gambas3

Gambas vienkāršība atvieglo lietošanu, tāpēc nav jāzina neviena programmēšanas valoda. Jums vienkārši ir jābūt bezmaksas rokasgrāmatai un jāpavada tam kāds laiks. Šī iemesla dēļ tas ir lieliski piemērots mācībām, ja jūs tikko sākat darbu. Nu, iemācīsimies to instalēt mūsu Linux operētājsistēmā:

Pirmkārt, mums jāatver komandu terminālis un jāievada šīs komandas pa vienai:

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

Gambas instalēšanas komandas

Izmantojot šo komandrindu, mēs varam iegūt jaunāko Gambas versiju. Pašlaik tie ir paredzēti 3.8.1., Lai gan es iesaku izmantot visstabilāko versiju, ko varam iegūt, izmantojot šīs citas komandas, taču mums jāpatur prātā, ka mēs nekad nevaram pievienot abus EPL vienlaikus, mums var būt tikai viens no diviem, tas ir tāpēc, ka mēs varētu izraisīt kļūdu un mums būtu jāsāk no jauna iepriekšējo instalāciju tīrīšana.

2. Izveidojiet Gambas projektu ar DB un ziņojiet

Pirmā lieta, kas mums jādara, ir izveidot datubāzi, kas nepieciešama mūsu informācijas glabāšanai. Manis piedāvātais tiks saukts par "studentiem", un tajā būs divas tabulas (studenti un priekšmeti).

 Studentu tabula: ID, ID, vārdi, uzvārdi, adrese, tālrunis un e -pasts. Tēmu tabula: id, subject_name 

Lai to izdarītu, mēs izmantojam ļoti vienkāršu pārvaldnieku datu bāzes projektēšanai, ko sauc SQLite datu pārlūks, mēs to atveram un izveidojam datu bāzi, noklikšķinot uz jaunās pogas. Mēs atrodam vietu, kur to saglabāsim, un izveidojam tabulas atbilstoši iepriekšējam dizainam.

Pēc izveides tas izskatīsies šādi:

Abās tabulās ID lauku atstāsim kā primāro atslēgu. Pirms mini pārvaldnieka aizvēršanas mēs tam pievienojam dažus datus, lai pārbaudītu tā darbību, veidojot veidlapas programmā. Tagad, ja mēs varam noklikšķināt uz pogas Saglabāt un aizvērt mini datu pārlūkprogrammas pārvaldnieks.

3. Programmas Gambas izpildīšana

Mēs atveram Gambas un izveidojam jaunu projektu, piešķirot tam nosaukumu un atbilstošo ceļu:

PALIELINĀT

Lielākas ērtības labad mēs ievietojam projektam izveidotajā mapē izveidoto datu bāzi, šajā gadījumā mapi ar nosaukumu GestionEstudiantes, tāpēc būs viegli atrast tās ceļu programmā.

 "Mēs konfigurējam izejas pogu. Public Sub btnCerrar_Click () Iziet Beigt 

Mēs izveidojām divas jaunas veidlapas studentiem un priekšmetiem.

Tagad mēs konfigurējam pogu, lai ievadītu studentus:

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

Mēs konfigurējam arī pogu Pievienot tēmu:

 Public Sub btnNuevaAsignatura_Click () FMain. Paslēpt FormCourses.Show End 

Tātad mēs to piešķirsim.

4. Veidlapas dizains studentu ievadīšanai

Lai sāktu, mēs ievietojam a columview un divas pogas, kurām mēs attiecīgi ievietosim jauno tekstu un iziesim (Teksta rekvizīts).

Mēs varam, ja vēlamies, katrai pogai pievienot ikonu, izmantojot tās attēla īpašumu. Uz columview mēs to sauksim vienkārši par "galdu" (Īpašuma nosaukumā) tas ir ļoti līdzīgs jebkurai tabulai, un mēs cenšamies saglabāt šo pirmo datu bāzes projektu pēc iespējas vienkāršāku.

Mēs izsauksim pogas: btnnew Y ej ārā.

Veidlapa izskatītos šādi:

Mēs konfigurējam veidlapas aizvēršanas pogu.

 Public Sub btnExit_Click () Me.Slēgt beigas 

Tagad mēs pārejam pie kodēšanas.

5. Mēs sākām kodēt Gambas

Mēs sāksim ievietot kādu kodu savā programmā, un mēs to komentēsim. Pirmā lieta datu bāzē ir savienojums ar to. Šim nolūkam Gambas nodrošina mūs ar Savienojuma objekts.

Viss, kas kodā parādās ar vienu apostrofu, ir komentārs, ko programma neinterpretēs.

Piemērs:

 Mainīgais 'Projekta pārbaude Privāts hconn kā savienojums', lai izveidotu savienojumu Privāta funkcija ConnectBase () Kā Būla 'mainīgais savienojumam, atgriež patiesu vai nepatiesu vērtību Savienojums 'Mēs inicializējam savienojumu ar jauno metodi un pēc tam nododam tam parametrus ar hconn' parametru datu bāzes ceļam hconn.Host = " / home / test" hconn.Name = "students" 'datubāzes nosaukums hconn.Type = " sqlite3 "'datubāzes tips Izmēģiniet hconn.Open ()' mēs mēģinām atvērt savienojumu, ja mums neizdodas, mēs nosūtām kļūdas ziņojumu un piešķiram tam vērtību null If Error Tad hconn = Null Message.Error (" Neizdevās izveidot savienojumu ar datu bāze ") Atgriezt patieso endifu Atgriezt viltus beigas 

Kad esat nokopējis iepriekš minēto kodu, atkļūdošanas izvēlnē noklikšķiniet uz opcijas Palaist. Ja viss iet labi, nevajadzētu parādīties nekādai kļūdai un atkal parādīsies mūsu projekta ekrāns. Tas nozīmē, ka savienojums ar mūsu datu bāzi ir izveidots apmierinoši.

Kļūdas gadījumā šeit ir iespējamie cēloņi:

Kļūdas cēloņiApskatīsim cēloņu veidus:

1. Kopējot un ielīmējot kodu, jāņem vērā pēdiņas, kas bieži tiek mainītas, kopējot un ielīmējot un tāpēc lietojumprogramma tās neatpazīst. Šajā gadījumā ir ieteicams dzēst pēdiņas un ievietot tās manuāli. Kodiem, kas atrodas pēdiņās, jābūt fuksijā, lai zinātu, ka tas ir pareizs.

2. Vēl viena iespējama kļūda nav atbilstošo opciju atzīmēšana cilnē Projekta rekvizīti, kuras var atrast, noklikšķinot uz izvēlnes Projekts, pēc tam uz Rekvizīti un cilnē Komponenti pārbaudiet, vai ir atzīmētas šādas opcijas:

• bg
• gb.db
• gb.db.sqlite3
• gb.form
• gb.db.mysql (tas nav vajadzīgs mūsu izveidotajai datu bāzei, bet mēs to tomēr atzīmējam)

3. Vēl viena ļoti izplatīta kļūda ir ceļš, kurā mums ir gan projekts, gan datu bāze, kur kopētajā un ielīmējamā kodā ir izceltās rindas.

Pēc iespējamo kļūdu novēršanas un mūsu lietojumprogrammas darbības pārbaudes mēs pārtraucam savienojumu, beigās ievietojot šādu kodu.

 PUBLIC SUB slēgts savienojums () IF hconn = NULL THEN RETURN hconn. Close () hconn = NULL END 

Vispirms mēs redzam, ka tas vairs nav slēgts, ja nē, mēs to aizveram ar .aizver

6. Skatīt saglabātos datus

Mēs atveram veidlapu un Veidlapas process un mēs ievietojam šādu kodu:

(Neaizmirstiet pārbaudīt pēdiņas, kuras ielīmējot varētu būt mainīts).

 Public Sub Form_Open () 'vispirms mēs deklarējam mainīgos un notīrām kolonnu skatu Dim hresul kā rezultātu Dim taustiņu kā virkņu aptumšošanas filtru kā virknes tabulu Notīrīt, ja ConnectBase () Pēc tam atgriezties' mēs apstiprinām savienojumu ar datu bāzi 'mēs definējam kolonnu skata rekvizītus "skaits kolonnu skaitam" teksts kolonnu nosaukumam "platums kolonnu platumam" līdzinājums lauku izlīdzināšanai. table.Columns.Count = 6 table.Columns [0] .Text = "Cedula" table.Columns [0] .Alignment = Align.Center table.Columns [0] .Width = 100 table.Columns [1] .Text = Tabula "Vārdi". Kolonnas [1] .Alignment = Align.Center tabula. Kolonnas [1]. Platums = 120 tabula. Kolonnas [2] .Text = "Uzvārds" tabula. Kolonnas [2]. Alignment = Align.Center tabula. .Columns [2] .Width = 120 table.Columns [3] .Text = "Address" table.Columns [3] .Alignment = Align.Center table.Columns [3] .Width = 120 table.Columns [4]. Teksts = "Tālrunis" tabula.Columns [4] .Alignment = Align.Center table.Columns [4] .Width = 120 table.Columns [5] .Text = "Mail" table.Columns [5] .Alignment = Align. Centrālā tabula. Kolonnas [5]. Platums = 120 hresul = hconn.Exec ("izvēlieties * no studentiem") 'Šī instrukcija meklē datubāzi, ja tā atrod datus, padara hresul mainīgo par patiesu un tāpēc pieejamu (pieejams) Do while hresul .Pieejams ', tad tas iet caur tabulu ar do while ciklu, pamatojoties uz atslēgu (Cedula), un aizpildīs tabulu ar datiem. key = hresul ["ID"] 'mēs padarām ID lauku par galveno tabulas meklējumiem.Pievienot (parole, parole)' pievienojam datu bāzē atrastos datus. tabula [atslēga] [1] = hresul ["vārdi"] tabula [atslēga] [2] = hresul ["uzvārds"] tabula [atslēga] [3] = hresul ["adrese"] tabula [atslēga] [4] = hresul ["tālrunis"] tabula [atslēga] [5] = hresul ["pasts"] hresul.MoveNext () 'šī instrukcija pārceļ meklēšanu uz nākamo datu cilpu' Atkārtoti izpilda norādījumus cilpā, līdz vairs nav attēlojamie dati. CloseConnection () 'aizver savienojuma beigas 

Veidlapas process

Beigās mēs to palaižam un pārbaudām tā darbību, kas parādīs šādu rezultātu:

PALIELINĀT

7. Izveidojiet veidlapu studentu datu ievadīšanai

Tagad mēs izveidosim jaunu veidlapu, kas ļauj ievadīt datus par jauniem studentiem, un tās ieteiktais nosaukums ir edata.

Tam būs šādi objekti: 6 etiķešu etiķetes, 6 tekstlodziņi un divas pogas.

Ieteicamais izkārtojums ir šāds:

Lai redzētu, vai viss notiek labi, mēs ejam uz veidlapu, kurā tiek parādīts studentu saraksts, un konfigurējam jauno pogu šādi:

PALIELINĀT

Ja nav kļūdu un viss notiek labi, turpināsim konfigurēt jaunizveidoto veidlapu jaunu studentu datu ievadīšanai. Šī veidlapa saņems atsauci uz tipa objektu savienojums, mūsu gadījumā hconn tāpēc mēs to ievietojam savas formas sākumā.

 'Gambas klases fails' vispirms konfigurējam savienojumu Privāts hconn Kā savienojums ', mēs izveidojam runnew metodi, kas tiks izsaukta no veidlapas, kurā uzskaitīti studenti Public Sub runnew (dati kā savienojums) hconn = data' atsauce iepriekšējai formai Me. ShowModal () 'liek mijiedarboties ar veidlapu pirms tās aizvēršanas Beigas Mēs konfigurējam atcelšanas pogu: Public Sub btnCancelar_Click () Me.Close (0) End Lai ievadītu jaunus datus, mēs izmantosim šādu instrukciju: TRY hconn.EXEC (" ievietot mytable vērtībās (& 1, & 2, & 3, & 4, & 5. & 6) ”, txtid, txtname, txlastname, txtphone, txtmobile, txtcumple) exec Laukus izsauks ampersand un atbilstošs indekss, kā parādīts zemāk. (& 1, & 2, & 3, & 4, & 5. & 6) 

Atgriezīsimies iepriekšējā veidlapā un konfigurējiet pogu Pieņemt šādi:

PALIELINĀT

Vispirms mēģinām pieslēgties savai datu bāzei, ja neizdodas, dodamies prom. Kad savienojums tika panākts, mēs piezvanījām runnewde fdata metode. Tā kā šī veidlapa tiek parādīta modālā veidā, šis kods gaida, kad mēs ievadīsim datus fdata formātā, vai arī mēs to vienkārši aizveram.

Pēc tam tas pārtrauc savienojumu un izsauc metodi form_open, kas atkārtoti ielādē datus, lai parādītu veiktās izmaiņas. Tagad mēs redzēsim, kā mēs varam mainīt ierakstu, piemēram, ja draugs maina mobilo, vienkārši rediģējiet šo lauku.

Mēs izmantosim mūsu kontroles aktivizācijas notikuma priekšrocības colunmview (tabula) lai pievienotu šo funkcionalitāti. Šo notikumu izraisa dubultklikšķis uz jebkuras tabulas kolonnas.

 Public Sub table_Activate () Dim hresul kā rezultāts If table.Current = Null Tad Return If ConnectBase () Pēc tam Return hresul = hconn.Edit ("students", "ID = & 1", table.Current.Key) edata.runedit ( hresul) 'Izsauciet veidlapas edata tabulas metodi runeedit. Pašreizējā [0] = hresul ["ID"] tabula. Pašreizējā [1] = hresul ["vārdi"] tabula. Pašreizējā [2] = hresul ["uzvārdi "] tabula. Pašreizējā [3] = hresul [" address "] tabula. Pašreizējā [4] = hresul [" phone "] tabula. Pašreizējā [5] = hresul [" mail "] closeConnection () End 

Aktivizēt notikumu

Treknrakstā iekļautā līnija sauc to edata runedit metode. Tā kā mēs vēl neesam izveidojuši šo metodi, ja mēs mēģināsim to palaist tagad, tā nedarbosies.

Tāpēc atgriezīsimies pie vecums un veidlapas sākumā ievietojam šādus mainīgos, lai tie būtu pieejami no visas veidlapas.

 Privāts hconn kā savienojums Privāts hresul kā rezultāts Privāta rediģēšana kā Būla 

Tad izveidosim jauno metodi ar nosaukumu runedit:

 Public sub runedit (dati kā rezultāts) hresul = datu rediģēšana = True txtCedula.Text = hresul ["ID"] txtName.Text = hresul ["firstname"] txtName.Text = hresul ["uzvārds"] txtAddress.Text = hresul ["address"] txtTelephone.Text = hresul ["phone"] txtEmail.Text = hresul ["mail"] Me.ShowModal End 

Tas parāda mums edata datus ar atlasītā ieraksta datiem, lai mēs varētu tos rediģēt, un ievieto mainīgo rediģēšanu ar vērtību true. Tas ir nepieciešams, lai noklikšķinot izmantotu nosacījumu paziņojumu btna pieņemt Atšķirt jauno un modificēt.

Mēs varam to pārbaudīt, lai gan tas joprojām nedarbosies, tā joprojām trūkst iestatiet pieņemšanas pogu, bet mēs varam pārbaudīt, vai tas aizved mūs uz pieprasīto veidlapu.

Konfigurēsim pogu Pieņemt, lai saglabātu izmaiņas:

 Public Sub btnAccept_Click () Ja rediģē, tad Mēģiniet hresul ["cedula"] = txtCedula.Text Izmēģiniet hresul ["names"] = txtNames.Text Izmēģiniet hresul ["uzvārdi"] = txtSurname.Text Mēģiniet hresul ["address"] = txtAddress .Text Izmēģiniet hresul ["phone"] = txtTelephone.Text Izmēģiniet hresul ["mail"] = txtEmail.Text Izmēģiniet hresul.Update Else Izmēģiniet hconn.Exec ("ievietojiet skolēnu vērtībās (& 1, & 2, & 3 , & 4, & 5, & 6) ", txtCedula.Text, txtName.Text, txtSurname.Text, txtAddress.Text, txtTelephone.Text, txtEmail.Text)" ar šo mēs ievadām nosūtīto informāciju Endif Me.Close () Catch Message.Error ("Neiespējami ievadīt nosūtītos datus") Beigas 

Tagad mēs varam saglabāt izmaiņas.

8. Konfigurējiet datu meklēšanu

Veidlapai pievienosim meklēšanas pogu un tekstlodziņu. Šis ir veidlapas jaunais izskats:

PALIELINĀT

Mēs konfigurējam meklēšanas pogu līdzīgi jaunajai pogai, šis ir kods:

 Public Sub btnBuscar_Click () Dim hresul kā rezultāts Dim taustiņš Kā virkņu aptumšošanas filtrs kā virkņu tabula. Notīriet, ja ConnectBase () Pēc tam atgrieziet tabulu. Colon.Count = 6 table.Columns [0] .Text = "Cedula" tabula.Columns [0 ] .Alignment = Align.Center tabula.Columns [0] .Width = 100 table.Columns [1] .Text = "Names" table.Columns [1] .Alignment = Align.Center table.Columns [1] .Width = 120 table.Columns [2] .Text = "Last name" tabula.Columns [2] .Alignment = Align.Center table.Columns [2] .Width = 120 table.Columns [3] .Text = "Adrese" tabula. Kolonnas [3] .Alignment = Align.Center tabula.Columns [3] .Width = 120 table.Columns [4] .Text = "Phone" table.Columns [4] .Alignment = Align.Center table.Columns [4] . Platums = 120 tabula.Kolonnas [5] .Text = "Pasts" tabula. Kolonnas [5] .Alignment = Align.Center tabula.Kolonnas [5]. Platums = 120 filtrs = txtBuscar.Text hresul = hconn.Exec (" atlasiet * no skolēniem, kur ir tādi vārdi kā "" & filter & "" ") Do while hresul.Available key = hresul [" ID "] table.Add (key, key) table [key] [1] = hresul [" name res "] tabula [parole] [2] = hresul [" uzvārds "] tabula [parole] [3] = hresul [" adrese "] tabula [parole] [4] = hresul [" telefons "] tabula [parole] [ 5] = hresul ["pasts"] hresul.MoveNext () Loop closeConexion () End 

Ar to, ko esam paveikuši, mums jau var būt skaidrs process, tagad mēs darīsim to pašu ar mācību priekšmetu veidlapu. ieteiktais izkārtojums ir šāds:

Kā vienmēr, pirmā lieta, ko mēs ieprogrammēsim, ir izejas poga:

 Public Sub btnExit_Click () Me.Slēgt beigas 

Tagad mēs izveidosim savienojumu ar datu bāzi:

 Privāts hconn kā savienojums Privāta funkcija connectbase () Kā Būla Ja hconn Null, tad atgrieziet nepatiesu hconn = Jauns savienojums hconn.Host = " / home / test" hconn.Name = "students" 'datu bāzes nosaukums hconn.Type = "sqlite3"' ierakstiet Izmēģiniet hconn.Open () If Error Tad hconn = Null Message.Error ("Kļūda, savienojot datu bāzi") Atgriež True Endif Atgriež False End 

Mēs plānojam pasākumu, lai pārtrauktu savienojumu:

 Public sub closeConexion () Ja hconn = Null, tad atgrieziet hconn. Aizvērt () hconn = Null End 

Tagad mēs vizualizējam datus columview, veidlapas atklātajā pasākumā.

Kods ir šāds:

 Public Sub Form_Open () Dim hresul Rezultātā Dim taustiņš Kā String Dim filtrs Kā String table2.Clear If connectbase () Tad Atgrieziet table2.Columns.Count = 2 table2.Columns [0] .Text = "id" table2.Columns [0 ] .Alignment = Align.Right tabula2.Columns [1] .Text = "Tēmas vai kursa nosaukums" hresul = hconn.Exec ("izvēlieties * no tēmām") Do while hresul.Available key = hresul ["id"] tabula2. Pievienot (atslēga, atslēga) 

Tagad mēs izveidojam veidlapu, lai pievienotu un / vai rediģētu tabulas, priekšmetu vai kursu datus. Ieteicamais nosaukums ir adata. (datu subjekti).

9. Mēs ieprogrammējam aizvēršanas pogu

 Public Sub btnCerrar_Click () Me.Slēgt beigas 

Mēs izveidojam atsauci uz savienojuma tipa objektu, mūsu gadījumā hconn, tāpēc adatas formas sākumā mēs ievietojam šādu kodu:

 Privāts hconn kā savienojums 

Turklāt mēs izveidojam runnew metodi, kas tiks izsaukta no galvenās veidlapas. Sintakse ir šāda:

 Public Sub runnew (dati kā savienojums) hconn = dati Me.ShowModal () Beigas 

Tagad mēs ejam uz veidlapu, lai ievadītu subjektu datus, un btnnuevo klikšķa notikumā mēs ievietojam šādu kodu:

 Public Sub btnNuevo_Click () If connectbase () Tad atgrieziet adata.runnew (hconn) closeConexion () Form_Open () End 

Tagad mēs varam izmēģiniet jaunu pogu no minētās formas.

Turpinot to pašu formu, mēs kodējam ierakstu modificēšanas metodi šādi. Mēs izmantosim mūsu aktivizācijas pasākuma priekšrocības colunmview kontrole (tabula) lai pievienotu šo funkcionalitāti. Šo notikumu izraisa dubultklikšķis uz jebkuras tabulas kolonnas.

 Public Sub table2_Activate () Dim hresul kā rezultāts Ja table2.Current = Null Tad Return If connectbase () Pēc tam Return hresul = hconn.Edit ("subjekti", "id = & 1", tabula2.Current.Key) adata.runedit ( hresul) table2.Current [0] = hresul ["id"] table2.Current [1] = hresul ["lietas_nosaukums"] closeConnection () beigas 

Atcerieties, ka tas nedarbosies, kamēr nebūsim izveidojuši šo notikumu adatas formā. Tāpēc atgriezīsimies pie fdata un veidlapas sākumā ievietojam šādus mainīgos, lai tie būtu pieejami no visas veidlapas.

 PRIVATE hconn AS Savienojums PRIVATE hresul AS Rezultāts PRIVĀTA rediģēšana AS Būla 

Mēs izveidojam metodi runedit, kuras kods ir šāds:

 Public Sub runedit (dati kā rezultāts) hresul = datu rediģēšana = True txtAsignaturas.Text = hresul ["subject_name"] Me.ShowModal End 

Atcerieties pārbaudīt, lai pārbaudītu, vai viss notiek labi. Tagad mēs ieprogrammējam pieņemšanas pogu sekojoši:

 Public Sub btnAceptar_Click () Ja rediģē, tad izmēģini hresul ["subject_name"] = txtAsignaturas.Text Izmēģini hresul.Update Else Izmēģini hconn.Exec ("insert into subject_name values ​​(& 1)", txtAsignaturas.Text) Endif Me.Close () Catch Message.Error ("Nevar ievadīt nosūtītos datus") Beigas 

Tagad mēs ieprogrammējam tēmas meklēšanas rutīnu:

 Public Sub btnBuscar_Click () Dim hresul kā rezultāts Dim taustiņš Kā String Dim filtrs Kā virkne tabula2.Clear If connectbase () Tad Atgriezt tabulu2.Columns.Count = 2 table2.Columns [0] .Text = "id" table2.Columns [0 ] .Alignment = Align.Right tabula2.Columns [1] .Text = "Tēmas vai kursa nosaukums" filter = txtBuscar.Text hresul = hconn.Exec ("atlasiet * no tēmām, kur tēmas_nosaukums, piemēram," "& filter &" ' ") Darīt, kamēr hresul.Available key = hresul [" id "] table2.Add (key, key) table2 [key] [1] = hresul [" lietas_nosaukums "] hresul.MoveNext () Loop closeConexion () End 

Mums tas būs gatavs.

Secinājumi par garnelēm
Cilvēkiem, kuri ir izveidojuši lietojumprogrammu Visual Basic un kurus interesē programmēšana, šis ir viens no rīkiem, kas jūs neapšaubāmi interesēs, un tas ir skaidrs risinājums, kas jums jāapsver.

Pateicoties testiem, kurus mēs varam redzēt šajā apmācībā, mēs varam redzēt, ka to ir viegli strādāt un patiešām nav nepieciešams daudz laika, lai izveidotu kādu citu vienkāršu lietojumprogrammu Linux.

Kā redzam, automātiskā pabeigšana, kurā ir garneles, ir ierobežota ar objektu, ar kuru strādājat, nevis kā Geany gadījumā, kas var jums uzlikt jebko. Mums ir jādod tam punkti, jo tas darbojas kā Java un Netbeans un bez papildu sarežģījumiem.

Tāpēc tiem, kas vēlas iemācīties programmēt vienkāršas lietojumprogrammas Linux un kuriem ir interese, mēs iesakām izmēģināt Gambas3.