这些天一直在忙销售管理软件易卖通客户端的程序编写，由于需要采用本地数据缓存机制来提高程序的数据访问效率，所以需要在客户端使用一个小巧的本地数据库。这个数据库当然要小而精悍的。我也不想做强盗，于是就选择Sqlite吧——文件数据库，只要一个Sqlite.dll就可以操作数据库。
不得不趁人本人是有点偷懒，Add Nhibernate+ActiveRecord做O/R mapping，貌似这样的架构有杀鸡用牛刀之嫌。
昨天碰到一个非常怪异的问题，当我调用ActiveRecordBase.FindAll的时候，返回一个数组内部的所有元素都是null。
这就奇怪了，数据库里面已经存在数据。于是上网查资料，看到有一个家伙说不能把Primary key映射为Identify，只能用Native。修改后还是不行，TMD，网络上的骗子还真不少，特别是国内，忽悠的人多，真才实学的少！
于是开始测试其他表的FIND功能，一切工作正常。见鬼，DAMN！
于是用.sch命令查看表的schema异同，发现除了Primary key的定义有一点差别外，无异常。
又开始怀疑是不是DLL加载情况，联想到文档说要加载DynamicProxy，马上下载新版本DynamicProxy。还是不管用。
抱着死马当活马医试试看的心态，修改了表的Primary Key定义，也就是把原来Primary k ......

 托了几天的难题，终于解决了。特分享一下
以下是一个存储过程
CREATE PROCEDURE deleteAccountAll
 @id int
AS
SET XACT_abort ON
BEGIN DISTRIBUTED TRAN
delete from AccountCapital where accountid = @id
delete from logininfo where username = @id
delete from CapitalRecord where accountid = @id
delete from [Trade]..[order] where accountid = @id
delete from account where id = @id
if @@error<>0
rollback tran
else
  commit tran
GO
其中order表与其他几个表不在同一个数据库实例，若想实现事务操作，具体要注意两点：
1.打开MSDTC服务，即 set XACT_abort on ，若本机没有启动，则运行 net start msdtc
2.对不同数据库实例的访问要注意用[数据库实例名]..[表名] ......

转换方法： convert(nvarchar(8),starttime,14)
    100   (1,   2)  
    默认设置  
    mon   dd   yyyy   hh:miAM（或   PM）     
    
    101  
    美国  
    mm/dd/yyyy   
      
    102  
    ANSI  
    yy.mm.dd   
    103  
    英国/法国  
    dd/mm/yy   
      
    104  
    德国  
    dd.mm.yy   
      
    105  
    意大利  
    dd-mm-yy   
      
    106   (1)  
    -   ......

用windows账号还是可以登录的。
查找问题的过程：
第一步： 启动所有与SQL有关的服务，问题依旧；
第二步： 查看windows防火墙，被默认启动了，不启动选择项被Disabled。两个提示“由于安全考虑,某些设置由组策略控制”“Windows防火墙正在使用您的域设置”，先用gpedit.msc打组策略编辑器，机算机配置--管理模板--网络--网络连接--Windows防火墙--标准配置文件，查看右边各选项属性，都是未配置状态，问题不在这里。
另外一个提示中提到域设置，域设置不可能禁用SQL Server,并且我查看本地开放端口（netstart -an），25，1433，1434都是开发状态。
晕，会不会是密码错误？
 第三步：我用windows账号登录，连接成功后,, 选择"属性"，
右键实例，在"属性"窗口中, 转到"Security"(安全性)项, 查看"服务器身份验证"中设置确为"SQL Server和Windows身份验证模式", 
 然后执行下面的语句启用sa用户, 同时更改sa的密码
EXEC sp_password 'sa',null,'sa'
ALTER LOGIN sa ENABLE
执行出错：
消息 15116，级别 16，状态 1，第 1 行
密码有效性验证失败。该密码太短，不符合 Windows 策略要求。
哈哈，问题找到。
本地设置可能被域设 ......

Delphi format的用法
一、Format函数的用法
Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：
首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;
事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不多用，所以这里只对第一个介绍：
function Format(const Format: string; const Args: array of const): string; overload;
Format参数是一个格式字符串，用于格式化Args里面的值的。Args又是什么呢，它是一个变体数组，即它里面可以有多个参数，而且每个参数可以不同。
如以下例子：
Format('my name is %6s',['wind']);
返回后就是
my name is wind
现在来看Format参数的详细情况：
Format里面可以写普通的字符串，比如'my name is' 但有些格式指令字符具有特殊意义，比如"%6s"
格式指令具有以下的形式：
"%" [index ":"] ["-"] [width] ["." prec] type
它是以"%"开始,而以type结束，type表示一个具体的类型。中间是用来格式化type类型的指令字符，是可选的。
先来看看type,type ......

 
unit Servicescontrol;
   
interface  
uses Windows,Messages,SysUtils,Winsvc,Dialogs;
   
function StartServices(Const SvrName:String):Boolean;
function StopServices(Const SvrName:String):Boolean;
function QueryServiceStatu(Const SvrName:   String):String;
function CreateServices(Const SvrName,FilePath:String):Boolean;  
function DeleteServices(Const SvrName: String):Boolean;  
   
implementation  
   
//开启服务  
function StartServices(Const   SvrName:   String):   Boolean;
var  
      a,b:SC_HANDLE;  
        c:PChar;  
begin  
        Result:=False;  
   
        a:=OpenSCManager(nil,nil,SC_MANAGER_ALL ......