摘要：
Delphi中取得程序版本号 Delphi做的程序,如果想包含版本信息, 必须在Delphi的集成编辑环境的菜单“Project/Options/Version Info”里面添加版本信息。即在Version Info 选项卡中选中“Include version information in pr 阅读全文
摘要：
阅读全文
摘要：
function RoundFloat(f: double; i: integer): double;var s: string; ef: extended;begin s := '#.' + StringOfChar('0', i); ef := StrToFloat(FloatToStr(f)) 阅读全文
摘要：
CREATE OR REPLACE Function GetTianXiaoSFenZ(InYingWCSJ ZK_ShiXWDXX.YingWCSJ%Type, InWanCSJ BingRBL.WanCSJ%Type) Return VarChar2 is Result VarChar2(40) 阅读全文
摘要：
select t.COLUMN_NAME, Decode(t.DATA_TYPE,'NUMBER',DATA_TYPE||'('||DATA_LENGTH||','||DATA_PRECISION||')',DATA_TYPE||'('||DATA_LENGTH||')') DATA_TYPE, t 阅读全文
摘要：
function GetVer(FName: string): string;var InfoSize, Wnd: DWORD; VerBuf: Pointer; szName: array[0..255] of Char; Value: Pointer; Len: UINT; TransStrin 阅读全文
摘要：
// 根据cxCombox框选择，输出开始时间，结束时间procedure GetCurSetDate(AcxCombobox: TcxCombobox; var AFromDate, AToDate: TcxDateEdit);var iYear, iMonth, iDay: Word; iWee 阅读全文
摘要：
function SbctoDbc(s: string): string;var nlength, i: integer; str, ctmp, c1, c2: string;begin nlength := length(s); if (nlength = 0) then exit; str := 阅读全文
摘要：
select * from yuansk xx where xx.yskid = &dsfds; select * from yuansbxsj xx where xx.yskid=&dsfds; 执行F8后 弹出输入变量值窗口。 阅读全文
摘要：
beginfor cc in ( select t.yskid , t.xuh, row_number() OVER(PARTITION BY t.yskid order by t.yssjid ) as row_flg ,rowid from yuansbxsj t ) loop update y 阅读全文