上一页 1 ··· 6 7 8 9 10 11 12 13 14 ··· 16 下一页
摘要: 博客园 首页 新随笔 联系 管理 订阅 随笔- 1229 文章- 52 评论- 161 博客园 首页 新随笔 联系 管理 订阅 随笔- 1229 文章- 52 评论- 161 Oracle ORA-01033: 错误解决办法 转自 Oracle ORA-01033: 错误解决办法 打开PLSQL时出 阅读全文
posted @ 2019-09-18 09:02 绿水青山777 阅读(1097) 评论(0) 推荐(0)
摘要: uses Tlhelp32; //在工程中引入单元Tlhelp32 //使用函数前,请在工程的前面对函数进行声明,截图如下 ///Delphi结束指定进程函数function TForm1.EndProcess(ExeFileName:string):integer;const PROCESS_TE 阅读全文
posted @ 2019-07-30 15:09 绿水青山777 阅读(127) 评论(0) 推荐(0)
摘要: unit Tlhelp323; unit Tlhelp323; interface interface uses uses Windows,SysUtils,Tlhelp32; Windows,SysUtils,Tlhelp32; function KillTask(ExeFileName: str 阅读全文
posted @ 2019-07-30 15:08 绿水青山777 阅读(163) 评论(0) 推荐(0)
摘要: Application.UpdateFormatSettings := False; //保证格式运行中不变。//目前,这行,只支持 VCL。 with FormatSettings do begin ShortDateFormat := 'yyyy-mm-dd'; LongDateFormat : 阅读全文
posted @ 2019-07-29 19:31 绿水青山777 阅读(369) 评论(0) 推荐(0)
摘要: procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin MasterData1.Visible := (<FxDB."Counts">) > 0; end; 阅读全文
posted @ 2019-07-15 16:24 绿水青山777 阅读(937) 评论(0) 推荐(0)
摘要: procedure TfrmCaoZYGLNew.edt1KeyPress(Sender: TObject; var Key: Char);var AItem: TListItem; i: Integer; isFound: Boolean;begin if key = #13 then begin 阅读全文
posted @ 2019-06-27 08:48 绿水青山777 阅读(386) 评论(0) 推荐(0)
摘要: //替换系统自带的Utf8Decode函数,原函数遇到日文等非法字符不能解析function DecodeUtf8Str(const S: UTF8String): WideString;var lenSrc, lenDst: Integer;begin lenSrc := Length(S); i 阅读全文
posted @ 2019-06-27 08:26 绿水青山777 阅读(300) 评论(0) 推荐(0)
摘要: SELECT ab.* from WuZKCXX ab WHERE ab.shixrq IS NOT NULL AND fun_date_YorN(ab.shixrq) = 0 create or replace function fun_date_YorN(i_dt varchar2) retur 阅读全文
posted @ 2019-06-22 15:39 绿水青山777 阅读(1723) 评论(0) 推荐(0)
摘要: function Generate_DZ_TYZL( ATYXML: string): WideString;var xml:string; mwXML,iTYXML:string;begin iTYXML:=StringReplace(ATYXML,#$D#$A,'',[rfReplaceAll] 阅读全文
posted @ 2019-06-11 16:42 绿水青山777 阅读(431) 评论(0) 推荐(0)
摘要: 路径svn 区分大小写 阅读全文
posted @ 2019-05-31 10:12 绿水青山777 阅读(445) 评论(0) 推荐(0)
上一页 1 ··· 6 7 8 9 10 11 12 13 14 ··· 16 下一页