? 捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们 ? ?
? 沪ICP备05001939号 ag游戏庄闲|官方网站 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | ag游戏庄闲|官方网站 | ag在线开户 ? ?
? ag娱乐城|优惠 | 繁体中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言 ? ?
盒子资源分类
全部展开 - 全部合拢
【精品源码】 SQL?Server?绿色版?源码
关键字:SQL Server 绿色版 源码
来 自:精品
平 台:Win2K/2003/NT/XP,Vista/WIN7 下载所需:300 火柴
深浅度:中级 完成时间:2003/11/17
发布者:xebaobei (奖励60火柴) 发布时间:2015/11/18
编辑器:Delphi7 语  种:简体中文
分 类:系统 下载浏览:42/17196
加入到我的收藏
下载错误报错
登陆以后才能下载
?用户名:
?密 码:
自动登陆(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啊,多年以前,我用过。
我要发表评论 查看全部评论
?
? ag游戏庄闲|官方网站版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表 ?
?