lin 5 6.txt

来自「着 是 学生管理系统的代码」· 文本 代码 · 共 30 行

(5)窗口的“Open”事件代码：
   dw_operator.settansobject(sqlca)
   dw_operator.retrieve()
   “增加”按钮(cb_add)的Clicked事件代码：
   long ll_currentrow
   ll_currentrow=dw_operator.insertrow(0)
   dw_operator.scrolltorow(ll_currentrow)
   dw_operator.setrow(ll_currentrow)
   dw_operator.setfocus()
   “删除”按钮(cb_delete)的Clicked事件代码：
   int li_select
   li_select=messagebox("提示","确实要删除吗？",exclamation,yesno!)
   if li_select=1 then
       dw_operator.deleterow(0)
   end if
   “保存”按钮(cb_save)的Clicked事件代码：
   dw_operator.update()
   if sqlca.sqlcode<>0 then
       rollback;
       messagebox("错误","存盘失败!")
       return 
   else
       commit;
   end if
   “退出”按钮(cb_exit)的Clicked事件代码：
   close(parent)
(6)窗口的Open事件代码：
   dw_student.settransobject(sqlca)
   dw_student.rettieve()