Enrollment System in Microsoft Visual Foxpro

In this article I would like to share with you my very simple enrollment system that I wrote using Microsoft Visual Foxpro 9. I hope you will like my work. Thank you.

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.

Sample Program Output

Program Listing

Table Stucture

student 

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

sid

name

course

subjects

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

sid

subject

units

form1    Init

m.sid =""

m.sname=""

m.scource=""

m.ssubject=""

m.sunits=0

SET DEFAULT TO D:\vfp\enrollment

WITH thisform

    .txtsid.enabled=.f.

    .txtsname.enabled=.f.

    .txtscourse.enabled=.f.

ENDWITH

New Record Button

WITH thisform 

    .txtsid.value=""

    .txtsname.value=""

    .txtscourse.value=""

    .txtsid.enabled=.t.

    .txtsname.enabled=.t.

    .txtscourse.enabled=.t.

    .txtsid.setfocus

  ENDWITH

  

  

  Save and Update Button

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

  

  SELECT student

LOCATE FOR sid = m.sid

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.grdStudent.refresh

  

  

  Delete Button

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

  

   SELECT STUDENT

SET DELETED on

locate for sid = m.sid

if found()

   

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

   DELETE

    Messagebox("Record Successfully deleted","Information")

      thisform.refresh

  thisform.grdstudent.refresh

  Endif

 ENDIF

  

   thisform.refresh

  thisform.grdstudent.refresh

  thisform.txtsid.Enabled= .F.

  thisform.txtsname.Enabled= .F.

   thisform.txtscourse.Enabled= .F.

  thisform.command1.SetFocus

  

  

  

* Code To Print Single Record

* Written By Mr. Jake R. Pomperada

* February 19, 2017

Print Single Record Button

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

SELECT Student

SET FILTER TO sid=ALLTRIM(thisform.txtId.Value)

REPORT FORM student_report to PRINTER preview

Thisform.Refresh

Print All Record Button

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

SELECT Student

REPORT FORM student_report to PRINTER preview

thisform.Refresh

Form1 Init  for counting of units enrolled

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

SET TALK OFF

SET ECHO OFF

SET CENTURY ON

SET DEFAULT TO D:\vfp\enrollment

thisform.txtName.Value=""

SELECT student

IF !BOF() THEN 

SKIP -1

SET FILTER TO sid = student.sid IN subjects

Select subjects

sum units  to thisform.txtTotalunits.value 

thisform.Refresh

thisform.txtId.SetFocus

ELSE

 MESSAGEBOX("Beginning of Record")

 ENDIF

 Previous Button

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

 

 

thisform.Refresh

SELECT student

IF !BOF() 

SKIP -1

  

 

SET FILTER TO sid = student.sid IN subjects

Select subjects

sum units  to thisform.txtTotalunits.value 

ELSE

MESSAGEBOX("This is the first record.")

thisform.command1.Enabled= .F.

thisform.command2.Enabled= .T.

 

 ENDIF

 thisform.Refresh

 

 Next Button

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

 

 

thisform.Refresh

SELECT student

IF  !EOF() THEN 

SKIP 

 

SET FILTER TO sid = student.sid IN subjects

thisform.Refresh

Select subjects

    sum units  to thisform.txtTotalunits.value

ELSE

 MESSAGEBOX("End of Record")

 thisform.command2.Enabled = .F.

 thisform.command1.Enabled= .T.

 ENDIF

 

 Close button

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

 

 thisform.Release

thisform.Hide

DO FORM main_menu

DOWNLOAD SOURCE CODE HERE

 

 

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

Factors of a Number in JavaScript

A simple program that I wrote using Javascript to ask the user to give a number and then our program will display the factors of the given number.

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.

Sample Program Output

Program Listing

index.htm

<!--

 Written By Mr. Jake R. Pomperada, MAED-IT

 February 11, 2018   04:24 PM   Sunday

 Bacolod City, Negros Occidental Republic of the Philippines

 jakerpomperada@yahoo.com and jakerpomperada@gmail.com -->

<!doctype html>

<html>

<head>

<title>Factors of a Number in JavaScript </title>

<style>

   .art {

      font-family: arial;

      font-weight: bold;

      color:red;

      text-align: center;

      width:60%;

      background-color:yellow;

   }

