疯流人物_CSDN博客-Delphi,linux,android领域博主

转载 FileZilla - 服务器发回了不可路由的地址，使用服务器地址代替

1. 解决方案：更改FileZilla设置，【编辑】->【设置】->【连接】->【FTP】->【被动模式】，将“使用服务器的外部IP地址来代替”改为“退回到主动模式”即可。2. 原因分析：+ 首先，FTP的连接方式：主动模式和被动模式。主动模式是客户端Client主动通知服务器数据通信端口N + 1（N为命令通信端口），服务端Server通过此端口N + 1向客户端Client发送数据连接和数据，然而对于内网中的客户端Client，其内网端口通过NAT或防火墙后会被映射.

2020-08-08 09:40:01 23

原创 ERP业务总结

1、套盒套盒卡类型关联表：bd_CardClassAndSuitGoods套盒记录表：SS_CardSuitGoodsSS_ConsumeGoodsDetail saleType=6

2020-07-26 19:27:42 21

原创 ERP维护经验总结

1、隐藏dxDBGrid显示的英文字段可以在窗口OnShow事件里通过把数据集字段隐藏：Search_AdoDataSet.FieldByName('ConsumeSubId').Visible := false;2、dxDBGrid的KeyField属性一定要设置，没设置数据不显示

2020-07-09 19:31:18 27

原创 sql分析经验总结

对原来sql进行分块查询分析，然后再按照原sql进行组合

2020-07-09 14:28:20 26

原创跨库查询、遍历数据库的范例

EXEC sp_MSforeachdb @command1='IF ''?'' NOT IN(''master'', ''model'', ''msdb'', ''tempdb'',"ReportServer","ReportServerTempDB","OA系统") select min(issueDate) as MinDate,Max(issueDate) as MaxDate，DATEDIFF(day,'2008-12-29','2008-12-30') AS DiffDate from ?.db.

2020-07-07 10:28:12 29

原创 RemObjects SDK ThDataSet总结

1、ThDataSet可以增加显示字段，字段可以不更新，只要设置ProviderFlags pflnUpdate、pflnWhere为false就可以

2020-07-03 15:24:57 28

原创 Delphi常用函数总结

