Foxite.COM Visual FoxPro Forum

Grids: Strange grid problem

Tue, 09 Feb 2010 13:55:47 +0100

Version: Visual FoxPro 9 SP2

SIR,

I am facing a problem about valid event in grid.

The form is attached,the problem details is also included in form. please help
http://www.foxite.com/uploads/5112e621-57aa-4bca-819d-de184254e6d3.zip

3rd Party Software: themed control problem

Mon, 08 Feb 2010 12:43:04 +0100

Version: Visual FoxPro 9

Dear Experts
i am using windows 7. when i run themed control following errors

Thanks & Regards

Tanveer Ul hassan

Databases, Tables and SQL Server: Sorting A table

Sun, 07 Feb 2010 11:16:22 +0100

Version: Visual FoxPro 9

Hi Guys,

I have a little problem that i need some help with.

I have a table of names and addresses that i am required to print two up on a A4 sheet of paper while keeping them in strict order as there is a sequence number allocated to the table before i do the two up sort as below.

The following snippet of code i use to do a two up sort on a table

before it looks like below :
sequence Number sort_No
1 0
2 0
3 0
4 0

and so on......

replace Sort_No with (2 * recno()) - 1 for recno() <= (reccount() / 2)
replace Sort_No with (2 * recno()) - reccount() for recno() > (reccount() / 2)

INDEX ON Sort_No TAG Sort_No
SET ORDER TO Sort_No

After it looks like below :
Sequence Number Sort_No
1 1
3 2
2 3
4 4

and so on ... remembering if the table is bigger than 4 records the number 3 in sequence number field will be 1/2 the number of records + 1

This has worked for a long time - now due to the recession i have been asked to print them 4 up on a sheet of A3 to save money

I would like to do the same as above but make it do a four up sort on a table.

Can any one come up with a way of doing this for me very quickly

Do i just need to add two more lines to the above so it looks like below ?

replace Sort_No with (2 * recno()) - 1 for recno() <= (reccount() / 2)
replace Sort_No with (2 * recno()) - reccount() for recno() > (reccount() / 2)
replace Sort_No with (2 * recno()) - 1 for recno() <= (reccount() / 2)
replace Sort_No with (2 * recno()) - reccount() for recno() > (reccount() / 2)

INDEX ON Sort_No TAG Sort_No
SET ORDER TO Sort_No

Obviously changing the number 2 to be a 4 .... ?

The field in the table called sort_no is a numeric.

Any help would be appreciated.

thanks in advance

rdrunner

"Keep your feet on the ground and keep reaching for the stars..."

General VFP Topics: CORRUPTED TABLE VERIFY

Tue, 09 Feb 2010 16:44:28 +0100

Version: Visual FoxPro 9 SP2

Hi Experts,
How can I verify while opening if the table is corrupted?

Thanks
Sasy

Databases, Tables and SQL Server: convert dbf to MSSQL

Tue, 09 Feb 2010 15:58:28 +0100

Version: Visual FoxPro 9 SP2

Dear experts,

can anybody help me please?
I want to immigrate a large dbc database into MS SQL Server 2005. There are 430 Tables and i can not do it individually.
Shuld i purchase a software?

2000000 x Thanks

Projects and Design: Is there a setting to force recompilatio

Tue, 09 Feb 2010 16:36:41 +0100

Version: Visual FoxPro 9

Although 'recompile all' is checked on project build, sometimes the code isn't rebuilt and I need to compile explicitly using 'compile' command. Is there a setting somewhere that would make 'Recompile all' work as it is intented to do?
Thanks in advance

Cetin Basoz

.Net has got better.Think about moving - check my blog:
Blog (main)
Blog (mirror)

Windows Vista and VFP: Calibri font on vfp form with XP

Mon, 08 Feb 2010 05:50:17 +0100

Version: Visual FoxPro 9 SP2

Hi,

I am using Calibri and Segoe UI fonts for my form labels. When the form is run in XP, these labels go darker and darker when the form is deactivated and activated. Here is how it looks.

