上一页 1 ··· 3 4 5 6 7 8 9 10 11 ··· 16 下一页
摘要: ::@echo offset TDate=%DATE:~0,4%%DATE:~5,2%%DATE:~8,2%set TTime=%time:~0,2%%time:~3,2%%time:~6,2%if "%TTime:~0,1%"==" " set TTime=0%time:~1,1%%time:~3 阅读全文
posted @ 2020-04-20 16:04 绿水青山777 阅读(171) 评论(0) 推荐(0)
摘要: uses DateUtils; var S1, S2: string; T1, T2: TDateTime; D, H, M, S: Integer; Value: Int64; begin S1 := '2015/09/23 15:44:50'; S2 := '2013/09/22 16:47:5 阅读全文
posted @ 2020-04-19 17:31 绿水青山777 阅读(982) 评论(0) 推荐(0)
摘要: select zhuyh , mingxh , bianh , mingcfrom ( select t.zhuyh , t.mingxh , t.bianh,t.mingc, row_number() OVER(PARTITION BY t.zhuyh ORDER BY t.zhuyh desc) 阅读全文
posted @ 2020-04-09 09:15 绿水青山777 阅读(762) 评论(0) 推荐(0)
摘要: promptprompt Creating package GETHZPYprompt promptcreate or replace package emrdb.GetHZPY is -- Author : ADMINISTRATOR -- Created : 2006-10-8 上午 11:51 阅读全文
posted @ 2020-04-08 16:12 绿水青山777 阅读(164) 评论(0) 推荐(0)
摘要: fastreport 报TBarCodeView类没有发现错误,是因为没有加入单元 frxBarCode; 阅读全文
posted @ 2020-03-09 16:11 绿水青山777 阅读(191) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2020-02-19 11:54 绿水青山777 阅读(179) 评论(0) 推荐(0)
摘要: sqlplus /nologconnect sys/change_on_install as sysdbashutdown normalstartup mountalter database open;alter database datafile 6 offine drop; shutdown n 阅读全文
posted @ 2020-02-17 20:44 绿水青山777 阅读(183) 评论(0) 推荐(0)
摘要: function TForm1.BaseToJpg(BaseStr: string): TJpegImage;var JpgStream: TMemoryStream; StrStream: TStringstream;begin JpgStream := TMemoryStream.Create; 阅读全文
posted @ 2020-02-16 10:10 绿水青山777 阅读(137) 评论(0) 推荐(0)
摘要: RichViewEdit的技巧收集原创一剑平江湖 最后发布于2010-09-17 17:09:00 阅读数 1855 收藏展开这些天一直在研究richviewedit,只是对其有关设置段落对齐的方式不解,今天上午终于将其解开。原来是在richstyle中将段落格式设置好,再在richviewedit 阅读全文
posted @ 2020-02-11 17:43 绿水青山777 阅读(355) 评论(0) 推荐(0)
摘要: Delphi 1 把字符串直接保存为文件的方法 2 将文件直接作为字符串读出的方法 3 把字符串转化为内存流的方法 4 把内存流转化为字符串的方法 代码如下: function StringToFile(mString: string; mFileName: TFileName): Boolean; 阅读全文
posted @ 2020-02-11 17:15 绿水青山777 阅读(266) 评论(0) 推荐(0)
上一页 1 ··· 3 4 5 6 7 8 9 10 11 ··· 16 下一页