windsonvip - 博客园

锐捷交换机配置命令

摘要： 1、配置Telnet。 1.1)、enable 进入特权模式。 1.2)、configure terminal 进入全局配置模式。 1.3)、line vty 0 4 配置远程登陆线路，0~4是远程登陆的线段编号。 1.4)、Login 用于打开登陆认证功能。 1.5)、Login local。 1 阅读全文

posted @ 2020-06-17 20:36 windsonvip 阅读(13285) 评论(0) 推荐(1)

Radmin View3.5

摘要： https://files.cnblogs.com/files/windson/radmin.rar 阅读全文

posted @ 2020-06-16 07:06 windsonvip 阅读(511) 评论(0) 推荐(0)

Delphi 随手笔记，使用了DEV控件组件

摘要：记录学习过程中的点点滴滴，记性不好，特别写了小工具，欢迎大家下载测试阅读全文

posted @ 2020-04-17 20:55 windsonvip 阅读(931) 评论(4) 推荐(0)

读取软件的版本信息 GetFileVersionInfo

摘要： function GetBuildInfo(FileName: string; var V1, V2, V3, V4: Word): Boolean; var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: P 阅读全文

posted @ 2020-04-09 00:20 windsonvip 阅读(876) 评论(0) 推荐(0)

Delphi Richedit代码语法加亮显示

摘要： procedure CodeColors(Form : TForm;Style : String; RichE : TRichedit;InVisible : Boolean); const // symbols... CodeC1: array[0..20] of String = ('#','$ 阅读全文

posted @ 2020-04-09 00:17 windsonvip 阅读(710) 评论(0) 推荐(0)

判断当父节点含有子节点时不能删除此父节点

摘要： if cxDBTreeList1.FocusedNode.HasChildren = true then begin Application.MessageBox('当前目录下有下级节点，不能删除！', '提示', MB_OK + MB_ICONINFORMATION); exit; end; 阅读全文

posted @ 2020-04-08 21:57 windsonvip 阅读(373) 评论(0) 推荐(0)

delphi+sql数据库增加，删除，修改，查询操作

摘要：需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete）增加 with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字阅读全文

posted @ 2020-04-06 23:06 windsonvip 阅读(2331) 评论(0) 推荐(0)

Delphi DataModule1 FDConnection1数据库连接

摘要： procedure Tdm.DataModuleCreate(Sender: TObject); begin try FDConnection1.Connected := False; FDConnection1.Params.Database := ExtractFileDir(ParamStr( 阅读全文

posted @ 2020-04-06 21:28 windsonvip 阅读(820) 评论(0) 推荐(0)

Delphi 模糊查询和字段查询

摘要： procedure TFrmain.scGPEdit1Change(Sender: TObject); var ASql, AKey: string; //模糊查询和字段查询 const vsql1: string = 'select * from delphi where Title like ' 阅读全文

posted @ 2020-04-05 22:11 windsonvip 阅读(559) 评论(0) 推荐(0)

Delphi 检测鼠标键盘多久没有活动

摘要： function GetInputAwayTime():DWORD; var lpi:TLastInputInfo; begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi 阅读全文

posted @ 2020-03-28 14:49 windsonvip 阅读(445) 评论(0) 推荐(0)

Delphi Base

导航

公告