CRUD Application in Microsoft Visual Foxpro 9

In this article I would like to share with you a simple program that I wrote using Microsoft Visual Foxpro 9 to demostrate CRUD application it can add, edit, delete, view, print and search it is can generate reports and have error correction capability. I hope you will learn something in my program.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.

About Page

Report Generation and Preview

Table Structure

Sample Records in the Table

Program Listing

Search Button

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

SELECT demo

thisform.txtT_id.Enabled = .T.

thisform.txtT_id.ReadOnly = .F.

IF  Empty(thisform.txtT_id.Value)

   MESSAGEBOX("Please provide ID Number." + CHR(13) + " Please try again.",0+48,"Reminder")

    

    thisform.txtT_id.Value=""

    thisform.txtT_id.SetFocus

    

   ENDIF

LOCATE FOR t_id = m.t_id

IF FOUND() 

   thisform.txtT_name.Enabled = .T.

   thisform.txtT_id.Value = t_id

   thisform.txtT_name.Value = t_name

   thisform.Refresh

  

  ELSE 

    Messagebox("Record not found Try Again",32,"Reminder") 

    thisform.txtT_id.value = 0

    thisform.txtT_name.value=""

    thisform.txtT_name.Enabled = .F.

    thisform.txtT_id.SetFocus

endif

New button

==========

m.t_id =RECCOUNT()+1

m.t_name=""

thisform.Refresh

thisform.txtT_id.ReadOnly = .T.

thisform.txtT_name.Enabled = .T.

Save Button

===========

select demo

locate for t_id = m.t_id

if !found()

   && new record

   if Messagebox("Are you sure to add new record?",32+4,"Confirmation") = 6

   append blank  && add new record

   gather memvar

  endif

 else && update record

       if Messagebox("Are you sure to update existing record?",32+4,"Confirmation") = 6

       gather memvar && overwrite existing record

     endif

  endif

  thisform.grdDemo.refresh

  Delete Button

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

 select demo

SET DELETED on

locate for t_id = m.t_id

if found()

   

   if Messagebox("Are you sure to delete this record?",32+4,"Confirmation") = 6

   delete

  endif

 ENDIF

  m.t_id=""

  m.t_name=""

  thisform.refresh

  thisform.grdDemo.refresh

  thisform.txtT_id.Enabled= .F.

  thisform.txtT_name.Enabled= .F.

  thisform.command1.SetFocus

  Print Button

  ===========

select demo

report form demo to printer prompt preview

Close Button

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

thisform.Release

DOWNLOAD SOURCE CODE HERE