As you can see, label with tahoma font has remained ok while others have become darker.
If the form is minimized and maximized, these fonts come back to normal.

What is the problem? How to fix it?

Thanks

Vivek

Foxite: feedback: Twitter Foxite feed ?

Tue, 09 Feb 2010 15:29:56 +0100

Version: Not Applicable

Is that you Eric ?

http://twitter.com/foxitefeed

Regards,

Cesar
My Blog

Foxite: feedback: Mailrobot not workin?

Tue, 09 Feb 2010 10:10:13 +0100

Version: Not Applicable

Hi,

I am not receiving notifications of replies etc. in my mailbox. Has the problem we had experienced a few weeks ago re-surfaced?

Vivek

Windows 7 and VFP: combine the contents of two text files

Tue, 09 Feb 2010 01:35:25 +0100

Version: Visual FoxPro 9 SP2

Hi will you able to help me with this logic. combining the contents of two text files into 1 text file

example
textfile 1
filename: en99901.txt
contains:
001053912110889000768
001053914800212000494
00105391480488
00105391480488901253
00105391480488891833
001053914809010955012
0010539174305001161
001053914804888899437
001053914800016556982
001053914809011553026

textfile 2
filename : whole.txt
contains
16850,2110889000768,"cambridge dist london gin 75cl"
100004,74305001161,"BRGG APL CDR VNGR16oZ"
100004,74305401169,"BRGG APL CDR VNGR16oZ"
100006,4800212000494,"CHAMPOLET WAFER 150G"
100024,4902430498272,"WHISP SN ULT REG NW5S"
100026,4809010955012,"HRVSTRS INTAN RCE 2K"
100028,4809010955029,"HRVSTRS WLMLD RCE 5K"
100034,4809010955067,"HRVSTRS LNGGRN 5K NVT"
100036,4809010955111,"HRVSTRS SNDMNG 10K NV"
100043,4809011553026,"SQUZD4U CLMNSI 750M"

textfile 1 will be divided into 3 using set cursor
example
value 1-5 6-9 10-23
cde loc barcode
00105 391 2110889000768

textfile 2 will be divided into 3 using delimited
example
link barcode description
16850,2110889000768,"cambridge dist london gin 75cl"

we will use the barcode of textfile1 to search in textfile2
if not found will drop the list of notfound in textfile3
but the name of textfile3 will become the name of textfile1+_notfound or = en99901_notfound.txt
e.g. we have at least 100 textfile in different filename for textfile1.
i will use the command
textfile1 = GETFILE("txt",'',"OK", 0,"search for textfile1 ")
textfile2 = GETFILE("txt",'',"OK", 0,"search for textfile2 ")
command1 button will initiate the filter of not found and drops to textfile3

thanks.

aris

VFP and .NET: input algorithm to filename

Sun, 07 Feb 2010 13:35:41 +0100

Version: Visual FoxPro 9 SP2

hi how to add up algorithm to saving file.

example
If _Tally > 0
Select t_temp
Copy To myfile.txt Type sdf
Use In t_temp
Endif

i want to change the filename to

myfile_Feb7_832pm if created in Feb7 at 8:32pm
myfile_Feb7_832pm if created in Feb7 at 8:835pm

and drops the said file to desktop with folder myfile

thanks

aris

Classes and Objects: optiongroup with scrollbars

Mon, 08 Feb 2010 11:06:43 +0100

Version: Visual FoxPro 8

how to create optiongroup with scrollbars ???
i want display option with style graphical and scrolled
thank's

Projects and Design: text cursor size

Tue, 09 Feb 2010 13:30:25 +0100

Version: Visual FoxPro 9 SP2

Hello,
i want to ask if anybody know how to change cursor size in textbox.
I know that this can be done throught windows control panel,
but i mean programatically change.

In older time i use sys(2008, "I", 2), but this no longer exist in vfp.

Thank
Martin

Microsoft Office Automation: READING EXCEL COLUMN

Tue, 09 Feb 2010 06:21:51 +0100

Version: Visual FoxPro 9

Dear,
I want to fetch all the value of a column in a excel sheet.
How can I do that programatically.