.art2 {

      font-family: arial;

      font-weight: bold;

      font-size: 25px;

      color:blue;

      text-align: center;

      width:45%;

      background-color:lightgreen;

   }

   body {

     font-family: arial;

     font-weight: bold;

     font-size: 20px;

   }

   #button_me {

    background-color: #008CBA;

    font-family: arial;

    font-weight: bold;

    font-size: 20px;

    height: 50px;

    width: 120px

     text-align: center;

    cursor: pointer;

 }

 input[type=text] {

    font-family: arial;

    font-weight: bold;

    font-size: 20px;

   

 }

</style>

      

<script>

function factors(n)

{

 var num_factors = [], i;

 for (i = 1; i <= Math.floor(Math.sqrt(n)); i += 1)

  if (n % i === 0)

  {

   num_factors.push(i);

   if (n / i !== i)

    num_factors.push(n / i);

  }

 num_factors.sort(function(x, y)

   {

     return x - y;});  // numeric sort

     return num_factors;

    }

function start()

{

num1=Number(document.getElementById("val1").value);

document.getElementById("result").value= factors(num1);

}

</script>

<script>

function clear_me()

{

document.getElementById("val1").value = "";

document.getElementById("result").value = "";

document.getElementById("val1").focus();

}

</script>

</head>

<body>

<h1 class="art"> Factors of a Number in JavaScript </h1>

    <p  class="art2"> Created By Mr. Jake R. Pomperada, MAED-IT </p>

<br><br>

Give a Number <input id="val1" type="text" size="5" autofocus>

<br><br>

The result is <input id="result" type="text" size="50"

<br> <br> <br>

<button id="button_me" onclick="start()">Check</button>

&nbsp;&nbsp;&nbsp;

<button id="button_me" onclick="clear_me()">Clear</button>

</br></br>

</body>

</html>

Swap Two Numbers in JavaScript

In this article I would like to share with you a simple program that I wrote using JavaScript to ask the user to give number integer numbers and then our program will swap the arrangement of the two numbers.

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.

Sample Program Output

Program Listing

index.htm

<!--

 Written By Mr. Jake R. Pomperada, MAED-IT

 February 6, 2018   04:24 PM   Tueday

 Bacolod City, Negros Occidental Republic of the Philippines

 jakerpomperada@yahoo.com and jakerpomperada@gmail.com -->

<!doctype html>

<html>

<head>

<title> Swap Two Numbers in JavaScript </title>

<style>

   .art {

      font-family: arial;

      font-weight: bold;

      color:red;

      text-align: center;

      width:45%;

      background-color:yellow;

   }

.art2 {

      font-family: arial;

      font-weight: bold;

      font-size: 25px;

      color:blue;

      text-align: center;

      width:45%;

      background-color:lightgreen;

   }

   body {

     font-family: arial;

     font-weight: bold;

     font-size: 20px;

   }

   #button_me {

    background-color: #008CBA;

    font-family: arial;

    font-weight: bold;

    font-size: 20px;

    height: 50px;

    width: 120px

     text-align: center;

    cursor: pointer;

 }

 input[type=text] {

    font-family: arial;

    font-weight: bold;

    font-size: 20px;

   

 }

</style>

      

<script>

function swap()

{

var temp;

num1=Number(document.getElementById("val1").value);

num2 =Number(document.getElementById("val2").value);

temp=num1;

num1=num2;

num2=temp;

document.getElementById("result1").value= num1;

document.getElementById("result2").value= num2;

}

</script>

<script>

function clear_me()

{

document.getElementById("val1").value = "";

document.getElementById("val2").value = "";

document.getElementById("val1").focus();

document.getElementById("result1").value= "";

document.getElementById("result2").value= "";

}

</script>

</head>

<body>

<h1 class="art"> Swap Two Numbers in JavaScript </h1>

    <p  class="art2"> Created By Mr. Jake R. Pomperada, MAED-IT </p>

<br><br>

Value Number 1 <input id="val1" type="text" size="5" autofocus>

<br><br>

Value Number 2 <input id="val2" type="text" size="5">

<br><br>

After Swapping

<br><br>

Value Number 1 <input id="result1" type="text" size="5">

<br><br>

Value Number 2 <input id="result2" type="text" size="5">

<p id="msg"> </p> 

<button id="button_me" onclick="swap()">Check</button>

&nbsp;&nbsp;&nbsp;

