Posted by Gervie M. at 3:45 PM Sunday, April 3, 2011 1 comments
Private Sub Command3_Click()
Data1.Recordset.MoveNext
Do While Not Data1.Recordset.EOF = True
    If Data1.Recordset("CrimeID") = Crimes Then
        found = True
        Exit Do
    Else
        Data1.Recordset.MoveNext
        found = False
    End If
Loop
If found = True Then
    susname = Data1.Recordset("SuspectName")
    caseno = Data1.Recordset("CaseNo")
    compid = Data1.Recordset("CompID")
    age = Data1.Recordset("SuspectAge")
    Crimeloc = Data1.Recordset("CrimeLoc")
    date = Data1.Recordset("FilledDate")
    time = Data1.Recordset("FilledTime")
    Command4.Enabled = True
Else
    MsgBox "No more record match", vbExclamation, "NO MATCH FOUND"
    Command3.Enabled = False
End If
Command1.Enabled = True
End Sub


Private Sub Command4_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF = True
    If Data1.Recordset("CrimeID") = Crimes Then
        found = True
        Exit Do
    Else
        Data1.Recordset.MoveNext
        found = False
    End If
Loop
If found = True Then
    susname = Data1.Recordset("SuspectName")
    compid = Data1.Recordset("CompID")
    caseno = Data1.Recordset("CaseNo")
    age = Data1.Recordset("SuspectAge")
    Crimeloc = Data1.Recordset("CrimeLoc")
    date = Data1.Recordset("FilledDate")
    time = Data1.Recordset("FilledTime")
    Command3.Enabled = True
Else
    MsgBox "No more record match", vbExclamation, "NO MATCH FOUND"
    Command4.Enabled = False
Posted by Gervie M. at 3:24 PM 0 comments
ADD RECORD
If Command1.Caption = "Add Complaint" Then
Data2.Recordset.AddNew
Picture1.Visible = False
Command1.Caption = "Save"
Command2.Enabled = True
Command3.Caption = "Cancel"
show_forms
Label3.Caption = X
time.Caption = Y
ElseIf Command1.Caption = "Save" Then
Data2.Recordset.Update
hide_forms
Picture1.Visible = True
Command1.Caption = "Add Complaint"
Command2.Enabled = False
Command3.Caption = "Back to Menu"
End If


UPDATE
edit.Enabled = True
Data1.Refresh
Do While Not Data1.Recordset.EOF = True
    If Data1.Recordset("LName") = lsearch Then
        found = True
        Exit Do
    Else
        Data1.Recordset.MoveNext
        found = False
    End If
Loop
If found = True Then
    MsgBox "Record Found!", vbInformation, "MATCH FOUND"
    fname = Data1.Recordset("FName")
    mname = Data1.Recordset("MName")
    lname = Data1.Recordset("LName")
    age = Data1.Recordset("Age")
    contactno = Data1.Recordset("ContactNo")
    sex = Data1.Recordset("Sex")
    compid = Data1.Recordset("CompID")
Else
    MsgBox "Record Not Found!", vbExclamation, "NO MATCH FOUND"
    lsearch.SelStart = 0
    lsearch.SelLength = Len(lname.Text)
    lsearch.SetFocus
End If
lsearch.Text = ""
Command4.Enabled = True
End Sub

DELETE
Data1.Recordset.Delete
MsgBox "Record Deleted", vbExclamation, "Process"
fname.Text = ""
mname.Text = ""
lname.Text = ""
age.Text = ""
contactno.Text = ""
sex.Text = ""
compid.Text = ""
Picture1.Visible = True
Command4.Enabled = False
End Sub


Private Sub edit_Click()
If edit.Caption = "Edit" Then
    edit.Caption = "Save"
    Data1.Recordset.edit
    Data1.Recordset("FName") = fname.Text
    Data1.Recordset("MName") = mname.Text
    Data1.Recordset("LName") = lname.Text
    Data1.Recordset("Age") = age.Text
    Data1.Recordset("ContactNo") = contactno.Text
    Data1.Recordset("Sex") = sex.Text
Else
MsgBox "Update Complete"
    Data1.Recordset("FName") = fname.Text
    Data1.Recordset("MName") = mname.Text
    Data1.Recordset("LName") = lname.Text
    Data1.Recordset("Age") = age.Text
    Data1.Recordset("ContactNo") = contactno.Text
    Data1.Recordset("Sex") = sex.Text
    Data1.Recordset.Update
