毛小毛的家

摘要： 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=... 阅读全文

摘要： GetHDSerialNumber在通过快捷方式点进去会取不到数据。屏蔽红色段即可function tIceLock.LoadKeyFile : Integer;var r : rIceRecord; pa : pIceArray; f : file of aIceArray;begin IsRegistered := false; AssignFile(f,fKeyFileName); {$I-... 阅读全文

摘要： 1.//弹出对话框.点击转向指定页面 Response.Write(" <script>window.alert('该会员没有提交申请,请重新提交！')</script>"); Response.Write(" <script>window.location='http://www.51aspx.com/bizpulic/upmeb.aspx' </scr... 阅读全文

摘要： wwriched.pas找到如下方法，注释如下语句，直接返回truefunction TwwCustomRichEdit.CanCut: boolean;begin //result:= seltext<>''; Mike remove; result := true;end; 阅读全文

摘要： FASTREPORT中MEMO的wordwrap设为True,使文本自动换行，但当最后一个字为中文时总是出现乱码。怎样才能使最后的字为中文且剩下文本区不足两格时自动换行，避免出现乱码?主要改fr_class.pas中的wrapline过程，其中有一段：else if s[last] = thenOutLine(Copy(s, beg, last - beg)) elseOutLine(Copy(s... 阅读全文