深圳全飞鸿

标题: 关于SQL Monitor的解决方案 [打印本页]

---

作者: zhgc    时间: 2019-5-19 10:31
标题: 关于SQL Monitor的解决方案
Oracle版的MES是有SQL Monitor功能的， 但mysql版一直未全面提供SQL Monitor的能力

现介绍让mysql版程序增加SQL Monitor的功能

提供DLL供多语言开发，具体引用dll方法另外介绍

引用

1.   MYSQL_SQL_DEBUG_CONST in '..\..\..\..\..\0001Agile\delphi\Agile\MYSQL_SQL_DEBUG_CONST.pas';

复制代码

一般建议在DataModule中定义一个公共函数：

1. procedure SQLLog(sql:string);
   
2. begin
   
3.   sql:='[' + FormatDateTime('hh:nn:ss',Now()) + ']'+#13#10+sql;
   
4.   MYSQL_SQL_DEBUG_CONST.__SQLLog(sql);
   
5. end;
   

复制代码

---

作者: zhgc    时间: 2019-5-25 21:29
VB使用方法

1. Public Declare Sub log_monitor Lib "CloudMes_sdk_003" (ByVal warn As String, ByVal slen As Integer)
   
2. Public Declare Function log_valid Lib "CloudMes_sdk_003" () As Boolean
   
3. Public Declare Sub log_timetick Lib "CloudMes_sdk_003" (ByVal tick As Boolean)
   
4. 
   
5. 
   
6. Public Sub SqlLog(ByVal warn As String)
   
7. Dim i As Integer
   
8.     If log_valid Then
   
9.         ' log_timetick (True)
   
10.         i = LenB(warn)
    
11.         log_monitor warn, i
    
12.     End If
    
13. End Sub

复制代码

---

欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/)

Powered by Discuz! X3.2