fname.Text = ""
mname.Text = ""
lname.Text = ""
age.Text = ""
contactno.Text = ""
sex.Text = ""
compid.Text = ""
edit.Caption = "Edit"

competency exam

Posted by Gervie M. at 1:44 PM Wednesday, February 16, 2011 0 comments
looping statements

Private Sub Command1_Click()
List1.AddItem Text1.Text
Text1.Text = ""
Text1.SetFocus
Label4.Caption = List1.ListCount
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Dim remove As Integer
remove = List1.ListIndex
If remove >= 0 Then
List1.RemoveItem remove
Label4.Caption = List1.ListCount
End If
End Sub

Private Sub Command3_Click()
List1.Clear
Label4.Caption = List1.ListCount
End Sub

Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
Dim sort As Boolean
Dim i As Integer
Dim s As String
Do
sort = False
For i = 0 To List1.ListCount - 2
If (List1.List(i) > List1.List(i + 1)) Then
sort = True
s = List1.List(i)
List1.List(i) = List1.List(i + 1)
List1.List(i + 1) = s
End If
Next i
Loop Until sort = False
End Sub

Private Sub Form_Load()
Text1.Text = " "
Command1.Enabled = False
End Sub

Private Sub Label4_Click()
List1.Clear
Label4.Caption = List1.ListCount
End Sub

Private Sub Text1_Change()
If (Len(Text1.Text) > 0) Then
Command1.Enabled = True
End If
End Sub

calcu
Private txtnum1, txtnum2, txtsum, txtdif, txtpro, txtquo As Integer

Private Sub Command1_Click()
txtsum = txtnum1 + txtnum2
Text3.Text = Str(txtsum)
End Sub

Private Sub Command2_Click()
txtdif = txtnum1 - txtnum2
Text3.Text = Str(txtdif)
End Sub

Private Sub Command3_Click()
txtpro = txtnum1 * txtnum2
Text3.Text = Str(txtpro)
End Sub

Private Sub Command4_Click()
txtquo = txtnum1 / txtnum2
Text3.Text = Str(txtquo)
End Sub

Private Sub Form_Load()
txtnum1 = 0
txtnum2 = 0
txtnum3 = 0
Text1.Text = nNum1
Text2.Text = nNum2
Text3.Text = nSum
End Sub

Private Sub Label4_Click()
txtsum = txtnum1 + txtnum2
Text3.Text = Str(txtquo)
End Sub

Private Sub Text1_Change()
txtnum1 = Val(Text1.Text)
End Sub

Private Sub Text2_Change()
txtnum2 = Val(Text2.Text)
End Sub

Private Sub Text3_Change()
txtnum3 = Val(Text3.Text)
End Sub

option
Private textmul, bill As Integer

Private Sub Command1_Click()
txtmul = bill * Text1.Text
Text2.Text = Str(txtmul)
End Sub

Private Sub Command2_Click()
Unload Me
Form1.Show
End Sub

Private Sub Command3_Click()
Unload Me
Form2.Show
End Sub

Private Sub Form_Load()
Text1.Text = stext1
Text2.Text = stext2
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Check1.Value = 1
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
bill = 12000
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Check1.Value = 0
Check2.Value = 0
Check3.Value = 1
Check4.Value = 0
bill = 1000
End If
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
bill = 700
End If
End Sub

Kuya Jaypee's $3500+ Christmas Givaway

Posted by Gervie M. at 3:13 AM Monday, December 27, 2010 Labels: , , , , , , , 0 comments












Christmas maybe a bit too over but not on this blog. By the end of December 30, 2010 midnight, Kuya Jaypee will be giving away these fabulous prizes to the lucky readers and subcribers of this blog. Isn't it fun? Guess Christmas isn't just over yet so get your entries ready by the end of december because you might as well won one of these awesome prizes. 


