vriuswgq-优快云博客

转载 delphi导出Excel

delphi导出EXCEL网上的代码,不是需要ADOQUERY,就是TABLE,再不就是与DBGRID绑定.每一次使用总是特别麻烦.前几天想自己不如将EXCEL的导出函数给改一下.于是自己加了一些东西.这样子好了.以后调用方便至极.呵呵. 调用方法:saveAsExcel(select users as [用户名],pwd as [用户密码] from login,c:/aaaa.x

2009-02-03 15:16:00 769

原创遗传算法的基本代码

unit GADelphi;interfaceuses Math, SysUtils;type PUnsigned = array of Cardinal; Pint = ^integer; individual = record chrom: PUnsigned; fitness:

2008-06-18 22:39:00 1198 1

转载经常使用的网页代码

1. 将彻底屏蔽鼠标右键no 可用于Table2. 取消选取、防止复制3. 不准粘贴4. 防止复制5. IE地址栏前换成自己的图标6. 可以在收藏夹中显示出你的图标7. 关闭输入法8. 永远都会带着框架<!--if (window == top)top.location.href = "frames

2008-06-15 09:25:00 497

转载网页插入多媒体的代码

背景音乐2 支持 Midi、Wav、AIFF、AU、SWFCONTROLS = console 一般正常的面板；smallconsole 较小的面板；playbutton 只显示播放按钮；pausecutton 只显示暂停按钮；stopbutton 只显示停止按钮；volumelever 只显示音量调整钮。Windows Me

2008-06-15 09:22:00 485

转载调用外部 DLL 中的函数

//早绑定unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

2008-06-12 10:22:00 559

转载 Xml简要

一) XML优点先让我们了解一下什么是XML(扩展标识语言). XML属于SGML(Standard Greneralized Markup Language 标准通用标记语言)的一个子集, 它是一种采用标记来描述文档(数据)的种类和方法. XML是由W3C下属的XML小组在JonBosak 的领导下于1996年完成的规范, 1998年正是成为一种W3C推荐的标准. 使用过HTML的开

2008-06-12 10:19:00 149

转载自定义快速报表的打印预览窗口

自定义快速报表的打印预览窗口　　Quick Report 2.0 中提供的默认打印预览窗口是英文界面的，如果开发的中文软件中带有这种英文显示，不免有些小小的缺憾。因此有必要实现中文界面的打印预览窗口。但是Delphi 提供的源代码中

2008-06-12 10:15:00 493

转载用FASTREPORT实现WEB应用中自定义报表

在C/S结构系统中，报表问题有很多成熟的解决方法。如DELPHI开发工具不仅自带有报表控件，还可以利用第三方控件来实现快速灵活的报表制作和打印，其中有名的控件是FR-Software & A.Tzyganenko 的FastReport。FastReport提供了能与DELPHI无缝集成的从设计到打印的完整控件包，提供的设计界面友好灵活，对于开发可让用户自定义报表的C/S应用来说，是一种很

2008-06-12 10:11:00 927

转载 Delphi 中遍历 XML 文档的完整示例

Delphi 中遍历 XML 文档的完整示例 XML 文档的节点是标准的树形结构，可以通过递归或者回溯算法来遍历所有的节点。本例使用递归算法为例，制作了2个遍历 XML 文档的例子。第一个例子，给出一个 XML 节点，遍历所有子节点-不包括起始节点。第二个例子，给出一个 XML 节点，遍历所给的节点及其下属的所有子节点。

2008-06-12 10:00:00 891

原创 Java递归遍历XML所有元素。

Java递归遍历XML所有元素做一个递归遍历XML的例子，为更为复杂的解析工作做基础。目标：遍历所有的元素节点，并且取出来其中的值，结果打印到控制台。源代码如下：本程序依赖DOM4j包 import org.dom4j.Document;import org.dom4j.D

2008-06-12 09:58:00 1898

原创 CWOW一区，没落之最（没有之一）的服务器：藏宝海湾

当年我跟Imgod一起进驻藏宝海湾，光就是Imgod整体进驻的人数，就超过500人记得没错的话，好像是第3天，Shana就在抱怨“500人bug”了这里罗嗦一下，如何判断“整体进驻”的Imgod成员和WOW开了以后后来加入Imgod的人，很简单，“整体进驻”的成员全部英文名字，因为最开始的时候有一个中文人物名字信件会丢失的bug 除了Imgod以外，藏宝海湾还有两个非常专业的

2008-06-12 09:55:00 2717

原创 SQL数据库分页语句

我们在编写MIS系统和Web应用程式等系统时，都涉及到和数据库的交互，假如数据库中数据量很大的话，一次检索任何的记录，会占用系统很大的资源，因此我们常常采用，需要多少数据就只从数据库中取多少条记录，即采用分页语句。根据自己使用过的内容，把常见数据库Sql Server,Oracle和MySQL的分页语句，从数据库表中的第M条数据开始取N条记录的语句总结如下：SQL Ser