Regards
Sandy

User Groups & Online Communities: DAFUG - February 2010

Tue, 09 Feb 2010 11:59:50 +0100

Version: Not Applicable

February 11, 2010
Detroit Area Fox User Group (DAFUG) presents:
"VFP and MySQL: Case Study for Remote Data"

1) "VFP and MySQL: Case Study for Remote Data", by Rick Schummer

For many years Visual FoxPro developers have found backend databases to be a compelling alternative to the DBF data store. There are many good reasons to move to a backend database. The business model of distributed locations and facilities is not uncommon. Because of the way Visual FoxPro caches tables and indexes, DBF data does not scale well over the WAN, pushing people to a backend data store. Another business concern is the security of the DBF files and easy access to anyone with network/workstation access to the folder where they are stored. Businesses cannot afford to have their competitive advantage walk out the door on a thumb drive. Then there is the ever unpopular technical limitation of the two gigabyte table size limit. There are lots of good reasons you or your customer might want to migrate to a server-based backend database.

Visual FoxPro is very flexible in working with backend data. In fact, even though Visual FoxPro has a long history deeply seeded with the DBF standard, the development environment and the language is really data store agnostic. In this session, you'll see how you can leverage MySQL (or for that matter, any backend data) to have data sit on a server (Web, file, or data), and have a Web application and a VFP desktop application both access the same database. The demonstrations will be performed on a live application developed as a prototype for two production applications created for actual customers that fit this model. The session is filled with real world experience and the wisdom shared should give developers a huge head start if they are just getting started with remote data, and some things to consider even if you have experience working with backend databases.

You will learn:

- Fundamentals of working with MySQL and other backend databases
- Pros and cons to different access techniques to remote data (remote views, cursoradapters, SQL passthrough)
- Performance vs. ease of use vs. flexibility considerations approaching backend data
- Simple model for architecting a distributed application
- Lessons learned in setting up a distributed application
- Challenges to consider before you decide to make the jump to a backend database

2) Anything else people want to talk about.

- Open discussion and the other normal chatter of tips and tricks.
- Anything else people want to talk about.

3) DOOR PRIZES (one of each):
- Office 2007 Standard
- Halo 3 ODST (Xbox)
- Forza Motorsport 3 (Xbox)
- Word of Mouth Marketing (Book)
- Introducing Windows 7 for Developers (Book)
- How We Test Software at Microsoft (Book)

We are always looking for volunteers and topics (please email Dale Zimmer or Rick Schummer)

Meetings are typically followed by food, FoxPro, and developer discussion at a local restaurant.

Holiday Inn Express - Southfield
25100 Northwestern HWY
Southfield, MI 48075

Small Meeting Room on 1st Floor

Hope to see you there.
More DAFUG details at http://www.dafug.org

Agenda:
6:00 - 8:00 Presentation
8:00 - ? Food

Future Planned DAFUG Meetings and Speakers:
March 11, 2010 - "Quibbles, Quirks, and Quickies" - Rick Borup
April 15, 2010 - TBD
May 13, 2010 - TBD - Mike Feltman
June 10, 2010 - TBD
July 2010 - No Meeting (maybe a baseball game??)
August 12, 2010 - TBD
September 16, 2010 - TBD
October 7, 2010 - TBD
November 18, 2010 - TBD
December 9, 2010 - TBD

DAFUG meets on the second or third Thursday of the month (except for July).

Admission to DAFUG meetings will be granted free to anyone for 1 (one) meeting. After that you must either join the group (at the low cost of $30 a year, $15 for a half year) or you will be asked to pay $5 per meeting you attend. The $5 will grant you admission but no other rights or privileges of membership.

Mary Pilon, Secretary for DAFUG

Projects and Design: Making of Down arrow and uparrow

Tue, 09 Feb 2010 06:53:20 +0100

Version: Visual FoxPro 9

In the Grid for upward trend i want to display uparrow and for downward trend i have to use downarrow or for no change level arrow how can i do this

Reports and Printers: Show processing graphically (not thermo)

Tue, 09 Feb 2010 07:42:29 +0100

