Dahuluk

Bem Vindo, ba maluk sira nebe soe ona tempu mai hamaluk ho blog ida ne'e. Hein katak materi sira iha blog ne'e bele fo motivasaun no hanoin foun hodi dezemvolve imi nia moris.

BASE DE DADOS
Kria base de dadus husi Visual Basic 6.0, ba maluk sira nebe sidauk iha Visual Basic 6.0 bele Download iha link ida ne'e "Download Visual Basic 6.0"

Kria Base de Dados husi Visual Basic 6.0.


Loke uluk Visual Basic 6.0
      -> Klik iha Menu Add-Ins
      -> Hili Visual Data Manager

 Maka sei mosu Janela VisData hanesan imagen tuir mai ne'e :
 Tuir mai kria Base Dadus.

• Klik iha Menu File
• Sub Menu New -> Microsoft Access ->Version 7.0 MDB

Depois de kria Base de Dadus, guarda ka Save tiha base de dadus ba folder nebe ita kria ona, tuir mai halo kedas Table.

Prience Field nebe tuir ita nia nececidade, tamba ita kria base de dadus konaba eskola nian entaun ita tenki halo tabela konaba Professpres, Estudantes, Bibloiteca, Valor, Pagamentos no tabela seluk-seluk tan nebe relasiona ho atividade escola. ba dahuluk iha ita nia Base de Dadus ida ne'e ita kria uluk tabela ba estudantes. 

Atu kria tabela, klik direta iha Properties hili New Table, hare imagen iha leten. Bainhira ita klik ona New Table maka sei mosu janela ida hanesan tuir mai ne'e

Fo naran ba tabela exemplo t_estudantes, tuir mai klik iha Add Field hodi aumenta field ba tabela, hanesan Nre, Naran, Sexo, Departamento, Klasse, Turma, Hela_Fatin no Nu_Telemovel.

klik iha Add Field maka mosu janesan hanesan  iha imagen leten, hakerek field name iha text box Name, hakerek field name depois hili nia tipu nomos nia medida, (Medida hanesan opsaun ida nebe atu diside medida ba karakter nebe ita atu hatama, exemplo Nre / Numero Registo Estudante iha digitos hitu, entaun iha size ita hekerek 7) hotu tiha klik OK... halo maneira hanesan ba field sira seluk hanesan Naran, Sexo, Departamento, Klasse, Turma, Hela_Fatin no Nu_Telemovel, depois Close para janela Add Field.

Bainhira ita hakerek hotu ona field ba tabela estudantes, tuir mai diside Index ka Primary Key ba field ne'e ida, hanesan iha tabela nebe ita kria ona, Field NRE maka merese ita halo ba Index ka Primary Key, tamba NRE kada estudantes lahanesan. Maneira atu kria Index ka Primary Key, klik iha Butaun Add Index hare imagen tuir mai ne'e :

Bainhira klik ona iha Add Index, hakerek Nre iha Name, depois Klik Nre iha Available Field, depois Klik Ok, to'o iha ne'e tabela Prontu ona. tuir mai ita lori tabela ne'e ba desenho Formulario / Form.

Form.
Atu kria form loke janela Visdata klik iha Menu Utility -> Hili Data Form Designer...

Tuir mai hakerek Form nia naran, exemplo Estudantes, depois hili tabela nebe ohin ita kria ona iha vis data,

Muda hotu Field sira iha kuluna sorin karuk ba hotu kuluna sorin los, depois klik iha Butaun Build The Form.

Maka sei mosu Form foun ida iha Visual Basic Nia laran hanesan imagen tuir mai ne'e.

Hanehan Ctrl + A para seleciona hotu objeto sira iha form laran, depois hanehan Ctrl + C para copia, depois de Copia lori ba Paste/Colar iha form1 nebe sei mamuk, form1 nebe mosu ona bainhira ita loke visual basic. Troka ho naran Command sira (Add, Delete, Refresh, Update ho Close) ba fali lian tetum hanesan (Aumenta, Apaga, Atualiza, Editasaun no Taka) Maneira atu troka klik ba iha command ida depois ba iha properties Caption troka nia naran. Aumenta Label tan iha Form nia leten hodi hakerek titulu ba form refere, hare imagen tuir mai.

