摘要: –每500条数据提交一次DECLARE CNT NUMBER(10):=0; I NUMBER(10); BEGIN SELECT COUNT(*) INTO CNT FROM DBBC011 where qxlxzs is null;FOR I IN 1..TRUNC(CNT/500)+1 LOO 阅读全文
posted @ 2020-04-09 10:51 南国之恋 阅读(164) 评论(0) 推荐(0) 编辑
摘要: USE [YourDBName] -- replace your dbname GO SELECT s.Name AS SchemaName, t.Name AS TableName, p.rows AS RowCounts, CAST(ROUND((SUM(a.used_pages) / 128. 阅读全文
posted @ 2020-03-27 15:15 南国之恋 阅读(577) 评论(0) 推荐(0) 编辑
摘要: procedure SavePictureToSQL();var msmem: TmemoryStream; jpg: TJpegImage; FName: string; SqlStr: string;begin//保存 try msmem := TmemoryStream.Create; Jpg 阅读全文
posted @ 2020-03-26 09:43 南国之恋 阅读(183) 评论(0) 推荐(0) 编辑
摘要: sqlplus连接的三种方式 sys用户在cmd下以DBA身份登陆: sqlplus /nolog --运行sqlplus命令,进入sqlplus环境。其中/nolog是不登陆到数据库服务器的意思,如果没有/nolog参数,sqlplus会提示你输入用户名和密码 SQL〉connect / as s 阅读全文
posted @ 2020-03-19 16:39 南国之恋 阅读(899) 评论(0) 推荐(0) 编辑
摘要: Oracle11G 数据库导出后再导入,部分表没有导入最近,要在其他地方重新复制一套数据库,数据库是Oracle11G的,先用exp full=y导出备份文件后,在另外的数据库上导入后,发现有一些表没有导入,这 些表都有一些共同的特征,全部都是空表,百度发现原因,是因为一个参数的原因: 在sqlpl 阅读全文
posted @ 2020-03-19 14:33 南国之恋 阅读(339) 评论(0) 推荐(0) 编辑
摘要: 有网友问我常用的Delphi第三方控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 报表图表: TeeChart Pro 在 delphi 的图形显示方面目前唯一的选择,虽然从delphi 3 就随delphi 捆绑发布,但是捆绑的是标准版,很多功能都不全,要展示各种绚丽的统计、分析 阅读全文
posted @ 2020-03-03 08:48 南国之恋 阅读(573) 评论(0) 推荐(0) 编辑
摘要: I have a function extracted from a delphi dll Struct 1 is made up of : Moreover struct2 is made up of: Now using C# i am trying to pass a same time of 阅读全文
posted @ 2020-01-07 08:57 南国之恋 阅读(506) 评论(0) 推荐(0) 编辑
摘要: uses superobject; procedure TForm1.FormCreate(Sender: TObject); var aJson: ISuperObject; aSuperArray: TSuperArray; i:Integer; begin {1、赋初值} aJson:=SO( 阅读全文
posted @ 2019-12-23 09:09 南国之恋 阅读(2049) 评论(0) 推荐(0) 编辑
摘要: Java、Php等语言中都有成熟的框架来解析Json数据,可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性,同时delphi中也有这样的组件来实现此功能,即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。 下面先说 阅读全文
posted @ 2019-12-23 09:07 南国之恋 阅读(1306) 评论(0) 推荐(0) 编辑
摘要: 保存可以用下面的方法 var Stream: TMemoryStream; begin Stream := TMemoryStream.Create; jitems.SaveTo(Stream); Stream.Position := 0; TBlobField(FieldByName('DATA_ 阅读全文
posted @ 2019-12-20 15:15 南国之恋 阅读(597) 评论(0) 推荐(0) 编辑