how do i disabled a mouse and esc at runtime?

Visual FoxPro General

Index ‹ Visual FoxPro

- Previous
  - 1
    - Combo yes this code is written in form's Init event and i set it's control source on run time and other like BoundColumn = 1 RowSource = a_courses.coursename RowSourceType = 6 - Type in property window. I have not set it's ListIndex Tag: how do i disabled a mouse and esc at runtime?
  - 2
    - Trans SQL statement needed OK, this is a problem I am sure won't be a problem for highly traned in VFP ways at all, just a piece of cake but for me it is insurmountable. It all has to be done from .NET code. I need a Trans SQL statement, similar to "SELCET * FROM...." but I need to select just one record and this record MUST be the last one in the rowset. More accurately, this rowset has to be ORDERED by the first field (numeric_id) which in fact is not numeric at all--it is a string (7 char long). The index (a primary key, in effect) has been set up in the wizard. It is there. Thus it must be ordered for this primary key (from .NET). Logically speaking, the way things have worked so far in VFP, the largest key value, something like "C002345" could be expected to be found at the very bottom of the rowset. I hope it is the case everywhere but there is no guarantee. I tried something (out of my profound VFP ignorance, of course, so visible to some) that did not work but it may be a sort of "pseudo code" to convey the idea: SELECT * FROM categories WHERE RECNO ( ) = RECCOUNT ( ) The above statement did work in FVP Command Window (after I stabilized it somewhat). What did not work and I want your help on that is something like this. I need to do it (I think I need to do it, or rather I prefer to do it in one statement) : SET ORDER TO NUMERIC_ID IN categories; SELECT * FROM categories WHERE RECNO ( ) = RECCOUNT ( ) SET ORDER TO NUMERIC_ID IN categories and SELECT * FROM categories WHERE RECNO ( ) = RECCOUNT ( ) I have somewhat limited experience running SQL Stamements from .NET. Very many things work quite well but I am not sure if I SET ORDER to primary key first in one ExecuteNonQuery and then SELECT the last row (record) in the second ExecuteNonQuery the table (rowset, rather) will stay oriented/ordered. Got it Thanks for help. Tag: how do i disabled a mouse and esc at runtime?
  - 3
    - Urgent - Need Help In VFP 8 Deployment Hi Greetz, Thanks for showing me way, however i have main prg file in which i have define menu and no " do form " is called i have simple display menus and in that i called forms. so where should i include read events in main prg so that as per my exe my deploy project also run fine, Regard Hemangi Tag: how do i disabled a mouse and esc at runtime?
  - 4
    - Returning Arrays And Cursors to .NET from VFP??? Alex, I don't have anywhere near as much VFP knowledge and experience of VFP as Cetin but I am a native English speaker so hopefully I can help out here and make sure you understand what he is saying here. Personally I think his English is excellent but I will try and state it as I understand it just in case.... I have made this mistake myself before and couldn't understand why one of my SQL statements was failing for no apparent reason. The confusion for me was the difference between a string literal and a variable which contains a string. A string literal is one you put in between two quotes eg "foobar string". As Cetin says these cannot be over 255 chars in length. A variable however can contain a string way over 255 chars (I don't know what limit there is to this!) and can easily be formed from several string literals (or variables containing strings) concatenated together. Eg stringvariable = "a string of 255 chars or less" + "another string of 255 chars or less" && resulting variable contents can be over 255 chars I hope that makes sense. If you don't agree with what someone else is stating it's probably safer to assume you have misunderstood and ask them to clarify the answer. Programming can be a very frustrating experience at times and if we aren't careful sometimes our frustrations can come across negatively in a posting. Cetin, I think 'unmolseted' is probably a typo for unmolested (adj. Not interfered with, disturbed, or harmed) showing that the string had been returned in its expected form without been truncated or affected in any other way. Regards Darren Tag: how do i disabled a mouse and esc at runtime?
  - 5
    - Compatability with old FoxPro and dbase I have been a casual user of Foxpro to do data analysis as part of my job of business strategy. I know the old FoxPro/Dbase programming language - I'm going back to 15-20 years ago ... SET FILTER TO ... SET INDEX TO ... TOTAL ON ... and so on. Does Visual Foxpro 9.0 have those commands Can I type them into a program after opening a file with "MODI COMM xxxx" Or are these commands only constructable from menu-driven pick-lists Will databases created in Dbase and Foxpro years ago work with the current versions of Foxpro Can I access these old data structures with "OPEN _____" etc. Tag: how do i disabled a mouse and esc at runtime?
  - 6
    - Replace character in a field I need to perform an update on a table, replacing a charcter (+) with another one (x) In SQL Server I Write Update <Table> Set Field = Replace(Field, '+'. 'x') With a dbf table it doesn't wotk and I couldn't find out how to do this. To be more specific, my table has a field (named flags), and it can be filled like this: i + xx i++ x+ +++ i+ I have to replace all '+' with 'x' to heve this result: i x xx ixx xx xxx ix Can anyone help me, please Tag: how do i disabled a mouse and esc at runtime?
  - 7
    - help needed on troubleshooting label printer problem You may try to use: SET REPORTBEHAVIOR 80 if you don't have a ReportListener instance specified . Tag: how do i disabled a mouse and esc at runtime?
  - 8
    - How to Lock a file in VFP 6.0 so that cannot access it externally through my computer ? Hi all(Markish, Dni, Leo), First of all Thanks a lot for ur ready replies. I studied all ur answers. But I want to add something to my thread/question. I am VFP 6.0 programmer, developing accounting & inventory control application for small trading orgs. I am using Windows XP Professional SP 2. We have more than 80 existing clients placed inside n outside our state withinn a radius of 500 km. They are using Windows os like 98/xp home/prof./millenuim/2000 server. The org. owners are normally non-technical persons. They don't have much idea abt computers. They know simple operations. Owners want that some vital info(like purchase rate/profit etc) of their biz should not be known to their operators. For this reason, we decided to modify our software providing multi-user level security. We have 3 types of users, viz, 1)Admin(owner), who has full control, 2) Superviser, who has some controls and 3) Normal users, who has the minimum controls just like data feeding and sale billing only. I have already checked all the options of windows as said in answers. And found some points as below : 1) This user permission setting can be applied to NTFS partion only, not to FAT partition. 2) There is guarantee that all our client machines have NTFS partion for their existing HD drives. 3) It is not feasible to visit each n every clients to set this permission at client machine by our service er. 4) As owners will create and set permissions in our software, they might not do windows os permission setting properly to our permission.dat file. 5) As I had researched here, only normal users cannot delete this file, but admin can delete this file(but not opening and editing the file), even after denying the full control to admin. 6) Most Clients run our package with their default user with admin. permissions as they have to run other company supplied package as they with those products. 7) Different file extension n encryption of data is not sufficient as some one can delete our permission file. Here I want that, even if a normal user of our package log in to our application though the Windows Os's default user having admin permission, he/she must not modify or delete the permission.dat file. I will prefer if there is any other solution which can be done directly from foxpro. If earlier one is the last resort, then i will stop thinking and go with that.(basically with user impersonation) Sorry for this long and detailed post. I have found another code snippet(appended below to this post.) and tested it , got that it can work but only at the time of our program execution., not after that. ------------------------------------------------------------------------------------- DO decl #DEFINE GENERIC_READ 0x80000000 #DEFINE GENERIC_WRITE 0x40000000 #DEFINE cret Chr(13) #DEFINE dcret Chr(13)+Chr(13) LOCAL lcPath, lcAlias, lcFile, hFile, lnHeader, lcBuffer lcPath = GetTmpPath() lcAlias = "Test" lcFile = lcPath + lcAlias + ".dbf" * creating a testing table IF USED (lcAlias) USE IN (lcAlias) ENDIF IF Not FILE(lcFile) SET SAFETY OFF CREATE TABLE (lcFile) (dt T) SET SAFETY ON INSERT INTO (lcAlias) VALUES (datetime()) ELSE USE (lcFile) ALIAS (lcAlias) SHARED ENDIF lnHeader = HEADER() USE IN (lcAlias) lcBuffer = REPLI (Chr(0), 250) hFile = OpenFile (lcFile, @lcBuffer, GENERIC_READ) IF LockFile (hFile, 0,0, lnHeader,0) <> 0 = MessageB ("File " + lcFile + " is locked." + dcret +; "At this point do not close this Dialog " +; "and start another VFP instance." + dcret +; "Use another instance to open " + lcFile + cret +; "or just try to read the tables on " + lcPath + " " + ; "using regular DIRECTORY command." + dcret +; "After that click Ok to unlock the target file.", 64, "Locking a file") * = UnlockFile (hFile, 0,0, lnHeader,0) ELSE * 6 = ERROR_INVALID_HANDLE - already in exclusive use "Error code:", GetLastError() ENDIF * = CloseHandle (hFile) FUNCTION GetTmpPath LOCAL lpBuffer, lnLength lpBuffer = SPACE(250) lnLength = GetTempPath (LEN(lpBuffer), @lpBuffer) RETURN Iif (lnLength=0, "C:\Temp", PADR(lpBuffer, lnLength)) PROCEDURE decl DECLARE INTEGER GetLastError IN kernel32 DECLARE INTEGER GetTempPath IN kernel32; INTEGER nBufferLength, STRING @ lpBuffer DECLARE INTEGER LockFile IN kernel32; INTEGER hFile, INTEGER dwFileOffsetLow,; INTEGER dwFileOffsetHigh,; INTEGER nNumberOfBytesToLockLow,; INTEGER nNumberOfBytesToLockHigh DECLARE INTEGER UnlockFile IN kernel32; INTEGER hFile, INTEGER dwFileOffsetLow,; INTEGER dwFileOffsetHigh,; INTEGER nNumberOfBytesToUnlockLow,; INTEGER nNumberOfBytesToUnlockHigh DECLARE INTEGER OpenFile IN kernel32; STRING lpFileName,; STRING @ lpReOpenBuff,; INTEGER wStyle DECLARE INTEGER CloseHandle IN kernel32; INTEGER hObject ------------------------------------------------------------------------------------------ Thanking You all. With regds niharrp -------------------- A VFP 6.0 programmer Tag: how do i disabled a mouse and esc at runtime?
  - 9
    - VSF 6.0 Reports & Subreports OK, I will try to give the simplest case. I have a report which reads a file (by a query) and lists all the records returned (resultset). To do this I will simply put the needed fields in the "Detail" area of the report. But let's suppose that, underneath every record listed, I need to list some records from another Table. If i used Crystal Reports, for instance, I would have to create another report (with the proper query) and invoke it from the details area underneath the Supplier row. The result should be like this: Supplier Name City Zone Date of Sale Item Code Quantity Sold --------------------------------------------------------------------------------------- Smith John Rome AA 12/02/2007 00123 123 12/03/2007 00234 34 13/03/2007 00356 11 Brown William New York AS 11/03/2007 02345 123 11/03/2007 08764 34 White Noah Paris FR 12/02/2007 00123 144 12/03/2007 00234 33 13/03/2007 00356 11 The Suppliers come from the table "SUPPLIERS" and the Orders come from the table "ORDER" Obviously I have chosen a very simple example and the above report can indeed be made in another simpler way (using a temporary file). But this is only for giving an idea. Unfortunately this is not possible with VSF . Hence my question. Thank you for yr assistance. Regards TdP Tag: how do i disabled a mouse and esc at runtime?
  - 10
    - DBF with 503 fields Thanks for ur information. I have already tried with the dbase III+, IV, V odbc drivers. I am unable to query the table. Tag: how do i disabled a mouse and esc at runtime?
  - 11
    - check for filetype This . Enabled = .F. *!* Declares Variable strings Local lcSource,lcTarget, lnFiles,ix Local Array aJPG[1] lcSource = 'c:\client' lcTarget = 'c:\server' Set Safety Off lnFiles = Adir (aJPG, Addbs (m.lcSource)+"*.jpg") If m.lnFiles > 0 Thisform .CntFileList2.labelinfo. Caption = "Copying File to Software" Thisform .CntFileList2.labelinfo. Visible = .T. Thisform .CntFileList2. Visible = .T. Thisform .CntFileList2.Check1. Caption = "Moving Photos..." Thisform .CntFileList2.Label1. Visible = .T. For ix = 1 To m.lnFiles Copy File ; ( Addbs (m.lcSource) + aJPG[m.ix,1] ) ; TO ; ( Addbs (m.lcTarget) + aJPG[m.ix,1] ) Erase ( Addbs (m.lcSource) + aJPG[m.ix,1] ) Endfor Thisform .CntFileList2.Label1. Caption = " " Thisform .CntFileList2.Check1. Value = 1 Messagebox (" Move Complete ", 64 , "My Company") Thisform .CntFileList2. Visible = .F. Thisform .CntFileList2. SetAll ("value", 0 ,"checkbox") Thisform .CntFileList2. SetAll ("caption","","checkbox") Thisform .CntFileList2. SetAll ("caption","Copying","label") Thisform .CntFileList2. SetAll ("visible", .F. ,"label") Else Messagebox ("No valid files exist.") Return Endif *!* Delete old photos Thisform .CntFileList2.Label1. Visible = .F. Set Safety On Thisform .CntFileList2. SetAll ("value", 0 ,"checkbox") Thisform .CntFileList2. SetAll ("caption","","checkbox") Thisform .CntFileList2. SetAll ("caption","Moving","label") Thisform .CntFileList2. SetAll ("visible", .F. ,"label") Thisform . Refresh () Tag: how do i disabled a mouse and esc at runtime?
  - 12
    - FOXFIX5.DLL and Windows 2003 Server Yes Foxfix is a third-party product that repairs corrupted tables. At this point I am hoping to get foxfix.dll working as I just paid $$$ for this solution. thanks, Stuart Tag: how do i disabled a mouse and esc at runtime?
  - 13
    - dropdown list box I certainly will. Thanks, Vladimir!!! Hans L Tag: how do i disabled a mouse and esc at runtime?
  - 14
    - How to select a record from a Grid and open a form You may put in double click method of the grid: IF "given record " condition Do form YpurForm ENDIF For pressed key you may put .T. on form property KeyPreview and in Keypress method pu something like: IF LASTKEY() = 13 && for enter IF "given record " condition Do form YpurForm ENDIF ENDIF Tag: how do i disabled a mouse and esc at runtime?
  - 15
    - form help thanks this is over my head can u explain to me about mytable.fullyqualifieldpath2imagefile suppose my app is on c:\employee\data\employeedetail\photo employee =app name data=dbf folder employeedetail = table photo=image field thanks Tag: how do i disabled a mouse and esc at runtime?
  - 16
    - building dll get "Allowed DO nesting or expression..." error Hi, guys I got a " Allowed DO nesting or expression evaluation level exceeded ." error when I tried to build a dll file. What's weird is that my co-worker using exactly the same code with me, but he can build a dll without that error. So I think that mayby it's have something to do with foxpro's setup I looked under Index in Help for "error messages" ... "alphabetical order" and found that I can use STACKSIZE = nValue to set stacksize in config.fpw, but it just not work. So...don't know yet, still trying. Any help By the way, I use FoxPro 9 with SP1. Thanks a lot. Lisa Tag: how do i disabled a mouse and esc at runtime?
- Next
  - 1
    - Valid event ON ERROR * is almost never a good idea. Hiding errors doesn't cure them. Tamar Tag: how do i disabled a mouse and esc at runtime?
  - 2
    - Why my VFP exe file cannot be launched? How do I refresh *.dll files Thanks. Tag: how do i disabled a mouse and esc at runtime?
  - 3
    - I can't see the content of the last field of the record It is not a VFP table (I'm sure of this) but I never found problems to read its records with VFP, recently the table was updated by the Software House with a new field added that I can't read, when I use BROWSE or any other EDIT command I see the right structure with the field addedd, but the value is every spaces. Do you think I need to use another program to manage this data Tag: how do i disabled a mouse and esc at runtime?
  - 4
    - replace image with own name thanks for your reply how do i control lc file or use dtos cos i take more than 25 image a day thanks Tag: how do i disabled a mouse and esc at runtime?
  - 5
    - date problem Hi, I have to append data from an excel file to a fox file. A cell in excel has date data in format : "dd/mm/yyyy" and in fox the table has a character field. When I execute the command, it sometimes appear in the fox table a number that doesn't have any resemblance to the date data. How can I solve this . Thanks, Tag: how do i disabled a mouse and esc at runtime?
  - 6
    - Close system toolbar of foxpro c y h wrote: I use foxpro 5.0, is there any way to remove the system toolbar by writing a short program I am not Christof, but here goes: LOCAL lnCount, LOCAL ARRAY laToolbars DIMENSION laToolBars[ 11, 2 ] *** Initialize array property with VFP system toolbars *** and a flag to indicate whether or not they are visible laToolbars [ 1, 1 ] = 'Form Designer' laToolbars [ 2, 1 ] = 'Standard' laToolbars [ 3, 1 ] = 'Layout' laToolbars [ 4, 1 ] = 'Query Designer' laToolbars [ 5, 1 ] = 'View Designer' laToolbars [ 6, 1 ] = 'Color Designer' laToolbars [ 7, 1 ] = 'Form Designer' laToolbars [ 8, 1 ] = 'Database Designer' laToolbars [ 9, 1 ] = 'Report Designer' laToolbars [ 10, 1 ] = 'Report Controls' laToolbars [ 11, 1 ] = 'Print Preview' FOR lnCount = 1 TO ALEN ( l aToolbars , 1 ) laToolBars [ lnCount, 2 ] = WVISIBLE ( l aToolbars [ lnCount, 1 ] ) IF WVISIBLE ( l aToolbars [ lnCount, 1 ] ) HIDE WINDOW ( l aToolbars [ lnCount, 1 ] ) ENDIF ENDFOR Tag: how do i disabled a mouse and esc at runtime?
  - 7
    - SQLServer's scope_identity() and VFP's remote views Hi, I'm using VFP9 and I use remote views that back into SQLServer 2000. What I'd like to be able to do is use SQLServer's scope_identity() function to return the identity value generated upon inserting (and performing a tableupdate()) a new record into an updatable remote view that backs into a SQLServer table with an identity field as its primary key. The problem I'm having is that scope_identity() returns null in this situation. eg. insert into my_remote_view (field1) values ("blah") tableupdate(0, .T., "my_remote_view") Sqlexec(Cursorgetprop("ConnectHandle", "my_remote_view"), "select scope_identity() as LastIdentity", "ScopeIdentity") ScopeIdentity.LastIdentity && this prints null If I use sql pass-through (sqlexec()) to insert the record then there is no problem, scope_identity() returns the identity value as expected. If I use @@Identity instead of scope_identity() then an identity value is returned, but since @@Identity is not 100% reliable this is of marginal benefit. It seems like a remote view's update action has its own scope that ends once the update is committed, while its session persists - hence @@Identity works and scope_identity() does not. I suppose I could try using a cursoradapter and alter the UpdateCmd property to include code to use scope_identity(), but I don't really want to go down this route since I'm working on a large application that makes extensive use of remote views and only peripheral use of cursoradapters. Has anyone found a way to use scope_identity() with a remote view Thanks in advance. Paul S. Elliott Tag: how do i disabled a mouse and esc at runtime?
  - 8
    - SQL Server Express & Foxpro-populating SS from Foxpro This is my first foray into SQL Server and I'm trying to do a small test run before expanding my code. Thanks for your patience. I wasn't populating my key fields, so I changed this line to this: lcStr = [INSERT INTO SAUTHORS(APKEY, firstname,lastname) values (] + M.PKEY + [,'] + m.firstname + [','] + m.lastname + [')] And I get the Operator/operand mismatch error. With PKEY and APKEY being integers, is there a different syntax I have to use since it's not character or string type Tag: how do i disabled a mouse and esc at runtime?
  - 9
    - impersonateloggedonuser and Getfil() Logon and impersonateloggedonuser have my rights...just plain user but I have addedthe following user rights to myself... 'Act as part of the operating system', 'Bypass Traverse Checking' and 'Replace a Process Level Token'. From what I have read in MS docs these are the required rights needed to call these dll functions. I will start checking out some od the other rights as well. thanks Tag: how do i disabled a mouse and esc at runtime?
  - 10
    - Column totals for report Ok I understand now. I was clicking the ... box to do it before. Thank you. Tag: how do i disabled a mouse and esc at runtime?
  - 11
    - Application cannot run after compile Cannot run...it means that the when starting the application, it just appear for a second time and dissappear again.....I'm using VFP version 9 and compile in the project window with Build command..... Tag: how do i disabled a mouse and esc at runtime?
  - 12
    - file question Hi, I want to to know if there is a function or command to create a directory in visual fox pro 7. For example, I want a new directory called: 'c:\users\test' . Thanks, Tag: how do i disabled a mouse and esc at runtime?
  - 13
    - Help With Earlier Verison of FoxPro No...it doesn't have to be Foxpro for Dos or Foxpro for Windows. It can also be Visual Foxpro. All these files are VFP files as well. As a matter of fact, if the softwaer was developed in 2001, its probably VFP. Now... The fact that you're talking about 'modern IDE' may point to the fact that this is Foxpro Dos. Tag: how do i disabled a mouse and esc at runtime?
  - 14
    - Errors running FoxPro Stored procedures in .NET windows app I think you misunderstood my previous post. I am not using SelectCommand (it happens to be part of variable name used in the original code snippet, VFP7SelectCommand). Correct me if I am wrong. I am attaching the stored procedure in the sample VFP database below (created using VF9.0 Software): Please note there are 3 procedures and I am trying to execute PROCESS_LOCATION_VIEW_TABLES from the windows application. Tag: how do i disabled a mouse and esc at runtime?
  - 15
    - SQL query too long doesn��t work with SQLEXEC() There��s no error message simply it don��t returns my result records, cursor is not created, despite the query structure is correct (as I wrote in console it works!) I working with VFP 8 SP1. I was wondering if "sliced" the whole query by using cWhere1, cWhere2, cWhere3...variables, and putting them all together at end. Any other ideas fellows are accepted. Thanks! Tag: how do i disabled a mouse and esc at runtime?
  - 16
    - Why my VFP exe file cannot be launched? How do I refresh *.dll files Thanks. Tag: how do i disabled a mouse and esc at runtime?

Madix_t

good day to the experts...

i have just recently discovered this error no matter how i plug it still works...

my form has a text field for typing a message and a send button for the message to be sent to the server, but when i hold down the button key and press ESC at keyboard, it got an error message ( "execution interrupted" 'CANCEL, RETRY, IGNORE' )..which-ever i press naturally my applic. will exit

even if i point at label or listbox,or combo and hold down the left mouse button then press ESC, its d'same, it's "interrupted error message."

so what i do i put a ON KEY LABEL ESC * at INIT but it won't work i put another plug below

if inkey()=27

message....

endif

it doesn't work either.. is this a bug or i miss something in my code

thank you very much for any help

Top

Re: how do i disabled a mouse and esc at runtime?

CetinBasoz

set escape off

Top

Re: how do i disabled a mouse and esc at runtime?

Madix_t

thank you very very much cetin for your reply and it works fine now

again thank you... and have a nice day!

Top