function RightStr(Const Str: String; Size: Word): String;beginif Size > Length(Str) then Size := Length(Str) ;RightStr := Copy(Str, Length(Str)-Size+1, Size)end;--------------------------------------function MidStr(Const Str: String; From, Size:

2020-06-18 10:50:53 42

原创 Delphi日期设置为NULL

在某些情况下，需要将日期字段的值置空，这种操作比较麻烦。在操作的时候，可将变量的值（t:TDateTime)设置为0，在操作的过程中进行判断，当t的值为0或－1的时候，时间值为1899年的Delphi日期最小值，如果使用SQL设置日期的空值，可直接用：update [table] set dt=null where …如果是字段操作，使用：FieldByName(‘dt’).AsString:=’’操作后在库中相应的值显示为NULL。补充：如果用Tquery的参数，ParamByName('y

2020-06-12 09:34:02 62

原创 sql杂记

1、convert、datepart函数运用select ID,Ftype, Convert(varchar(10),datepart(mm,BirthDate))+'月'+Convert(varchar(10),datepart(dd,BirthDate))+'日' as 生日 from bd_Customers where Ftype='新历' and BirthDate is not null and convert(datetime,'2012-'+convert(varchar(10),d..

2020-06-04 11:27:20 42

原创解决sql server除法结果为0的问题

将被除数乘以1.0再去除例如：select CustomerID,shop,shopquyu,会员编号,会员姓名,会员号码,专属技师,会员总余额,会员到店次数,(select case when (select SUM(会员到店次数) from #TTCustomers) <> 0 then cast(((会员到店次数*1.0)/(select SUM(会员到店次数) from #TTCustomers)) as decimal(3, 2)) else 0 end) as 到店率,消费次数.

2020-05-28 10:57:55 251

原创 dxDBGrid使用总结

1、清除列try dxDBGrid_Single.BeginUpdate; dxDBGrid_Single.DestroyColumns; dxDBGrid_Single.Bands.Clear; finally dxDBGrid_Single.EndUpdate; end;2、清除条dxDBGrid_Single.Bands.Clear;3、创建列TempCol := dxDBGrid_Single.CreateColumn(TdxDBTreeL...

2020-05-22 15:39:56 96

转载 Delphi 7-XE系列升级安装Indy10.6

由于低版本Indy无法满足网络技术的日益更新，如SSL/TLS请求、RawHeaders与Cookie管理等问题处理。我本身一直在用Delphi 2007，因为D2009开始底层的编码已不同，旧项目升级XE的话工程量太大，曾升级到Indy 10.2.3解决了SSL问题，后来个别web请求无法返回隐藏数据又升级到10.5.8解决，但同时却发现IdCookieManager不够完美，在个别web的请求上出现无法识别SetCookie，所以现在升级到XE7版的Indy 10.6，终于完美解决了。本想升级到更高

2020-05-09 13:00:08 115

原创几个测试用的函数

function IsKeyDebug: Boolean;begin if GetKeyState(VK_RCONTROL)<0 then Result:=True else Result:=False;end;function IsKeysDebug: Boolean;begin if (GetAsyncKeyState(VK_RCONTROL) &l...

2020-05-07 16:52:31 65

原创递归查询下级介绍人代码

id RmtCustomerID introducer XX XXXXXXX XXXXX XX XXXXXXX XXXXX // 递归查找介绍人IDprocedure GetIntroducedCusIDs(ParentID: string; var IDS: string); var TmpSQL: string; Int...

2020-04-21 16:20:15 83

原创 sql server常用快捷键

1、向上插入一行（Ctrl + Enter）2、向下插入一行（Ctrl + Shift + Enter）3、删除一行（Ctrl + Shift + L）4、跳到对应括号（Ctrl + ]）

2020-04-15 09:31:41 110

转载 Delphi打开窗体时报"Corrupt Portfolio Stream"

今天在打开一个Delphi窗体时报了这么一个错误:Corrupt Portfolio Stream查了一下，主要是由于Delphi窗体的*.ddp文件损坏引起的.解决方法: 删除.ddp 文件,重新打开窗体即可。有时候还是不行,这个时候用记事本打开那个.dfm文件,通常窗体都是以Text形式存储的,如果发现是二进制代码,那么八成窗体文件也坏了,这个时候删除这个窗体文件, 把 ...

2020-04-13 10:13:40 33

转载 C#简单三层架构

三层架构是哪三层界面层（User Interface layer）业务逻辑层（Business Logic Layer）数据访问层（Data access layer）如何搭建三层架构步骤1：文件---新建---项目---Windows窗体应用程序名称：UIL解决方案名称：Demo3Tier选中解决方案名称：Demo3Tier添加---新建项目---类库名...

2019-09-17 09:58:04 243

转载快速搭建SSM(Spring,SpringMVC,Mybatis)环境详细过程

我是做移动（Android）开发的，这几天利用项目空隙大概学习了数据接口的相关知识，在这里主要记录一下搭建SSM环境的操作过程。所谓“工欲善其事必先利其器”，搭建开发环境往往是学习的第一步，其实这么说不太准确，选择使用什么环境才是最先应该考虑的，暂时叫做第零步吧。快速搭建SSMSpringSpringMVCMybatis环境详细过程第零步选择环境1 选择语言2 选择编译器3 选择框架...

2019-08-30 14:53:48 260

原创 spring环境配置

第 1步：安装 Apache Commons Logging API你可以从http://commons.apache.org/logging/下载 Apache Commons Logging API 的最新版本。一旦你下载完安装包，并且解压二进制的发行版本到一个方便的位置。例如在 windows 上的 C:\commons-logging-1.1.1 中，或在 Linux/Unix ...

2019-08-29 18:44:56 248

原创 Servlet编译环境搭建

1、安装Tomcat,Tomcat可以到:http://tomcat.apache.com网站下载2、新建CATALINA环境变量，值为Tomcat安装目录，在环境变量CLASSPATH加入%CATALINA%\lib\servlet-api.jar及servlet程序源文件存放目录3、执行javac命令编译：javac XXX.java，然后把XXX.class拷到Tomcat的weba...

2019-08-28 11:22:13 49

转载 vue项目使用static目录存放图片解决方案

我个人喜欢把所有引用文件全部放在打包文件src的同级文件static文件内部，方便整合。提醒：vue项目中正常情况下图片是由url-loader处理，加入了hash值，如果放到static里面webpack打包后只会把资源复制到发布目录而不会把小图片优化为base64。如果我们使用static目录存放图片会以为打包而产生一系列路径问题总结来说有以下两种使用绝对路径===...

2019-08-27 14:41:35 269

转载 Springboot 修改包名之后，报"错误: 找不到或无法加载主类"

由于调整了结构，所以把SpringbootApplication的启动类放在了原来的上一层结构下面，结果启动的时候报"错误: 找不到或无法加载主类"。在网上没有找到好的解决办法，自己摸索之后找到了解决办法。就是把工程下面的.idea目录下的workspace.xml里面的SPING_BOOT_MAIN_CLASS的路径改成你最新的路径即可。...

2019-08-26 17:22:30 2089 1

原创 eclipse上springboot环境配置

1、安装maven,可以到maven.apache.org上下载操作系统对应的版本安装，安装完后配置MAVEN_HOME和path2、安装maven plugin, help----install new softwareName: m2eLocation: http://download.eclipse.org/technology/m2e/releases3、安装sprin...

2019-08-23 16:30:16 252

转载服务器发回了不可路由的地址,使用服务器地址代替

Filezilla —–服务器发回了不可路由的地址，使用服务器地址代替解决方法：更改Filezilla设置，编辑 - 设置 - 连接-FTP-被动模式，将“使用服务器的外部IP地址来代替”改为“回到主动模式”即可。...

2019-08-19 12:03:10 251

转载解决 The sandbox is not sync with the Podfile.lock问题

问题描述：github / sourcetree下载的Demo，很多时候使用到CocoaPods，有的时候因为依赖关系或者版本问题不能编译运行。出现例如The sandbox is not sync with the Podfile.lock问题时候，如下所示diff: /../Podfile.lock: No such file or directorydiff: Manifest.l...

2019-08-15 19:58:45 763

转载 LVM 'Can’t open /dev/sdb1 exclusively. Mounted filesystem?' Problem

在将几块盘做LVM时，遇到一个之前都没遇到过的问题:root@ubuntu:~# pvcreate /dev/sdc1 Can't open /dev/sdc1 exclusively. Mounted filesystem?首先第一反应就是查看这个分区是否已经在使用了，但是没有。查看硬盘的一些信息:root@ubuntu:~# cat /proc/partitions...

2019-08-09 11:57:43 289

转载 CentOS7 LVM添加硬盘及扩容

一、LVM简介 LVM是 Logical Volume Manager（逻辑卷管理）的简写，它是Linux环境下对磁盘分区进行管理的一种机制。LVM将一个或多个磁盘分区（PV）虚拟为一个卷组（VG），相当于一个大的硬盘，我们可以在上面划分一些逻辑卷（LV）。当卷组的空间不够使用时，可以将新的磁盘分区加入进来。我们还可以从卷组剩余空间上划分一些空间给空间不够用的逻辑卷使用。...

2019-08-09 11:06:14 632

转载 centos7根分区扩容（适用目前主流版本）

查看根分区不够用了1.关掉系统，从新增加一块硬盘，开机。（云主机不用关机直接添加就行）2.fdisk –l 本次增加的磁盘叫做/dev/vdb3.给新增加的磁盘分区：fdisk /dev/vdb输入p，查看分区；（新加的硬盘是没有分区的，如果有数据可以情况，输入d删除）输入n ，创建新分区；输入p，创建主分区输入1，新建xvdc的第一...

2019-08-09 11:05:06 2029

原创宝塔Inode信息使用率100%满了怎么清理？

宝塔面板后台首页除了负载状态、CPU使用率和内存使用率之外，还有一个“/”，即Inode信息，那么，Inode信息使用率满了如何清理？这选项100%的话您的网站可能就无法运行了；宝塔Inode信息清理方法:一般主要清理清空面板回收站就好了：执行命令：rm -rf /www/Recycle_bin/*不会命令的话直接删除Recycle_bin目录，然后重新新建一个这样的目录就是了，Lin...

2019-08-08 14:29:40 1269

原创 javascrip函数汇总

//全角转半角 =====================================function DBC2SBC(input,str,flag){var i;var result='';for(i=0;i<str.length;i++){str1=str.charCodeAt(i);if(str1<125&&!flag)result+=Strin...

2019-08-08 10:45:28 30

原创 javascript常用正则

//是否包含电话 var IsTel=/(([0-9]|[０-９]|[零,一,二,三,四,五,六,七,八,九])\W*){7,}/; //检测电话 var Isphone=/(^(0\d{2,3})?(-|\s)?(\d{7,8})(-(\d{2,4}))?$)|(^(\+86)?(\s+)?((13)|(15)|(18))(\d{9})$)/; //邮箱地址 var IsE...

2019-08-08 10:44:35 21

原创设置python4delphi支持python3.X

看不懂也要跟踪下，哪哪出问题了，嗯，是python的Py_Initialize()出问题，这行代码 Py_Initialize := Import('Py_Initialize');咋办呢，万能的互联网啊（哪天不能上网，那是不是也活的差不多了）网上说，一般出这个问题，是python的路径出问题了，系统环境变量里找不着python了，哦，是这样，但是我不能设置p...

2019-08-07 16:22:43 372

转载 python神器——Anaconda的安装与优化配置

对于初学者来说，原版的python在使用的时候非常麻烦，特别是在添加库、升级库的时候总是会报好多错误，缺这缺那。但是自从有了Anaconda以后，妈妈再也不用担心我用不了python啦！Anaconda相当于一个python的整合包，是一个开源的python发行版本，里面有各种科学包和依赖项，使用起来非常简单。安装安装非常简单。点击打开链接进入Anaconda的下载页面。选择你需要的配置...

2019-08-07 15:52:43 52

原创 python4delphi和tesserocr库安装配置

1、下载python4delphi控件包https://github.com/pyscripter/python4delphi2、在DelphiIDE里打开source下面对应pkg,然后compile、install3、安装python2.7.16,注意：要安装相应位长的python程序，一般是安装32位4、把python安装目录加到系统环境变量path里，scripts也加到p...

2019-08-07 14:12:16 119

转载 python4delphi 第一步

环境搭建：目前p4d已经可以支持到XE7，可惜googlecode即将关闭，不知道作者是否会在github上继续更新。因为此开源项目历史较久远，拿到源代码后可能还需要手动修改相关的文件引用，毕竟需要兼顾低版本的delphi。1、首先是组件安装，打开对应版本的Python_？？.dpk ，编译修改引用，XE后很多单元带VCL 和FMX的前缀了，需要手工指定，编译成功后，选择...

2019-08-07 11:20:13 235

原创 Python For Delphi 示例

Python For Delphi 示例samson <yan_xiao_song@hotmail.com>hide details3:22 pm (50 minutes ago)reply-topython-cn@googlegroups.comto...

2019-08-07 10:35:44 1247

原创 Delphi Dll中传递Pchar类型参数是否需要加var

比如原来有个函数是这样的:procedureGetMsg(ret:Integer;varMsg:string);stdcall;//返回消息beginMsg:='OK';end;现在改成这样:procedureGetMsg(ret:Integer;varMsg:PChar);stdcall;//返回消息beginStrPCopy(Msg,'...

2019-08-05 17:06:37 595

原创函数能否返回对象，而不是指针

现有一通用获取记录集合函数functionGetRec(StrSql:string):Tadodataset;varrec1:Tadodataset;beginrec1:=TADODataSet.Create(nil);rec1.Connection:=ADOConnection1;rec1.CommandText:=strsql;rec1.Open;result:=rec1...

2019-08-05 16:57:08 66

原创 TreeView使用笔记

TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：1、count，节点个数。2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeView.Items,常用...

2019-08-02 19:11:14 86

转载 Delphi XE6 原生解析json

Delphi XE5带了system.json单元，原生提供了json支持类。下面是解析json用法说明：最简单的JSON大致像这样{"date":"周二(今天, 实时：12℃)","dayPictureUrl":"http://api.map.baidu.com/images/weather/day/duoyun.png","nightPictureUrl":"http://api...

2019-08-02 14:17:20 80