一定要记住解决过了的问题_解决问题怎样才能记住怎样写-优快云博客

博客主要围绕数据库操作展开，包含提交数据库的 click() 事件处理。涉及将文本转换为合适的数据类型，如 integer、datetime 等，进行数据库插入操作。还通过 messagebox 打印变量值查错，若插入出错则输出错误信息，指出 Record# 的错误。

//提交数据库的click()事件
connect;
dec maxdia = 1,myRecord //一定要定义大一点
myRecord = dec(sle_1.text)//这样转才不会有出界的问题(这次全因为integer出界，费了那么多时间)
datetime myDate
string d,t
d = ddlb_1.text + ddlb_2.text + ddlb_3.text
t = sle_3.text + sle_7.text
myDate = datetime(date(d),time(t))//这么转换显得真是专业
if ddlb_1.text<>"" and ddlb_2.text<>"" and ddlb_3.text<>"" and mle_1.text<>"" and sle_1.text<>"" then

select Maxdiagnosis# into :maxdia from SysVariable;
maxdia = maxdia + 1
update SysVariable set Maxdiagnosis#=:maxdia;
messagebox("",maxdia)//这算是PB的一种经典查错方法，打印要追踪的变量值
messagebox("",myRecord)
//messagebox("",myDate)//datetime类型不支持
messagebox("",gUserID)
messagebox("",mle_1.text)

insert into diagnosis values (:maxdia,:myRecord,:myDate,:gUserID,:mle_1.text);
//这句话写得无可挑剔，却不幸长期被我视为嫌疑最大的嫌疑犯
end if
//insert into diagnosis values (1000000008,1000000001,:myDate,1020310301,"mle_1.text");
//这也是测试的一个方法，直接写
if sqlca.sqlcode<>0 then
messagebox("",sqlca.sqlerrtext)//输出错误，准确地指出了Record#的错误，功劳不小
end if