- 博客(30)
- 资源 (5)
- 收藏
- 关注
RSS订阅转载 Jquery 滚动条到底部
var nScrollHight = 0; //滚动距离总长(注意不是滚动条的长度) var nScrollTop = 0; //滚动到的当前位置 var nDivHight = $("div.bDiv").height(); $("div.bDiv").scroll(function () { ...
2019-01-14 10:15:59
944
原创 SQL语句匹配查询
-- 仅查询纯数字 匹配查询-- 仅sql有效 select (cast(spxx.id as int)) from spxx,lb where spxx.lbid=lb.id and PATINDEX('%[^0-9]%', spxx.id) = 0 and len(ltrim(rtrim(spxx.id))) < 10 -- Access、SQL都有效
2018-02-02 08:36:40
1931
转载 生日提醒的算法
select * from employee where ( datediff(dd,getdate(), dateadd(year,datediff(year,BirthDay,getdate()),BirthDay)) between 0 and 5 )or (datediff(dd,getdate(), dateadd(year,datediff(year,BirthDay,getdate
2018-01-10 09:57:39
2803
转载 delphi关于 "高位" 与 "低位"
转自 https://www.cnblogs.com/del/archive/2010/04/21/1717584.html转自http://blog.csdn.net/chinmusam/article/details/5872182
2017-12-01 14:59:57
1071
转载 update多表， Access与SQl的区别
ACCESS与SQLSERVER中的UPDATE语句对比: SQLSERVER中更新多表的UPDATE语句: UPDATE Tab1 SET a.Name = b.Name FROM Tab1 a,Tab2 b WHERE a.ID = b.ID; 同样功能的SQL语句在ACCESS中应该是 UPDATE Tab1 a,Ta
2017-11-16 15:59:17
4144
原创 Access几个小技巧总结
1、查询Access中的表名称select name from MSysObjects where type=1 and flags=0 MSysObjects2、几个查询结果Union All时，当使用了无表查询时，提示“查询输入必须包含至少一个表或查询” 也就是说在Access里，这样的查询，并不能出想要的结果 select 'wallimn' union a
2017-10-27 10:13:50
1958
转载 Delphi检测字符串中是否包含汉字
procedure TMainForm.Button1Click( Sender : TObject );var str : string; pStr : PWideChar; isHZ : Boolean; i , s, m : Integer; byteArr : TBytes;begin str := Trim( EditStr.Text );
2017-09-06 14:50:01
3154
原创 js判断滚动条滚动方向
function scrollToEle(eleNum) { var ele = 'subject-' + eleNum; var prevS = window.pageYOffset|| document.documentElement.scrollTop || document.body.scrollTop; var curS = 0;
2017-05-15 16:31:28
2087
转载 PHP执行系统外部命令函数:exec()、passthru()、system()、shell_exec()
php提供4种方法执行系统外部命令：exec()、passthru()、system()、 shell_exec()。在开始介绍前，先检查下php配置文件php.ini中是有禁止这是个函数。找到 disable_functions，配置如下：disable_functions =如果“disable_functions=”后面有接上面四个函数，将其删除。默认php.ini配
2017-05-09 08:50:57
814
转载 PHP生成唯一ID的三种方法
1、md5(time() . mt_rand(1,1000000)); 这种方法有一定的概率会出现重复2、php内置函数uniqid() uniqid() 函数基于以微秒计的当前时间，生成一个唯一的 ID. w3school参考手册有一句话:"由于基于系统时间，通过该函数生成的 ID 不是最佳的。如需生成绝对唯一的 ID，请使用 md5() 函数"。下
2017-05-06 20:49:58
5040
转载 DOS批处理中%~dp0表示什么意思
如果一个install.bat文件位于D:\jeesite\bin文件内容如下：@echo offecho [INFO] This is a demo.echo [INFO] %~dp0pause运行install.bat，命令行输出如下[INFO] This is a demo.[INFO] D:\jeesite\bin\即：%0代表文件本身d代表盘
2017-03-01 08:48:54
5913
转载 CMD命令行中以管理员权限启动应用程序实现方法
这篇文章主要介绍了CMD命令行中以管理员权限启动应用程序实现方法,本文使用一个JS脚本来实现,需要的朋友可以参考下很多时候我们需要管理员权限来运行bat那么就需要结合vbscript来实现了方法一：%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::"
2017-03-01 08:39:47
9238
原创 delphi 显示多个swf文件
当Delphi使用TPageControl显示多个swf文件时，如果对TShockwaveFlash采用默认值的情况下，会发现不能显示的问题，经查阅资料，发现其属性seamlesstabbing默认值为true，当把其改为false，则显示正常。官方资料：Disabling seamless tabbing This release of ActiveX Flash Playe
2017-01-09 14:16:06
684
转载 Delphi XE中String、ANSIString、TBytes之间的转换
Delphi XE中String、ANSIString、TBytes之间的转换
2017-01-09 09:17:24
11539
转载 Delphi Berlin How to have Delphi TWebbrowser component running in IE9 mode?
更改TWebbrowser使用的IE版本
2016-10-28 11:04:34
555
原创 基于summernote的富文本编辑器，粘贴时去除word格式
在使用summernote的富文本编辑器，在粘贴word内容时，会发现代码中有很多无效的代码。通过js处理，可以去掉很多无用的代码。处理前，粘贴后的代码类似这样：v\:* {behavior:url(#default#VML);}o\:* {behavior:url(#default#VML);}w\:* {behavior:url(#default#VML);}.sh
2016-10-13 10:22:12
12617
2
原创 获取文件MD5值
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Math, System.Hash, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.St
2016-10-10 16:26:48
1263
原创 HTML Color To Delphi TColor
HTML Color 采用十六进制表示颜色，其格式为RGB，而Tcolor的格式是GBR。如果把HTML颜色转为Tcolor，需要转换其格式。比如： HTML Color： #123456 转为Tcolor，则为：$563412， 把其转为Integer值，即为Tcolor值。function TForm1.htmlColor2color( hColor : string
2016-10-10 10:00:25
1309
转载 用webBrowser打开网页出现脚本错误怎么办？
把Slient属性设为True就不会弹出脚本错误的信息了。转自：http://bbs.csdn.net/topics/390351223
2016-10-08 16:49:04
3672
1
转载 FDAC批量导入数据
FDAC DataSet使用SaveToFile方法把数据存入单个文件后，使用批量处理插件，能够快速导入数据。在国外论坛上看到一篇文章，导入很方便。经测试可用。function TSubDB.LoadDB(const aFilename: string): boolean;var FQry: TFDQuery; FBatchMove: TFDBatchMove; FReader: T
2016-09-20 08:50:53
1780
转载 TScrollBox响应鼠标滚动事件
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin if WheelDelta < 0 then ScrollBox1.Perform(WM_VSCROLL,SB_LI
2016-09-17 07:13:45
819
转载 Delphi屏蔽TRadioButton的OnClick事件
procedure TForm1.Button6Click(Sender: TObject);var Save: TNotifyEvent;begin Save:= RadioButton2.OnClick; RadioButton2.OnClick:= nil; RadioButton2.Checked:= not RadioButton2.Checked; Radio
2016-08-18 13:44:31
1087
原创 Delphi 10.1 Berlin下TStringGrid单元格样式设定
设定TStringGrid的DefaultDraw = true，系统自动给表格绘制默认的样式和效果。设定自定义格式前，先填充单元格的背景色，以清除原内容。procedure TShowDetailForm.GridForwardDrawCell( Sender : TObject; ACol, ARow : Integer; Rect : TRect; State : TGridDraw
2016-07-13 13:43:13
2314
原创 FMX TStringGrid的Cell对齐方式
Delphi Berlin版本中，Column具有Model属性。procedure TMainForm.CheckRecordGridDrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const
2016-07-01 13:53:56
1005
转载 Delphi FMX Grid列头样式设定
procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject);var Header: THeader; HeaderItem: THeaderItem; I: Integer;begin Header := THeader((Sender as TStringGrid).FindStyleResource('head
2016-06-30 19:05:38
1654
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人