Version: Visual FoxPro 9

Hi all

Currently I have a WAIT WINDOW telling the user to wait as processing is being done for report generation. W/o going through hoops, can we have some quick and simple animated graphical display to the user that something is happening with a message. A Thermometer is not appropriate in this case as that would truly require a lot of setting up for a report that really may run very fast depending on user selection.

Please advise

Thanks and regards
Bhavbhuti

Forms: Vista and Title bar of Form not showing

Tue, 09 Feb 2010 06:48:58 +0100

Version: Visual FoxPro 9

In Vista Home Premium (VHP) some of my forms Title bar is not showing

Grids: adding data to a grid in database table

Tue, 09 Feb 2010 09:20:33 +0100

Version: Visual FoxPro 9

hi good day...
i have a problem about the data in my grid...
i just don't how to view the data in my table in the database..
i can only view it when i use the the table in my database as the table in my
grid...
but i want to view my data in another grid that i may not use the table in my
database as the table in my grid.. how can i put the data into the table just only to view its data without using the table in the database as the table in the grid?
please help... cause i'm just new about this...

Grids: grid problem

Mon, 08 Feb 2010 17:55:30 +0100

Version: Visual FoxPro 9

hi to all of you..
i have a problem of my grid table...
when i open the form that contain s the grid the table was appeared
but when i open another form and when i call the form that contain the grid
using the a button...the table in the grid was not appeared,,...
please help

Forms: Close Forms only with Close Button

Mon, 08 Feb 2010 13:31:14 +0100

Version: Visual FoxPro 9 SP2

Dear Experts

I use following codes to close form with only close button, that works fine.
Now I want to use some codes in main prg to apply following code to all the forms in project instead of writing on every form.

Please help

MESSAGEBOX("Please press close button to exit",_screen.ActiveForm.caption)
NODEFAULT

these code are on queryunload evetn

Distribution and InstallShield: VFP9RUNTIME.MSM - Installshield error

Sat, 06 Feb 2010 17:59:58 +0100

Version: Visual FoxPro 9 SP2

Hi everyone,

Longtime reader, first posting.

Installshield is giving me the following error:

ISEXP : fatal error -6479: Internal build error

Determined it's complaining about the VFP 9 runtime libraries.

Spent most of the morning trying to find a solution.

It's suggested I download a service pack for Visual Studio.

I don't use Visual Studio --- does that matter?

Where could a get an up-to-date file?: VFP9RUNTIME.MSM

Cheers.

Databases, Tables and SQL Server: Alter Table TableName Drop & Cursor

Mon, 08 Feb 2010 09:19:25 +0100

Version: Visual FoxPro 9

SELECT * FROM Custcddt ORDER BY Alphcddt INTO CURSOR Tc_Tg READWRITE 

GO TOP IN Tc_Tg

ALTER Table Tc_Tg DROP COLUMN DLTD 

ALTER Table Tc_Tg DROP COLUMN MARK

ALTER Table Tc_Tg DROP COLUMN NMRCCD

oPFP1 = Thisform.Pgf1.Page1 
oGrid1 = Thisform.Pgf1.Page1.Grid1

WITH oGrid1

	.RecordSource = 'Tc_Tg'
	.ColumnCount = FCOUNT('Tc_Tg')

	.SetAll('FontSize',8,'Header')  	   
	.SetAll('FontName','Times New Roman','Header')
	.SetAll('FontItalic',.t.,'Header')

	.AutoFit()
	.ReadOnly = .T.  
	.LockColumns = 2
	.SetFocus()
	
ENDWITH

I put above code in init event of form

Problem: After quiting form i run again it gives error on Sql Select statement Alias name is already in use

If i remove Alter table Drop command it is runing okay 2nd time

Reports and Printers: Superscript or Subscript

Mon, 08 Feb 2010 08:47:29 +0100

Version: Visual FoxPro 9 SP2

Hi Experts,
I am working on a Laboratory Management System and I want to print Different Units with Subscript and superscript format. How I can print these values.
Thanks

MZahid

