摘要: //▎============================================================▎////▎===================⑩数据库功能函数及过程===================▎////▎============================================================▎//{function PackDbDbf(Var StatusMsg: String): Boolean;}{* 物理删除数据库(Db,Dbf)中的数据[着了删除标记的记录]}procedure RepairDb(DbName: 阅读全文
posted @ 2012-04-20 21:39 BarneyX 阅读(254) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎=====================⑨汉字拼音功能函数=====================▎////▎============================================================▎//function GetHzPy(const AHzStr: string): string; {测试通过}{* 取汉字的拼音}function HowManyChineseChar(Const s:Strin... 阅读全文
posted @ 2012-04-20 21:38 BarneyX 阅读(211) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎=====================⑦硬件功能函数=========================▎////▎============================================================▎//function GetClientGUID:string;{ 功能描述:在本机上得到一个GUID.去掉两端的大括号和中间的横线 返回值:去掉两端的大括号和中间的横线的一个GUID 适用范围:windows}fun.. 阅读全文
posted @ 2012-04-20 21:37 BarneyX 阅读(319) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎=====================⑥系统功能函数=========================▎////▎============================================================▎//procedure MoveMouseIntoControl(AWinControl: TControl); {测试通过}{* 移动鼠标到控件}function DynamicResolution(x, y: WO.. 阅读全文
posted @ 2012-04-20 21:36 BarneyX 阅读(221) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎====================⑤扩展的对话框函数======================▎////▎============================================================▎//procedure InfoDlg(Mess: string; Caption: string = SCnInformation; Flags: Integer = MB_OK + MB_ICONINFORMATION). 阅读全文
posted @ 2012-04-20 21:35 BarneyX 阅读(210) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎=================④扩展的文件及目录操作函数=================▎////▎============================================================▎//function MoveFile(const sName, dName: string): Boolean; {测试通过}{* 移动文件、目录,参数为源、目标名}procedure FileProperties(const F. 阅读全文
posted @ 2012-04-20 21:34 BarneyX 阅读(225) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎===================③ 扩展的位操作函数 ====================▎////▎============================================================▎//type TByteBit = 0..7; {* Byte类型位数范围} TWordBit = 0..15; {* Word类型位数范围} TDWordBit = 0..31; {* DWord类型位数范围}p... 阅读全文
posted @ 2012-04-20 21:33 BarneyX 阅读(261) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎================② 扩展的日期时间操作函数 =================▎////▎============================================================▎//function GetYear(Date: TDate): Integer; {测试通过}{* 取日期年份分量}function GetMonth(Date: TDate): Integer; {测试通过}{* 取日期... 阅读全文
posted @ 2012-04-20 21:32 BarneyX 阅读(221) 评论(0) 推荐(0) 编辑
摘要: //▎============================================================▎////▎================① 扩展的字符串操作函数 ===================▎////▎============================================================▎////从文件中返回Ado连接字串。function GetConnectionString(DataBaseName:string):string;//返回服务器的机器名称.function GetRemoteServerNam. 阅读全文
posted @ 2012-04-20 21:30 BarneyX 阅读(518) 评论(0) 推荐(0) 编辑
摘要: html 初次接触html学习【1】/* 许多的编程哥们”学习“编程都是从网页开始学起的,当然了这都是大学里这样教的我学习编程时不是这样学起的。今天在学校机房里上机觉的没意思!!就抽点时间看看html也不至于我的时间白白的浪费掉! 当然想做出网络上那些绚丽的网页就得从最基础的地方学习起来,而我网页最基础的的当属html的标记语言了,在介绍这些东西的时候我们还是来看看一下网页的构成吧!一、html的构成结构;(头部{head}、眼睛{title}、身体{body}) 看到这些单词或是词组大家有没有觉这样的构成像是一个人的基本结构!没错,一个网页的结构基本上就是由这几块构成的。1.头部[h... 阅读全文
posted @ 2012-04-20 14:53 BarneyX 阅读(219) 评论(0) 推荐(0) 编辑