摘要： mysql一直号称是免维护的，但是我发现它往往连最表基本索引都不能自动维护，情景如下：1、我用mysqldump导出一个大表longformh;2、用mysql.exe导入到一个新库中；3、查看表结构，其原来的索引、主键均在，使用explain,也可以看到相关的索引被引用；4、使用select查询，速度非常慢，貌似索引、主键都没有起作用；5、重建索引：ALTER TABLE `longformh`DROP INDEX `si`,ADD INDEX `si` (`SURVEYOBJECTID`) ;再select，则速度大幅提升，说明原来的索引没有更新。不知道这是不是mysql的一个bug？就教 阅读全文

摘要： Delphi回调函数的使用－例子功能大体描述：Form1中有一个Edit和一个Button,当点击BUTTON时弹出FORM2，FORM2中也有一个EDIT和一个BUTTON，当点击FORM2中的BUTTON时，将FORM2中的EDIT的TEXT属性赋值给FORM1中的EDIT的TEXT。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;type TForm1 = class(TForm) {主窗体中放一... 阅读全文

摘要： Delphi中 为DBNavigator的按钮加中文/*Delphi中数据库控件DBNavigator使用起来不错，但是按钮上“＋”、“－”等含义对于中国的用户不习惯，甚至不知道是什么含义。改成相应含义的汉字表示出来 */ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls; type TMyNavgator = class(TDBNavigator)... 阅读全文

摘要： Uses Windows, SysUtils, Tlhelp32; FunctionKillTask(ExeFileName:String):Integer;//关闭进程 FunctionEnableDebugPrivilege:Boolean;//提升权限 FunctionFindProcessId(ExeFileName:String):THandle;//查找进程 Implementation FunctionFindProcessId(ExeFileName:String):THandle; Var ContinueLoop:BOOL; FSnapshotHandle:THandle; 阅读全文

摘要： HTML特效文字代码大全一、从右向左移代码需要移动的文字二、从左向右移代码需要移动的文字三、一圈一圈绕着移动代码需要移动的文字四、只移动三次就停了代码需要移动的文字五、移一步，停一停代码需要移动的文字六、左右来回移动代码需要移动的文字七、忽隐忽现移动代码需要移动的文字八、从下向上移动代码需要移动的文字例子1：云南省石产业统计调查年报处理程序例子2：云南省石产业统计调查年报处理程序 原文链接：http://wenku.baidu.com/link?url=Yx5nuTK_QOUhzMF9VzDrta9cD1RwpsaknxxqubMKxIqTLVS1HR4g1gateapFEnORUgs5BsU 阅读全文

摘要： 函数一：usesWindows,SysUtils,Classes,ShellAPI;function RunAndWait(FileName: string; Visibility: Integer): THandle; var zAppName: array[0..512] of Char; zCurDir: array[0..255] of Char; WorkDir: string; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin try StrPCopy(zAppName, FileNa... 阅读全文

摘要： 1、在主窗体的private中定义过程：procedure doenterastab(var Msg:TMsg;var Handled:Boolean);begin if Msg.message=WM_KEYDOWN then begin if Msg.wParam=VK_RETURN then keybd_event(VK_TAB,0,0,0); end; end;2、在主窗体的oncreate事件中加入：Application.OnMessage:=doenterastab; 阅读全文

摘要： 一、先定义几个外部变量var myhandle:THandle; mystartupinfo:TStartupInfo; myprocessinfo:TProcessInformation;二、定义两个过程：procedure execueapp(mypath:string);procedure closeapp(myhandle:THandle);实现：procedure execueapp(mypath:string);begin FillChar(mystartupinfo,SizeOf(mystartupinfo),0); //清除mystartupinfo中的数据 mystartup 阅读全文

摘要： CAST(expr AS type), CONVERT(expr,type) , CONVERT(expr USING transcoding_name) CAST() 和CONVERT() 函数可用来获取一个类型的值，并产生另一个类型的值。 这个类型 可以是以下值其中的 一个： BINARY[(N)] CHAR[(N)] DATE DATETIME DECIMAL SIGNED [INTEGER] TIME UNSIGNED [INTEGER] 阅读全文

摘要： 电话号码正则表达式（支持手机号码，3-4位区号，7-8位直播号码，1－4位分机号）((\d{11})|^((\d{7,8})|(\d{4}|\d{3})-(\d{7,8})|(\d{4}|\d{3})-(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1}))$)匹配格式： 11位手机号码 3-4位区号，7-8位直播号码，1－4位分机号 如：12345678901、1234-12345678-1234"^\d+$" //非负整数（正整数 + 0） "^[0-9]*[1-9][0- 阅读全文