General VFP Topics: search a map from a lon & lati. from dbf

Sun, 07 Feb 2010 22:51:23 +0100

Version: Visual FoxPro 9 SP2

Hi, i need some help. In a dbf I have addresses of different customers. I was able to get the longitude and latitude coordinates of such addresses. Can some one help me to take those coordinates and from a form get a google map of the selected address?

Thanks for your help.

User Groups & Online Communities: Chicago FUDG / Snow Day

Mon, 08 Feb 2010 23:51:00 +0100

Version: Not Applicable

Our February meeting has been cancelled due to the winter storm predicted for Tuesday, 9 Feb 2010. Mark your calendars for our next meeting on 9 March 2010: speaker(s) and topics(s) T.B.A.

3rd Party Software: XFRX preview and Find

Sat, 06 Feb 2010 05:00:57 +0100

Version: Visual FoxPro 9 SP2

Do you use the XFRX previewer?

When you click the Find button, it has a checkbox for "Use wildcards".

Does anyone know how to use it? I tried searching for perc*ntage (for percentage) and it doesn't find anything.
Has anyone used it successfully?

Cyril

Distribution and InstallShield: Visual Foxpro 6 Distribution Disks

Sat, 06 Feb 2010 00:28:33 +0100

Version: Visual FoxPro 6

I have created 3 disks on my hard disk using the distribution program.
How can I install the distribution to another pc with no floppy drive?
I want to be able to use a USB memory stick to do this.

Projects and Design: reference

Mon, 08 Feb 2010 14:05:59 +0100

Version: Visual FoxPro 9 SP2

Hello,

know anybody how to pass reference to array contained in object ?

example:

dimension a[10]
=myProg(@a)
or
do myProg with a

In this case myProg obtain as parametr array. (Set udf parms to value)

BUT:
m.a=createobject("empty")
=addproperty(m.a,"myArray[10]")

how to call myProg and pass m.a.myArray by reference ?

Thank you
Martin

Databases, Tables and SQL Server: HierarchyID - how to use it?

Mon, 08 Feb 2010 18:41:49 +0100

Version: Not Applicable

I need to model an Agent structure where an Agent reports to a superior who can report to a superior and so on ad infinitum.

I have recently discovered the HierarchyID type in SQL Server and would like to know how exactly I need to create the table.

I have an AgentPK field of type uniqueidentifier. Now I need the Hierarchy, do I just create a field like HieararchyPath type HierarchyID? I get the impression from what I have found on-line that the hierarchyid field holds the path of all superiors' primary keys, so is a uniqueidentifier appropriate to use as the table's Primary Key? Or does it not matter?

Is using the hierarchyid the best way to do this, or do I go with the old ReportsTo field where I store the superior's Primary Key in this field?

Frank.

Frank Cazabon
Samaan Systems Ltd.
www.SamaanSystems.com

Grids: Grid Validate

Mon, 08 Feb 2010 19:49:44 +0100

Version: Visual FoxPro 9 SP2

table period has three fields as

sno n(2)
sifts c(1)

i am trying to enter data throug grid

there will be indexing on
sno+shifts

if some body enters data

1--A
1--A

Then it must not accept data
I want to call valid event on thisform.grid1.column2.text1.valid

i write these codes

select periods
thisform.text2.value=sno
thisform.text3.value=shifts

if !empty(this.value)
select periods
count for sno=thisform.text2.value and shifts=ALLTRIM(thisform.text3.value) to xxt
if xxt>1
return.f.
else
return.t.
endif
endif

please help

Forms: Disable the button while repo executes

Mon, 08 Feb 2010 12:05:24 +0100

Version: Visual FoxPro 9

Hi all

I have a command button when clicked will run the report, but do what I may I can't keep it disabled unless I put a messagebox right after the command. What do I need to do to make it stick without the user having to press OK.

THIS.ENABLED = .F.
messagebox("please okay this to disable the run button :)")

DODEFAULT()

THISFORM.RunReport()

THIS.ENABLED = .T.

Please advise

Thanks and regards
Bhavbhuti

Projects and Design: Calculate age