Tuir mai ita aumenta tan ADODC hodi halo koneksaun ba base de dadus, no Data Grid ida hotu hamosu dadus nebe ita hatama/input. Karik komponentes Adodc ho DataGrid maka laiha ToolBox, entaun ita tenki halo mosu, ho maneira Klik Direta iha Area Tool Box depois hili Components hare iha imagen tuir mai ne'e

Fo Vistu iha -> Microsoft ADO Data Control 6.0
                   -> Microsoft DataGrid Control 6.0  

Bainhira komponentes rua ne'e ita hatama ona mai ToolBox tuir mai ita lori ba desenha iha Form nia laran, hare imagen tuir mai

ADO Data Control
Tuir mai ita halo koneksaun ba data base liu husi ADO Data Control.

Klik iha Adodc1 ba iha Properties ConnectionString ->Klik. hare imagen tuir mai ne

Maka mosu janela ida hanesan imagen tuir mai ne'e

Klik iha Build maka mosu janela hanesan tuir mai ne'e

Hili Microsoft Jet 4.0 OLE DB Provider, depois klik Next. maka mosu tan fali janela ida hanesan tuir mai ne'e

Klik iha Browse hodi ba buka Base de Dadus nebe ohin ita guarda ka save, depois klik iha Test Connection hodi hare nia koneksaun sucessu ka lae? se sucessu ona klik Ok - > Ok

Klik Apply depois Ok. koneksaun ba base de dadus to'o ona iha ne'e.

RecordSource .
Nafatin klik Adodc1 iha form nia laran depois ba iha Properties hili RecordSource, maneira ida ne'e ita halo atu nune'e dadus nebe ita input bele ba halot iha tabela nebe ita kria ona iha base de dadus. hare imagen tuir mai ne'e

Maka mosu janela ida hanesan imagen tuir mai ne'e

Iha Command Type Hili 2-AdCmdTable, depois iha Table Or Stored Procedure Name hili ita nia tabela nebe ita kria nanis ona iha base de dadus, depois klik Apply -> Ok

DATAGRID
Para atu data hotu - hotu nebe ita input ka hatama ba tabele bele mosu iha DataGrid, maka klik iha DataGrid ba iha Properties DataSource hili Adode1. hare imagen tuir mai ne'e.

Tuir mai Troka  DataSource husi Text sira iha form nia laran ba hotu Adodc1, maneira atu troka maka klik uluk textbox sira iha form laran depois ba properties datasource troka husi data1 ba fali adodc1. hare imagen tuir mai ne'e.

COMMAND

Para atu programa ne executa didiak ita nia dadus maka ita tenki hatama kodigu (Program Code) ba iha command sira nebe ita desenha ona iha form nia laran. Command sira hanesan (Aumenta, Apaga, Atualiza, Editasaun no Taka).

Aumenta
      Private Sub cmdAdd_Click()
      Adodc1.Recordset.AddNew
      End Sub

Apaga
     Private Sub cmdDelete_Click()
     If MsgBox("Iha Certeza Atu Apaga !!!", vbQuestion + vbYesNo, "Informasaun") = vbYes Then
     Adodc1.Recordset.Delete
     Adodc1.Recordset.MoveNext
     End If
     End Sub

Atualiza
      Private Sub cmdRefresh_Click()
      Adodc1.Refresh
      End Sub
 
Editasaun
     Private Sub cmdUpdate_Click()
     Adodc1.Recordset.Update
     End Sub

Taka
      Private Sub cmdClose_Click()
      If MsgBox("Hakarak Taka Programa Ne'e !!!", vbQuestion + vbYesNo, "Informasaun") = vbYes Then
      End
      End If
      End Sub
=======================================================================
Rezultado Final

========================================================================

To'o lai iha ne'e materia nebe hau fahe ba maluk sira, karik iha buat ruma lalos hau husu desculpa, no karik buat ruma ladun kompriende, maluk sira bele husu liu husi Linha WP 77385765 ka Facebook KLIK IHA NE'E