摘要： 转】查看有关SQL SERVER 服务器实例的属性信息代码如下：SELECT SERVERPROPERTY('ServerName') AS ServerNameSELECT SERVERPROPERTY('BuildClrVersion') AS BuildClrVersionSELECT SERVERPROPERTY('Collation') AS CollationSELECT SERVERPROPERTY('CollationID') AS CollationIDSELECT SERVERPROPERTY('Com 阅读全文

摘要： SELECT 表名=case when a.colorder=1 then d.name else '' end,表说明=case when a.colorder=1 then isnull(f.value,'') else '' end,字段序号=a.colorder,字段名=a.name,标识=case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√' else '' end,主键=case when exists(SELECT 阅读全文

摘要： 多级配方处理的简洁方式在Mis开发中经常会碰到配方(简易BOM)：如进销存中的组装单、拆卸单,MPR中的材料定额等均可以采用配方来解决。下边是一个常规树型配方的基本结构：CREATETABLECL_CPPF(XHvarchar(30)notNULL,--型号CXHvarchar(30)notNULL,--子型号PFSMvarchar(30)NULL,--说明SLnumeric(18,3)notNULLDEFAULT(0),--子型号数量IDintIDENTITY(1,1)NOTNULL)网上可以查到多个类似配方处理的代码，大多是采用递归等方始处理的，代码较为复杂，有些时候只需深度为一、二级的小 阅读全文

摘要： 我们在捕获Idhttp的错误信息的时候通常只能捕获到类似http1.1 403 Error的信息，而在IE中有时可以显示友好HTTP错误信息，跟踪发现Idhttp在输出exception.message时，只取了错误信息的第一行信息，而把后面的内容都删除掉了。其实后面的信息并没有被完全抛掉，而是存在了EIdHTTPProtocolException的ErrorMessage中，我们通过此字段可以获得。示例代码如下： try FIdhttp.Get('http://www.prize8.com', newHtmlStream); except on... 阅读全文

摘要： 在delphi处理线程的时候常常会造成某些未知的bug,搞得程序无法继续往下走,所以此时我们必需要有应对手策,否则的话,很容易造成我们的工作无法完成 unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Tlhelp32;typeTDemoThread = class(TThread)private FOnHintText: TNotifyEvent;protected procedure Execute... 阅读全文

摘要： 判断IP地址是否非法的代码： 1 function TForm1.IsIPString(IPStr: string): Boolean; 2 var 3 i,DotNum:integer; 4 Tmpstr:string; 5 begin 6 Result:=true; 7 DotNum:=0; 8 for i:=1 to Length(IPStr) do 9 Case IPStr[i] of10 '0'..'9','.':11 ... 阅读全文

摘要： 如何让Delphi的程序在SQLServer控制台中的进程信息显示应用程序的名字？在ADO的ConnectionString上加上“...;ApplicationName=XXX”就可以了，谢谢！ 阅读全文

摘要： uses Wininet;{$R *.dfm}function NetWorkIsConnect(Url:string='http://www.microsoft.com/'): Boolean;var ConTypes : Integer;begin Result := false; ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; if InternetGetConnectedState(@ConTypes, 0) then //Con.. 阅读全文

摘要： 客户老是打电话让客服MM帮忙查快递寄到哪了，其实我们网站已经显示快递公司名和快递单号了，但他们就是要打电话过来追。因为我们用了好几家快递公司，客服MM次次都要手动的打开各个快递公司的首页，然后一个一个单号的敲进去，再将结果报给用户，这样量一大，客服MM就崩溃了，但客户却不领情，还怨客服们不专业。 看着MM们痛苦，我便琢磨起来，能不能直接就在网站内将订单的快递信息显示出来？这样用户直接打开网站就能看到了，可行。不过这个得先拿到快递公司的快递接口，但好像没有一个快递公司对外提供了接口吧？果然，ems、申通、顺丰、圆通等快递公司的网站转了一圈，没有。 没有接口，这事就难搞了，总不能爬人家的网页吧，没 阅读全文

摘要： mlwlapi.dll快递物流查询动态库说明程序包含1个过程与一个函数。说明中涉及到的"快递100"均指"www.kuaidi100.com";一、GetWLInfo function此函数实际为快递100上提供的API的动态库封装，具体语法调用如下：语法Syntax：1. PAnsiChar GetWLInfo(2. _in PAnsiChar id,3. _in PAnsiChar com,4. _in PAnsiChar nu,5. _in PAnsiChar valicode,6. _in PAnsiChar show,7. _in PAnsiC 阅读全文