delphi判断SQL SERVER 服务是否断开


本文整理自网络,侵删。

 判断SQL SERVER 服务是否断开 
unit DTDem;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMDayTim, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
NMDayTime1: TNMDayTime;
Button1: TButton;
Label3: TLabel;
StatusBar1: TStatusBar;
procedure Button1Click(Sender: TObject);
procedure NMDayTime1Connect(Sender: TObject);
procedure NMDayTime1Disconnect(Sender: TObject);
procedure NMDayTime1HostResolved(Sender: TComponent);
procedure NMDayTime1Status(Sender: TComponent; Status: String);
procedure NMDayTime1ConnectionFailed(Sender: TObject);
procedure NMDayTime1InvalidHost(var handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

const
StdCap = 'The Current Date and Time is : ';

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
NMDayTime1.ReportLevel := Status_Basic; //控制数量,Status_Basic=2
NMDayTime1.TimeOut := 300; //控制时间,以毫秒为单位。
NMDayTime1.Host := Edit1.Text; //主机的名称或远程主机的IP地址。
NMDayTime1.Port := StrToInt(Edit2.Text); //主机的端口。
Label3.Caption := StdCap+NMDayTime1.DayTimeStr;//显示时间。
end;
//连接远程主机,此事件发生。
procedure TForm1.NMDayTime1Connect(Sender: TObject);
begin
StatusBar1.SimpleText := 'Connected'; //显示连接
end;
//和远程的主机没连接上,此事件发生。
procedure TForm1.NMDayTime1Disconnect(Sender: TObject);
begin
If StatusBar1 <> nil then
StatusBar1.SimpleText := 'disconnected'; //显示断开连接。
end;
//当远程的主机地址被断然拒绝,此事件发生。
procedure TForm1.NMDayTime1HostResolved(Sender: TComponent);
begin
StatusBar1.SimpleText := 'Host resolved';
end;
//一些状态改变时,此事件发生。
procedure TForm1.NMDayTime1Status(Sender: TComponent; Status: String);
begin
If StatusBar1 <> nil then
StatusBar1.SimpleText := status;
end;
//连接失败,此事件发生。
procedure TForm1.NMDayTime1ConnectionFailed(Sender: TObject);
begin
ShowMessage('Connection Failed');
end;
//主机出毛病,此事件发生。
procedure TForm1.NMDayTime1InvalidHost(var handled: Boolean);
var
TmpStr: String;
begin
If InputQuery('Invalid Host!', 'Specify a new host:', TmpStr) then
Begin
NMDayTime1.Host := TmpStr;
Handled := TRUE;
End;
end;

end.
要使用TNMDayTime控件。
AdoQquery1.Sort = '字段名称 ASC'

相关阅读 >>

Delphi 官方 processmessages 用法代码例子

Delphi 获取listview1鼠标所在位置的行名称

tstringgrid 添加鼠标拖动功能

Delphi获取其他进程中listbox和combobox的内容

Delphi 根据扩展名的文件搜索

Delphi 在运行时改变控件的大小

Delphi xe将图标和图像添加为资源

Delphi 创建一个大小不可改变的窗体,通用模板

Delphi跨平台tcp库的封装

Delphi tadodataset 中文使用说明

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...