Mon, 08 Feb 2010 14:24:02 +0100

Version: Visual FoxPro 9 SP2

Hallo,
Could anyone please tell me how you calculate the age in years of a person
I found a lot of solutions on foxite but not the one that resolves my problem.
Example
Birthday = 08 february 1950
Today = 08 february 2010
How old am I in years?
When I use
lnDays = DATE() - ldBirthDate
INT(lnDays/365.25)
I obtain 59 years instead of 60. Dividing by 365.27 gives the exact solution but is it valuable for all cases?
Thanks in advance. Greetings. Lucien.

Reports and Printers: remove detail band

Mon, 08 Feb 2010 15:21:11 +0100

Version: Visual FoxPro 9 SP2

Hi Foxers,

I have a single report that sometimes I want to show the detail band
and sometimes just show the group/summary bands.

The report is quite long and the detail is only occasionally looked at.

I could just create a copy and blank out the detail band but would like to only have
1 report so I don't have to maintain 2 reports and keep them synced.

Therefore I would need to trigger on printing which type I would like.

Any ideas?

General VFP Topics: Help converting VB to VFP code

Mon, 08 Feb 2010 02:48:32 +0100

Version: Visual FoxPro 9 SP2

Hi I need some help converting a VB Desktop Application to be able to run using visual foxpro 9
Here is the link of something that i want to accomplish in a vfp9 application.
http://www.vbdotnetheaven.com/UploadFile/scottlysle/VBQuickMap03182007085423AM/VBQuickMap.aspx
This application enables to add a google map to a desktop application, but is written in visual basic 2005.
Can someone help me convert the code so it can run the exact way but in vfp9?

Thank You i really appreciate it.

Classes and Objects: ctl32_statusbar disables progress bar

Mon, 08 Feb 2010 14:43:12 +0100

Version: Visual FoxPro 9 SP2

Good day foxiters,

I have a little problem I hope someone can help me,

I'm using ctl32_statusbar custom vcx from http://www.ctl32.com.ar/. It's a nice vcx with several customized controls. The problem is that when I use the ctl32_statusbar in my app, for some reason I haven't found, the progress bar of the report preview doesn't show anything. If I disable ctl32_statusbar the progress bar returns to normal. I've trying to get support from official site's forum but I get no response yet. Anyone have experienced the same problem with this VCX?.

I'm using VFP's report engine in my app with the builder,preview and output as .app files bundled with my app and setting _reportoutput,_reportpreview and _reportbuilder in my main prog.

Thanks in advance for your help

Databases, Tables and SQL Server: More efficient way..

Mon, 08 Feb 2010 13:18:06 +0100

Version: Visual FoxPro 8

I just wondered if anybody had a more efficient way of carrying out the following sequence - at the minute on lrage tables it can be quite slow:

Table # 1 = (Customers.Dbf) && Customer file

Table # 2 = (Entries.Dbf) && This holds when customer entered

What we do then is to use a loop to calculate how many time a customer entered over a given day/range, ignoring when they visited twice in a day, for example:

DatestoSearch = 20 && The number of days to search for in sequence
&& this might be 1, or 20, or 365 days to search for
&& and is passed earlier in the sequence, but is hard coded for this example
Select 1
Use Customers

Select 2
Use Entries

Select 1
Do While Not Eof()
	GnAccount = AccountID		&& Store user ID
	Select 2
	Do While I = 0 < DatestoSearch	&& Loop for each day in date range
		Locate For EntryDate = (MyDateSearchValue) .And. AccountID = GnAccountID	&& Find entry for that day
		If Found()
			MyCounter = MyCounter  + 1	&& If found, increase the customer counter by one
		Endif
		EntryDate = EntryDate + 1
		Loop
	Enddo

	Select 1		&& Repeat this for each user in DB
	Skip
	Loop
Enddo

Thanks in advance!

Forms: To Rename List Item

Mon, 08 Feb 2010 06:34:16 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

Please guide me how to do this:

