tianxia_xiangyu-优快云博客

转载 vfp控制打印机代码

&&打开打印机DECLARE INTEGER OpenPrinter IN winspool.drv; STRING pPrinterName, INTEGER @phPrinter, INTEGER pDefault DECLARE INTEGER GetProfileString IN kernel32; STRING lpApp, STRING

2009-12-07 23:29:00 4372

转载 VFP下打印机的设置编程

VFP下打印机的设置编程2008-09-29 13:03VFP本身提供了部分相关打印机的数据返回函数以及部分设置项，但在打印机的直接控制方面没有提供相应的策略，这里从分析打印机的Devmode和PRINTER_INFO_2的结构来详细说明一下VFP打印机的相关操作编程。首先看下打印机的基本数据结构Devmode：Private Type DEVMODE dmDevic

2009-12-07 22:04:00 6333 1

原创 vfp on key lable 用法

例如在form 表单应用on key lable F8 messagebox(按下F8)是可行的。如果想操作表单中生成的控键，则必须把thisform对象定义为public变量在form表单load中 public obj obj=thisform on key lable F8 obj.command1.click 这样方可成

2009-09-07 16:16:00 1093

转载句柄

句柄概念在WINDOWS编程中是一个很重要的概念，在许多地方都扮演着重要的角色。但由此而产生的句柄概念也大同小异，比如：>(Microsoft Press,by Richard Wilton)一书中句柄的概念是：在Windows环境中，句柄是用来标识项目的，这些项目包括：　　*.模块(module)　　*.任务(task)　　*.实例(instance)　　*.文件

2009-09-04 16:57:00 528

原创 vfp建立ODBC数据源

*!*动态数据源 DECLARE INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING lnWindowHandle=0 lcODBCDriver=SQL Server &&DRIVER类型 lcODBCName=Server &&数据源名字 lcODBCDesc=Shar

2009-09-02 10:33:00 2087

原创键盘键值

ESC键 VK_ESCAPE (27) 回车键： VK_RETURN (13) TAB键： VK_TAB (9) Caps Lock键： VK_CAPITAL (20) Shift键： VK_SHIFT ($10) Ctrl键： VK_CONTROL (17) Alt键： VK_MENU (18) 空格键： VK_SPACE ($20/32) 退格键： VK_BACK (8) 左徽标键： VK_

2009-09-02 10:29:00 1404

CLOSE DATABASES ALLSET DATE YMDSET CENTURY ONcDbfFile = GETFILE("dbf")IF EMPTY(cDbfFile) RETURNENDIFUSE (cDbfFile) ALIAS FoxTable IN 0IF NOT USED("FoxTable") =MESSAGEBOX("打开表失败，程序将中止！", 16, "Error") R

2009-09-02 10:23:00 1317

原创 vfp读取config.ini文件

*!* 建立config.ini文件*!*--------------------[ServerName]ServerName=csxt[Database]Database=hisdata*!*-------------------- *!*读取程序PUBLIC lcPCName,lcDBNameIf !File(Config.ini) Messageb

2009-09-02 10:13:00 1326

原创得到汉字简拼

DECLARE STRING topy IN "MyDll.dll" STRING orgStr简拼 = ALLTRIM(topy(项目别名))

2009-09-02 10:05:00 654

原创 VFP实现小写金额转大写

PROCEDURE getmaneyPARAMETERS 金额 hj=金额 S=STR(hj*100,10,0) S1= SUBS(零壹贰叁肆伍陆柒捌玖,VAL(SUBS(S,1,1))*2+1,2)+仟 S2=S1+SUBS(零壹贰叁肆伍陆柒捌玖,VAL(SUBS(S,2,1))*2+1,2)+佰 S3=S2+SUBS(零壹贰叁肆伍陆柒捌玖,VAL(SUBS(S,

2009-09-02 10:00:00 2659

转载 vfp spt技术

spt的全称为sql pass through，它是和远程视图构成了vfp处理远程数据的利器。和远程视图比较，它的主要好处在于灵活，可以直接连接远程数据库，并在服务器上执行代码代码，当然它也可以和远程视图一样，通过一个光标cursor来更新远程数据，缺点主要是非图形化，代码量大。实际上远程视图是SPT的一个子集。步骤： 1、建立连接，或者连接句柄如连接服务器为aa,用户名为

2009-09-02 09:50:00 1353

tianxia_xiangyu的专栏