- 博客(32)
- 资源 (6)
- 收藏
- 关注
RSS订阅转载 js总结示意图、javascript总结、javascript 学习线路图
javascript变量javascript函数基础javascript流程控制javascript数据类型javascript数组javascript运算符javascript正则表达式javascript字符串函数javascript DOM操作javascript windows对象...
2020-02-14 17:06:33
369
原创 sqlserver 字符串多行合并为一行
SELECTS_OS_PO.recId,S_OS_PO.os_PO_Number as 外协单号,S_JOB.partnum as 生产编号,P_MO.moNumber as 制造单号,CASE WHEN T_SubcontractType.unitId=3 then S_OS_POItem.qty_PNL else S_OS_POItem.qty end as 外协...
2019-11-25 17:02:36
746
转载 获取SQL Server数据库用户名、数据库名、所有表名、所有字段名
之所以写下这些信息，主要是写给自己用的。1. 1、获取所有用户名:2. SelectnameFROMSysuserswherestatus='2'andislogin='1'3. islogin='1':表示帐户4. islogin='0':表示角色5. status='2':表示用户帐户6. status='0':...
2019-11-25 16:59:03
1028
翻译 查看SQL内存过高的脚本
SELECT s2.dbid,s1.sql_handle,(SELECT TOP 1 SUBSTRING(s2.text,statement_start_offset / 2+1 ,( (CASE WHEN statement_end_offset = -1THEN (LEN(CONVERT(nvarchar(max),s2.text)) * 2)ELSE st...
2019-11-25 13:43:29
254
翻译 SQL SERVER中求上月、本月和下月的第一天和最后一天
SQL SERVER中求上月、本月和下月的第一天和最后一天：1、上月的第一天SELECT CONVERT(CHAR(10),DATEADD(month,-1,DATEADD(dd,-DAY(GETDATE())+1,GETDATE())),111)2、上月的最后一天SELECT CONVERT(CHAR(10),DATEADD(ms,-3,DATEADD(mm,
2017-04-24 08:38:45
8132
1
原创 SQL批量行转列已经多个字段拼接
第二步：运行一下SQL,就可以得出以下拼接(合并)效果。关键点是where jobId=V_WIP_Balance.jobId 。你想要第一个显示什么，这个ID就要在视图中查出来，不然会数据有误，而且查询速度非常慢。select S_Customer.nickName 客户,S_Job.partNum 生产型号,isnull(SO_Num.订单数 - CPCK.出库数量,0)
2017-04-24 08:30:21
5079
转载 FastReport 动态加载图片
FastReport 动态加载图片varft:TfrPictureView;beginft:=frReport1.FindObject('控件名') as TfrPictureView;//ft.Picture:=image1.picture; {image1中加载了JPEG的图片}ft.Picture.Assign(image1.picture);
2016-01-19 11:24:42
8504
翻译 Delphi控件开发浅入深出(一)
有人说过“不会开发控件的Delphi程序员不是真正的程序员”。Delphi正是由于高度的可扩展性和大量的第三方控件的支持才能吸引无数程序员挑剔的目光。即使是由于工作需要使用其他开发工具的开发者也常常怀念和Delphi度过的日日夜夜。接触Delphi已经一年多了，从当初对着Delphi组件面板上上百个控件不知所措，到现在已经可以根据需要开发一些有一定难度的控件，其中走过的路是十分艰辛的，所以特此写下
2016-01-19 11:21:22
2413
翻译 Delphi禁止重复运行同一程序的方法
第一种方法，使用“过程调用”：procedure Del; // 自定义过程 var Mutex: THandle; begin Mutex := CreateMutex(nil, True, PChar(Application.Title)); if GetLastError = ERROR_ALREADY_EXISTS then begin Applicat
2016-01-18 13:46:11
1118
翻译 多级接口实现方法
{多级接口实现方法 } {DateTime:2013.11.7} iFace = interface [‘{68252415-0850-4B0D-89B5-C7F41C1E13F1}’] function getFuc: string; procedure Msg; end;iBace = interface [‘{607028C1-6
2016-01-18 13:45:08
354
翻译 Panel移动
// 移动就写上 ReleaseCapture; SendMessage(Panel1.Handle,wm_SysCommand,$F012,0);{// 改变大小就写上 ReleaseCapture; SendMessage(Panel1.Handle,wm_SysCommand,$F008,0);}
2016-01-18 13:43:49
368
翻译 SQL日期操作
select CONVERT(varchar, getdate(), 120 )‘getdate（）’改为时间字段名‘createtime’ 再重命名新加列（Select Name AS UName from Users）例如 select convert(varchar(11),createtime,120) as Ndate from UserSselect CONVERT(varchar
2016-01-18 13:42:40
589
翻译 Delphi获取句柄并发送消息
查找另外一个窗口的句柄： handle := FindWindow(nil,PChar(‘窗口的标题’));//查到窗体句柄 查找子窗体：childHandle := FindWindowEx(handle,0,’子窗体类’,’子窗体标题’); 另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数); 用这个函数需要自己写一个回调的函数，比如： f
2016-01-18 13:40:50
1090
原创 循环遍历同类控件
for i:=0 to self.ComponentCount-1 do begin if self.Components[i].ClassType=TDbedit then (self.components[i] as Tdbedit).Enabled :=true;end;
2016-01-18 13:37:30
379
翻译 delphi 获取文件所在路径
//delphi 获取文件所在路径ExtractFileDrive ：返回完整文件名中的驱动器，如"C:"ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/"ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:/test"ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.d
2016-01-18 13:32:23
1072
转载 Delphi中如何释放内存(转)
Delphi中如何释放内存(转) 觉得写得不错,记录一下!方法一：如何利用Delphi释放所占的内存有人写了一个清内存的bpl插件，据他讲用了以后Delphi2005只占3、4兆内存，多次编译后占用内存不会递增，其实这个bpl只有一个pas文件，这个文件里主要的就是一个函数，如有兴趣你看看:{2004.11.30wr960204 武稀松(王锐)}unit
2014-01-03 16:50:59
1928
转载 java中的Math类
java中的Math类常用值与函数：Math.PI 记录的圆周率 Math.E 记录e的常量 Math中还有一些类似的常量，都是一些工程数学常用量。Math.abs 求绝对值 Math.sin 正弦函数 Math.asin 反正弦函数 Math.cos 余弦函数 Math.acos 反余弦函数 Math.tan 正切函数 Math.atan 反正切函数
2014-01-02 11:33:40
661
转载 delphi 获取本机IP地址和MAC地址
unit NetFunc;interfaceuses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; //错误信息常量 const C_Err_GetLocalIp = '获取本地ip失败'; C_Err_GetNameByIpAddr = '获取主
2013-12-31 16:50:02
1410
转载 zend studio 10 字体，颜色，快捷键等相关设置
一、修改字体 没想到zend studio 10中对中文显示不太好看，似乎有点小了。修改如下：打开Window->Preferences->General->Appearance->Colors and Fonts，找到Basic->Text Font，如果想用系统默认字体，就点Use System Font，我知道你似乎也不太愿意用系统默认字体，那就点Edit选择你想要的字体吧。
2013-12-27 15:54:37
966
转载 zend studio 9.0.4 破解、汉化和字体颜色及快捷键相关设置
下载：http://www.geekso.com/component/zendstudio-downloads/ 破解：http://www.geekso.com/ZendStudio9-key/ 注册码：34E606CF10C3E4CF202ABCEAA9B0B7A64DD2C5862A514B944AAAB38E3EB8A5F2CD735A2AB4CF9B95259
2013-12-26 10:06:33
1015
转载 Zend Studio 9.0.2破解文件和注册码下载
Zend Studio是Zend Technologies开发的PHP语言集成开发环境（IDE），是公认最好的PHP开发工具。当前Zend Studio最新版本是9.0.2。Zend Studio 9.0.2下载地址：http://www.geekso.com/component/zendstudio-downloads/Zend Studio 9.0.2破解文件和注册码：点击这里
2013-12-26 10:02:13
789
转载 Java 中对数据库操作时的 回滚
Connection conn=null; conn.rollback()就可以回滚//用jdbc连接数据库//举例子，比如你在写一个级联删除的方法的时候，为了保证数据完整性，删除的时候一定要确定该删的都删了才行，否则就要回滚，下面是删除方法的例子：public boolean delete(int sID) {//成功删除会返回true; dbc = new DataBas
2013-12-09 11:28:55
4714
转载 JAVA中获取当前系统时间
一. 获取当前系统时间和日期并格式化输出:import java.util.Date;import java.text.SimpleDateFormat;public class NowString {public static void main(String[] args) { SimpleDateFormat df = new SimpleDateFormat("
2013-12-09 08:38:29
706
转载 java中常用的字符串的截取方法
1、length() 字符串的长度 例：char chars[]={'a','b'.'c'}; String s=new String(chars); int len=s.length();2、charAt() 截取一个字符 例：char ch; ch="abc".charAt(1); 返回'b'3、getChars() 截取多个字符
2013-12-07 13:51:14
849
转载 Delphi常用字符串函数
一、字符转换函数1、ord(input[i])返回字符表达式 input 左端起第 I 字符的ASCII 码值。2、CHAR()将ASCII 码转换为字符。如果没有输入0 ~ 255 之间的ASCII 码值，CHAR（） 返回NULL 。3、LOWER()和UPPER()LOWER()将字符串全部转为小写；UPPER()将字符串全部转为大写。4、STR()把数值型数
2013-11-26 15:35:14
909
转载 Indy9的IdFTP完全使用
Delphi 7自带的INDY控件，其中包含了IdFTP，可以方便的实现FTP客户端程序，参考自带的例子，其中有上传、下载、删除文件，但是不包含对文件夹的操作，得自己实现上传、下载、删除整个文件夹（带子目录和文件）。于是自己参考了网上的资料，重新整理下，使用归纳如下示例工程所示：窗体上放置TIdFTP、TIdAntiFreeze组件，还有其他一些基本控件。当在列表框选择的是“文件夹
2013-11-19 17:06:39
1972
1
转载 delphi实现FTP源码
unit TransferThread; //////////////////////////////////////////////////////////////////////////////// // 模块说明: FTP传输核心模块类 // 功能: 指定一个下载（上传)的日期或文件名，系统执行传输功能(支持续传） // 备注：该模块属于传输类的一个子线程模块. ////
2013-11-19 14:38:39
1569
原创 打印机出现错误
不知是哪个软件装删出了毛病，发现打印时不能进行选项设置，会跳出一个对话框说是什么功能地址，然后一堆代码，造成一个保护错误，虽说还是能打出来，但只能按默认设置了。试过几个软件，确定是系统的问题。Google一下，果然有解决办法，并且手到病除，高人仰慕一下~~1、停止spooslv.exe服务。2、删除已添加所有的网络打印机。3、删除前面安装过的所有打印机驱动程序(包括其它品牌的)位于c:
2013-11-13 16:16:59
1376
原创 delphi的web开发一些必要步骤
在UserSessionUnit中的uses加入IWAppForm在implementation中加入uses IWInit,ServerController在Public 中定义参数和函数，每个用户登录后都会独立创建一个procedure Move(AFormClass:TIWAppFormClass);//定义我们的一个打开新页面的函数//事
2013-11-13 16:15:33
2037
转载 Stringgrid的字体居中代码（俩种方法）
varCellString:string;begin if ARow begin CellString:=Stringgrid1.Cells[ACol,ARow]; Stringgrid1.Canvas.TextRect(rect,rect.Left+(rect.Right-rect.Left-stringgrid1.Canvas.TextW
2013-11-13 16:12:00
2333
转载 财务数字大小写转换函数代码
function ChangMoney(small:real):string;varSmallMonth,BigMonth:string;wei1,qianwei1:string[2];qianwei,dianweizhi,qian:integer;ObjSmall:real;begin ObjSmall:=Abs(small); ///绝对值 qi
2013-11-13 16:10:15
1458
转载 从互联网校对系统时间
从互联网校对系统时间【程序说明】本程序实现了从互联网得到时间然后修改系统时间的功能。通过本例，读者可以掌握TidTime控件的基本用法和如何察看控件函数的实现。程序运行效果如图所示。图201【编程思路】实例利用TIdTimeImage控件从互联网获取标准时间，调用SetLocalTime()函数校对系统时间。 【编程步骤】1.启动DELPHI，建立一个标准的项目
2013-11-13 16:07:26
2018
SQL存储教程
2012-10-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人