<button id="button_me" onclick="clear_me()">Clear</button>

</br></br>

</body>

</html>

Math and Science Tutorials ~ Professional Math and Science Tutorial Services Made Easy.

Having problems following through classroom lectures in mathematics and science and appreciating mathematics and science at its basics? Do you need assistance in coping with the inherent challenges encountered with these subjects? You might just be in need of a follow up, or some more practice in solving problems in these areas. Then a one-on-one or guided practice might be the one for you. Mathematics is all about procedures and pattern(s) recognition in solving. If these procedures and patterns are understood, any mathematical procedure no matter how complex is made a lot easier and manageable as they may first appear at first reading. Scientific problems on the other hand need mathematical skills in applying the given information in the problem to appropriate formulas together with information like what is given and what is required in the problem.

Dr. Ma. Junallie F. Pomperada is a professor of the College of Engineering of the University of St. La Salle in the Chemical Engineering Department. Graduated from University of Negros Occidental-Recoletos and finished her Master of Engineering Major in Chemical Engineering from Central Philippine University. She finished her Doctor of Philosophy in Technology Management from Carlos Hilado Memorial State College.

Services Offered:

Tutorial on the following subjects: Inorganic Chemistry, Analytical Chemistry, Thermodynamics, Algebra, Trigonometry, Differential and Integral Calculus, Differential Equations, Advanced Engineering Mathematics, Chemical Reaction Engineering, Process Control ad Unit Operations with Specialization in Distillation, Evaporation, Gas Absorption, Stripping, Extraction and Leaching.

She also offers online tutorial kindly contact here in the following address below.

Contact Information:

Email: alliepomperada@yahoo.com
Mobile: +63 (0917)7010825
Residence: +63 (034)4335675
Facebook Address: https://www.facebook.com/allie.fuentebella

Advertisements

WHAT IS THE EDGE OF USING PROMOTIONAL PRODUCTS

Hello friends and visitors of my website I would like to promote the online business of my best friend Mr. John Madrigal kindly read his article below it is all about promotional products and what is the benefits of promotional products to your business. If you like the article please click the follow link to know more about Saybasic http://www.saybasic.com Thank you very much for the support guys.

WHAT IS THE EDGE OF USING PROMOTIONAL PRODUCTS

Any advertising ideas help you to connect with prospective clients, whether on prints, radio, or television. This helps them entice to buy products or services offered by advertisers who wish that their business become more competitive. And we all know that competition is something that business owners cannot be ignored regardless of any types of industry. Without ads, your business will be out in the competition, because there are so many big giants dominating in the market niche. As a business owner, you won't probably allow that your competitors take off and possibly you'll have to do something on it before it's too late.

Big business has already an edge because some can afford to put their advertisement on television, newspaper and magazine, or on the radio. While as a small business owner, you don't like your business to become less competitive. You think out of the box and will not rely only on your existing clients. You may also want to consider acquiring some promotional products so you can nest your business with this kind of mean. Giving away promotional items can actually help multiply your ads because it can be passed from person to person. With a logo or imprint on your promotional products, it is possible that it would help you connect with these potential customers, as they might probably need something in the future. Seeing those imprints or logo, it would help them remember your business and that could possibly make them aware about what you can offer them. Unlike print ads, the cons it that, they might only see you once; and the information may not always be viable for them. Promotional items as giveaways are affordable, whether it is a pen, key chains, note pads or umbrella because of the unique benefits that one can get from these items. With promotional products, information is very convenient and viable.

Now it's really hard to argue some of the points between promotional products and traditional print ads. Statistics are facts and of course as a business owner, you would not like to spend hundred dollars that ads are run only once and then soon enough these are just only thrown away or put it in the cabinet. It is also a fact that most people are not going to cut a print ad out and then carry it with them every day. With Promotional products, it can be carried anywhere they go and these can be used every day. For example a simple key chain with a name or imprint on it displaying company information can be carried everyday by a user. Promotional items are a lot of more savings for a customer own perspective.

Promotional products are actually lead generator which allows to capture some potential customers and eventually buy your products and services. It is described as a silent salesman which the imprints or logo are the first hand information that customers would keep in mind. Promotional products last very long and it works more than the print ads do.

Article Source: http://www.valuable-content.com/others/what-is-the-edge-of-using-promotional-products.html