„Gambas Linux“ projektas

„Gambas“ yra kūrimo aplinka, platinama pagal GNU GPL licencijąTai galime pasakyti, kad tai ne tik programavimo kalba, kilusi iš pagrindinės kalbos, bet ir labai naudinga priemonė kuriant vizualias programas beveik bet kokiam GNU / Linux platinimui.

„Gambas“ programuotojas turi galimybę grafiškai kurti langus, vilkti objektus iš įrankių dėžės ir tada parašyti kiekvieno objekto kodą.

Kaip matėme anksčiau, „Gambas“ yra pagrįstas pagrindiniu vertėju su objektų plėtiniais, panašiais į „Visual Basic“. Tačiau privalumas, kurį turime su „Gambas“, yra tai, kad galite greitai suprojektuoti savo grafinę programą naudodami „QT“ arba „GTK +“, pasiekti „MySQL“, „PostgreSQL“, „Firebird“, ODBC ir „SQLite“ duomenų bazes, valdyti programas naudodami DBUS, kurti „Linux“ komandų priekines dalis, daryti 3D „OpenGL“ programas. , kurti CGI žiniatinklio programas, kurti diegimo paketus įvairiems platinimams, be kita ko.

Dėl šios priežasties galime sakyti, kad „Gambas“ tai nėra „Visual Basic“ kopija ar klonas, nes, nepaisant to, kad jis yra pagrįstas pagrindu, tai yra alternatyva kurti programas ir programas GNU aplinkai. Jei pažvelgsime į krevečių istoriją, pamatysime, kad pirmą krevečių versiją 1999 metais išleido prancūzas Benoît Minisini, sukurdamas aplinką, kuri leistų lengvai programuoti ir kurti programas su grafine vartotojo sąsaja.

Iš pradžių programos forma „Gambas“ buvo panaši į „Gimp“, su keliais langais ir orientuota į Qt ir KDE naudojimą. 2008 m., Kai buvo pereita prie 2.x versijų, buvo visiškai pertvarkyta grafinė programavimo sąsaja, viskas integruota į vieną langą ir leidžiama naudoti GTK +. 2011 m. Ji perėjo prie 3.x versijos.

Pradėkime nuo „Gambas3“ diegimas.

1. Kaip įdiegti „Gambas3“

Dėl „Gambas“ paprastumo juo lengva naudotis, todėl nebūtina mokėti jokios programavimo kalbos. Jums tereikia turėti nemokamą vadovą ir tam skirti šiek tiek laiko. Dėl šios priežasties jis puikiai tinka mokytis, jei tik pradedate. Na, sužinokime, kaip ją įdiegti mūsų „Linux“ operacinėje sistemoje:

Pirmiausia turime atidaryti komandų terminalą ir įvesti šias komandas po vieną:

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

„Gambas“ diegimo komandos

Naudodami šią komandinę eilutę galime gauti naujausią išleistą „Gambas“ versiją. Šiuo metu jie veikia su 3.8.1, nors aš rekomenduoju turėti stabiliausią versiją, kurią galime gauti naudodami šias kitas komandas, tačiau turime nepamiršti, kad niekada negalime pridėti dviejų EEPS vienu metu, galime turėti tik vieną iš dviejų, taip yra todėl, kad galime sukelti klaidą ir turėtume pradėti valyti ankstesnius įrenginius.

2. Sukurkite „Gambas“ projektą su DB ir pateikite ataskaitą

Pirmas dalykas, kurį turime padaryti, yra sukurti duomenų bazę, kurios reikia mūsų informacijai saugoti. Tas, kurį aš siūlau, bus vadinamas „studentais“ ir jame bus dvi lentelės (studentai ir dalykai).

 Mokinių lentelė: ID, ID, vardai, pavardės, adresas, telefonas ir el. Dalykų lentelė: id, subjekto_pavadinimas 

Norėdami tai padaryti, mes naudojame labai paprastą duomenų bazės kūrimo tvarkyklę, vadinamą „SQLite“ duomenų naršyklė, atidarome ir sukuriame duomenų bazę spustelėdami naują mygtuką. Mes nustatome, kur jį išsaugosime, ir sukuriame lenteles pagal ankstesnį dizainą.

Sukūrus jis atrodys taip:

Abiejose lentelėse paliksime ID lauką kaip pagrindinį raktą. Prieš uždarydami mini tvarkyklę, kurdami programoje esančias formas, prie jos pridedame tam tikrus duomenis, kad patikrintume jos veikimą. Dabar, jei galime spustelėti išsaugojimo mygtuką ir uždaryti mini duomenų naršyklės tvarkyklė.

