捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 SQL Server 绿色版 源码
关键字:SQL Server 绿色版 源码
来 自:精品
平 台:Win2K/2003/NT/XP,Vista/WIN7 下载所需:300 火柴
深浅度:中级 完成时间:2003/11/17
发布者:xebaobei (奖励60火柴) 发布时间:2015/11/18
编辑器:Delphi7 语  种:简体中文
分 类:系统 下载浏览:49/32551
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
十年前写的玩意了,现在自己干了个公司也没精力去维护更新。
不如发布代码,给行业做点奉献。
这东西也没什么太多的技术含量,代码量也不大。当年技术也不好,写的不工整。
代码标准Delphi7开发的,无任何三方组件。
有看不明白的地方去群里咨询吧。

SQLSERVER 绿色版交流群 497038306



uses TryAdoCon_Unit, SuiWinSvc_Unit, Logs_Unit, DateFun_Unit,
  DBAdmin_Unit, Funs_Unit, USBDisk_Unit, Tools_Unit, Task_Unit,
  SqlLink_Unit, FireWall_Unit, ASMFastReplace, FireWallForm_Unit,
  GetABout_Unit;

{$R *.dfm}

//--- 日志部分 ----------
//日志
procedure Log(AColor: TColor; AText: String);
Var
  sCuted     : string;
  iCutLength : integer;
  i          : integer;
  bIsDBCS    : boolean;
begin
  if AdminConfig.SaveLogo then
  begin
    Logs_Unit.wLog(AText);
  end;
  
  if AdminConfig.LogShowTime then
  begin
    Delete(AText, 1, 1);
    AText := '['+Copy(FormatDateTime('YYYY-MM-DD HH:NN', Now),3,14)+']' + AText;
  end;

  repeat
    //截出字元出来
    iCutLength := LogLong;
    sCuted     := Copy(AText, 1, iCutLength);
    iCutLength := Length(sCuted);
    bIsDBCS    := False;

    //看看最後一个字元是不是中文的前半个字
    for  i := 1 to iCutLength do
    begin
      if bIsDBCS then
      begin
        bIsDBCS := False;
      end else if Windows.IsDBCSLeadByte(byte(sCuted[i])) then
      begin
        bIsDBCS := True;
      end;
    end;

    //如果最後一个字是中文的话, 少截一个字元。
    if   bIsDBCS   then   Dec(iCutLength);

    //截出确定长度的字元
    Main.RichEdit1.SelAttributes.Color:=AColor;
    Main.RichEdit1.Lines.Add(Copy(AText, 1, iCutLength));

    //从 AText 中去掉已截出的文字.
    AText := Copy(AText, iCutLength + 1, Length(AText) - iCutLength);

    if Length(AText) > 0 then
    begin
      While AText[1] = ' ' do
      begin
        Delete(AText, 1, 1);
      end;

      if AdminConfig.LogShowTime then
        AText := '          ' + AText
      else
        AText := '          ' + AText;
    end;

  until Length(AText) <= 0;
end;

//SQL日志
procedure TMain.SQLLog(AColor: TColor; AText: String);
begin
  if length(AText) = 0 then Exit;

  if pos('将 SQL Server 消息记录在文件', AText) <> 0 then
  begin
    //这句不显示
  end else if pos('Microsoft SQL Server', AText) <> 0 then  //版权部分
  begin
    Delete(AText, 1, 33);
    RichEdit1.Paragraph.Alignment := taLeftJustify; //taCenter;
    Log(clRed, '  MsVersion ' + AText);
  end else if ord(AText[1])=9 then          //版权部分
  begin
    Delete(AText, 1, 1);
    RichEdit1.Paragraph.Alignment := taLeftJustify; //taCenter;
    Log(clRed, '  MsVersion ' + AText);
  end else if AText[1]='*' then          //错误日志
  begin
    Delete(AText, 1, 1);
    RichEdit1.Paragraph.Alignment := taLeftJustify;
    Log(clRed, AText);
  end else          //正常以时间为开始的信息
  begin
    Delete(AText, 1, 23);
    RichEdit1.Paragraph.Alignment := taLeftJustify;
    Log(AColor, '  '+AText);
  end;
end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论38条 当前显示最后6条评论
chinaz 2015/11/19 15:56:21
盒子只是提供一个发布有偿源码的地方,下载的火柴全部归作者拥有,并且如果源码质量好,盒子还提供奖励,在这个过程中,盒子网站不仅赚不到钱,还倒贴。如果你有质量好的源码,欢迎到盒子发布精品源码,操作步骤,点击精品源码,有个发布精品源码的链接。
另外,请已经下载的盒子朋友,尊重原创者的劳动果实,不要到处散播。
zxf_1 2015/11/21 13:36:26
300柴有点少了,再多一些好不?
zhen_ger 2015/11/26 11:20:33
已下载,学习中
iceker 2015/11/28 17:59:55
支持
zjins 2016/1/2 20:02:42
支持! 添柴!
bartchen 2016/6/7 20:23:00
原来是Gsql啊,多年以前,我用过。
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表