程序员成长之旅——用日志记录Delphi是否和MYSQL连接成功

日志库的使用

这里的日志库的话，可以从这里下载
https://sourceforge.net/projects/log4delphi/
下载完成之后解压缩并打开


首先记住这两个路径，这时候我们打开Delphi7这个软件

点上面画出来的路径

将刚才两个路径进行添加

这时候配置就好了

MYSQL连接过程

https://blog.csdn.net/zxl_1996/article/details/86495724?utm_medium=distribute.pc_relevant.none-task-blog-BlogCommendFromMachineLearnPai2-1.nonecase&depth_1-utm_source=distribute.pc_relevant.none-task-blog-BlogCommendFromMachineLearnPai2-1.nonecase

日志记录MYSQL连接是否成功

unit Unit1;

interface

uses
  TLoggerUnit,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    Start: TButton;
    Memo1: TMemo;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure StartClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StartClick(Sender: TObject);
var
  Log: TLogger;
begin
  Log := TLogger.GetInstance;
  if ADOConnection1.Connected = true  then
   begin
     Self.Memo1.Lines.Add('MYSQL连接成功');
     log.Debug('MYSQL连接成功');
   end
  else
    begin
     Self.Memo1.Lines.Add('MYSQL连接失败');
     log.Debug('MYSQL连接成功');
    end;

end;

end.

演示图片