3. „Gambas“ programos vykdymas

Mes atidarome „Gambas“ ir sukuriame naują projektą, suteikiant jam pavadinimą ir atitinkamą kelią:

DIDELIS

Siekiant didesnio patogumo, mes sukuriame duomenų bazę, sukurtą projektui sukurtame aplanke, šiuo atveju aplanke pavadinimu „GestionEstudiantes“, todėl bus lengva rasti jo kelią programoje.

 „Mes konfigūruojame išėjimo mygtuką. Public Sub btnCerrar_Click () Baigti pabaigą 

Mes sukūrėme dvi naujas formas, skirtas studentams įvesti ir dalykams.

Dabar sukonfigūruojame mygtuką, kad įvestume mokinius:

 Public Sub btnNuevoEstudiante_Click () FMain. Slėpti formąEstudiantes.Show End 

Taip pat sukonfigūruojame mygtuką „Pridėti temą“:

 Public Sub btnNuevaAsignatura_Click () FMain. Slėpti FormCourses.Show End 

Taigi mes jį paskirsime.

4. Formos, skirtos studentams įvesti, dizainas

Norėdami pradėti, įdėjome a columview ir du mygtukus, į kuriuos atitinkamai įdėsime naują tekstą ir išeisime (Teksto nuosavybė).

Mes galime, jei norime, pridėti piktogramą prie kiekvieno mygtuko per jo paveikslėlio ypatybę. Į columview mes tai vadinsime tiesiog „stalu“ (Turto pavadinime) ji labai panaši į bet kurią lentelę ir mes stengiamės, kad šis pirmasis duomenų bazės projektas būtų kuo paprastesnis.

Mes vadinsime mygtukus: btnnew Y išeiti.

Forma atrodytų taip:

Mes konfigūruojame formos uždarymo mygtuką.

 Public Sub btnExit_Click () Me.Uždaryti pabaigą 

Dabar pereiname prie kodavimo.

5. Pradėjome koduoti „Gambas“

Mes pradėsime dėti tam tikrą kodą į savo programą ir pakomentuosime jį. Pirmas dalykas duomenų bazėje yra ryšys su ja. Tam „Gambas“ suteikia mums Ryšio objektas.

Viskas, kas kode rodoma su vienu apostrofu, yra komentaras, kurio programa nesupras.

Pavyzdys:

 „Project Test Private hconn As Connection“ kintamasis ryšiui užmegzti Privati ​​funkcija ConnectBase () Kaip „Boolean“ kintamasis ryšiui grąžina teisingą arba klaidingą reikšmę Jei hconn Null Tada Return False “, patikriname, ar ryšys nėra atidarytas hconn = New Ryšys „Inicijuojame ryšį nauju metodu ir tada perduodame parametrus su hconn“ parametru duomenų bazės keliui hconn.Host = " / home / test" hconn.Name = "studentų" duomenų bazės pavadinimas hconn.Type = " sqlite3 "'duomenų bazės tipas Pabandykite hconn.Open ()' bandome atidaryti ryšį, jei nepavyksta, siunčiame klaidos pranešimą ir suteikiame jam vertę null If Error Tada hconn = Null Message.Error (" Nepavyko prisijungti prie duomenų bazė ") Grąžinti tikrąjį Endif Grąžinti klaidingą pabaigą 

Nukopijavę aukščiau esantį kodą, derinimo meniu spustelėkite parinktį Vykdyti. Jei viskas klostysis gerai, jokia klaida neturėtų pasirodyti ir mūsų projekto ekranas vėl pasirodys. Tai reiškia, kad prisijungimas prie mūsų duomenų bazės buvo atliktas patenkinamai.

Klaidos atveju pateikiamos galimos priežastys:

Klaidos priežastysPažvelkime į priežasčių tipus:

1. Kopijuodami ir įklijuodami kodą, turite atsižvelgti į kabutes, kurios dažnai keičiamos kopijuojant ir įklijuojant, todėl programa jų neatpažįsta. Tokiu atveju patartina kabutes ištrinti ir įdėti rankiniu būdu. Kodas kabutėse turi būti fuksijoje, kad žinotumėte, jog jis teisingas.

2. Kita galima klaida yra tai, kad nepažymėjote atitinkamų parinkčių skirtuke Projekto ypatybės, kurias rasite spustelėję meniu Projektas, tada Ypatybės ir ten skirtuke Komponentai patikrinkite, ar pažymėtos šios parinktys:

