摘要：
Application.UpdateFormatSettings := False; //保证格式运行中不变。//目前，这行，只支持 VCL。 with FormatSettings do begin ShortDateFormat := 'yyyy-mm-dd'; LongDateFormat : 阅读全文
摘要：
procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin MasterData1.Visible := (<FxDB."Counts">) > 0; end; 阅读全文
摘要：
procedure TfrmCaoZYGLNew.edt1KeyPress(Sender: TObject; var Key: Char);var AItem: TListItem; i: Integer; isFound: Boolean;begin if key = #13 then begin 阅读全文
摘要：
//替换系统自带的Utf8Decode函数，原函数遇到日文等非法字符不能解析function DecodeUtf8Str(const S: UTF8String): WideString;var lenSrc, lenDst: Integer;begin lenSrc := Length(S); i 阅读全文
摘要：
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 阅读全文
摘要：
function Generate_DZ_TYZL( ATYXML: string): WideString;var xml:string; mwXML,iTYXML:string;begin iTYXML:=StringReplace(ATYXML,#$D#$A,'',[rfReplaceAll] 阅读全文
摘要：
路径svn 区分大小写 阅读全文
摘要：
ayqy: --市医保select xx.shbzhm from zyxx xx where xx.shbzhm is not null; select * from ybjsxx;--铁路医保select * from tielyb_ZYBRXX where xx.yibbh is not nul 阅读全文
摘要：
//*****************************************************************************// NPC Add This 2019-05-15 16:29:54// // 名 称：TfrmPublic.ExpDBGridEh_Exe 阅读全文
摘要：
SELECT username,PROFILE FROM dba_users;SELECT * FROM dba_profiles s WHERE s.profile='DEFAULT' AND resource_name='PASSWORD_LIFE_TIME'; ALTER PROFILE DE 阅读全文