Microsoft Visual FoxPro 6.0 Form

Microsoft Visual FoxPro 6.0 Form (.scx)

*Note: Visual FoxPro Form support only Windows XP operation system.

Step-2

TEXT5                                                                        GOTFOCUS

A=THISFORM.TEXT3.VALUE

B=THISFORM.TEXT4.VALUE

C=A*B

THISFORM.TEXT5.VALUE=C

Step-3

(.dbf File Making)

Field Name                  Type                      Width              Dec

PRODCODE              Character                   8                                 

PRODNAME              Character                   20                   

QTY                            Numeric                      6                      2

RATE                          Numeric                      6                      2

VALUE                       Numeric                      8                      2                     

Step-4

FORM                                                                          LOAD

SET TALK OFF

SET SAFE OFF

USE JIRAT (.dbf File Name)

INDEX ON PRODCODE TO PANDUA (.idx File Name)

FORM                                                                 ACTIVE

GO TOP

THISFORM.TEXT1.VALUE=PRODCODE

THISFORM.TEXT2.VALUE=PRODNAME

THISFORM.TEXT3.VALUE=QTY

THISFORM.TEXT4.VALUE=RATE

THISFORM.TEXT5.VALUE=VALUE

FORM                                                              DEACTIVE

USE

SET TALK ON

SET SAFE ON

TEXT2                                                              GOTFOCUS

C=ALLTRIM(THISFORM.TEXT1.VALUE)

L=LEN(C)

IF L<8

                WAIT WINDOW “IT MUST BE 8 CHARECTER”TIMEOUT 3

                THISFORM.TEXT1.SETFOCUS

ELSE

                SEEK C

                IF FOUND()

                                WAIT WINDOW “IT CAN NOT BE DUPLICATE”TIMEOUT 3

                                THISFORM.TEXT1.SETFOCUS

                ELSE

                                THISFORM.TEXT2.SETFOCUS

                ENDIF

ENDIF

FIRST                                                       CLICK

GO TOP

THISFORM.TEXT1.VALUE=PRODCODE

THISFORM.TEXT2.VALUE=PRODNAME

THISFORM.TEXT3.VALUE=QTY

THISFORM.TEXT4.VALUE=RATE

THISFORM.TEXT5.VALUE=VALUE

NEXT                                                                            CLICK

IF EOF()

                WAIT WINDOW”YOU ARE IN LAST RECORD”TIMEOUT 3

                GO BOTTOM

ELSE

SKIP

ENDIF

THISFORM.TEXT1.VALUE=PRODCODE

THISFORM.TEXT2.VALUE=PRODNAME

THISFORM.TEXT3.VALUE=QTY

THISFORM.TEXT4.VALUE=RATE

THISFORM.TEXT5.VALUE=VALUE

PREVIUS                                                                                         CLICK

IF BOF()

                WAIT WINDOW”YOU ARE IN FIRST RECORD”TIMEOUT 3

                GO TOP

ELSE

                SKIP-1

ENDIF

THISFORM.TEXT1.VALUE=PRODCODE

THISFORM.TEXT2.VALUE=PRODNAME

THISFORM.TEXT3.VALUE=QTY

THISFORM.TEXT4.VALUE=RATE

THISFORM.TEXT5.VALUE=VALUE

LAST                                                                      CLICK

GO BOTTOM

THISFORM.TEXT1.VALUE=PRODCODE

THISFORM.TEXT2.VALUE=PRODNAME

THISFORM.TEXT3.VALUE=QTY

THISFORM.TEXT4.VALUE=RATE

THISFORM.TEXT5.VALUE=VALUE

UPDATE                                                                                          CLICK

REPLACE PRODCODE WITH THISFORM.TEXT1.VALUE

REPLACE PRODNAME WITH THISFORM.TEXT2.VALUE

REPLACE QTY WITH THISFORM.TEXT3.VALUE

REPLACE RATE WITH THISFORM.TEXT4.VALUE

REPLACE VALUE WITH THISFORM.TEXT5.VALUE

WAIT WINDOW “UPDATE RECORD”TIMEOUT 3

CLOSE                                                                 CLICK

THISFORM.RELEASE

7 Replies to “Microsoft Visual FoxPro 6.0 Form”

  1. Do you need clients?

    We compiled some of the world’s top databases for you at ridiculous low prices. $49 for any of our databases or $99 for all 16 databases!

    Visit BestLocalData.com

    Regards,
    Amber

  2. Thanks for your entire efforts on this website. My mum loves carrying out investigations and it’s really simple to grasp why. We notice all concerning the powerful manner you render effective guides on the website and as well attract participation from the others on that subject plus our favorite simple princess is without question learning a lot of things. Take advantage of the rest of the new year. You’re the one performing a glorious job.

  3. I would like to express thanks to this writer just for bailing me out of this particular challenge. Because of exploring through the world wide web and meeting notions which were not productive, I believed my life was well over. Existing devoid of the approaches to the problems you’ve fixed all through this article content is a serious case, and the kind that would have negatively damaged my career if I hadn’t come across your web site. The competence and kindness in handling all areas was vital. I don’t know what I would have done if I hadn’t come upon such a thing like this. I am able to at this moment relish my future. Thank you so much for your impressive and results-oriented help. I won’t hesitate to endorse the website to any individual who would like guidelines on this topic.

Leave a Reply

Your email address will not be published. Required fields are marked *