• bg
• gb.db
• gb.db.sqlite3
• gb.form
• gb.db.mysql (Tai neturėtų būti reikalinga mūsų sukurtajai duomenų bazei, bet vis tiek pažymime)

3. Kita labai dažna klaida yra kelias, kuriame turime ir projektą, ir duomenų bazę, kur pažymėtos eilutės yra kodu, kurį reikia nukopijuoti ir įklijuoti.

Ištaisę galimas klaidas ir patikrinę, ar mūsų programa veikia, mes nutraukiame ryšį, pabaigoje pateikdami šį kodą.

 PUBLIC SUB artimas ryšys () IF hconn = NULL THEN RETURN hconn. Close () hconn = NULL END 

Pirmiausia matome, kad jis nebeuždarytas, jei ne, uždarome .Uždaryti

6. Peržiūrėkite išsaugotus duomenis

Mes atidarome formą ir Formos procesas ir mes įdėjome šį kodą:

(Nepamirškite patikrinti citatų, kurias įklijuojant kodas galėjo būti pakeistas).

 Public Sub Form_Open () 'pirmiausia deklaruojame kintamuosius ir išvalome stulpelio rodinį Dim hresul Kaip rezultatą Dim klavišą kaip String Dim filtrą Kaip String lentelę Išvalyti Jei ConnectBase () Tada grįžti' patvirtiname ryšį su duomenų baze ', apibrėžiame columnview ypatybes „skaičiuoti stulpelių skaičių“ tekstas stulpelių pavadinimui „plotis pagal stulpelių plotį“ išlygiavimas, siekiant išlyginti laukus. table.Columns.Count = 6 table.Columns [0] .Text = "Cedula" table.Columns [0] .Alignment = Align.Center table.Columns [0] .Width = 100 table.Columns [1] .Text = Lentelė „Vardai“. Stulpeliai [1] .Alignment = Align.Center lentelė. Stulpeliai [1]. Plotis = 120 lentelė. Stulpeliai [2] .Text = "Pavardė". Lentelės [2] .Alignment = Lygiuoti. .Columns [2] .Width = 120 table.Columns [3] .Text = "Address" table.Columns [3] .Alignment = Align.Center table.Columns [3] .Width = 120 table.Columns [4]. Text = "Phone" table.Columns [4] .Alignment = Align.Center table.Columns [4] .Width = 120 table.Columns [5] .Text = "Mail" table.Columns [5] .Alignment = Align. Centrinė lentelė. Stulpeliai [5]. Plotis = 120 hresul = hconn.Exec ("pasirinkite * iš mokinių") 'Ši instrukcija ieško duomenų bazės, jei ji randa duomenų, todėl kintamasis „hresul“ tampa teisingas ir todėl pasiekiamas (pasiekiama) „Do while hresul“ .Available ', tada ji eis per lentelę su do while ciklu pagal raktą (Cedula) ir užpildys lentelę duomenimis. key = hresul ["ID"] 'padarome ID lauką kaip pagrindinį ieškant lentelės. Pridėti (slaptažodį, slaptažodį)' pridedame duomenų bazėje rastų duomenų. lentelė [raktas] [1] = hresul ["vardai"] lentelė [raktas] [2] = hresul ["pavardė"] lentelė [raktas] [3] = hresul ["adresas"] lentelė [raktas] [4] = hresul ["telefonas"] lentelė [raktas] [5] = hresul ["paštas"] hresul.MoveNext () 'ši instrukcija perkelia paiešką į kitą duomenų ciklą' Iš naujo vykdo instrukcijas cikle, kol jų nebeliks rodomi duomenys. „CloseConnection ()“ uždaro ryšį 

Formos procesas

Pabaigoje paleidžiame ir patikriname jo veikimą, o rezultatas bus toks:

DIDELIS

7. Sukurkite formą mokinių duomenims įvesti

Dabar mes sukursime naują formą, kuri leis mums įvesti naujų studentų duomenis, siūlomas jos pavadinimas yra edata.

Jame bus šie objektai: 6 etikečių etiketės, 6 teksto laukeliai ir du mygtukai.

Siūlomas išdėstymas yra toks:

Norėdami pamatyti, ar viskas gerai, einame į formą, kurioje rodomas mokinių sąrašas, ir sukonfigūruokite naują mygtuką taip:

DIDELIS

