Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cabuilder and DE's Autoopen code
Message
 
 
To
05/12/2010 08:21:01
General information
Forum:
Visual FoxPro
Category:
Client/server
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Database:
MS SQL Server
Miscellaneous
Thread ID:
01491775
Message ID:
01491790
Views:
49
Yes, this is what builder does :( I even remember reading instructions in VFP Promatrix framework how to make sure to not use the DE builder.

>Hello.
>
>I'm using VFP 9 and cabuilder to build my cursor adapter classes from SQL Server express 2008. It works normal and I can CREATEOBJECT by code without any problem, but after using the Form's DE builder to add the cursor adapter class, it automatically includes/contains base code into the CA AutoOpen and Init methods which avoid the CA to be instantiated properly. If I manually reset these methods to use the default class code everything works fine.
>
>Am I doing something wrong or is there anything not configured properly?
>
>It's strange that DE builder is including code like this into the DE's cursor adapter methods because it's already contained into the base class:
>
>AutoOpen Method:
>
>*** Setup code: DO NOT REMOVE
>if not pemstatus(This, '__VFPSetup', 5)
> This.AddProperty('__VFPSetup', 1)
> This.Init()
>endif
>*** End of Setup code: DO NOT REMOVE
>
>
>
>
>Init Method:
>
>*** Setup code: DO NOT REMOVE
>local llReturn
>do case
> case not pemstatus(This, '__VFPSetup', 5)
> This.AddProperty('__VFPSetup', 0)
> case This.__VFPSetup = 1
> This.__VFPSetup = 2
> case This.__VFPSetup = 2
> This.__VFPSetup = 0
> return
>endcase
>set multilocks on
>llReturn = dodefault()
>*** End of Setup code: DO NOT REMOVE
>
>*** Setup code: DO NOT REMOVE
>if This.__VFPSetup = 1
> This.__VFPSetup = 2
>endif
>return llReturn
>*** End of Setup code: DO NOT REMOVE
>
>
>
>
>Thanks
>
>Juan C. Jaramillo
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform