The LA Fox Developer Newsletter

Y2K (Con’t from page 4)

*

Author/Date: Judy Denison 06/26/98

*

Description: Sets display of original date

*

Parameters: None

*

Variables:

*

lcDate

Long date; e.g.: June 26, 1998

* Returns:

None

Uses:

None

Calls: None

* Called by: None

a Note: Display set up only after entering textbox.

a Would be nice to have Tool Tips set up on entry to

form, but lnit() on this object is too soon, no

a date set yet; and there is no Activate()

LOCAL

lcDate

STORE “TO

lcDate

WITH THIS

a Long date in Canadian word order

a if appropriate

lcDate = IIF(SET(’DATE’) = ‘DMY’,;

DMY(.Value),

MDY(.Value))

SET MESSAGE TO lcDate

.ToolTipText = ‘Original date: ‘+ IcDate

a Show ‘Invalid Date’ wait window if

*

appropriate; reset in Valid()

.cNotify = SET(’NOTIFY’)

SET NOTIFY ON

ENDWITH

RETURN

*

End: CLASS DateTextBox.When()

(Ed.Note: Judy Denison is a VFP Programmer/Analyst for

ProCard, Inc., and has been a FoxPro programmer for five

years. Before that she was a Physical Scientist for the U. S.

Geological Survey, a Supeivisoiy Survey Statistician for the U.

S. Bureau of the Census, a Research Associate for the Univer-

sity of Wyoming Economics Department, and the owner of an

arts and crafts galleiy in Laramie (not all at once). She has an

old master’s degree in physics and a second bachelor’s in

psychology. She lives in Golden, Colorado, and can be reached

at jdenison@procard.com.J

FoxPro Q&A (Con’t from page 6)

The procedure to delete a number of files using a file skeleton

similar to the MS-DOS command, DEL *BAK is given below.

Just as for its MS-DOS equivalent, you can pass it a path if the

files to be deleted are NOT in the default (current) directory.

PROCEDURE BEGINS

PARAMETERS pathname

SET TALK OFF

SET SAFETY OFF

(Con’t, next column)

August 1998

Out and About (Can’t from page 2)

FIND INTEGRATED SOLUTIONS AT MICROSOFT BUSINESS

APPLICATIONS CONFERENCE 98. Although content at the

Microsoft Business Applications Conference will be technically-

based, the focus will be on how you can build the best inte-

grated solutions for your most common business problems.

Learn how to build end-to-end solutions the way it’s done in the

real-world, by integrating multiple Microsoft products, partner

products, and custom applications together into a complete

solution. To register for the conference, held in Las Vegas,

Nevada on Sept. 9 - Sept. 11, see: http://www.microsoft.com/

directaccesslbizappsO5l3_rdr.htm

Since We Last Met...

VISUAL STUDIO 6.0 NOW AVAILABLE FOR DOWNLOAD

Visual Studio 6.0 is now available for download to MSDN

Universal Subscribers and MCSPs through MSDN Subscriber

Downloads. To access MSDN Subscriber Downloads, visit

http://www.microsoft.com/msdn/downloads/subscriber.htm.

MSDN SUBSCRIPTION AUGUST INTERIM RELEASE

The MSDN Subscription August Interim shipment includes SQL

Server 7.0 Beta 3, Build 517 and Visual Studio 6.0 Enterprise

Edition. For complete details or a full listing of all MSDN

subscription components, visit http://www.microsoft.com/msdn/

services/subscription/index/.

You must be an MSDN Universal Subscriber or MCSP.

FoxPro Q&A (Con’t from previous column)

Iibactive.F.

CLEAR

filecount=0

filename=SYS(2000,pathname)

DO WHILE LEN(filename) > 0

IF filecount0

*activats library

SET LIBRARY TO SYS(2004)+’foxtools’ ADDITIVE

Iibactive=.T.

ENDIF

DELETE FILE (forcepath(filename, justpath(pathname)))

filecount=filecount+1

filename=SYS(2000,pathname,1)

IF libactive

RELEASE LIBRARY SYS(2004)+’foxtools’

ENDIF

? ALLTRIM(STR(filecount)) + ‘ Files have been deleted.’

PROCEDURE ENDS

Can I suppress a keystroke after testing for it in the Keypress

event of the control?

(Con't page 7)

Page 5