2013年01月_骑着骆驼写程序

10月 09月 08月 07月 06月 04月 02月 01月

原创根据sheet1指定行数往sheet2中写数据

Dim i As IntegerSub addNewInfo(ByVal stext As String, ByVal icount As String) Worksheets("Sheet2").Activate Dim rowcount As Integer Dim j, m As Integer j = Val(icount) rowcount =

2013-01-25 10:00:46 1032

原创 PageControl上画图片

var TmpRect,BackRect:TRect; sWidth,sHeight:integer;begin with pgcMain.Canvas do begin sWidth:=textwidth(pgcMain.Pages[TabIndex].Caption); sHeight:=textheight(pgcMain.Pages[Ta

2013-01-21 22:18:11 584

转载 Myeclipse 9.0正式版破解注册码注册机使用方法

1、破解公钥，确保MyEclipse没有开启，否则失败！用WinRAR或7-zip打开Common\plugins\com.genuitec.eclipse.core_9.0.0.me201101251749.jar，到com\genuitec\eclipse\core目录下，替换publicKey.bytes文件2、破解MyEclipse自检查程序文件完整性，如果不改，那么公钥破解会

2013-01-10 10:47:44 1304 1

转载取消打开outlook时自动打开messenger的方法

XP系统安装完后,如果你打开系统自带的outlook express,那就会自动打开messenger,有时候这样会让人烦燥.而在outlook里自己虽然有取消的地方,但有时候取消了却没有用,这里我分享一下在网上找到的可用的办法:你先运行注册表编辑器(开始菜单,运行,regedit,确定)，在注册表编辑器中依次单击左边窗口中的条目展开到“HKEY_LOCAL_MACHINE\SOFTWARE\

2013-01-09 14:13:57 1100

原创浮动div以及div透明

div随滚动条的滚动而不断滚动//脚本实现滚动function scrollLayer(){ var t = window.pageYOffset; //获取滚动条坐标 if (isNaN(t)) { t = document.documentElement.scrollTop; //页面使用W3C标准，获取滚动条坐标 }else if (isNaN(t)) {

2013-01-06 16:02:36 1424

原创 sqlserver里循环调用

declare @T1 Intselect @T1=Pm_PListID from PmLists where Pm_ListID=684while exists(select 1 from PmLists where Pm_listid=@T1 and Pm_PListID>0) begin select @T1=Pm_PListID from PmLists where

2013-01-06 16:01:09 391

原创 sqlserver2005中所有者不能访问数据

所有者的 denyreader denywrite 钩去掉配置服务器失败：可能与计算机名称有特殊字符有关，最好都改为大写

2013-01-06 16:00:41 358

原创 sqlserver格式化时间

select CONVERT(varchar, getdate(), 120 ) 2004-09-12 11:06:08 select replace(replace(replace(CONVERT(varchar, getdate(), 120 ),\'-\',\'\'),\' \',\'\'),\':\',\'\')20040912110608 select CONVERT

2013-01-06 15:59:53 385

原创 sqlserver安装时提示进程挂起

在运行里输入regedit进入注册表，修改HKEY_LOCAL_MACHINE——SYSTEM——CurrentControlSet——Control——Session Manager删除Pending File.....

2013-01-06 15:59:26 427

原创鸡尾酒排序算法

也就是定向冒泡排序, 鸡尾酒搅拌排序, 搅拌排序 (也可以视作选择排序的一种变形), 涟漪排序, 来回排序 or 快乐小时排序, 是冒泡排序的一种变形。此演算法与冒泡排序的不同处在于排序时是以双向在序列中进行排序。使用鸡尾酒排序为一列数字进行排序的过程可以通过右图形象的展示出来：数组中的数字本是无规律的排放，先找到最小的数字，把他放到第一位，然后找到最大的数字放到最后一位。然后再

2013-01-06 15:58:41 525

原创获取主板序列号

type TCPUID = array[1..4] of Longint;function GetCPUID : TCPUID; assembler; register;asm PUSH EBX PUSH EDI MOV EDI,EAX MOV EAX,1 DW $A20F STOSD

2013-01-06 15:57:08 3659 1

原创 DBGrid加鼠标滚轮滚动

procedure TFormBase.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);var i: SmallInt;begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN;

2013-01-06 15:56:43 444

原创用Delphi制作DLL的方法

用Delphi制作DLL的方法一 Dll的制作一般步骤二参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四全局变量的使用五调用静态载入六调用动态载入七在DLL建立一个TForM 八在DLL中建立一个TMDIChildForM 九示例：十 Delphi制作的Dll与其他语言的混合编程中常遇问题：十一相关

2013-01-06 15:55:24 472

原创 stdcall关键字

表明是使用标准调用方式：所有参数用栈传递；参数按从左到右的顺序压栈；被调用者负责参数的出栈。主要用于调用API函数或编写供其它程序调用的函数（有些语言只支持这种调用方式，如VB和标准PASCAL）。

2013-01-06 15:54:17 421

原创从Webbrowser中获取文本内容

Memo1.Lines.Add(WebBrowser1.OleObject.Document.getElementByID('aa').innerText);

2013-01-06 15:53:46 4543

原创自动附加Sqlserver数据库

procedure TfrmMain.RestoreDataBase;var CmdStr, Paths:String;begin Paths:=Extractfilepath(Application.ExeName); if fileexists(ConCat(Paths,'数据库文件名称')) then try CmdStr:='ISQL -

2013-01-06 15:53:05 563

原创检测光盘是否正确

procedure TForm1.Button1Click(Sender: TObject);var i,DriveType:Integer; c:String; buf:array[0..MAX_PATH] of char; sno,fileflag,maxl:DWORD; volname,filesysname:PChar;begin G

2013-01-06 15:51:35 354

原创搜索文件夹的子目录

procedure FindFile(const filespec: TFileName;extname:String;list:TStringList;sub:boolean); procedure RFindFile(const folder: TFileName;extname:String); var SearchRec: TSearchRec; begin

2013-01-06 15:50:40 449

原创 Base24编码以及解码的实现

unit Base24Unt;{Base24 算法}interfaceuses Windows,Sysutils,Dialogs;const EncodeTable: array[0..23] of Char ='BCDFGHJKMPQRTVWXY2346789' ; DecodeTable: array[#0..#127] of Byte = ( 25,25

2013-01-06 15:50:09 3581

原创传送文件时循环冗余校验

unit CRC32;interfaceuses Windows, SysUtils;const //Crc32表 Table:Array[0..255] of DWORD= ( $00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F, $E963A535, $9E6495A3,

2013-01-06 15:49:39 617

原创 listview颜色交替显示代码

procedure TfrmRecordQuery.lvRecordInfoCustomDrawItem( Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);var i: integer;begin i:= (Sender as T

2013-01-06 15:48:40 440

原创注册及卸载dll或ocx文件过程

function RegisterOleFile (strOleFileName : STRING; OleAction : Byte ) : BOOLEAN;const RegisterOle = 1;//注册 UnRegisterOle = 0;//卸载type TOleRegisterFunction = function : HResult;//注册或

2013-01-06 15:47:37 823

原创 jdk环境配置

JAVA_HOME=D:\Program Files\Java\jdk1.5.0Path=%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%JAVA_HOME%\binCLASSPATH=.;%JAVA_HOME%\lib\dt.jar;%JAVA_HOME%\lib\tools.jar%SystemRoo

2013-01-06 15:46:47 334

原创生成myEclipse序列号代码

import java.io.BufferedReader; import java.io.IOException; import java.io.InputStreamReader; public class MyEclipseGen { private static final String LL = "Decompiling this copyrigh

2013-01-06 15:45:45 361