数据库学习笔记 - 太平洋来的风

一、问题引入

　　在现在的管理信息系统中，比较先进的都已采用浏览器/服务器的模型，在这种模型中都要涉及到客户端与服务器端的信息交互问题，从服务器端到客户端的信息传递技术已经比较成熟，这里主要讨论从客户端到服务器端的文件上载问题，基于Microsoft的IE4.0、IIS4.0、ASP(Active Server Page)和标准HTML语言。

二、解决方法

　　在ASP页面中，利用HTML中的Form元素来实现。
　　在Form元素的语法中，EncType表明提交数据的格式，Method表明提交的方法(Get/Post)。在IE4.0 及以后的版本中都支持"multipart/form-data"这种格式，相应的Method方法必须是Post，表明要上载文件到服务器。当然同时在服务器相应的WEB站点上

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- 顶层表单的菜单工具栏

数据库学习笔记 2009-4-20 0:4

lujin=left(sys(16),rat('\',sys(16))-1)
SET defa to (lujin)
TopForm=CREATEOBJECT('TopForm')
TopForm.show
on shutdown TopForm.destroy
_screen.windowstate=1
read events
set default to
on shutdown
_screen.windowstate=2
retu

DEFINE CLASS TopForm AS form
showwindow=2
DoCreate = .T.
Caption = "TopForm_Menu_Toolbar"
width=500
height=300
TopToolBar='Toolbar1'
nActivate=0

proc QueryUnload
NODEFAULT
clear events

*建菜单
PROCEDURE Init
this.oMenu(this

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- myDll之myFll，增强你的VFP[New]

数据库学习笔记 2009-4-19 23:59

函数库说明：myFll是增强VFP的扩展函数库，部分与RMH的myDll中功能相同（名称可能不同）的函数，是由RMH提供的myDll源码改进而来。一些和Win32API名称相同的函数，是在FLL中对Win32API的封装，在VFP中可以直接调用，并可以省略掉一些默认的参数。一些与算法相关的函数，都取自网上开源的代码，帮助中均有注明。

线程函数：部分函数以大写X结尾的函数，均是多线程函数，一般提供多线程的函数都会提供一个单线程的版本。由于线程间通信比较麻烦，均以消息传递的方式通信，因此线程函数需要VFP9以上版本支持（消息绑定）。

版权问题：myFll可以自由使用，任意改名及加壳（发布的这个版本里没有加壳，不过你可以使用upx、aspack之类的加壳），以及自由转发，转发时应注意与帮助文件同时转发。myFll作者不承担可能由于技术原因给你带来的错误或损失。发现错误可以与作者取得联系共同改进。

包含进EXE编译：理论上，FLL文件是可以直接包含进VFP编译的exe文件，此版本的FLL也没有做任何限制。但是，部分函数未经过全面测试，涉及多线程、系统勾子的函数，

使用帮助：myFll发布附带有中文CHM格式帮助，使用示例及参数说明，请查阅帮助。开发环境中可以按如下方式取得部分帮助信息：

取得此版本函数个数：FllHelp()
取得第x个函数的信息：?FllHelp(x)
显示提示信息：?FllHelp(x,.T.)
显示指定函数的信息：FllHelp("SendMessage",.T.)

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- 获得汉字的拼音简码

数据库学习笔记 2009-4-19 23:56

获得汉字的拼音简码
本文来源于【梅子论坛临时文章系统】网站地址：http://www.meizvfp.com/article.asp?id=2

*过程名为pyjm
*调用格式为 JM=pyjm(参数)
*假若是想求表单中文本框TEXT1中的汉字拼音简码,调用方式为JM=pyjm(THISFORM.TEXT1.VALUE)
*变量JM就是所求的拼音简码
PROCEDURE pyjm
PARAMETERS strg
le=LEN(strg)
jm=""
for m=1 to le step 2
mystr=substr(strg,m,2)
If Asc(mystr) > 0
If Asc(Left(mystr,2)) < Asc("啊")
py = Left(mystr,2)
EndIf
If Asc(Left(mystr, 2)) >= Asc("啊") And Asc(Left(mystr, 1)) < Asc("芭")
py = "A"
EndIf
If Asc(Left(mystr, 2)) >= Asc("芭") And Asc(Left(mystr, 1)) < Asc("擦")
py = "B"
EndIf
If Asc(

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- 改变分辨率的VFP代码 vfp

数据库学习笔记 2009-4-19 23:52

=
If Sysmetric(1)<1024
Local lcDevMode
lcDevMode=Replicate(Chr(0),156)
Declare Integer EnumDisplaySettings In user32 Integer,Integer,String @
Declare Integer ChangeDisplaySettings In user32 String @,Integer
EnumDisplaySettings(0,4294967295,@lcDevMode)
lcDevMode=Stuff(lcDevMode,109,8,Chr(1024%256)+Chr(1024/256)+Chr(0)+Chr(0)+Chr(768%256)+Chr(768/256)+Chr(0)+Chr(0))
ChangeDisplaySettings(@lcDevMode,1)
Clear Dlls [ChangeDisplaySettings]
Clear Dlls [EnumDisplaySettings]
Endif
本文来源于【梅子论坛临时文章系统】网站地址：http://www.meizvfp.com/article.asp?id=11

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- 关于注册ocx文件

数据库学习笔记 2009-4-16 16:42

1
If File('控件全名')
    oll=Createobject('Wscript.shell')
    If oll.Run("REGSVR32 /S 控件全名",0,.T.)!=0 &&注册
        Messagebox('控件注册失败！',16,'信息提示')
    Endif
    *oll.RUN("REGSVR32 /U /S 控件全名",0,.T.) &&解除注册
    Release oll
Else
    waitstr="缺少控件全名文件..."
    Wait waitstr Windows At Srows()/2,(Scols()-Len(waitstr))/2 Timeout 5
    Close All
    Clear All
    Return
Endif

2、
Declare Long DllRegisterServer In 控件全名

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- vfp6.0的十个实用技巧

数据库学习笔记 2009-1-12 22:9

vfp6.0的十个实用技巧
---- 一.选择网络打印机

---- 笔者单位里的局域网上安装有多台网络打印机，在使用vfp 6.0编制的程序进行打印操作时，是否可以选择其中的某一台空闲的网络打印机进行打印，而不一定非要从默认打印机输出，从而提高工作效率呢？经笔者研究，在执行命令：report from … to printer 之前，先执行下列程序代码：set printer to name getprinter()，就可以调用操作系统的"打印设定"对话框，用户利用该窗口即可达到灵活选择空闲打印机进行打印输出的功能。(注：可供选择的打印机名是用户计算机上已安装好的打印机名。)

---- 二.恢复丢失了的fpt文件

---- 由于误操作，将自由表的备注文件删除，致使自由表无法打开。遇到这种情况我们可采用下述方法解决:

---- 1.创建一个新的自由表，且该自由表只含一个字段，其类型为备注型。关闭该自由表，将其扩展名为fpt的备注文件复制给误删除的自由表的备注文件，或将该备注文件改名为误删除的自由表的备注文件即可。运行下面的程序同样也可以恢复丢失了的fpt 文件：

accept ''请输入丢失了.fpt
文件的自由表名称(不带扩展名)：'' to namef
namef=trim(namef)+''.bbb''
crea dbf &namef (aa m)
use
dele file &namef

---- 2.用vfp低级文件函数创建一个空的fpt文件，原自由表即可打开。程序清单如下：
accept '

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- VFP 中使用 Wscript.shell

数据库学习笔记 2009-1-12 21:54

Shelltpara='a -ad -y -dh -ep1 '+' "'+allt(thisform.bkfile.value)+'" '+' "'+thisform.comment+'\sur"' &&messageb("rar.exe "+Shelltpara)
oShell=Createobject("Wscript.shell")
oShell.Run("rar.exe "+Shelltpara,0,.T.)

if director('&filen0.')
   commandstr= 'dele file   '+ ' "&filen0.\*.*" '   &&   messagebox(commandstr)
   &commandstr.
   commandstr= 'rd '+' "&filen0."' &&    messagebox(commandstr)

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- 报表打印技术深入探讨集锦

数据库学习笔记 2008-11-27 17:5

转贴坛中一位大侠的总结：
－－－－－－－－－－－－

下面是好多前辈以及各版主以前发的文章，我找了一宿，匆匆浏览了一下，觉得掌握了这些技巧，应该和雪心的终极打印比较接近了吧？是不是啊？若不是，老兵和 centch 你们一定要批判我，可不能看着兄弟

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- VFP 中打印屏幕(form

数据库学习笔记 2008-11-27 17:1

*******************************************
*-- 程序名称：将表单的内容直接打印      --*
*-- 将窗口中的内容以一个位图的形式打印 --*
*-- 程序作者：未知，来源论坛转帖        --*
*-- 使用方法：在表单中执行该程序既可    --*
*           例：在某表单的一个command   --*
*           按纽中执行 do PrintForm.prg --*
*******************************************

*-- 定义常量
#DEFINE LOGPIXELSX           88
#DEFINE LOGPIXELSY           90
#DEFINE PHYSICALOFFSETX     112

标签集:TAGS:

我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()

- VFP 读出word表格数据

数据库学习笔记 2008-10-9 17:0

SET TALK OFF
SET SAFETY OFF
*CLEAR ALL
CLOSE ALL tables

CREATE TABLE xsinfo (xh c(20),zy c(20), lxdh c(20), kh c(20),ksh c(20), sfzh c(20))

ole=createobject("Word.application")
ole.visible=.T.
bb=GETFILE('doc')
aa=ole.Documents.open(bb)
*!* input "输入表格的行数:" to iRow
*!* input "输入表格的列数:" to icol

    dd=''
    *dd=CHR(13)+CHR(10)
    *dd=CHR(10)+CHR(13)

FOR i=2 TO aa.tables.item(1).Rows.count&&iRow

标签集:TAGS: