如何在VFp中使用代码修改日历
用： set date 命令
例： set date ansi
要显示 4位年份： set century on
只显地 2位年份： set century off
以下是可以用的参数：
设置 格式
AMERICAN mm/dd/yy
ANSI yy.mm.dd
BRITISH/FRENCH dd/mm/yy
GERMAN dd.mm.yy
ITALIAN dd-mm-yy
JAPAN yy/mm/dd
TAIWAN yy/mm/dd
USA mm-dd-yy
MDY mm/dd/yy
DMY dd/mm/yy
YMD yy/mm/dd
SHORT 短日期格式，由 Windows 控制面板的短日期设置决定。
LONG 长日期格式， 由 Windows 控制面板的长日期设置决定
现在还有人用VFP ？ 这数据库软件已经牙齿都掉光了， 做桌面日历吗？ 代码很简单的。我没有VFP 的 ，但是其他的一样，星期，年，农历 什么算法？ 网上JS 写的万年历你随便进一个看看就知道了，直接转成你的VFP代码， 不过还是建议你丢掉古老的VF 用。net吧，如果只是应用型的日历，excel就可以了。。。
Local oFormoForm = createobject("SetDate")
oForm.show(1)
retu
Define CLASS SetDate AS form
Top = 0
Left = 0
Height = 140
Width = 339
DoCreate = .T.
Caption = "设置系统日期"
WindowType = 1
Name = "Form1"
Add OBJECT label1 AS label WITH ;
AutoSize = .F., ;
Caption = "年", ;
Height = 16, ;
Left = 34, ;
Top = 24, ;
Width = 14, ;
TabIndex = 7, ;
Name = "Label1"
Add OBJECT label2 AS label WITH ;
AutoSize = .F., ;
Caption = "月", ;
Height = 16, ;
Left = 34, ;
Top = 61, ;
Width = 14, ;
TabIndex = 8, ;
Name = "Label2"
Add OBJECT label3 AS label WITH ;
AutoSize = .F., ;
Caption = "日", ;
Height = 16, ;
Left = 34, ;
Top = 97, ;
Width = 14, ;
TabIndex = 9, ;
Name = "Label3"
Add OBJECT command1 AS commandbutton WITH ;
Top = 19, ;
Left = 223, ;
Height = 25, ;
Width = 84, ;
Caption = "设置", ;
TabIndex = 4, ;
Name = "Command1"
Add OBJECT command2 AS commandbutton WITH ;
Top = 54, ;
Left = 223, ;
Height = 25, ;
Width = 84, ;
Caption = "查看系统日期", ;
TabIndex = 5, ;
Name = "Command2"
Add OBJECT command3 AS commandbutton WITH ;
Top = 91, ;
Left = 223, ;
Height = 25, ;
Width = 84, ;
Caption = "关闭", ;
TabIndex = 6, ;
Name = "Command3"
Add OBJECT spinner1 AS spinner WITH ;
Height = 20, ;
Left = 59, ;
SpinnerHighValue = 2100.00, ;
SpinnerLowValue = 1980.00, ;
TabIndex = 1, ;
Top = 18, ;
Width = 120, ;
Name = "Spinner1"
Add OBJECT spinner2 AS spinner WITH ;
Height = 20, ;
Left = 59, ;
SpinnerHighValue = 12.00, ;
SpinnerLowValue = 1.00, ;
TabIndex = 2, ;
Top = 57, ;
Width = 120, ;
Name = "Spinner2"
Add OBJECT spinner3 AS spinner WITH ;
Height = 20, ;
Left = 59, ;
SpinnerHighValue = 31.00, ;
SpinnerLowValue = 1.00, ;
TabIndex = 3, ;
Top = 92, ;
Width = 120, ;
Name = "Spinner3"
Procedure decimal2hex
Lparameters tnvalue, ;
tnplaces
Local lnplaces, ;
lchex, ;
lcout, ;
lni
lnplaces = IIF(pcount() = 1, 4, tnplaces)
lchex = thisform.reversedecimal2hex(tnvalue, lnplaces)
lcout = ''
For lni = 1 TO lnplaces
lcout = lcout + SUBSTR(lchex, lnplaces - lni + 1, 1)
Next lni
Return lcout
Endproc
Procedure reversedecimal2hex
Lparameters tnvalue, ;
tnplaces
Local lndecimal, ;
lchex, ;
lncurrdecimals, ;
lnplaces, ;
lni, ;
lnexponent, ;
lntemp
lndecimal = tnvalue
lchex = ''
lncurrdecimals = SET('DECIMALS')
lnplaces = IIF(pcount() = 1, 4, tnplaces)
Set DECIMALS TO 17
For lni = lnplaces TO 1 STEP -1
lnexponent = 256 ^ (lni - 1)
lntemp = INT(lndecimal/lnexponent)
lchex = lchex + CHR(lntemp)
lndecimal = lndecimal - lntemp * lnexponent
Next lni
Set DECIMALS TO lncurrdecimals
Return lchex
Endproc
Procedure reversehex2decimal
Lparameters tcword
Local lndecimal, ;
lni
lndecimal = 0
For lni = LEN(tcword) TO 1 STEP -1
lndecimal = lndecimal + ASC(SUBSTR(tcword, lni, 1)) * 256^(LEN(tcword) - lni)
Next lni
Return lndecimal
Endproc
Procedure hex2decimal
Lparameters tcvalue, ;
tlsigned
Local lndecimal, ;
lnlen, ;
lni, ;
lnmsb, ;
lnmax
lndecimal = 0
lnlen = LEN(tcvalue)
For lni = 1 TO lnlen
lndecimal = lndecimal + ASC(SUBSTR(tcvalue, lni, 1)) * 256 ^ (lni - 1)
Next lni
If tlsigned
lnmsb = (lnlen * 8) - 1
If BITTEST(lndecimal, lnmsb)
lnmax = 2 ^ (lnmsb + 1)
lndecimal = lnresult - lnmax
Endif
Endif
Return lndecimal
Endproc
Procedure Init
Declare GetLocalTime IN Win32API STRING @lpSystemTime
Declare SetLocalTime IN Win32API STRING lpSystemTime
lpsystemtime = SPACE(16)
If !getlocaltime(@lpsystemtime)
Wait WINDOW "读取系统日期失败"
Return .f.
Else
Thisform.spinner1.value = thisform.hex2decimal(SUBSTR(lpsystemtime,1,2))
Thisform.spinner2.value = thisform.hex2decimal(SUBSTR(lpsystemtime,3,2))
Thisform.spinner3.value =thisform.hex2decimal(SUBSTR(lpsystemtime,7,2))
Endif
Endproc
Procedure command1.Click
lpsystemtime = SPACE(16)
If !getlocaltime(@lpsystemtime)
Wait WINDOW "读取系统日期失败"
Endif
lpsystemtime = ;
THISFORM.decimal2hex(THISFORM.spinner1.VALUE,2)+;
THISFORM.decimal2hex(THISFORM.spinner2.VALUE,2)+;
SUBSTR(lpsystemtime,5,2)+;
THISFORM.decimal2hex(THISFORM.spinner3.VALUE,2)+;
RIGHT(lpsystemtime,8)
If !setlocaltime(lpsystemtime)
Wait WINDOW "设置系统日期失败"
Else
Wait WINDOW "设置系统日期成功"
Endif
Endproc
Procedure command2.Click
Run/n control timedate.cpl
Endproc
Procedure command3.Click
Thisform.release
Endproc
Enddefine
如何在vfp程序中用何指令或程序新建一个文件夹,麻烦各位老师指点一下...
输入下面指令，建立文件夹：MD <文件夹名> 在当前目录下建立一个文件夹，如果指定了路径，则在指定路径下建立文件夹
如何在vfp程序中用何指令或程序确定文件夹是否存在,以便存在时删除(或...
if !dire(路径名称)messagebox("目录不存在，已被删除。") endif
vfp中宏代换
USE (gcTableName) ORDER (gcTagName)宏替换对于替换命令中的关键字是很有用的。在下面的示例中，把 TALK 设置保存在内存变量中，以便后面的程序能够恢复它。TALK 的原始设置使用宏替换恢复。
在vfp6.0中,用什么命令打开外部文件,如c:\\abc.exe。
1.指定一个父视窗的代码(Handle)值。(一个指派给视窗的数值，供作业系统追踪视窗属性)2.该应用程式所产生的视窗若有错误发生时会收到一个类似错误报告的讯息方块。3.一般都设为 0。lpOperation 对指定档案执行时所做的动作，有下列几种选择：(依该档案所能提供的动作而定)edit 编辑 explore 浏览 ...
在vfp中索引标记编号的方法是什么?
在vfp中索引标记编号的方法有主索引、候选索引、普通索引、唯一索引。主索引--PRIMARY：此索引只用於数据库表，每一个表只能有一个主索引.此索引可以确何数据表关键字的(主索引)的唯一性.如果试图追加相同关键字的记录，将报错。候选索引--CANDIDATE：和主索引类似，但一个数据库表可以有多个候选索引。...
请问VFP的索引方式有几种?
1.主索引--PRIMARY:此索引只用於数据库表,每一个表只能有一个主索引.此索引可以确何数据表关键字的(主索引)的唯一性.如果试图追加相同关键字的记录,将报错.2.候选索引--CANDIDATE:和主索引类似,但一个数据库表可以有多个候选索引.3.普通索引--REGULAR:可以用以数据库表及单表,允许表中有多个重复...
VFP是什么 有何用
VirtualFoxPro 也有人叫VF 是微软Visual stdio家族中的成员，vfp主要是针对小型数据库程序的开发
VFP技术在网页数据采集中开发的方向分析
因此，高校中的VFP存量用户较多，在新系统建设中，首先要考虑的系统对接的兼容性，后续增加的系统最好能和之前的系统能够无缝对接。而且，由于VFP的简单易学，在系统使用和维护中，不少老师也逐渐摸索、学习，逐渐掌握了 VFP的基础开发技能。因此，VFP来开发数据采集系统是一个可以被应用环境接受和用户认可...
vfp delete for 怎么没用呀? 何种条件下起作用
就是for后面跟上的条件起作用。如果不起作用，一定是你的条件有错误，如delete for 职称="教授"，如果表中无职称为教授的记录，当然就不会删除任何记录了。
VFP中表的索引类型有哪些?建立索引有什么优点?
1.主索引--PRIMARY:此索引只用於数据库表,每一个表只能有一个主索引.此索引可以确何数据表关键字的(主索引)的唯一性.如果试图追加相同关键字的记录,将报错.2.候选索引--CANDIDATE:和主索引类似,但一个数据库表可以有多个候选索引.3.普通索引--REGULAR:可以用以数据库表及单表,允许表中有多个重复...
荤媛骨肽： Local oForm oForm = createobject(＂SetDate＂) oForm.show(1) retu Define CLASS SetDate AS form Top = 0 Left = 0 Height = 140 Width = 339 DoCreate = .T. Caption = ＂设置系统日期＂ WindowType = 1 Name = ＂Form1＂ Add OBJECT ...
崂山区13283517695： 在vfp程序中,如何修改系统日期和时间??? - ？
荤媛骨肽： 你是想把日期型改为字符型吧? 假设存储“01/30/82”的字段名(列名)为“日期a”需要新建一个字段,也就是新建一列. modi stru,新建一个字符型的字段,比如“日期b”.然后使用如下命令: set century on set date ansi repl 日期b with dtoc(日期a)这样就将日期a中的日期型数据,存储到了日期b字段中,类型为字符型
崂山区13283517695： 怎样用vfp输入任意一个日期,显示这个日期是星期几 - ？
荤媛骨肽： cdow(日期)是显示英语的星期几如tuesday 用dow(日期)是数字3 是从星期天开始算起的,所以根据这个可以得出汉语星期几 下面就是代码:只要把date()换成其它日期就行了 ?＂星期＂+substr(＂日一二三四五六＂,dow(date())*2-1,2)
崂山区13283517695： 在VFP中日期格式怎么修改？
荤媛骨肽： 日期转换为字符函数DTOC 格式:DTOC( expD[,1]) 功能:将<日期表达式>转换为相应的字符串. 说明:不选用,1时,按mm/dd/yy格式转换;选用,1时,按yyyymmdd格式转换. ? DTOC(DATE()),DTOC(DATE(),1) → 99/11/15 19991115
崂山区13283517695： vfp中,在命令按钮中编辑语句设使表单运行时在文本框里显示系统日期,怎么做啊?急急急,谁会麻烦告诉一下 - ？
荤媛骨肽： 在按钮里写上:THISFORM.TEXT1.VALUE=DATE() 在FORM的INIT事件里写上:THISFORM.COMMAND1.CLICK THISFORM.REFRESH
崂山区13283517695： 怎样用VFP设计日历时钟表单?急!`` - ？
荤媛骨肽： 你查看下 有个activeX控件完全可以实现这个功能 最后一个 中文8.0版vfp叫做 日历控件8.0 添加上去比自己写得可是漂亮好多
崂山区13283517695： 在VFP中怎样用SQL的UPDATE命令将学生＂王三凤＂的出生日期修改为1983年05月01日啊??? - ？
荤媛骨肽： 如果你的表名叫xsqk.dbf的话.update xsqk set 出生日期={1983-05-01}where 姓名=＂王三凤＂ 然后在题目要求的位置新建一个名为SQL.TXT的文本文档.把上面那条语句粘贴上去即可.
崂山区13283517695： 简述在VFP中把日期格式由“美语”改为“年月日”的步骤 - ？
荤媛骨肽： 在VFP中把日期格式由“美语”改为“年月日”的步骤 :1、打开数据库窗口.2、直接在命令窗口中输入:set date to ymd.确定.Visual FoxPro ,是Microsoft公司从Fox公司的FoxBase数据库软件经过数次改良,并且移植到Windows之后,得来的应用程序开发软件,主要用于开发数据管理与运算等方面的软件.VFP是Microsoft公司推出的最新可视化数据库管理系统平台,是功能特别强大的32位数据库管理系统.它提供了功能完备的工具、极其友好的用户界面、简单的数据存取方式、独一无二的跨平台技术,具有良好的兼容性、真正的可编译性和较强的安全性,是目前最快捷、最实用的数据库管理系统软件之一.
崂山区13283517695： VFP中怎样设置“字段的默认值:当前系统日期与时间”,在线等,急~~~~~ - ？
荤媛骨肽： 首先你的表必须是数据库中的表,操作方法是打开这个表,执行命令modi stru,在表设计器中选择你需要设置的那个日期时间型字段,在下面的默认值中输入datetime() 也可以用命令来完成 alter table 表名 alter 字段名 D(default datetime())
崂山区13283517695： VFP中怎么使默认日期为系统当前日期 - ？
荤媛骨肽： set cent on set date ansi 比如某文本框显示当前日期:thisform.text1.value=date()
