sdta的博客 - 编程中国

这样的记录如何编写程序汇总

网址：http://bbs.bccn.net/thread-292155-1-111.html 字段名意思 grbh(个人编号) sfz（身份证号） xm（姓名） dwbh（单位编号） dwmc（单位名称） jfsq（缴费属期） jflx（缴费类型） grjfjs（个人缴费基数） grjfbj（个人缴费本金） grjflx（个人缴费利息） grjfbs（个人缴费标志） grdzrq（个人到帐日期） dwjfbj（单位缴...

感兴趣的问题 | 2015-03-15 17:57 | 阅读 2528 次 | 评论 0 条

成绩分析

Set Collate To "MACHINE" Set Talk Off T1=Seconds() Clear Close DataBases Local Akm[2],Apm[7],Afs[2,7],TableName[2],cXbm cXbm="校编码" TableName[1]="成绩" TableName[2]="成绩分析" Akm[1]="语文" Akm[2]="数学" Apm[1]=1 Apm[2]=50 Apm[3]=100 Apm[4]=200 Apm[5]=300 Apm[6]=400 Apm[7]=500 Se...

数据表问题 | 2015-03-14 21:17 | 阅读 2068 次 | 评论 0 条

VFP生成指定月份日历的方法二

Clear lnYear=2015 lnMonth=2 lDate1=Date(lnYear,lnMonth,1) && 本月期初日期 lDate2=Gomonth(lDate1,1)-1 && 本月期末日期 lnDay1=Dow(lDate1,2)-1 && 与本周星期一之间相差的天数 lnDay2=lDate2-lDate1+1 && 本月天数 lnDay3=Ceiling((lnDay1+lnDay2)/7)*7 && 日历元素数 Create Cursor Tdate (星期一 N...

日期时间问题 | 2015-03-14 13:04 | 阅读 2330 次 | 评论 0 条

VFP字符串多空格转换单空格的方法

cStr="a b c d" && 变为 "a b c d" Do While Space(2)$cStr cStr=Strtran(cStr,Space(2),Space(1)) EndDo MessageBox(cStr)

文本(文件)数据问题 | 2015-03-13 17:36 | 阅读 2582 次 | 评论 0 条

VFP表格中左侧插入一列显示顺序号

* 表格控件INIT事件 THISFORM.GRID1.ADDCOLUMN(1) && 在左边插入列。 THISFORM.GRID1.COLUMNS(THISFORM.GRID1.COLUMNCOUNT).NAME = "NewColumn" THIS.COLUMNS(THISFORM.GRID1.COLUMNCOUNT).HEADER1.CAPTION=[序号] THISFORM.GRID1.NEWCOLUMN.CONTROLSOURCE = "PADL(RECNO(),LEN(TRANSFORM(RECCOUNT())),[0])"

表格(Grid)控件 | 2015-03-13 17:25 | 阅读 4876 次 | 评论 0 条

VFP，当移动鼠标到表格某一个单元格时如何获取表格当前值

PUBLIC oForm oForm = NEWOBJECT("Form1") oForm.Show RETURN DEFINE CLASS Form1 As Form Height = 300 Width = 420 Add Object Grid1 As Grid PROCEDURE Load CREATE CURSOR TEMP (F1 C(10), F2 C(10), F3 I) INSERT INTO TEMP VALUES ("ABC", "123...

表格(Grid)控件 | 2015-03-13 15:25 | 阅读 3867 次 | 评论 0 条

VFP生成本月日历的方法

Clear dDate=Date() STORE [] TO CRQ,CRQ1 A=REPLICATE([ ],(DOW(Date(Year(dDate),MONTH(dDate),1),2)-1)*3) ?[本月日历：]+tran(date()) ?[一二三四五六日] FOR I=1 TO Day(GOMONTH(dDate-Day(dDate)+1,1)-1) CRQ=CRQ+IIF(I=1,A,[])+PADL(I,2,[ ])+IIF(DOW(Date(Year(dDate),MONTH(dDate),I),2)=7,CHR(13)+CHR(...

日期时间问题 | 2015-03-13 14:47 | 阅读 1703 次 | 评论 0 条

VFP的DataToClip 方法将VFP表导入EXCEL

Set Talk Off * -- 创建 4 个测试用临时表 Create Cursor A01 (f1 C(20)) Create Cursor A02 (f1 C(20)) Create Cursor A03 (f1 C(20)) Create Cursor A04 (f1 C(20)) For ii = 0 To 3 cAlias = Textmerge('A0<<ii+1>>') For m.jj = 1 To 10000 && 每个测试表插入 20 条测试用记录 Insert Into (cAlias)...

Excel问题 | 2015-03-13 14:34 | 阅读 3621 次 | 评论 0 条

区位码生成程序

NOTE 区位码生成程序 CREATE CURSOR T (S N(2)) FOR I=1 TO 94 INSERT INTO T VALUES (I) ENDFOR SELECT PADL(A.S,2,[0])+PADL(B.S,2,[0]) AS QWM,CHR(160+A.S)+CHR(160+B.S) HZ,; TRANSFORM(ASC(CHR(160+A.S)+CHR(160+B.S))) NASC FROM T A INNER JOIN T B ON A.S<=B.S OR A.S>B.S

数据处理问题 | 2015-03-13 14:31 | 阅读 1579 次 | 评论 0 条

VFP中获取字符串中汉字的方法

lcStr="Ａ１]中国" ?Strconv(lcStr,2) 结果:A1]中国然后通过For EndFor方法提取出汉字

文本(文件)数据问题 | 2015-03-13 14:22 | 阅读 5306 次 | 评论 0 条

VFP中数字字符串排序

CSTR=[103] A=CSORT(CSTR) LIST MEMORY LIKE A FUNCTION CSORT(AA) PUBLIC ASTR(LEN(AA)) FOR I=1 TO LEN(AA) ASTR(I)=SUBSTR(AA,I,1) ENDFOR =ASORT(ASTR) RETURN @ASTR

文本(文件)数据问题 | 2015-03-13 14:06 | 阅读 2090 次 | 评论 0 条

在数据表的最后一条记录后添加一条求和记录

LPARAMETERS CTABNAME GO BOTTOM *--- 检查最后一条记录是否为"小计"行 IF AT("小计",EVALUATE(FIELD(1)))>0 MESSAGEBOX("已经有小计记录",64,"系统信息") RETURN ENDIF *--- 在数据表最后插入一条记录 INSERT INTO (CTABNAME) ((FIELD(1))) VALUES (PADC("小计",FSIZE(FIELD(1)),"-")) FOR I=NZDS TO FCOUNT() IF TYPE(FIELD(I))="N" ...

数据表问题 | 2015-03-13 14:05 | 阅读 1648 次 | 评论 0 条

将一个字符串分割成均等的两行

CSTR="我想將一BC個字123456符串分割G成兩行" MESSAGEBOX(FUN(CSTR),64,[系统信息]) *--- 自定义函数 FUNCTION FUN PARAMETERS CSTR LOCAL NLEN NLEN=LEN(CSTR)/2 CSTR_1=LEFT(CSTR,NLEN) NLEN=IIF(STRCONV(STRCONV(CSTR_1,5),6)==CSTR_1,NLEN,NLEN+1) RETURN LEFT(CSTR,NLEN)+CHR(10)+CHR(13)+CHR(10)+SUBSTR(CSTR,NLEN+1)

文本(文件)数据问题 | 2015-03-13 14:03 | 阅读 1362 次 | 评论 0 条

VFP中如何查找表中重复的字段记录

Select * From 表名 Where 字段名 In (Select 字段名 From 表名 Group By 字段名 Having Count(*)>1) Order By 字段名

数据表问题 | 2015-03-13 14:01 | 阅读 3162 次 | 评论 0 条

VFP获取文件(夹)的创建日期及时间

Clear FSO=CreateObject("Scripting.FileSystemObject") sourcepath="d:\sn.txt" oBjset = FSO.GetFile(sourcepath) ? "文件创建日期及时间:",oBjset.DateCreated sourcepath1="F:\Picture" oBjset = FSO.GetFolder(sourcepath1) ? "文件夹创建日期及时间:",oBjset.DateCreated Release FSO

文件(夹)问题 | 2015-03-13 11:53 | 阅读 2468 次 | 评论 0 条

用默认软件打开jpg文件

Declare Integer ShellExecute In shell32.dll Integer,String,String,String,String,Integer Declare Integer GetDesktopWindow In Win32api lcFile = Getfile("jpg") If Empty(lcFile) Return Endif lnWnd = GetDesktopWindow() =Shellexecute(lnWnd,"open",lcFile,"","C:\",0) Clear dlls

文件(夹)问题 | 2015-03-13 11:25 | 阅读 1479 次 | 评论 0 条

怎么打开用GetFile()取得的文件

FileName=GETFILE() DoOut(0,'OPEN',JUSTFNAME(FileName),'',JUSTPATH(FileName),9) *------------------------------------------------------------------------------------------ FUNCTION DoOut PARAMETERS lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGE...

文件(夹)问题 | 2015-03-13 11:24 | 阅读 3890 次 | 评论 0 条

如何让表格中的最后一条记录，用特殊的字体和颜色显示

* 在表格的INIT事件中写入 This.SetAll("DynamicFontName","Iif(RECNO()=Reccount(),'黑体','宋体')","Column") This.SetAll("DynamicFontSize","Iif(RECNO()=Reccount(),16,10)","Column") This.Setall("DynamicBackColor","Iif(Recno()=Reccount(),Rgb(255,255,255),Rgb(255,0,0)","Column")

表格(Grid)控件 | 2015-03-13 10:21 | 阅读 1273 次 | 评论 0 条

中文时间(十九时五分二十六秒)转换为数字时间(19:05:26)

* 程序功能：中文时间(十九时五分二十六秒)转换为数字时间(19:05:26) * 注：该程序稍加修改可用于中文日期转换为数字日期 lcStr="零,00;一,01;二,02;三,03;四,04;五,05;六,06;七,07;八,08;九,09;十,10;"; +"十一,11;十二,12;十三,13;十四,14;十五,15;十六,16;十七,17;十八,18;十九,19;二十,20;"; +"二十一,21;二十二,22;二十三,23;二十四,24;二十五,25;二十六,26;二十七,27;二十八,28;二十九,29;三十,30;"; +"三十一,31;三十二,32;三十三,33...

日期时间问题 | 2015-03-12 22:42 | 阅读 3604 次 | 评论 0 条

vfp调用dos怎么解决黑屏停顿问题

把以下 notepad.exe 换成你的 DOS命令即可来源：http://bbs.csdn.net/topics/340256503 Declare Long WinExec In kernel32 String,Long =WinExec("notepad.exe",1) Clear Dlls WinExec(one.exe,SW_SHOW); 里面的SW_SHOW意思是什么 WinExec(）函数第二个参数是什么意思如果我想以无参数运行one.exe应该怎么办?? SW_SHOW表示以当前大小激活运行后的程序窗口并显示它。 ...

文件(夹)问题 | 2015-03-11 14:26 | 阅读 3482 次 | 评论 0 条