捐贈 | 廣告 | 注冊 | 發布精品源碼 | 上傳 | 關于我們    
  滬ICP備05001939號 DELPHI盒子 | 盒子論壇 | 盒子文章 | 盒子問答懸賞 | 最新更新 | 論壇檢索 | 下載中心 | 高級搜索    
  精品專區 | 繁體中文 | 獎勵公告欄 | 直通車賬號登陸 | 關閉GOOGLE廣告 | 臨時留言    
盒子資源分類
全部展開 - 全部合攏
【精品源碼】 SQL Server 綠色版 源碼
關鍵字:SQL Server 綠色版 源碼
來 自:精品
平 臺:Win2K/2003/NT/XP,Vista/WIN7 下載所需:300 火柴
深淺度:中級 完成時間:2003/11/17
發布者:xebaobei (獎勵60火柴) 發布時間:2015/11/18
編輯器:Delphi7 語  種:簡體中文
分 類:系統 下載瀏覽:43/17753
加入到我的收藏
下載錯誤報錯
登陸以后才能下載
 用戶名:
 密 碼:
自動登陸(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-2012 V3.01 滬ICP備05001939號 更新RSS列表  
 
快乐10分助手官网