hairulfadly 27 Report post Posted November 22, 2007 Okey..Mula-mula buat seperti di interface kat atas tu.Aku guna Visual Basic 6.0 je.Kalau ada yang nak guna C# ke, JAVA ke, VB.Net ke .. takpe ..buat je..Pilih label dan kemudiannya pilih kekotak text.Pilih juga command button.Ok.. buat dulu semua... Quote Share this post Link to post Share on other sites
dukun 0 Report post Posted November 22, 2007 Ko install Visual Studio tu,... maknanya install semua sekali termasuk ler VB, VC#, VC++ dan sebagainya (option untuk install compnent tertentu pun ada kalo taknak install semua). Link yang kat atas tu ada. Atau masuk jer dalam Microsoft punya website.... kalau ikut link yang diberi tu, sekadar donload visual studio jer ker?? yang lain2 xyah download?? Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted November 22, 2007 Download jer.. ada ler komponen lain dia bawak sekali tu especially .NET Framework yang terbaru punya.. 3.5 Quote Share this post Link to post Share on other sites
dukun 0 Report post Posted November 22, 2007 tapi saiz kecik jer...2.5mb jer.. Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted November 22, 2007 tapi saiz kecik jer...2.5mb jer..Ngehehe.. tu cuma installer dia. Installer nie akan integrate kan laptop/pc ko dengan server microsoft. Dia akan install dulu semua komponen diperlukan (berpuluh2 megabyte), pastu baru dia install satu persatu.. memang amik masa tu. Pastikan internet connection ko sentiasa ON... jenuh nak menunggu jer proses installation nie siap... lebih2 lagi kalo spec komputer kurang power... heheheh... Quote Share this post Link to post Share on other sites
dukun 0 Report post Posted November 22, 2007 ooo, kalau terus nak install nie, mana nak dapatkan?? guna yang rm5 boleh ker... Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted November 22, 2007 (edited) ooo, kalau terus nak install nie, mana nak dapatkan?? guna yang rm5 boleh ker...Tu aku taktau ler... carik ler CD mana2... lagipun, ada gak jenis download dari internet nie pun Microsoft benarkan simpan dalam CD-ROM untuk jadi installer. Nie sebab janis Visual Studio 2008 Express Edition adalah percuma dan boleh diguna oleh sesiapa sahaja... So, tak timbul isu cetak rompak disini. ps:/ Aku pun tertunggu-tunggu ketua projek nak start ni... bila ler agaknya yek.. Edited November 22, 2007 by LanoG Quote Share this post Link to post Share on other sites
mgntgrsk 0 Report post Posted November 22, 2007 tapi saiz kecik jer...2.5mb jer..kalo scroll bawah sket ade offline install, yang tu die bagi file iso n ko kene burn lam dvdsaiz die ade lah 8++-9++ MB gitu, Quote Share this post Link to post Share on other sites
PyRo 0 Report post Posted November 22, 2007 lorr tk start lagi rupanya....mati2 aku igt dah jalan apa daaa...wei mana satu software nk install nie??p[ening kepalo den nie???adoi laa habaq la btui2 pakej yg perlu ada nie?? Quote Share this post Link to post Share on other sites
ApOgEE 1 Report post Posted November 22, 2007 sorry la.. tengah bizi sesangat skang ni... sana-sini kejar dateline... aduss... kalo ada sesapa yg nak start dulu, jalan aje la... takyah tunggu aku pun. Nanti aku follow up ler... kalo ada poblem, aku try ler tolong apa2 yg patut... Aku tau, kat sini pun ramai yg mmg dah biasa ngan C Sharp ni. Good Luck everybody!!!kalo ada yang jenis suka tengok source code orang dan modified ikut sedap tekak sendiri, bleh check kat http://planet-source-code.com ada banyak code free kat sana... Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted November 22, 2007 Quote Share this post Link to post Share on other sites
E_peace6679 2 Report post Posted November 22, 2007 aku juga nak join....email:[email protected]baru nak start belajar...Minat :199% Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted November 23, 2007 Kejap jer.. dah sunyi thread nie.. hahahaha. Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted November 23, 2007 (edited) Ni code untuk antaramuka di atas. Spoiler : ' Connection Database Access ' F8 for run through the coding step by step ' untuk buat sambungan dengan pangkalan data Dim db As ADODB.Connection ' for database connection ' sila lihat reference Dim rspauto As ADODB.Recordset ' Peringatan !!!: lihat pada REFERENCE untuk wujud ADODB connection---------------------------------------------------------------------------------------------------------Private Sub cmdReport_Click() ' for generate report DataEnvironment1.rsCommand1.Open'DataReport1.ShowDataReport2.ShowcmdClear.Enabled = True End Sub-------------------------------------------------------------------------------------------------Private Sub cmdClear_Click() ' clearkan form enable ' sila lihat pada function enable di bawah cmdReport.Enabled = True cmdExit.Enabled = True cmdfind.Visible = True cmdDelete.Visible = True cmdInsert.Visible = True cmdfind.Enabled = False cmdDelete.Enabled = False cmdInsert.Enabled = True cmdUpdate.Enabled = False cmdClear.Enabled = False txtID_Pelajar.SetFocus txtID_Pelajar.Text = "" txtNama_Pelajar.Text = "" txtNo_Kad_Pengenalan.Text = "" txtNo_Tel_Pelajar.Text = "" txtTarikh_Lahir.Text = "" cboJantina.Text = "" ' tukar dari txtJantina.Text - cbo guna untuk combo box txtAlamat_Kediaman.Text = "" cboPeringkat_Persekolahan.Text = "" txtAlamat_Sekolah.Text = "" txtNama_Penjaga.Text = "" txtNo_Kad_Pengenalan_Penjaga.Text = "" txtE_Mail_Penjaga.Text = "" txtNo_Tel_Rumah.Text = "" txtNo_Tel_Bimbit.Text = "" txtPekerjaan.Text = "" txtID_Pelajar.ForeColor = &H80000008 txtID_Pelajar.BackColor = &HC0FFFF txtNama_Pelajar.ForeColor = &H80000008 txtNama_Pelajar.BackColor = &HC0FFFF txtNo_Kad_PengenalanForeColor = &H80000008 txtNo_Kad_Pengenalan.BackColor = &HC0FFFF txtNo_Tel_Pelajar.ForeColor = &H80000008 txtNo_Tel_Pelajar.BackColor = &HC0FFFF txtTarikh_Lahir.ForeColor = &H80000008 txtTarikh_Lahir.BackColor = &HC0FFFF cboJantina.ForeColor = &H80000008 cboJantina.BackColor = &HC0FFFF txtAlamat_Kediaman.ForeColor = &H80000008 txtAlamat_Kediaman.BackColor = &HC0FFFF txtAlamat_Sekolah.ForeColor = &H80000008 txtAlamat_Sekolah.BackColor = &HC0FFFF cboPeringkat_Persekolahan.ForeColor = &H80000008 cboPeringkat_Persekolahan.BackColor = &HC0FFFF txtNama_Penjaga.ForeColor = &H80000008 txtNama_Penjaga.BackColor = &HC0FFFF txtNo_Kad_Pengenalan_Penjaga.ForeColor = &H80000008 txtNo_Kad_Pengenalan_Penjaga.BackColor = &HC0FFFF txtE_Mail_Penjaga.ForeColor = &H80000008 txtE_Mail_Penjaga.BackColor = &HC0FFFF txtNo_Tel_Rumah.ForeColor = &H80000008 txtNo_Tel_Rumah.BackColor = &HC0FFFF txtNo_Tel_Bimbit.ForeColor = &H80000008 txtNo_Tel_Bimbit.BackColor = &HC0FFFF txtPekerjaan.ForeColor = &H80000008 txtPekerjaan.BackColor = &HC0FFFF End Sub-----------------------------------------------------------------------------------------Private Sub cmdDelete_Click()If txtID_Pelajar.Text = "" Then Call MsgBox("Please Enter Student ID.", vbOKOnly + vbExclamation, "SMPPTI") txtID_Pelajar.SetFocus Else ' rspauto.Open "SELECT * FROM customer WHERE cust_id = " + txtAccountNo.Text, con, adOpenKeyset, adCmdText rspauto.Open "SELECT * FROM Maklumat_Pelajar WHERE ID_Pelajar = '" & txtID_Pelajar.Text & "'", db, adOpenStatic, adLockOptimistic If rspauto.BOF = False And rspauto.EOF = False Then txtNama_Pelajar.Text = rspauto.Fields!Nama_Pelajar txtNo_Kad_Pengenalan.Text = rspauto.Fields!No_Kad_Pengenalan txtTarikh_Lahir.Text = rspauto.Fields!Tarikh_Lahir cboJantina.Text = rspauto.Fields!Jantina txtAlamat_Kediaman.Text = rspauto.Fields!Alamat_Kediaman txtNo_Tel_Pelajar.Text = rspauto.Fields!No_Tel_Pelajar txtAlamat_Sekolah.Text = rspauto.Fields!Alamat_Sekolah cboPeringkat_Persekolahan.Text = rspauto.Fields!Peringkat_Persekolahan txtNama_Penjaga.Text = rspauto.Fields!Nama_Penjaga txtNo_Kad_Pengenalan_Penjaga = rspauto.Fields!No_Kad_Pengenalan_Penjaga txtE_Mail_Penjaga.Text = rspauto.Fields!E_Mail_Penjaga txtNo_Tel_Rumah.Text = rspauto.Fields!No_Tel_Rumah txtNo_Tel_Bimbit.Text = rspauto.Fields!No_Tel_Bimbit txtPekerjaan.Text = rspauto.Fields!Pekerjaan jawab = MsgBox("Are you sure to delete this record? ", vbYesNo + vbExclamation, "Delete Record") If jawab = vbYes Then rspauto.Delete jawab = MsgBox("Record Deleted !! ", vbOKOnly, "SMPPTI") cmdInsert.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdfind.Enabled = False rspauto.Close Else cmdfind.Enabled = False cmdInsert.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = False rspauto.Close End If End IfEnd If txtID_Pelajar.Text = "" txtNama_Pelajar.Text = "" txtNo_Kad_Pengenalan.Text = "" txtNo_Tel_Pelajar.Text = "" txtTarikh_Lahir.Text = "" cboJantina.Text = "" txtAlamat_Kediaman.Text = "" txtAlamat_Sekolah.Text = "" cboPeringkat_Persekolahan.Text = "" txtNama_Penjaga.Text = "" txtNo_Kad_Pengenalan_Penjaga.Text = "" txtE_Mail_Penjaga.Text = "" txtNo_Tel_Rumah.Text = "" txtNo_Tel_Bimbit.Text = "" txtPekerjaan.Text = ""End Sub----------------------------------------------------------------------------------------------------------------Private Sub cmdfind_Click()' Me.MousePointer = vbHourglasscmdUpdate.Enabled = TruecmdReport.Enabled = FalseIf txtID_Pelajar.Text = "" Then Call MsgBox("Please enter student ID number", vbOKOnly + vbExclamation, "Enter ID Number") cmdUpdate.Enabled = False txtID_Pelajar.SetFocus Else ' rspauto.Open "SELECT * FROM customer WHERE cust_id = " + txtAccountNo.Text, con, adOpenStatic, adLockReadOnly, adCmdText untuk oracle conn rspauto.Open "SELECT * FROM Maklumat_Pelajar WHERE ID_Pelajar = '" & txtID_Pelajar.Text & "'", db, adOpenStatic, adLockOptimistic If rspauto.BOF = False And rspauto.EOF = False Then txtNama_Pelajar.Text = rspauto.Fields!Nama_Pelajar txtNo_Kad_Pengenalan.Text = rspauto.Fields!No_Kad_Pengenalan txtTarikh_Lahir.Text = rspauto.Fields!Tarikh_Lahir cboJantina.Text = rspauto.Fields!Jantina txtAlamat_Kediaman.Text = rspauto.Fields!Alamat_Kediaman txtNo_Tel_Pelajar.Text = rspauto.Fields!No_Tel_Pelajar txtAlamat_Sekolah.Text = rspauto.Fields!Alamat_Sekolah cboPeringkat_Persekolahan.Text = rspauto.Fields!Peringkat_Persekolahan txtNama_Penjaga.Text = rspauto.Fields!Nama_Penjaga txtNo_Kad_Pengenalan_Penjaga = rspauto.Fields!No_Kad_Pengenalan_Penjaga txtE_Mail_Penjaga.Text = rspauto.Fields!E_Mail_Penjaga txtNo_Tel_Rumah.Text = rspauto.Fields!No_Tel_Rumah txtNo_Tel_Bimbit.Text = rspauto.Fields!No_Tel_Bimbit txtPekerjaan.Text = rspauto.Fields!Pekerjaan cmdInsert.Enabled = False cmdDelete.Enabled = True disable' Me.MousePointer = vbNormal rspauto.Close Else Call MsgBox("Record does not exist !!! ", vbOKOnly + vbExclamation, "Search") cmdUpdate.Enabled = False txtID_Pelajar.Text = "" txtNama_Pelajar.Text = "" txtNo_Kad_Pengenalan.Text = "" txtNo_Tel_Pelajar.Text = "" txtTarikh_Lahir.Text = "" cboJantina.Text = "" txtAlamat_Kediaman.Text = "" txtAlamat_Sekolah.Text = "" cboPeringkat_Persekolahan.Text = "" txtNama_Penjaga.Text = "" txtNo_Kad_Pengenalan_Penjaga.Text = "" txtE_Mail_Penjaga.Text = "" txtNo_Tel_Rumah.Text = "" txtNo_Tel_Bimbit.Text = "" txtPekerjaan.Text = ""' Me.MousePointer = vbNormal txtID_Pelajar.SetFocus rspauto.Close End If End If End Sub------------------------------------------------------------------------------------------------Private Sub cmdUpdate_Click() ' tahap 4enable cmdExit.Enabled = False cmdInsert.Visible = False cmdfind.Visible = False cmdDelete.Visible = False cmdReport.Enabled = False cmdfind.Enabled = False cmdDelete.Enabled = False cmdInsert.Enabled = False cmdClear.Enabled = False txtID_Pelajar.BackColor = &HFFFFFF txtID_Pelajar.SetFocus txtNama_Pelajar.ForeColor = &H80000008 txtNama_Pelajar.BackColor = &HFFFFFF txtNo_Kad_PengenalanForeColor = &H80000008 txtNo_Kad_Pengenalan.BackColor = &HFFFFFF txtNo_Tel_Pelajar.ForeColor = &H80000008 txtNo_Tel_Pelajar.BackColor = &HFFFFFF txtTarikh_Lahir.ForeColor = &H80000008 txtTarikh_Lahir.BackColor = &HFFFFFF cboJantina.ForeColor = &H80000008 cboJantina.BackColor = &HFFFFFF txtAlamat_Kediaman.ForeColor = &H80000008 txtAlamat_Kediaman.BackColor = &HFFFFFF txtAlamat_Sekolah.ForeColor = &H80000008 txtAlamat_Sekolah.BackColor = &HFFFFFF cboPeringkat_Persekolahan.ForeColor = &H80000008 cboPeringkat_Persekolahan.BackColor = &HFFFFFF txtNama_Penjaga.ForeColor = &H80000008 txtNama_Penjaga.BackColor = &HFFFFFF txtNo_Kad_Pengenalan_Penjaga.ForeColor = &H80000008 txtNo_Kad_Pengenalan_Penjaga.BackColor = &HFFFFFF txtE_Mail_Penjaga.ForeColor = &H80000008 txtE_Mail_Penjaga.BackColor = &HFFFFFF txtNo_Tel_Rumah.ForeColor = &H80000008 txtNo_Tel_Rumah.BackColor = &HFFFFFF txtNo_Tel_Bimbit.ForeColor = &H80000008 txtNo_Tel_Bimbit.BackColor = &HFFFFFF txtPekerjaan.ForeColor = &H80000008 txtPekerjaan.BackColor = &HFFFFFF If cmdUpdate.Caption = "&EDIT" Then If txtID_Pelajar.Text = "" Then cmdClear.Enabled = True Call MsgBox("Please enter student ID number", vbOKOnly + vbExclamation, "Enter Data") Else ' rspauto.Open "SELECT * FROM customer where cust_id= " + txtAccountNo, con, adOpenKeyset, adLockOptimistic, adCmdText rspauto.Open "SELECT * FROM Maklumat_Pelajar WHERE ID_Pelajar = '" & txtID_Pelajar.Text & "'", db, adOpenStatic, adLockOptimistic If rspauto.BOF = False And rspauto.EOF = False Then txtNama_Pelajar.Text = rspauto.Fields!Nama_Pelajar txtNo_Kad_Pengenalan.Text = rspauto.Fields!No_Kad_Pengenalan txtTarikh_Lahir.Text = rspauto.Fields!Tarikh_Lahir cboJantina.Text = rspauto.Fields!Jantina txtAlamat_Kediaman.Text = rspauto.Fields!Alamat_Kediaman txtNo_Tel_Pelajar.Text = rspauto.Fields!No_Tel_Pelajar txtAlamat_Sekolah.Text = rspauto.Fields!Alamat_Sekolah cboPeringkat_Persekolahan.Text = rspauto.Fields!Peringkat_Persekolahan txtNama_Penjaga.Text = rspauto.Fields!Nama_Penjaga txtNo_Kad_Pengenalan_Penjaga = rspauto.Fields!No_Kad_Pengenalan_Penjaga txtE_Mail_Penjaga.Text = rspauto.Fields!E_Mail_Penjaga txtNo_Tel_Rumah.Text = rspauto.Fields!No_Tel_Rumah txtNo_Tel_Bimbit.Text = rspauto.Fields!No_Tel_Bimbit txtPekerjaan.Text = rspauto.Fields!Pekerjaan cmdUpdate.Caption = "&SAVE" End If End IfElse If cmdUpdate.Caption = "&SAVE" Then cmdUpdate.Caption = "&EDIT" rspauto.Fields!Nama_Pelajar = txtNama_Pelajar.Text rspauto.Fields!No_Kad_Pengenalan = txtNo_Kad_Pengenalan.Text rspauto.Fields!Tarikh_Lahir = txtTarikh_Lahir.Text rspauto.Fields!Jantina = cboJantina.Text 'rspauto.Fields!Jantina = txtJantina.Text rspauto.Fields!Alamat_Kediaman = txtAlamat_Kediaman.Text rspauto.Fields!No_Tel_Pelajar = txtNo_Tel_Pelajar.Text rspauto.Fields!Alamat_Sekolah = txtAlamat_Sekolah.Text rspauto.Fields!Peringkat_Persekolahan = cboPeringkat_Persekolahan.Text rspauto.Fields!Nama_Penjaga = txtNama_Penjaga.Text rspauto.Fields!No_Kad_Pengenalan_Penjaga = txtNo_Kad_Pengenalan_Penjaga rspauto.Fields!E_Mail_Penjaga = txtE_Mail_Penjaga.Text rspauto.Fields!No_Tel_Rumah = txtNo_Tel_Rumah.Text rspauto.Fields!No_Tel_Bimbit = txtNo_Tel_Bimbit.Text rspauto.Fields!Pekerjaan = txtPekerjaan.Text replyupdate = MsgBox("Are you sure to change the record for Student ID " + txtID_Pelajar.Text + " ?", vbYesNo, "SMPPTI : Confirmation") If replyupdate = vbYes Then cmdUpdate.Enabled = False cmdClear.Enabled = True disable rspauto.Update rspauto.Close txtID_Pelajar.ForeColor = &H80000008 txtID_Pelajar.BackColor = &HFFFFFF txtNama_Pelajar.ForeColor = &H80000008 txtNama_Pelajar.BackColor = &HFFFFFF txtNo_Kad_PengenalanForeColor = &H80000008 txtNo_Kad_Pengenalan.BackColor = &HFFFFFF txtNo_Tel_Pelajar.ForeColor = &H80000008 txtNo_Tel_Pelajar.BackColor = &HFFFFFF txtTarikh_Lahir.ForeColor = &H80000008 txtTarikh_Lahir.BackColor = &HFFFFFF cboJantina.ForeColor = &H80000008 'txtJantina.ForeColor = &H80000008 cboJantina.BackColor = &HFFFFFF 'txtJantina.BackColor = &HFFFFFF txtAlamat_Kediaman.ForeColor = &H80000008 txtAlamat_Kediaman.BackColor = &HFFFFFF txtAlamat_Sekolah.ForeColor = &H80000008 txtAlamat_Sekolah.BackColor = &HFFFFFF cboPeringkat_Persekolahan.ForeColor = &H80000008 cboPeringkat_Persekolahan.BackColor = &HFFFFFF txtNama_Penjaga.ForeColor = &H80000008 txtNama_Penjaga.BackColor = &HFFFFFF txtNo_Kad_Pengenalan_Penjaga.ForeColor = &H80000008 txtNo_Kad_Pengenalan_Penjaga.BackColor = &HFFFFFF txtE_Mail_Penjaga.ForeColor = &H80000008 txtE_Mail_Penjaga.BackColor = &HFFFFFF txtNo_Tel_Rumah.ForeColor = &H80000008 txtNo_Tel_Rumah.BackColor = &HFFFFFF txtNo_Tel_Bimbit.ForeColor = &H80000008 txtNo_Tel_Bimbit.BackColor = &HFFFFFF txtPekerjaan.ForeColor = &H80000008 txtPekerjaan.BackColor = &HFFFFFF Else cmdClear.Enabled = True cmdUpdate.Enabled = False txtID_Pelajar.ForeColor = &H80000008 txtID_Pelajar.BackColor = &HFFFFFF txtNama_Pelajar.ForeColor = &H80000008 txtNama_Pelajar.BackColor = &HFFFFFF txtNo_Kad_PengenalanForeColor = &H80000008 txtNo_Kad_Pengenalan.BackColor = &HFFFFFF txtNo_Tel_Pelajar.ForeColor = &H80000008 txtNo_Tel_Pelajar.BackColor = &HFFFFFF txtTarikh_Lahir.ForeColor = &H80000008 txtTarikh_Lahir.BackColor = &HFFFFFF cboJantina.ForeColor = &H80000008 cboJantina.BackColor = &HFFFFFF txtAlamat_Kediaman.ForeColor = &H80000008 txtAlamat_Kediaman.BackColor = &HFFFFFF txtAlamat_Sekolah.ForeColor = &H80000008 txtAlamat_Sekolah.BackColor = &HFFFFFF cboPeringkat_Persekolahan.ForeColor = &H80000008 cboPeringkat_Persekolahan.BackColor = &HFFFFFF txtNama_Penjaga.ForeColor = &H80000008 txtNama_Penjaga.BackColor = &HFFFFFF txtNo_Kad_Pengenalan_Penjaga.ForeColor = &H80000008 txtNo_Kad_Pengenalan_Penjaga.BackColor = &HFFFFFF txtE_Mail_Penjaga.ForeColor = &H80000008 txtE_Mail_Penjaga.BackColor = &HFFFFFF txtNo_Tel_Rumah.ForeColor = &H80000008 txtNo_Tel_Rumah.BackColor = &HFFFFFF txtNo_Tel_Bimbit.ForeColor = &H80000008 txtNo_Tel_Bimbit.BackColor = &HFFFFFF txtPekerjaan.ForeColor = &H80000008 txtPekerjaan.BackColor = &HFFFFFF rspauto.Update rspauto.Close disable ' Unload Me ' Me.Show End If End IfEnd IfEnd Sub------------------------------------------------------------------------------------ Private Sub Form_Load()Me.Height = 9300Me.Width = 12500'CenterMDIForm Me Set db = New ADODB.Connection 'con.CursorLocation = adUseClient ' con.Open "Provider=MSDAORA.1;Password=124179;User ID=c124179;Data Source=orafsktm;Persist Security Info=True" conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=putiv.mdb;Persist Security Info=False" db.ConnectionString = conn db.Open Set rspauto = New ADODB.Recordset txtID_Pelajar.Text = "" txtNama_Pelajar.Text = "" txtNo_Kad_Pengenalan.Text = "" txtNo_Tel_Pelajar.Text = "" txtTarikh_Lahir.Text = "" cboJantina.Text = "" txtAlamat_Kediaman.Text = "" txtAlamat_Sekolah.Text = "" cboPeringkat_Persekolahan.Text = "" txtNama_Penjaga.Text = "" txtNo_Kad_Pengenalan_Penjaga.Text = "" txtE_Mail_Penjaga.Text = "" txtNo_Tel_Rumah.Text = "" txtNo_Tel_Bimbit.Text = "" txtPekerjaan.Text = "" cmdfind.Enabled = False cmdInsert.Enabled = True cmdUpdate.Enabled = False cmdDelete.Enabled = False cmdClear.Enabled = False End Sub-------------------------------------------------------------------------------------------------------------Private Sub cmdInsert_Click() cmdfind.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdClear.Enabled = False cmdExit.Enabled = False txtID_Pelajar.ForeColor = &H80000008 txtID_Pelajar.BackColor = &HFFFFFF txtNama_Pelajar.ForeColor = &H80000008 txtNama_Pelajar.BackColor = &HFFFFFF txtNo_Kad_PengenalanForeColor = &H80000008 txtNo_Kad_Pengenalan.BackColor = &HFFFFFF txtNo_Tel_Pelajar.ForeColor = &H80000008 txtNo_Tel_Pelajar.BackColor = &HFFFFFF txtTarikh_Lahir.ForeColor = &H80000008 txtTarikh_Lahir.BackColor = &HFFFFFF cboJantina.ForeColor = &H80000008 cboJantina.BackColor = &HFFFFFF txtAlamat_Kediaman.ForeColor = &H80000008 txtAlamat_Kediaman.BackColor = &HFFFFFF txtAlamat_Sekolah.ForeColor = &H80000008 txtAlamat_Sekolah.BackColor = &HFFFFFF cboPeringkat_Persekolahan.ForeColor = &H80000008 cboPeringkat_Persekolahan.BackColor = &HFFFFFF txtNama_Penjaga.ForeColor = &H80000008 txtNama_Penjaga.BackColor = &HFFFFFF txtNo_Kad_Pengenalan_Penjaga.ForeColor = &H80000008 txtNo_Kad_Pengenalan_Penjaga.BackColor = &HFFFFFF txtE_Mail_Penjaga.ForeColor = &H80000008 txtE_Mail_Penjaga.BackColor = &HFFFFFF txtNo_Tel_Rumah.ForeColor = &H80000008 txtNo_Tel_Rumah.BackColor = &HFFFFFF txtNo_Tel_Bimbit.ForeColor = &H80000008 txtNo_Tel_Bimbit.BackColor = &HFFFFFF txtPekerjaan.ForeColor = &H80000008 txtPekerjaan.BackColor = &HFFFFFF If cmdInsert.Caption = "&ADD" Then If txtID_Pelajar.Text = "" Or txtNama_Pelajar.Text = "" Or txtNo_Kad_Pengenalan.Text = "" Or txtNo_Tel_Pelajar.Text = "" Then Call MsgBox("Please enter all information below.", vbOKOnly + vbExclamation, "Enter Data") cmdClear.Enabled = True cmdDelete.Enabled = False txtID_Pelajar.SetFocus Else 'rspauto.Open "SELECT * FROM customer WHERE cust_id = " + txtAccountNo.Text, con, adOpenKeyset, adLockOptimistic, adCmdText rspauto.Open "SELECT * FROM Maklumat_Pelajar WHERE ID_Pelajar = '" & txtID_Pelajar.Text & "'", db, adOpenStatic, adLockOptimistic If rspauto.BOF = False And rspauto.BOF = False Then Call MsgBox("Record already exist", vbOKOnly, "SMPPTI") txtID_Pelajar.Text = "" txtNama_Pelajar.Text = "" txtNo_Kad_Pengenalan.Text = "" txtNo_Tel_Pelajar.Text = "" txtTarikh_Lahir.Text = "" cboJantina.Text = "" txtAlamat_Kediaman.Text = "" txtAlamat_Sekolah.Text = "" cboPeringkat_Persekolahan.Text = "" txtNama_Penjaga.Text = "" txtNo_Kad_Pengenalan_Penjaga.Text = "" txtE_Mail_Penjaga.Text = "" txtNo_Tel_Rumah.Text = "" txtNo_Tel_Bimbit.Text = "" txtPekerjaan.Text = "" txtID_Pelajar.SetFocus cmdClear.Enabled = True rspauto.Close Else cmdInsert.Caption = "&SAVE" rspauto.AddNew disable End If End If Else If cmdInsert.Caption = "&SAVE" Then cmdInsert.Caption = "&ADD" rspauto.Fields!ID_Pelajar = txtID_Pelajar.Text rspauto.Fields!Nama_Pelajar = txtNama_Pelajar.Text rspauto.Fields!No_Kad_Pengenalan = txtNo_Kad_Pengenalan.Text rspauto.Fields!Tarikh_Lahir = txtTarikh_Lahir.Text rspauto.Fields!Jantina = cboJantina.Text rspauto.Fields!Alamat_Kediaman = txtAlamat_Kediaman.Text rspauto.Fields!No_Tel_Pelajar = txtNo_Tel_Pelajar.Text rspauto.Fields!Alamat_Sekolah = txtAlamat_Sekolah.Text rspauto.Fields!Peringkat_Persekolahan = cboPeringkat_Persekolahan.Text rspauto.Fields!Nama_Penjaga = txtNama_Penjaga.Text rspauto.Fields!No_Kad_Pengenalan_Penjaga = txtNo_Kad_Pengenalan_Penjaga.Text rspauto.Fields!E_Mail_Penjaga = txtE_Mail_Penjaga.Text rspauto.Fields!No_Tel_Rumah = txtNo_Tel_Rumah.Text rspauto.Fields!No_Tel_Bimbit = txtNo_Tel_Bimbit.Text rspauto.Fields!Pekerjaan = txtPekerjaan.Text rspauto.Update rspauto.Close reply = MsgBox("New record is inserted", vbOKOnly, "SMPPTI") cmdInsert.Enabled = False txtID_Pelajar.ForeColor = &H80000008 txtID_Pelajar.BackColor = &HFFFFFF txtNama_Pelajar.ForeColor = &H80000008 txtNama_Pelajar.BackColor = &HFFFFFF txtNo_Kad_PengenalanForeColor = &H80000008 txtNo_Kad_Pengenalan.BackColor = &HFFFFFF txtNo_Tel_Pelajar.ForeColor = &H80000008 txtNo_Tel_Pelajar.BackColor = &HFFFFFF txtTarikh_Lahir.ForeColor = &H80000008 txtTarikh_Lahir.BackColor = &HFFFFFF cboJantina.ForeColor = &H80000008 cboJantina.BackColor = &HFFFFFF txtAlamat_Kediaman.ForeColor = &H80000008 txtAlamat_Kediaman.BackColor = &HFFFFFF txtAlamat_Sekolah.ForeColor = &H80000008 txtAlamat_Sekolah.BackColor = &HFFFFFF cboPeringkat_Persekolahan.ForeColor = &H80000008 cboPeringkat_Persekolahan.BackColor = &HFFFFFF txtNama_Penjaga.ForeColor = &H80000008 txtNama_Penjaga.BackColor = &HFFFFFF txtNo_Kad_Pengenalan_Penjaga.ForeColor = &H80000008 txtNo_Kad_Pengenalan_Penjaga.BackColor = &HFFFFFF txtE_Mail_Penjaga.ForeColor = &H80000008 txtE_Mail_Penjaga.BackColor = &HFFFFFF txtNo_Tel_Rumah.ForeColor = &H80000008 txtNo_Tel_Rumah.BackColor = &HFFFFFF txtNo_Tel_Bimbit.ForeColor = &H80000008 txtNo_Tel_Bimbit.BackColor = &HFFFFFF txtPekerjaan.ForeColor = &H80000008 txtPekerjaan.BackColor = &HFFFFFF If reply = vbOK Then cmdClear.Enabled = True txtID_Pelajar.Text = "" txtNama_Pelajar.Text = "" txtNo_Kad_Pengenalan.Text = "" txtNo_Tel_Pelajar.Text = "" txtTarikh_Lahir.Text = "" cboJantina.Text = "" txtAlamat_Kediaman.Text = "" txtAlamat_Sekolah.Text = "" cboPeringkat_Persekolahan.Text = "" txtNama_Penjaga.Text = "" txtNo_Kad_Pengenalan_Penjaga.Text = "" txtE_Mail_Penjaga.Text = "" txtNo_Tel_Rumah.Text = "" txtNo_Tel_Bimbit.Text = "" txtPekerjaan.Text = "" ' rspauto.Update ' rspauto.Close End If End If End If End Sub----------------------------------------------------------------------------------Private Function disable() ' untuk mematikan fungsi text box txtID_Pelajar.Enabled = False txtNama_Pelajar.Enabled = False txtNo_Kad_Pengenalan.Enabled = False txtNo_Tel_Pelajar.Enabled = False txtTarikh_Lahir.Enabled = False cboJantina.Enabled = False txtAlamat_Kediaman.Enabled = False txtAlamat_Sekolah.Enabled = False cboPeringkat_Persekolahan.Enabled = False txtNama_Penjaga.Enabled = False txtNo_Kad_Pengenalan_Penjaga.Enabled = False txtE_Mail_Penjaga.Enabled = False txtNo_Tel_Rumah.Enabled = False txtNo_Tel_Bimbit.Enabled = False txtPekerjaan.Enabled = False End Function-----------------------------------------------------------------------------------Private Function enable() ' untuk menghidupkan fungsi text box txtID_Pelajar.Enabled = True txtNama_Pelajar.Enabled = True txtNo_Kad_Pengenalan.Enabled = True txtNo_Tel_Pelajar.Enabled = True txtTarikh_Lahir.Enabled = True cboJantina.Enabled = True txtAlamat_Kediaman.Enabled = True txtAlamat_Sekolah.Enabled = True cboPeringkat_Persekolahan.Enabled = True txtNama_Penjaga.Enabled = True txtNo_Kad_Pengenalan_Penjaga.Enabled = True txtE_Mail_Penjaga.Enabled = True txtNo_Tel_Rumah.Enabled = True txtNo_Tel_Bimbit.Enabled = True txtPekerjaan.Enabled = True End Function-------------------------------------------------------------------------------------------Private Sub mnuAbout_Click()frmAbout.ShowEnd SubPrivate Sub txtID_Pelajar_KeyPress(KeyAscii As Integer) ' untuk error handling user masukkan selain nombor Dim F As Boolean cmdfind.Enabled = True cmdInsert.Enabled = False cmdClear.Enabled = True cmdDelete.Enabled = False F = True '(KeyAscii >= 97 And KeyAscii <= 122) (a-z) Or (KeyAscii = 95) (_)Or KeyAscii = 8 (.) (KeyAscii = 13)enter' KeyAscii >= 48 And KeyAscii <= 57) If (KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii = 8) Then ' KeyAscii = 8 Else F = False KeyAscii = 0 End If If Not F Then MsgBox "Student ID number may contain only the following characters 0-9. No spaces allowed.", vbOKOnly + vbExclamation, "Error Enter" txtID_Pelajar.SetFocus Exit Sub End IfEnd Sub-------------------------------------------------------------------------------------------------------------------------Private Sub cmdExit_Click() pwd = False 'msg akan keluar sekiranya cmdCancel ditekan response = MsgBox("Are you sure you want to exit this program?", vbYesNo + vbQuestion, "Exit Program") If response = vbYes Then Reset End Else txtID_Pelajar.SetFocus End IfEnd Sub -------------------------------------------------------------------------------------------------------------Private Sub txtNo_Kad_Pengenalan_KeyPress(KeyAscii As Integer) Dim F As Boolean cmdInsert.Enabled = True cmdfind.Enabled = False F = True If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = (8) Or KeyAscii = (45) Then Else F = False KeyAscii = 0End If If Not F Then MsgBox "Student IC number may contain only the following characters 0-9. No spaces allowed.", vbOKOnly + vbExclamation, "Error Entry" txtNo_Kad_Pengenalan.SetFocus Exit Sub End IfEnd Sub-----------------------------------------------------------------------------------------------------------------Private Sub txtNo_Kad_Pengenalan_Penjaga_KeyPress(KeyAscii As Integer) Dim F As Boolean cmdInsert.Enabled = True cmdfind.Enabled = False F = True If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = (8) Or KeyAscii = (45) Then Else F = False KeyAscii = 0End If If Not F Then MsgBox "Parents IC number may contain only the following characters 0-9. No spaces allowed", vbOKOnly + vbExclamation, "Error Entry" txtNo_Kad_Pengenalan.SetFocus Exit Sub End IfEnd Sub-----------------------------------------------------------------------------------------------------------------Private Sub txtNo_Tel_Bimbit_KeyPress(KeyAscii As Integer) Dim F As Boolean cmdInsert.Enabled = True cmdfind.Enabled = False F = True If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = (8) Or KeyAscii = (45) Then Else F = False KeyAscii = 0End If If Not F Then MsgBox "Student Telephone number may contain only the following characters 0-9. No spaces allowed", vbOKOnly + vbExclamation, "Error Entry" txtNo_Tel_Bimbit.SetFocus Exit Sub End IfEnd Sub----------------------------------------------------------------------------------------------------------------------Private Sub txtNo_Tel_Pelajar_KeyPress(KeyAscii As Integer) Dim F As Boolean cmdInsert.Enabled = True cmdfind.Enabled = False F = True If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = (8) Or KeyAscii = (45) Then Else F = False KeyAscii = 0End If If Not F Then MsgBox "Student Telephone number may contain only the following characters 0-9. No spaces allowed", vbOKOnly + vbExclamation, "Error Entry" txtNo_Tel_Pelajar.SetFocus Exit Sub End IfEnd Sub-------------------------------------------------------------------------------------------------------------- Private Sub Timer1_Timer() 'paparkan masa ' buangkan function ini untuk run coding step by step F8 lblTime.Caption = Time End Sub Edited November 9, 2008 by hairulfadly Quote Share this post Link to post Share on other sites
Kuzie 0 Report post Posted November 23, 2007 Try Pakai ASP leh x?kire leh wat network terus la...Bukan xnak guna VB..Nak cari installer die kat bawah katil mana ntah aku letak...hehehe... Quote Share this post Link to post Share on other sites
rasberry 0 Report post Posted November 25, 2007 nak join gakemail aku: [email protected]aku leh guna ASP, VB6, .NET Quote Share this post Link to post Share on other sites
dukun 0 Report post Posted November 26, 2007 Kejap jer.. dah sunyi thread nie.. hahahaha. nanti aku kasik bising balik thread nie, hahaha...Ni code untuk antaramuka di atas.ko bagi kod tu, macam la aku paham, bagi ler penerangan sikit2, aku cam kosong jer knowledge tengok code tu...dan satu lagi, mana antaramuka tu...?? Quote Share this post Link to post Share on other sites
TJ-Ariff 40 Report post Posted November 26, 2007 aku juga nak join....email:[email protected]baru nak start belajar...Minat :199% yaa... silakan...Selamat Datang ke Kelab...Harap dapat memberikan sebarang sumbangan... Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted November 26, 2007 Hehehe.. tu ler, ingat nak belajar C#, tapi tok guru busy plak... so, apa kata kita start dulu dengan VB nie.. kalo VB no problem.. ramai pakai kat sini. Jom mulakan... Quote Share this post Link to post Share on other sites
TJ-Ariff 40 Report post Posted November 26, 2007 nak join gakemail aku: [email protected]aku leh guna ASP, VB6, .NETSelamat datang ke Kelab...silakan.. janngan malu.. Quote Share this post Link to post Share on other sites
dukun 0 Report post Posted November 26, 2007 so, apa kata kita start dulu dengan VB nie.. kalo VB no problem.. ramai pakai kat sini. Jom mulakan... haha, jangan apa kata, terus je mulakan, nak tunggu c#, jenuh la... Quote Share this post Link to post Share on other sites
TJ-Ariff 40 Report post Posted November 26, 2007 Laaa. Tuan Hairul....Kalau bagi macam tu... macam mane ler ahli kelab nam belajar.... bagi le sikit sikit... Quote Share this post Link to post Share on other sites
LanoV 22 Report post Posted November 26, 2007 Laaa. Tuan Hairul....Kalau bagi macam tu... macam mane ler ahli kelab nam belajar.... bagi le sikit sikit...Tu ler... bagi ler explainantion sikit step by step sebelum bagi selonggok code tu... hehehe.. Mana taknya pening orang tengok... Quote Share this post Link to post Share on other sites
dukun 0 Report post Posted November 26, 2007 code tu untuk vb ker c#? Quote Share this post Link to post Share on other sites
hairulfadly 27 Report post Posted November 26, 2007 (edited) Code di atas untuk Visual Basic.Kat atas ni antaramuka dia.Mula-mula buat antaramuka di atas.Buka Microsoft Visual Basic.Pilih textbox kat ruangan properties dan namakan setiap satunya seperti di bawah ini.Bahagian name, namakan ia...Buat satu-persatutxtID_PelajartxtNama_PelajartxtNo_Kad_PengenalantxtNo_Tel_PelajartxtTarikh_LahircboJantinatxtAlamat_KediamantxtAlamat_SekolahcboPeringkat_PersekolahantxtNama_PenjagatxtNo_Kad_Pengenalan_PenjagatxtE_Mail_PenjagatxtNo_Tel_RumahtxtNo_Tel_BimbittxtPekerjaan Edited November 26, 2007 by hairulfadly Quote Share this post Link to post Share on other sites
