摘要:
Declare cur_k0 Cursor For Select distinct s_code From dbo.his_ypk_use ;Open cur_k0;Fetch cur_k0 Into :ls_code;Do Until sqlca.SQLCode = 100 Or sqlca.SQ... 阅读全文
摘要:
IF dw_1.Update() > 0 THEN dw_1.ResetUpdate() //将窗口的属性设置为初始化 COMMIT USING sqlca; IF sqlca.SQLCode = 0 THEN MessageBox('提示', PARENT.Title + '保存成功!') EL... 阅读全文
摘要:
Declare @Begindate Date; set @Begindate = getdate()Select cast(Convert(varchar(10),cast(@Begindate as date),112) as int) As Datekey, Year(@Begindate)... 阅读全文
摘要:
string ls_msgchoose case error.number case 1//by zero ls_msg = "发生被 0 除错误" case 2//2 Null object reference ls_msg = "空对象引用" case 3//3 Array boundary exceeded ls_msg = "数组越界" case 4//4 Enumerated value is out of range for function ls_msg = "枚举值超出函数的范围" case 5// 阅读全文