| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2380 人关注过本帖
标题:怎么做一个简单的图书管理的数据库
只看楼主 加入收藏
澜漪yaya
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-12-8
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
怎么做一个简单的图书管理的数据库
不会写啊
搜索更多相关主题的帖子: 数据库 图书 
2011-12-19 10:18
xjyang_yang
Rank: 2
等 级:论坛游民
帖 子:5
专家分:20
注 册:2011-12-19
收藏
得分:20 
1.增加
dw_edit.reset()
dw_edit.settransobject(sqlca)
//dw_list.settransobject(sqlca)
dw_edit.insertrow(0)
cb_save.enabled    =    true
cb_delete.enabled    =    false
2.删除
dw_edit.setitem(dw_edit.getrow(),"state",-1)
cb_save.triggerevent(clicked!)
cb_save.enabled    = false
3.保存
integer li_i
dw_edit.accepttext()
for li_i=1 to dw_edit.rowcount()
    if trim(dw_edit.getitemstring(li_i,"name"))=""  or isnull(dw_edit.getitemstring(li_i,"name")) then
        messagebox("系统提示","第" +string(li_i)+"行分组名称为空")   
      dw_edit.setrow(li_i)
        dw_edit.setcolumn("name")
        dw_edit.setfocus()
        return
    end if        
next

if dw_edit.update()=1 then
    commit using sqlca;
    cb_find.triggerevent(clicked!)
    dw_list.retrieve("%%")
    dw_edit.reset()
    this.enabled    =    false
    cb_delete.enabled    =    false
else
    rollback using sqlca;
    messagebox("系统提示","保存数据失败,请仔细检查数据")
end if
4.退出
close(parent)

2011-12-19 18:12
快速回复:怎么做一个简单的图书管理的数据库
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.051319 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved