mellynda 0 Report post Posted March 5, 2008 aku nk wt reminder gune vb tp xtahu cording die n cara diereminder yg aku maksudkan tu cmni,ade combo box,setiap data dlm kombo box tu akan di setkan siap2 brape hari yg perlu diremindkan untuk send reportcontohnye,data pertama-3 hari data kedua -1 hari data ketiga -10 hariso,bile dh save pilihan data,system akan remindkan sehari sebelum hari report perlu dihantar,mcm ade popup msg sehari sebelum hari kene send report tu,kalo leh bg alarm pun ok gakkire mcm wt reminder dlm hp tu la,bile kite save je data,then akan ade reminder bile sampai tarikh die cume ni dh di setkan siap2 brape hari mengikut pilihan datatolong ye Quote Share this post Link to post Share on other sites
DrASAG 0 Report post Posted March 6, 2008 A'kum. ermm.. ko trace guna tarikh ler. contoh kalo ko pilih 3 hari, ko tambahkan 3 hari pada tarikh yang awal tu. cenggini, katakan tarikh ko save tu 12-02-2008, then ko nak sistem remind dalam masa 3 hari, maksudnya pada 15-02-2008 la kan? ko tambah 3 hari pada tarikh 12-02-2008 tu, then save. so, setiap kali ko on sistem ko, dia kena check sama ada tarikh semasa tu sama tak ngan tarikh yang ko dah tambah tu. if sama, ko show jer form ker, bunyik ker, apa2 jer... Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 7, 2008 A'kum. ermm.. ko trace guna tarikh ler. contoh kalo ko pilih 3 hari, ko tambahkan 3 hari pada tarikh yang awal tu. cenggini, katakan tarikh ko save tu 12-02-2008, then ko nak sistem remind dalam masa 3 hari, maksudnya pada 15-02-2008 la kan? ko tambah 3 hari pada tarikh 12-02-2008 tu, then save. so, setiap kali ko on sistem ko, dia kena check sama ada tarikh semasa tu sama tak ngan tarikh yang ko dah tambah tu. if sama, ko show jer form ker, bunyik ker, apa2 jer...mslahnye aku x tau nk wt, dh la vb pun just gune wt yg simpel2 jekcording langsung hancus Quote Share this post Link to post Share on other sites
DrASAG 0 Report post Posted March 7, 2008 A'kum, takan tatau langsung kot. ko try la godek2 dulu, dah takleh wat, tunjuk program tu kat sini, ramai yang nak tlg. org takan tlg dari 0. Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 10, 2008 A'kum, takan tatau langsung kot. ko try la godek2 dulu, dah takleh wat, tunjuk program tu kat sini, ramai yang nak tlg. org takan tlg dari 0.drasag, aku tngah tolong dier la nih.. ^^ ahahaha..tatau langsung ko cakap???HANCUS!!!!!aku dapat projek dier, sampai pening2 pale otak tengok...last aku copy jer buat baru senang citer...pastu buat coding sndri jer..baru la jadik login ngan insert data dier..tinggal lagi form die ntuk search data jer..tarak mase nk buat tuk dier, aku nye projek tu tergantung..nk anta dah.. last 2 minggu slom aku habis praktikal nih.. ^^ble da siap nanti aku buat la tuk dier.. Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 10, 2008 drasag, aku tngah tolong dier la nih.. ^^ ahahaha..tatau langsung ko cakap???HANCUS!!!!!aku dapat projek dier, sampai pening2 pale otak tengok...last aku copy jer buat baru senang citer...pastu buat coding sndri jer..baru la jadik login ngan insert data dier..tinggal lagi form die ntuk search data jer..tarak mase nk buat tuk dier, aku nye projek tu tergantung..nk anta dah.. last 2 minggu slom aku habis praktikal nih.. ^^ble da siap nanti aku buat la tuk dier..kula,ape cite nih?aku dh send kt email ko ari tu, xde pape reply pun Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 10, 2008 (edited) kula,ape cite nih?aku dh send kt email ko ari tu, xde pape reply punaiyark.. lolx.. ko tk cakap da anta..aku ngatkn blom... ^^heheh..mell, bagi aku balik ko nyer sistem tu..aku da terdelete sistem ko ler.. ingatkn ader backup kt pendrive tp tkde.. Edited March 10, 2008 by kula Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 10, 2008 aiyark.. lolx.. ko tk cakap da anta..aku ngatkn blom... ^^heheh..mell, bagi aku balik ko nyer sistem tu..aku da terdelete sistem ko ler.. ingatkn ader backup kt pendrive tp tkde..la,kan aku dh ckp nk send kt ko ptg tu,ape dalgpun aku bz sket lps tu ngan pilihan raya,x sempat nk msg koape yg ko x fhm kang bgtau aku k Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 10, 2008 okeh.. hanta dlu sistem tu kejap.. Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 10, 2008 okeh.. hanta dlu sistem tu kejap..aku dh send, aku xde krdt nk bgtau ko nih Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 10, 2008 aku dh send, aku xde krdt nk bgtau ko nihokey.. aku try buat mane yg sempat.. tapi esok mmg tk siap lagi la.. ko tk mesej aku aku maner la tau.. ^^ Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 11, 2008 okey.. aku try buat mane yg sempat.. tapi esok mmg tk siap lagi la.. ko tk mesej aku aku maner la tau.. ^^amek yg baru k, aku dh send kt email kowt carian dlm form daftar skali kview report baru by dateok? Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 11, 2008 amek yg baru k, aku dh send kt email kowt carian dlm form daftar skali kview report baru by dateok?wa.. ni da lebih ni..kene tambah quota bucket nih..ko nk ble? aku tk pat anta cecepat sgat la.. Quote Share this post Link to post Share on other sites
DrASAG 0 Report post Posted March 11, 2008 (edited) A'kum. wakakakaka... apa la ko kula, tlg org berpada2 la... Edited March 11, 2008 by DrASAG Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 11, 2008 A'kum. wakakakaka... apa la ko kula, tlg org berpada2 la...ahahaha.. padan muke aku.. ^^ala, aku tengah training nk masterkn VB la..sistem dier tk susah maner pun, tapi mase tuh limited sangat.. aku nyer sistem pn hancus lagi..time2 ak bgang ngan sistem aku, aku buat ler die pnye..nk join group tk? pasni kite titik dier kepc bucket besau, ngan movies.. join a.. ^^hahah.. Quote Share this post Link to post Share on other sites
DrASAG 0 Report post Posted March 11, 2008 A'kum.. hehehehehe.. macam menarik tu. tapi aku dah lama tinggalkan vb ni. time belajo lg. kijer aku skang tak libatkan program-memprogram dah, so, sumer dah lupa. ada masa lapang aku belajau vb.net. hehehehehe Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 11, 2008 wa.. ni da lebih ni..kene tambah quota bucket nih..ko nk ble? aku tk pat anta cecepat sgat la..ko ajak org len wtpeaku budjet 2 org jekkhamis ni lastleh la wehk? Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 11, 2008 ko ajak org len wtpeaku budjet 2 org jekkhamis ni lastleh la wehk?ahaha..baru best.. ^^khamis nih?tengok ler.. okeh.. ^^ Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 13, 2008 kula kuape cite nih, diam jek Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 13, 2008 kula kuape cite nih, diam jek hm.. susah skit la..nk search tu macam2 sngat error dier..kalo stakat display jer bleh la..bile nk wat query tuk search tu, coding aku da salah..search google keyword tk match la..nnti aku try carik lagi..hehe.. >.<cube ko try tanyer kt puteranians lain saper tau pasal coding search tuk adodc? multiple criteria nyer.. Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 14, 2008 hm.. susah skit la..nk search tu macam2 sngat error dier..kalo stakat display jer bleh la..bile nk wat query tuk search tu, coding aku da salah..search google keyword tk match la..nnti aku try carik lagi..hehe.. >.<cube ko try tanyer kt puteranians lain saper tau pasal coding search tuk adodc? multiple criteria nyer..z,mcm sush sket la nk search mcm aku wt tuape kate kite wt yg senangsearch by name kepastu view jek dlm listbox kt bwh dieok x?tp leh edit tau dlm listbox tuboleh? Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 14, 2008 cmdsearch_click()dim str as stringdim rs as new adodb.connectionstr=inputbox("enter month","search")if str<>"" thenrs.open "select * from <tablename> where month='" & str & "'"if rs.recordcount>0 then<display data>elsemsgbox "no record found"endifelsemsgbox "input the month plz."endifend subni antara yg aku jptp sql Quote Share this post Link to post Share on other sites
kula 0 Report post Posted March 14, 2008 cmdsearch_click()dim str as stringdim rs as new adodb.connectionstr=inputbox("enter month","search")if str<>"" thenrs.open "select * from <tablename> where month='" & str & "'"if rs.recordcount>0 then<display data>elsemsgbox "no record found"endifelsemsgbox "input the month plz."endifend subni antara yg aku jptp sqlhuhu.. tengok btul2.. yg tu adodb, bukan adodc...aku tk tau pe perbexaan dier, tapi adodb macam konflik ngan sistem ni..kalo dah dapat search, nk edit dah boleh..aku da code ader fungsi edit.. just carik code fungsi search jer.. Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 14, 2008 huhu.. tengok btul2.. yg tu adodb, bukan adodc...aku tk tau pe perbexaan dier, tapi adodb macam konflik ngan sistem ni..kalo dah dapat search, nk edit dah boleh..aku da code ader fungsi edit.. just carik code fungsi search jer..kuang3x..mata aku ke mn la nihtgk pun x betol dhjap aku carik lgPrivate Sub Command3_Click()FillGridIf rs.State = adStateOpen Thenrs.CloseEnd IfIf Text1.Text = "" ThenMsgBox "Sila masukkan Pilihan anda! ", vbCritical, "RRS"Text1.SetFocusExit SubElseTextDeparture = Trim(Text1.Text)rs.Open "SELECT KodUtas,KodKeluarga, AwalAkhir as Penerbangan, NamaHaji as Nama, IC as No_kp, Pakej FROM custDataHaji where AwalAkhir Like '" & TextDeparture & "%' Order By KodUtas,KodKeluarga", CN If rs.RecordCount > 0 Thenrs.MoveFirstSet DataGrid1.DataSource = rsElseMsgBox "Maaf ! Tiada Data ", vbCritical, "RRS"Text1.Text = ""Text1.SetFocusEnd IfEnd IfEnd Subkurang fhm la dear Quote Share this post Link to post Share on other sites
mellynda 0 Report post Posted March 14, 2008 ni 1 lg aku jplg x fhmbyk giler cord diefrmSearch.HideFrmCustomer.CmdAbout.Enabled = FalseFrmCustomer.cmdadd.Enabled = FalseFrmCustomer.CmdClose.Enabled = FalseFrmCustomer.CmdDelete.Enabled = FalseFrmCustomer.CmdEdit.Enabled = FalseFrmCustomer.cmdfirst.Enabled = FalseFrmCustomer.cmdLast.Enabled = FalseFrmCustomer.CmdNext.Enabled = FalseFrmCustomer.cmdPrevious.Enabled = FalseFrmCustomer.cmdsave.Enabled = FalseFrmCustomer.CmdSearch.Enabled = FalseOn Error Resume NextDim mycon As ConnectionDim myrs As RecordsetSet mycon = New ConnectionSet myrs = New RecordsetWith mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\My Documents\Customer.mdb;Persist Security Info=False".OpenEnd Withsearchstr$ = TxtID.TextSet myrs = mycon.Execute("select * from Customer where Customer_Id = " & searchstr)Set FrmCustomer.TxtName.DataSource = myrsFrmCustomer.TxtName.DataField = "Name"Set FrmCustomer.TxtAdd.DataSource = myrsFrmCustomer.TxtAdd.DataField = "Address"Set FrmCustomer.TxtIc.DataSource = myrsFrmCustomer.TxtIc.DataField = "I/C No"Set FrmCustomer.Txttel.DataSource = myrsFrmCustomer.Txttel.DataField = "Tel Home"Set FrmCustomer.TxtHPhone.DataSource = myrsFrmCustomer.TxtHPhone.DataField = "H/PHONE"Set FrmCustomer.TxtDob.DataSource = myrsFrmCustomer.TxtDob.DataField = "Date Of Birth"Set FrmCustomer.TxtDoj.DataSource = myrsFrmCustomer.TxtDoj.DataField = "Date Of Join"Set FrmCustomer.TxtRace.DataSource = myrsFrmCustomer.TxtRace.DataField = "Race"Set FrmCustomer.TxtOccupation.DataSource = myrsFrmCustomer.TxtOccupation.DataField = "Occupation"Set FrmCustomer.TxtID.DataSource = myrsFrmCustomer.TxtID.DataField = "Customer_Id"Set FrmCustomer.TxtPostalCode.DataSource = myrsFrmCustomer.TxtPostalCode.DataField = " Postel Code"If myrs.EOF = True ThenMsgBox "No Records Found"End IfTxtID.SetFocus Quote Share this post Link to post Share on other sites