
公告 |
四川理工学院信息管理与信息系统专业学生,男,83年5月生。
职业:自由开发者
为人座右铭:做人要厚道
QQ:61951565
VFP群:4001858(已满员),17966472
E-mail:lugreen@163.com
QQ空间:Greeeeeeeeeeeeeen
本博客文章未经作者同意不得转载 |
Blog信息 |
blog名称:Green1Vfp 原创空间 日志总数:35 评论数量:101 留言数量:3 访问次数:443556 建立时间:2004年12月7日 |

| |
[用户接口]在VFP中制作"日期选择器" 原创空间, 软件技术
Green1 发表于 2005/5/23 20:44:12 VFP QQ群:4001858 VFP UC团体:4363524 欢迎您的加入 |
在VFP中制作"日期选择器"
不知道你在文本框中输入日期时是不是感到不方便?反正我是,我经常会把"mm-dd-yy"输成"yy-mm-dd",经常会看到“无效的日期”的提示。当你把程序交付给用户使用时,这种不方便一定会影响用户对程序的评价。这个烦人问题困扰我很长时间了,今天无意中查看VFP的示例,在其中发现了一个示例,可以很好的解决这个问题,现在把他写下来,与狐友们分享。
Vfp版本:9.0正式版
操作系统:windows 2000 专业版
在这个示例中使用了VFP自带的类,这个类位于 home()+’ffc\_datetime.vcx’中,类名为_olecalendae
新建一个数据表 test.dbf,,具有两个字段 姓名 c(10) ,生日 d()
随便添加一个记录,
新建一表单:如图
500)this.width=500'>
将数据表tese.dbf添加到数据环境中。
上边的文本框与“姓名”字段绑,下边的文本框与“生日”字段绑定。
代码:
“选择日期”按钮
#DEFINE C_CALCAPTION_LOC "选择日期"
oCalForm = Create('form')
oCalForm.NewObject("oleCalendar","_olecalendar",HOME()+"FFC\_datetime.vcx")
WITH oCalForm.oleCalendar
.date_column = "test.生日"&&得当前日期, 并将生日字段与olecalendar控件绑定
.RefreshDisplay()&&使日历控件显示当时日期
.BackColor = THISFORM.BackColor
.Visible = .T.
ENDWITH
WITH oCalForm
.AutoCenter = .T.
.BorderStyle = 2
.MaxButton = .F.
.MinButton = .F.
.Height = oCalForm.oleCalendar.Height
.Width = oCalForm.oleCalendar.Width
.Caption = C_CALCAPTION_LOC
ENDWITH
oCalForm.Show(1)
THISFORM.Refresh
“退出”按钮
thisform.Release
运行表单
点击“日期选择”按钮会出现下面的效果。
500)this.width=500'>
现在可以选择日期,选择后关闭小窗口,生日文本中框中的日期值会变成你选择的日期。
注意:数据表中一定要有记录。 |
|
回复:在VFP中制作"日期选择器" 原创空间, 软件技术
xj(游客)发表评论于2007/1/25 22:20:21 VFP QQ群:4001858 VFP UC团体:4363524 欢迎您的加入 |
|
回复:在VFP中制作"日期选择器" 原创空间, 软件技术
xiaojun(游客)发表评论于2007/1/25 22:17:25 VFP QQ群:4001858 VFP UC团体:4363524 欢迎您的加入 |
|
回复:在VFP中制作"日期选择器" 原创空间, 软件技术
路过(游客)发表评论于2006/6/20 16:51:41 VFP QQ群:4001858 VFP UC团体:4363524 欢迎您的加入 |
楼主,不好意思有个单词好像写错了哦,_olecalendae 好像应该可能是,_olecalendar |
|
回复:在VFP中制作"日期选择器" 原创空间, 软件技术
Green1发表评论于2005/11/27 18:38:41 VFP QQ群:4001858 VFP UC团体:4363524 欢迎您的加入 |
|
回复:在VFP中制作"日期选择器" 原创空间, 软件技术
郭永(游客)发表评论于2005/11/16 8:52:28 VFP QQ群:4001858 VFP UC团体:4363524 欢迎您的加入 |
不知此_datetime.vcx类文件可否用在VFP6中? |
|
» 1 »
|