原创 postgresql 判断数据库是否存在

CREATE DATABASE database_name;SELECT u.datname FROM pg_catalog.pg_database u where u.datname='database_name';

原创 unidbgrid不显示title按钮

原创 删除delphi组件TStringlist中的重复项目

procedure RemoveDuplicates(const stringList : TStringList) ; var   buffer: TStringList;   cnt: Integer; begin   stringList.Sort;   buffer := TStringList.Create;   try     buffer.Sorted := True...

原创 delphi 数据库 事务

try    PsqlDataModule.DataModuleConn.StartTransaction;    PsqlDataModule.ls.ExecSQL;    PsqlDataModule.DataModuleConn.Commit;    result := true;  except    PsqlDataModule.DataModuleConn.Rollbac...

原创 unigui panel 溢出可视

  js := js + '  var id=MainForm.UniContainerPanel1.id  ;  ' + #10#13;  js := js + ' $("#"+id).css("overflow","visible")  ;  ' + #10#13;  js := js + '  var id=MainForm.UniContainerPanel1.id+"-outerCt...

转载 css解决display:inline-block;产生的缝隙（间隙）

今天在做H5的水平滑动卡片时用到了display:inline-block;却发现处在同一水平线上的元素之间居然产生了缝隙，这很显然不是我想要的效果，所以我就换成了左浮动，这样缝隙的问题是解决了，但是需要设置父元素的宽度才能实现水平左右滚动，这样又增加了代码量，因为卡片的个数不固定，需要实时设置其父元素的宽度，就要用到js，所以代码量增加了，也不是最好的选择。看来最好的解决办法就是用到displa...

原创 postgresql case

select schedule.*,cast(schedule.计划描述 as varchar) as 描述 ,job.名称 as 作业名称,CASE CAST( 执行方式 as VARCHAR )WHEN '0' then CAST('仅触发器触发' as VARCHAR )WHEN '1' then CAST('执行一次' as VARCHAR ) WHEN '2' then...

原创 为什么在input[type="text"]，textarea，select这样的标签元素（ 若还有其它的，我暂时还没有发现 ）后使用

作为DOM元素，伪元素都是在容器内进行渲染的。input无法容纳其他元素，因此它不支持伪元素。

原创 unigrid记录check遍历

procedure TMainForm.UniButton2Click(Sender: TObject);var iIdx:integer; bmbh:string;begin  for iIdx := 0 to UniDBGrid1.SelectedRows.Count - 1 do  begin   UniDBGrid1.DataSource.DataSet.Bookma...

原创 unigui 控件id js操作

UniEdit1.id+"-inputEl"UniContainerPanel1.id+"-innerCt" MainForm.WebForm.JSId; 

原创 javascript 字符转换为ascii码，ascii码转换为字符

<script>str="A";code = str.charCodeAt();str2 = String.fromCharCode(code);str3 = String.fromCharCode(0x60+26); document.write(code+'<br />');document.write(str2+'<br />'...

原创 jquery 延迟执行方法

//以下两种方式都行：setTimeout(function () { test(); }, 2000);//或者setTimeout('test()',2000);function test(){ alert("aaaa");}//以下是错误示例setTimeout(test(),2000);//会马上执行，没有延迟效果---------------------  ...

原创 delphi query 数据表参数调用

ADOQuery1.SQL.Add('select * from tb_czyda where f_czybm =:czybm');        ADOQuery1.Parameters.ParamByName('czybm').Value := '001';    

原创 jquery绑定input的change事件

<input style="width: 100%;height: 30px;" id="inputid"/>$(function(){            //输入框的值改变时触发            $("#inputid").on("input",function(e){                //获取input输入的值                con...

原创 input中type为number

如果使用了<input type="number" maxlength="11">你会发现它并无法限制11位的长度解决办法是<input type="number"  oninput="if(value.length>11)value=value.slice(0,11)"/>...

原创 JS中判断null、undefined与NaN的方法

https://www.jb51.net/article/48481.htm.判断undefined:var tmp = undefined; if (typeof(tmp) == "undefined"){ alert("undefined"); }说明：typeof 返回的是字符串，有六种可能："number"、"string"、"boolean"、"object&quo

原创 unigui Frame form创建

frame 需要创建envFrame := TFrame_Environmental_Management.Create(Self); envFrame.Parent := contentpanel;form 不需要创建、form.Show();

原创 css background-position

background-positionbackground-position-xbackground-position-y