Jei nėra klaidų ir viskas gerai, toliau sukonfigūruokime naujai sukurtą formą, kad būtų įvesti nauji mokinių duomenys. Ši forma gaus nuorodą į tipo objektą jungtis, mūsų atveju hconn todėl dedame ją savo formos pradžioje.

 „Gambas klasės failas“ pirmiausia sukonfigūruojame ryšį „Private hconn As Connection“, sukuriame „runnew“ metodą, kuris bus iškviestas iš formos, kurioje išvardijami mokiniai Public Sub runnew (data As Connection) hconn = data “nuoroda ankstesnėje formoje„ Me “. ShowModal () 'verčia sąveikauti su forma prieš ją uždarant Pabaiga Mes sukonfigūruojame atšaukimo mygtuką: Public Sub btnCancelar_Click () Me.Close (0) End Norėdami įvesti naujus duomenis, naudosime šią instrukciją: TRY hconn.EXEC (" įterpti į mano lentelės reikšmes (& 1, & 2, & 3, & 4, & 5. & 6) “, txtid, txtname, txlastname, txtphone, txtmobile, txtcumple) exec Laukai bus iškviesti„ ampersand “ir atitinkamą indeksą, kaip parodyta žemiau. (Ir 1, 2, 3, 4, 5 ir 6) 

Grįžkime prie ankstesnės formos ir sukonfigūruokime mygtuką Priimti taip:

DIDELIS

Pirmiausia bandome prisijungti prie savo duomenų bazės, jei nepavyksta, išeiname. Kai ryšys buvo pasiektas, paskambinome runnewde fdata metodas. Kadangi ši forma rodoma modaline forma, šis kodas laukia, kol įvesime duomenis į fdata arba tiesiog uždarysime.

Tada jis nutraukia ryšį ir iškviečia metodą form_open, kuris iš naujo įkelia duomenis, kad būtų parodyti atlikti pakeitimai. Dabar pažiūrėsime, kaip mes galime pakeisti įrašą, pavyzdžiui, jei draugas pakeičia mobilųjį, tiesiog redaguokite tą lauką.

Mes ketiname pasinaudoti savo kontrolės aktyvinimo įvykiu colunmview (lentelė) Norėdami pridėti šią funkciją. Šis įvykis suaktyvinamas dukart spustelėjus bet kurį lentelės stulpelį.

 Public Sub table_Activate () Dim hresul kaip rezultatas Jei table.Current = Null Tada Return If ConnectBase () Tada Return hresul = hconn.Edit ("studentas", "ID = & 1", table.Current.Key) edata.runedit ( hresul) 'Skambinkite formos edata lentelės metodu runeedit.Current [0] = hresul ["ID"] table.Current [1] = hresul ["first names"] table.Current [2] = hresul ["pavardės "] lentelė. Dabartinė [3] = hresul [" address "] table.Current [4] = hresul [" phone "] table.Current [5] = hresul [" mail "] closeConnection () End 

Įjungti įvykį

Pusjuodžiu šriftu pažymėta eilutė edata runedit metodas. Kadangi šio metodo dar nesukūrėme, jei bandysime jį paleisti dabar, jis neveiks.

Todėl grįžkime prie amžiaus ir įdėkime šiuos kintamuosius formos pradžioje, kad jie būtų prieinami iš visos formos.

 Privatus hconn kaip ryšys Privatus hresul kaip rezultatas Privatus redagavimas kaip loginis 

Tada sukurkime naują metodą, vadinamą runedit:

 Viešas antrinis paleidimas (duomenys kaip rezultatas) hresul = duomenų redagavimas = True txtCedula.Text = hresul ["ID"] txtName.Text = hresul ["firstname"] txtName.Text = hresul ["pavardė"] txtAddress.Text = hresul ["address"] txtTelephone.Text = hresul ["phone"] txtEmail.Text = hresul ["mail"] Me.ShowModal End 

Tai rodo mums edata su pasirinkto įrašo duomenimis, kad galėtume juos redaguoti, o kintamojo redagavimo vertė yra true. Tai būtina norint naudoti sąlyginį teiginį spustelėjus btna priimti Atskirti naujus ir modifikuoti.

Mes galime jį išbandyti, nors jis vis tiek neveiks, jo vis dar trūksta nustatyti priėmimo mygtuką, bet galime patikrinti, ar jis nukreipia mus į prašomą formą.