I have a listbox control on my form (list_areas) associated with a cursor "crsrAreas". I want that when user right click on any list item, a popup shortcut should appear with an option "rename" and upon selection/clicking of this option, a text box should appear at the same place holding the same list item text where that list item is showed and user can rename the list item. Please guide

Thanks a lot.

Reports and Printers: report error when setfocus grid

Sun, 07 Feb 2010 21:41:35 +0100

Version: Visual FoxPro 9 SP2

When i wanted to print a report when the focus was on the grid, the report gives a very strange result.

After i changed the focus with setfocus on another object before the REPORT FORM command, the problem went away

I think Stefan was right, when he said, that the grid is really a jealous object :)

Classes and Objects: inherit from msxml objects?

Mon, 08 Feb 2010 09:38:23 +0100

Version: Visual FoxPro 9

Is it possible to create a class that derives from the xml classes:

DEFINE CLASS MyDoc as msxml2.DOMDocument
FUNCTION Init(file)
This.Load(file)
ENDFUNC
ENDDEFINE

Or is the way to do this to define my own class as Custom and add a member of type msxml2.DOMDocument?

Thanks,
Ellen

Databases, Tables and SQL Server: security code and login

Mon, 08 Feb 2010 06:15:29 +0100

Version: Visual FoxPro 9

hi everyone, i just want to ask about on my 2 forms. i had created a security keypad and a login form and this is how my 2 forms works, i use on my code a series of number codes (2485)-that's me or admin and (0011)-ordinary user, i will use this codes in order to login on my login form and if i am already on the login form i will enter my UN and PW to use the system. my question is this, is it possible that my code-(2485) and US-(edsel) and PW-(escober) must synchronize? because for now if i will enter my code which is (2485), the Ordinary User can use their US and PW to access the system so in other words if i will use my code, only my US and PW will be use and same also if the Ordinary User will use their code, they must also use their US and PW. hope you could help me on this one and your reply is highly appreciated...!:-)

this is the code and pic of my security keypad form:

Local lcValue
lcValue = ALLTRIM(Nvl(thisform.txtdisplay.Value, ''))

Do Case

Case Empty(m.lcValue)

MESSAGEBOX("Please enter your code!", 48+0, "Warning!")
thisform.txtdisplay.value = ""
thisform.txtdisplay.setfocus

Case m.lcValue == "2485"
MESSAGEBOX("Administrator 1: Sir Edsel")
DO FORM Login
thisform.Visible = .f.

Case m.lcValue == "0011"
MESSAGEBOX("Administrator 2: Sir Divine")
DO FORM Login
thisform.Visible = .f.

OTHERWISE

MESSAGEBOX("Access Denied!!!", 48+0, "Warning!")
thisform.txtdisplay.value = ""
thisform.txtdisplay.setfocus

ENDCASE

<\VFP>

-------------------------------------------------------------------------------------------

this is the code and pic of my login form:

WITH thisform
IF NOT USED ('adminrecord')
USE adminrecord IN 0 AGAIN SHARED
ENDIF

IF EMPTY(ALLTRIM(.txtuser.value)) AND EMPTY(ALLTRIM(.txtpass.value)) THEN
MESSAGEBOX("Please specfiy your Username and Password!", 48+0, "Warning!")
.txtuser.setfocus
ELSE
IF EMPTY(.txtuser.value) THEN
MESSAGEBOX("Please specify your username!", 48+0, "Warning!")
.txtuser.value = ""
.txtuser.setfocus
ELSE
xuser = ALLTRIM(.txtuser.value)
cfound = SEEK(xuser, 'adminrecord', 'cusername')
IF cfound = .t. THEN
IF ALLTRIM(.txtpass.value) = ALLTRIM(cpassword) THEN
DO menu1.mpr
thisform.Visible =.f.
ELSE
MESSAGEBOX("Please specify your password!", 48+0, "Warning!")
.txtpass.value = ""
.txtpass.setfocus
ENDIF
ELSE
MESSAGEBOX("Please specify your username!", 48+0, "Warning!")
.txtuser.value = ""
.txtuser.setfocus
ENDIF
ENDIF
ENDIF

ENDWITH

<\VFP>

