Database 版 (精华区)

发信人: BrokenHeart.bbs@bbs.whnet.edu.cn (阿呆), 信区: cndatabase
标  题: Re: PB数据库更新失败
发信站: 武汉白云黄鹤站 (Fri Dec 19 09:02:26 1997)
转信站: Lilac!ustcnews!ustcnews!whbbs

【 在 geology (师特) 的大作中提到: 】
: 真的可以增数据记录吗？可增应可修改，反之亦然。
: 可否将你的源代码贴出？
  
  但事实是确实可以增加记录，但不能修改。
  在上一级窗口中有"增加"和"修改"按钮。
  定义全局变量G_emp_name,Change_Insert
  //按下增加按钮
  Change_Insert=0
  Open(w_emp_detail)

  //按下修改按钮
  Change_Insert=1
  G_emp_name=dw_1.GetItemString(dw_1.GetRow(),"emp_name")
  Open(w_emp_detail)

  //w_emp_detail窗口打开事件
  string temp

  dw_1.SetTransObject(SQLCA)

  IF Change_Insert=0 THEN
     dw_1.InsertRow(0)
  ELSE
     temp="SELECT somebody.tablename.emp_name,... FROM somebody.tablename"&
          +"  where emp_name="+"'"+G_emp_name+"'"
     dw_1.SetSQLSelect(temp)
     dw_1.Retrieve()
  END IF

  //w_emp_detail窗口保存按钮
  dw_1.AcceptText()
  IF dw_1.Update()=1 THEN
     commit;
  ELSE
     rollback;
     return
  END IF

※ 来源:·武汉白云黄鹤站 s1000e.whnet.edu.cn·[FROM: 202.114.12.160]