Sukonfigūruokime priėmimo mygtuką, kad išsaugotume pakeitimus:

 Public sub btnAccept_Click () Jei redaguojate, tada Pabandykite hresul ["cedula"] = txtCedula.Text Bandykite hresul ["names"] = txtNames.Text Bandykite hresul ["pavardes"] = txtPavardė.Tekstas Pabandykite hresul ["address"] = txtAddress .Text Pabandykite hresul ["phone"] = txtTelephone.Text Pabandykite hresul ["mail"] = txtEmail.Text Pabandykite hresul.Atnaujinti kitą Pabandykite hconn.Exec ("įterpti į mokinių vertybes (& 1, & 2, & 3 , & 4, & 5, & 6) ", txtCedula.Text, txtName.Text, txtPavardė.Tekstas, txtAddress.Text, txtTelephone.Text, txtEmail.Text) 'su šiuo įvedame išsiųstą informaciją Endif Me.Close () „Catch Message.Error“ („Neįmanoma įvesti išsiųstų duomenų“) Pabaiga 

Dabar galime išsaugoti pakeitimus.

8. Konfigūruokite duomenų paiešką

Prie formos pridėsime paieškos mygtuką ir teksto laukelį. Tai nauja formos išvaizda:

DIDELIS

Paieškos mygtuką sukonfigūruojame panašiai kaip naują mygtuką, tai yra kodas:

 Public Sub btnBuscar_Click () Dim hresul Kaip rezultatas Dim raktas Kaip String Dim filtras kaip 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 = "Vardai" table.Columns [1] .Alignment = Align.Center table.Columns [1] .Width = 120 table.Columns [2] .Text = "Last name" table.Columns [2] .Alignment = Align.Center table.Columns [2] .Width = 120 table.Columns [3] .Text = "Adresas". Stulpeliai [3] .Alignment = Align.Center table.Columns [3] .Width = 120 table.Columns [4] .Text = "Phone" table.Columns [4] .Alignment = Align.Center table.Columns [4] . Plotis = 120 table.Columns [5] .Text = "Mail" table.Columns [5] .Alignment = Align.Center table.Columns [5] .Width = 120 filter = txtBuscar.Text hresul = hconn.Exec (" pasirinkite * iš studentų, kur tokie pavadinimai kaip "" & filter & "'") "Do while hresul.Available key = hresul [" ID "] table.Add (key, key) table [key] [1] = hresul [" name res "] lentelė [slaptažodis] [2] = hresul [" pavardė "] lentelė [slaptažodis] [3] = hresul [" adresas "] lentelė [slaptažodis] [4] = hresul [" telefonas "] lentelė [slaptažodis] [ 5] = hresul ["mail"] hresul.MoveNext () Loop closeConexion () End 

Turėdami tai, ką padarėme, jau galime būti aiškūs apie procesą, dabar tą patį padarysime ir su tiriamųjų forma. The siūlomas išdėstymas yra toks:

Kaip visada, pirmas dalykas, kurį ketiname užprogramuoti, yra išėjimo mygtukas:

 Public Sub btnExit_Click () Me.Uždaryti pabaigą 

Dabar mes prisijungsime prie duomenų bazės:

 Privatus „hconn“ kaip ryšys Privati ​​funkcija connectbase () Kaip „Boolean“ Jei hconn Null, tada grąžinkite klaidingą tipas Pabandykite hconn.Open () If Error Tada hconn = Null Message.Error ("Klaida jungiant duomenų bazę") Grąžinti tikrąjį Endif Grąžinti klaidingą pabaigą 

Suplanuojame renginį, kad nutrauktume ryšį:

 Public sub closeConexion () Jei hconn = Null, tada grąžinkite hconn. Uždaryti () hconn = Null End 

Dabar mes vizualizuojame duomenis columview, atvirame formos renginyje.

Kodas yra toks:

 Viešoji antrinė forma_Atidaryti () Dim hresul kaip rezultatas Dim raktas kaip eilutės dim filtras kaip eilutės lentelė2.Aišvalyti, jei connectbase () Tada grąžinkite table2.Columns.Count = 2 table2.Columns [0] .Text = "id" table2.Columns [0 ] .Alignment = Align.Right table2.Columns [1] .Text = "Dalyko arba kurso pavadinimas" hresul = hconn.Exec ("pasirinkite * iš temų") Darykite, kol hresul.Available key = hresul ["id"] table2.Add (raktas, raktas) table2 [key] [1] = hresul ["materijos_pavadinimas"] hresul.MoveNext () Loop closeConnection () End 

Dabar mes sukuriame formą, kad galėtume pridėti ir (arba) redaguoti lentelės, dalykų ar kursų duomenis. Siūlomas pavadinimas yra adata. (duomenų subjektai).

9. Mes užprogramuojame uždarymo mygtuką

 Public Sub btnCerrar_Click () Me.Uždaryti pabaigą 

Sukuriame nuorodą į tipo ryšio objektą, mūsų atveju - hconn, todėl adatos formos pradžioje įdėsime šį kodą:

 Privatus „hconn“ kaip ryšys 

Be to, sukuriame „runnew“ metodą, kuris bus iškviestas iš pagrindinės formos. Sintaksė yra tokia:

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

Dabar einame į formą, kad įvestume tiriamųjų duomenis, ir į „btnnuevo“ paspaudimo įvykį įdedame šį kodą:

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

Dabar mes galime išbandyk naują mygtuką minėtos formos.

Tęsdami tą pačią formą, mes koduojame įrašų keitimo metodą taip. Mes ketiname pasinaudoti mūsų aktyvinimo įvykiu „colunmview“ valdiklis (lentelė) Norėdami pridėti šią funkciją. Šis įvykis suaktyvinamas dukart spustelėjus bet kurį lentelės stulpelį.

 Public Sub table2_Activate () Dim hresul kaip rezultatas Jei table2.Current = Null Tada Return If connectbase () Tada Return hresul = hconn.Edit ("subjektai", "id = & 1", table2.Current.Key) adata.runedit ( hresul) table2.Current [0] = hresul ["id"] table2.Current [1] = hresul ["materijos_pavadinimas"] closeConnection () pabaiga 

Atminkite, kad tai neveiks, kol nesukursime šio įvykio adatos pavidalu. Todėl grįžkime prie fdata ir įdėkime šiuos kintamuosius formos pradžioje, kad jie būtų prieinami iš visos formos.

 PRIVATE hconn AS Ryšys PRIVATE hresul AS Rezultatas PRIVATE redagavimas AS Boolean 

Mes sukuriame „runedit“ metodą, kurio kodas yra toks:

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

Nepamirškite patikrinti, ar viskas gerai. Dabar mes programuojame priėmimo mygtuką taip:

 Public Sub btnAceptar_Click () Jei redaguojama, tada Pabandykite hresul ["subject_name"] = txtAsignaturas.Text Pabandykite hresul.Update Else Pabandykite hconn.Exec ("insert into subject_name values ​​(& 1)", txtAsignaturas.Text) Endif Me.Close () „Catch Message.Error“ („Nepavyko įvesti išsiųstų duomenų“) Pabaiga 

Dabar mes užprogramuojame temos paieškos rutiną:

 Public Sub btnBuscar_Click () Dim hresul Kaip rezultatas Dim raktas Kaip String Dim filtras Kaip String table2.Clear If connectbase () Tada Return table2.Columns.Count = 2 table2.Columns [0] .Text = "id" table2.Columns [0 ] .Alignment = Align.Right table2.Columns [1] .Text = "Dalyko arba kurso pavadinimas" filter = txtBuscar.Text hresul = hconn.Exec ("pasirinkite * iš temų, kur temos_pavadinimas yra" "& filter &" ' ") Ar nors hresul.Available key = hresul [" id "] table2.Add (key, key) table2 [key] [1] = hresul [" materijos_pavadinimas "] hresul.MoveNext () Loop closeConexion () End 

Mes jį paruošime.

Išvados apie krevetes
Žmonėms, sukūrusiems programą „Visual Basic“ ir besidomintiems programavimu, tai yra viena iš priemonių, kuri neabejotinai jus sudomins, ir tai yra aiškus pasirinkimas, kurį turėtumėte apsvarstyti.

Dėl bandymų, kuriuos galime pamatyti šioje pamokoje, galime pamatyti, kad tai lengva dirbti ir tikrai nereikia daug laiko sukurti kitą paprastą „Linux“ programą.

Kaip matome, automatinis užbaigimas, kuriame yra krevetės, apsiriboja objektu, su kuriuo dirbate, o ne taip, kaip „Geany“ atveju, kuris gali jums ką nors uždėti. Turime duoti taškų, nes jis veikia kaip „Java“ ir „Netbeans“ ir be papildomų komplikacijų.

Taigi tiems, kurie nori išmokti programuoti paprastas programas „Linux“ ir yra smalsūs, rekomenduojame išbandyti „Gambas3“.