VFP and .NET: if does not exist

Mon, 08 Feb 2010 01:04:26 +0100

Version: Visual FoxPro 9 SP2

Hi can you help me how to test of the said myFolder is already existing on Desktop.
If not the computer will create one.

command for creating forlder in desktop
m.x=createObject("WScript.Shell")
m.dstFolder=addbs(m.x.SpecialFolders("desktop"))+"myFolder"
mkdir (m.dstFolder)

thanks,

Aris

Forms: Interface

Mon, 08 Feb 2010 02:41:39 +0100

Version: Visual FoxPro 9 SP2

Hi experts i wanted to be my interface is just like the above how can i create this? any suggestion? what control can i use?

TIA

Regards,
Paco

Off-topic: detecting AC power

Sun, 07 Feb 2010 09:06:39 +0100

Version: Visual FoxPro 9

Hi,

how can i know programatically (using VFP) if my laptop is on AC power or on battery?

Databases, Tables and SQL Server: Existance of a Table in open Database

Sun, 07 Feb 2010 11:51:37 +0100

Version: Visual FoxPro 9

Is it programatically possible to check if a given table/view exists as a part of an open VFP database?

OPEN DATABASE myDatabase

I want to know if myTable.dbf exists in myDatabase. If exists, proceed, otherwise give a message to that effect. I cannot probably use FILE() function, as I do not know the exact path of the table. I can open the database as a table and use LOCATE command, but is there a better way?

Thanks for help.

Benny

Reports and Printers: POS

Sat, 06 Feb 2010 09:31:43 +0100

Version: Visual FoxPro 9

Hello Experts,

How to open the cash drawer connected to Epson TMU220 via usb?

Thanks...

Forms: VFP checkbox problem

Sat, 06 Feb 2010 19:38:54 +0100

Version: Visual FoxPro 9

I'm trying to make a form's checkbox work with a controlsource. The dataenvironment contains a table called inventor and the controlsource for the checkbox is inventor.foreign. The foreign field is a logical field in the table inventor. When I load the form, it shows the checkbox as grayed out or disabled.

What am I missing here? Many thanks in advance.

R

Foxite.COM FAQ Annoucement: windows 7

Sat, 06 Feb 2010 12:54:59 +0100

Version: Not Applicable

Hello!

FYI: I've just posted a new entry to the Foxite FAQ Section.

Title: windows 7
Description: ?
Category: Reports
URL: http://www.foxite.com/faq/default.aspx?id=83

Enjoy!

VFP and .NET: Foxgraphs Faded Text

Sat, 06 Feb 2010 05:46:48 +0100

Version: Visual FoxPro 9 SP2

Here is a strange problem regarding graph text becoming a very light grey in color in the legends text that borders the left, right and bottom of the graph. The captions text is fine. I tried seting .FontBold to .T. and .ForeColor to RGB(0,0,0) where ever I could but to no avail.

The only thing I did before this problem occured was to increase the length of the right-side legend field to include year, month and sales, eg. '2010 01 3905' instead of the '01' for just the month.

A quick fix is to darken the text with PhotoShop but a programming solution would be better.

Anyone run into this problem before?

Regards,
Gene Gerard

Databases, Tables and SQL Server: save excelchart as.jpeg before store

Sat, 06 Feb 2010 12:55:56 +0100

Version: Visual FoxPro 6

Dear expert,

I have generated an excel chart, I need to save it as .jpeg or .gif.

I saved the excel chart as .gif or .jpeg in a folder and the resulting

error message was about 'the image being too big ' to appear in the report writer REPORT PICTURE FILE OPTION.

pls help

thanks

Foxite.COM FAQ Annoucement: report file command

Sat, 06 Feb 2010 11:07:54 +0100

Version: Not Applicable

Hello!

FYI: I've just posted a new entry to the Foxite FAQ Section.

Title: report file command
Description: how to one report two time on one page example for one receipt on one pgae two times please suggest command in vfp report file
Category: Visual FoxPro IDE
URL: http://www.foxite.com/faq/default.aspx?id=82

Enjoy!