毛小毛的家

摘要： 在工程文件头加入 Windows引用在begin后加入SetThreadLocale( DWORD(Word(SORT_DEFAULT) shl 16) or DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or DWORD(Word(LANG_CHINESE)) );原理：设置程序的所在区域方法来自互联网，备忘~ 阅读全文

摘要： 首先在下载的文件里你会找到一个文件，位置在Replacement BorlndMM DLL\Precompiled\for Delphi IDE\Performance\BorlndMM.dll，替换掉Delphi\Bin下的相应文件就可以完成对IDE的提速。 对自己编的程序的提速也非常简单，只要在.dpr工程文件里的uses部分加上FastMM4就可以了，但必须是加在第一位，还要记得设置 路径。重新编译你的程序就可以完成提速。一般情况下，感觉程序的启动速度会有提高。如果你的程序有内存泄漏的话那就会在程序关闭时弹出一个对话框告诉你你 的程序有内存泄漏，并指出相应的有内存泄漏的类。例如，我的程序 阅读全文

摘要： 对于一个网站来说，使用搜索引擎来进行站内搜索往往比自己编写的站内搜索更高效，并且不占用网站服务器的资源，下面是我搜集到的几个主要搜索引擎（Google和百度、雅虎）的站内搜索代码，使用时只需要将代码里的"www.williamlong.info"替换成你的网址即可。!--Google站内搜索开始--form method=get action="http://www.google.com/search"input type=text name=qinput type=submit name=btnG value="Google 搜索"input type=hidden nam 阅读全文

摘要： 告诉你一个最快的方法，用SQLServer连接DBF在SQLServer中执行SELECT * into bmkFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="e:\share";User ID=Admin;Password=;Extended properties=dBase 5.0')...bmk这样就可以把e:\share中的bmk.dbf表导入到Sqlserver中，速度是最快的上面这个方法DBF文件必须在服务器上，如果DBF不在服务器上，就用连接串Provider=Microsoft.Jet.OLEDB.4. 阅读全文

摘要： Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo]"localhost"="DBMSSOCN,localhost,5433"上面一段注册表修改即可，等同于客户端网络实用工具配置，localhost可改为目标机器地址，端口：1433-5433 阅读全文

摘要： 后台使用SQL语句中，经常会关联自定义函数或视图，而CDS(TClientDataSet)对字段校验比较严格，涉及到的自定义函数或视图输出的字段，都会强制改为ReadOnly为True属性。当后台使用UniDAC+CDS，关联视图或自定义函数，为了数据一致性，有可能需要在前台界面上修改CDS相关的自定义函数输出的字段，即便是将 该字段设置为 readonly为false，或将其字段的 FieldDefs属性的attributes的faReadOnly去掉，系统也会抛出一个异常：trying to modify read-only Field。解决问题很简单，将TUniQuery.Options 阅读全文

摘要： 修改方法，在FormCreate中加入：TabOrder.ControlStyle:=TabOrder.ControlStyle - [csParentBackground];PanTop.ControlStyle := PanTop.ControlStyle - [csParentBackground];即可 阅读全文

摘要： 1、通过IP取MAC地址usesWinSock;Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';procedure TForm1.Button1Click(Sender:... 阅读全文

摘要： create table tb(id int, value varchar(10)) insert into tb values(1, 'aa') insert into tb values(1, 'bb') insert into tb values(2, 'aaa') insert into tb values(2, 'bbb') insert into tb values(2, 'ccc') go create function [dbo].[f_str](@id int) returns nvarchar(1000) as begin declare @str nvarchar(100 阅读全文

摘要： 数据导出： 1 将数据库TEST完全导出,用户名system 密码manager 导出到D:\daochu.dmp中 exp system/manager@TEST file=d:\daochu.dmp full=y exp sz0/sz0@zhygk file=e:\nulldb.dmp owner=(sz0) exp sz/sz@jessica file=c:\a.dmp owner=... 阅读全文