2008-06-12 09:42:00 478

转载 ASP初学者常用的代码

1.获得系统时间:2.取得来访用的IP:3.获得系统,浏览器版本:window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")4.去除IE混动条:5.进入网站,跳出广告:<!--

2008-06-12 09:40:00 399

原创 SQL语句导入导出Excel

/******* 导出到excel EXEC master..xp_cmdshell ’bcp SettleDB.dbo.shanghu out c:/temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""’ /*********** 导入Excel SELECT * FROM OpenDataSource(

2008-06-12 09:30:00 607

原创一个托盘程序

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ShellAPI, ExtCtrls;const ICON_ID= 1; MI_I

2008-06-12 09:27:00 374

原创计算目录大小的函数，获得目录文件列表，计算文件的大小

这个函数可以获得指定目录下所有的文件路径+名称，能够递归搜索：procedure FindAllFile(const Dir: string;List: TStringlist);var hFindFile: THandle; FindFileData: WIN32_FIND_DATA; FullName,FName,s:string;

2008-06-12 09:20:00 626

转载面对现实敞开心扉

其实，每个人对人生都有自己独特的诠释，是追求，是执著……但有一点永远不会变：人生是成败交替的合体，是得失兼容的五味瓶，想要真正读懂人生的人，必须先读懂失败，不幸，挫折和痛苦。　　　独步人生，我们会遇到种种困难，甚至于举步维艰，甚至于悲观失望。征途茫茫，有时看不到一丝星光，长路漫漫，有时走得并不潇洒浪漫。这时，给自己一个笑脸好吗？让来于心底的那份执着，鼓舞着自己插上长风的

2008-06-12 09:17:00 446

转载活的恬淡宁静　　萃取生命真谛

不知是否早已习惯朝九晚五的生活，对于应怎样活在这个物欲横流，纷纭众扰的社会，让饱偿心灵创伤的自己有些抚慰，寻找属于自己的那一份平衡、恬淡，活的靓丽精彩。　　　　人生最大的财富莫过于健康。无论你为社会，家庭乃至全人类做出过怎样的贡献，到头来仍行将就木，属于自己的只有那个三尺小盒，因此，健康就显得尤其重要了，绝不可以简单地照顾一下就完事大吉。所以放飞自己的

2008-06-12 09:16:00 459

原创开始运行命令大全

开始-运行-命令大全 1. gpedit.msc-----组策略 2. sndrec32-------录音机 3. Nslookup-------IP地址侦测器 4. explorer-------打开资源管理器 5. logoff---------注销命令 6. tsshutdn-------60秒倒计时关机命令 7. lusrmgr.msc----本机用户和组

2008-06-12 09:13:00 330

转载世界知名工会小D情况

Nihilum公会目前拥有3名德鲁伊。占该公会统计人口的8.1%。团队成员为： Marilyn：曾经是恢复德也是他们的职业队长（领主转的那篇文章就是他写的），因为公会需要目前洗成了野性天赋，为1 49 11。可能因为刚转型，他的野性装备并不是非常好。 Rulah：该会最著名的野德，也是战场上经常可以看到的活跃分子。天赋为1 46 14。 Sindree：最不为人知的大概就是Sindre

2008-06-12 09:11:00 589

原创文本文件以指定的字符串分割

文本文件的分割。这段代码是按照指定的分割符将文本文件分割成若干个片段。代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

2008-06-12 08:59:00 956

原创字符串分割函数

unit TMyTool;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TPMMS=Class(TObject)

2008-06-12 08:46:00 374

原创文本文件中实现查找和替换

文本文件的转换，这里的转换是将文本文件中的特殊的标识符号或者说分隔符转换成自己比较熟悉的符号就是简单的查找和替换，把比较生僻的符号转换成熟悉的，这样有利于在编程是分割字符串。代码如下： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, G

2008-06-11 10:18:00 868

转载 TStringList 常用操作

//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add(Strings1); {添加} List.Add(Strings2); List.Exchange(0,1);

2008-06-11 10:03:00 310

转载牛人们如何让自己Blog流量爆涨-经验谈

牛人们如何让自己Blog流量爆涨-经验谈作者：未知　来源：互联网　类型：网站推广　加入时间：2006年4月30日15:5　如何增加Blog读者数近日，国外一牛人 Guy Kawasaki 写了一篇 The 120 Day Wonder:How to Evangelize a Blog ，此文引起了不少知名Blogger的注意。为什么呢？因为这人特别

2008-06-11 09:54:00 283

风神谪凡的记忆