1st Prize
1-year Publisher Plan from Scribe SEO ($324)
1 Pro-Plus package from StudioPress ($249.95)
1 Developer Theme Package from WooThemes ($150)
1 Premium Theme from WPZOOM ($69)
1-year Freedom-CDN Plan from WP Webhost ($120)
1-year Pro Account from Wibiya Web Toolbar ($118.80)
1-year Starter Plan from Reinvigorate ($100)
1-year subscription to Website Monitoring from website-monitoring.com ($59)
1-year subscription to Privacy Pro from Privacy Pro ($35.95)
1-year domain (.com/.net/.org/.info) courtesy of Jehzeel Laurente ($11.99)
$20 cash via PayPal courtesy of DiTesco
2nd Prize
1-Year Publisher Plan from Scribe SEO ($324)
1 Genesis/Child theme package from StudioPress ($79.95)
1 Premium Theme from WPZOOM ($69)
1 Club Membership from Elegant Themes ($39)
1-year Advanced Hosting Plan from Hostentic ($116)
1-year Pro Account from Wibiya Web Toolbar ($118.80)
1-year Starter Plan from Reinvigorate ($100)
1-year subscription to Privacy Pro from Privacy Pro ($35.95)
1-year domain (.com/.net/.org/.info) courtesy of Jehzeel Laurente ($11.99)
$10 cash via PayPal courtesy of MukhangPera.com
3rd Prize
1-Year Publisher Plan from Scribe SEO ($324)
1 Genesis/Child theme package from StudioPress ($79.95)
1 Premium Theme from WPZOOM ($69)
1 Annual Access Membership from Flexi Themes ($49.95)
1-year Freedom Plan from WP Webhost ($80)
1-year Pro Account from Wibiya Web Toolbar ($118.80)
1-year Starter Plan from Reinvigorate ($100)
1-year subscription to Privacy Pro from Privacy Pro ($35.95)
1-year domain (.com/.net/.org/.info) courtesy of Jehzeel Laurente ($11.99)
$10 cash via PayPal courtesy of MukhangPera.com
4th Prize
1 Genesis/Child theme package from StudioPress ($79.95)
1 Premium Theme from WPZOOM ($69)
1 Basic Theme Package from WP Now ($49)
1-year Freedom Plan from WP Webhost ($80)
1-year subscription to Privacy Pro from Privacy Pro ($35.95)
1-year domains (.com/.net/.org/.info) courtesy of Jehzeel Laurente ($11.99)
$10 cash via PayPal courtesy of MukhangPera.com
Consolation Prizes
1 Premium Theme from WPZOOM ($69)
1-year subscription to Privacy Pro from Privacy Pro ($35.95)
6 – 1-year domains (.com/.net/.org/.info) courtesy of Jehzeel Laurente ($11.99)
Jaypee is also giving away 5 Globe Tattoo USB dongles courtesy of Abe Olandres of YugaTech ($20/each) to all contestants from the Philippines.

Contest Mechanics:
1. Subcribed via email to JaypeeOnline's RSS feed then confirm it in your email.
2. Blog about this contest like this one.
3. Leave in the comments section your links.


P.S. Does my banner qualify? I really love editing and if ever i will win a domain i'll my personal website. :D

My Brother's Christmas Entry: Kung Fu Santa

Posted by Gervie M. at 5:07 AM Thursday, December 9, 2010 Labels: , , , , 0 comments
I'm so proud of my brother, at the current state that he's in now he has surpassed me and my expectations from him. Keep it up. Guess all that teasing and criticizing have really whipped up an effort to developed his talents. Look at what he's done. Congrats! I'm a proud kuya. :D


In Digital Character Animation

Posted by Gervie M. at 4:45 AM Labels: , , , , 1 comments

I made this character uniquely with a First Asian look completely because it is one of the initial requirements in one of my Information Technology Elective Subject. Don't even know if it turned out to be fine. I do hope you like it. Tune in because once he's in Animation, he'll do an awesome motion. I really need to build up his personality too. I wonder what would he be like. Errr, like me? Idk. Still its a work on progress. :D

Christmas Mate, N8

Posted by Gervie M. at 4:07 AM Labels: , , , , , , , , 0 comments




To connect to my Dad in Italy is my driving motivation
So I never hesitated to participate in this promotion
With N8 on my hands in this festive Christmas season
Keeping in touch with Dad is an easy mission
OVI never fails to compromise
Because their services is always user-optimized
If I’d be given the chance to have the first-hand experience
In the Philippines, I’ll share our Christmas ambiance
With precision and overwhelming anticipation
I’ll capture the essence of this Christmas I mentioned
I’ll publish photos via OVI Share
Capture more images that captivates everyone’s stare
With a 12 megapixel camera memories are mine to keep
Plus an HD recording feature to record my jingles
I’ll send my warm greetings through OVI Mail and various OVI Store applications
Check out my social networks via N8 synchronization
With OVI Maps on the go being lost is a big no!
So this is how my plan goes
Nokia and OVI will never go out of seasons
People trust them for a million reasons
Kudos to Nokia because OVI you create
And for loaning a superb Smartphone named N8
Do keep it up in “Connecting People”
Sooner or later we’ll return the favor





Subscribe to: Posts (Atom)