2017年6月8日

摘要: 分部类 用接口 阅读全文
posted @ 2017-06-08 15:45 张伦 阅读(128) 评论(0) 推荐(0) 编辑

2007年10月25日

摘要: PostMessage只是把消息放入队列,不管其他程序是否处理都返回,然后继续执行;而SendMessage必须等待其他程序处理消息后才返回,继续执行。PostMessage的返回值表示PostMessage函数执行是否正确;而SendMessage的返回值表示其他程序处理消息后的返回值。 阅读全文
posted @ 2007-10-25 12:05 张伦 阅读(675) 评论(0) 推荐(0) 编辑

2007年8月30日

摘要: 验证日期格式为YYYY-MM-DD的正则表达式为:(([0-9]{3}[1-9]|[0-9]{2}[1-9][0-9]{1}|[0-9]{1}[1-9][0-9]{2}|[1-9][0-9]{3})-(((0[13578]|1[02])-(0[1-9]|[12][0-9]|3[01]))|((0[469]|11)-(0[1-9]|[12][0-9]|30))|(02-(0[1-9]|[1][0-9... 阅读全文
posted @ 2007-08-30 16:56 张伦 阅读(662) 评论(0) 推荐(0) 编辑

2006年11月3日

摘要: 0. 程序是对现实世界的运动状态的模拟。面向过程的程序设计认为,每个程序都要完成一些规定的功能。每个程序的实现是通过对数据进行一系列的加工的过程而实现的。因而程序设计包括组织数据——设计数据结构,以及对数据结构进行加工的过程——设计算法两部分。1. 异或运算符"^"可用于翻转某位的值,如果想翻转一个变量中的某一位,就是改变量与该位置1其余为全置0的数进行异或运算即可。2. 左移运算符"<&l... 阅读全文
posted @ 2006-11-03 14:16 张伦 阅读(446) 评论(0) 推荐(0) 编辑

2006年8月7日

摘要: //十进制 to 二进制function IntToBin(Value: LongInt;Size: Integer): String;vari: Integer;beginResult:='';for i:=Size-1 downto 0 do begin if Value and (1 shl i)<>0 then begin Result:=Result+'1'; end els... 阅读全文
posted @ 2006-08-07 17:48 张伦 阅读(4484) 评论(2) 推荐(0) 编辑

2006年8月3日

摘要: 最近有好几个表,PLC,控制器(mp2300)用Modbus通讯RTU模式做的通讯。写个通讯类:/Files/goodmor9/Modbus.rar 阅读全文
posted @ 2006-08-03 10:27 张伦 阅读(2835) 评论(8) 推荐(0) 编辑

2006年6月14日

摘要: 未曾清贫难成人,不经打击老天真。自古英雄出炼狱,从来富贵入凡尘。醉生梦死谁成器, 拓马长枪定乾坤。 挥军千里山河在, 立名扬威传后人。 阅读全文
posted @ 2006-06-14 17:15 张伦 阅读(2473) 评论(1) 推荐(0) 编辑

2006年5月25日

摘要: uses Excel97;procedure ExcelOut;var workbook,sheet:variant;xlapp,q:variant;begin xlapp:=GetExcelObject('Excel.Application');xlapp.visible:=true; //此属性为true,导出时会打开一个Excel文件,看到一行一行的写入数据 if xlapp.workboo... 阅读全文
posted @ 2006-05-25 18:05 张伦 阅读(1731) 评论(0) 推荐(0) 编辑

2005年11月22日

摘要: public bool ExcelOut(string filename,string sql1,string sql2){try{// Start a new workbook in Excel.m_objExcel = new Excel.Application();m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;m_objBook = (... 阅读全文
posted @ 2005-11-22 15:51 张伦 阅读(2257) 评论(0) 推荐(0) 编辑
 
摘要: 1、打开工程,右键点击工程,添加引用。2、点击浏览,到program files\crystal Decisions\crystal report9,在下面搜索(包括子目录)'CrystalDecisions.VSDesigner.dll' 然后确定。3、如果弹出提示,选择“是”。4、拖一个ReportViewer到视图上,应该不会出现错误了 阅读全文
posted @ 2005-11-22 15:47 张伦 阅读(962) 评论(0) 推荐(0) 编辑