868
社区成员
新手请教一条语句
刚学PB没多久,想试着做一个材料管理的软件
一个窗口WIN_1,放一树控件TV_1及一个数据窗口,
点击树节点即材料名称即可以在数据窗口中显示该材料名称的明细帐,树已建好,对于右侧数据窗口不知道从何处下手,如何制做如下的效果
月日 摘要 收入(借方) 发出(贷方) 结 存
数量 单价 金额 数量 单价 金额 数量 单价 金额
1月1日 上年结转 100 0.8 80
1月7日 自购XX材料 100 0.8 80
1月12日 XX部门领料 50 0.8 40
1月15日 购XX材料 200 0.8 160
本月合计 300 0.8 240 50 0.8 40 350 0.8 280
2月1日 XX部门领料 100 0.8 80
本月合计 100 0.8 80 250 0.8 200
要建几个数据表呢?要建期初库(用户设置)?材料库?
上面那种形式如何设计呢?新手刚学,想做出来,还望指教,多谢了
一个窗口WIN_1,放一树控件TV_1及一个数据窗口,
点击树节点即材料名称即可以在数据窗口中显示该材料名称的明细帐,树已建好,对于右侧数据窗口不知道从何处下手,如何制做如下的效果
月日 摘要 收入(借方) 发出(贷方) 结 存
数量 单价 金额 数量 单价 金额 数量 单价 金额
1月1日 上年结转 100 0.8 80
1月7日 自购XX材料 100 0.8 80
1月12日 XX部门领料 50 0.8 40
1月15日 购XX材料 200 0.8 160
本月合计 300 0.8 240 50 0.8 40 350 0.8 280
2月1日 XX部门领料 100 0.8 80
本月合计 100 0.8 80 250 0.8 200
要建几个数据表呢?要建期初库(用户设置)?材料库?
上面那种形式如何设计呢?新手刚学,想做出来,还望指教,多谢了
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
richgod 2008-02-27
大家都没有做这种流水帐嘛?感觉做个历史表比较好,只是不知道该怎么做?
richgod 2008-02-27
期初数或者上年结转是不是需要单独建一表呢?不知如何处理?望指教,多谢了
AFIC 2008-02-27
个人感觉
月日，摘要，标志位， 数量 单价 金额
建一个表就好了，生成dw用crosstab或存储过程数据源
月日，摘要，标志位， 数量 单价 金额
建一个表就好了，生成dw用crosstab或存储过程数据源
richgod 2008-02-27
TO xowczkf:能多解释一下嘛?没大看懂
xowcbobo 2008-02-27
這樣應該能達到你要的效果
xowcbobo 2008-02-27
樹的of_insertfromsql函數
//this.DeleteItem(0)
//ib_del = FALSE
INTEGER li_level
LONG ll_row
STRING ls_syntax,ls_err,ls_label,ls_data
TREEVIEWITEM ltv_item,ltv_itemparent
DATASTORE lds_find
ls_syntax = sqlca.syntaxfromsql(as_sql, "style(type=grid) ",ls_err)
lds_find = Create DATASTORE
lds_find.Create(ls_syntax,ls_err)
lds_find.SetTransObject(sqlca)
IF lds_find.Retrieve() > 0 THEN
ib_rollback = TRUE //為真 不改變toolbar狀態
SetRedraw(FALSE)
// this.getitem(al_handle,ltv_itemparent)
// li_level = ltv_itemparent.level
this.getitem(al_handle,ltv_item)
li_level = ltv_item.level
ltv_item.PictureIndex = li_level*2 + 1
ltv_item.SelectedPictureIndex = li_level*2 + 2
ltv_item.Children = FALSE
ltv_item.HasFocus = FALSE
ltv_item.Selected = FALSE
FOR ll_row = 1 TO lds_find.Rowcount()
ls_label = lds_find.getitemstring(ll_row,1)
ls_data = lds_find.getitemstring(ll_row,2)
IF ls_label = ' ' OR Isnull(ls_label) THEN ls_label = '其它 '
ltv_item.label = ls_label
ltv_item.data = ls_data
this.InsertItemLast(al_handle, ltv_item)
NEXT
END IF
DESTROY lds_find
SetRedraw(TRUE)
This.SelectItem(al_handle)
ib_rollback = FALSE
RETURN ll_row
//this.DeleteItem(0)
//ib_del = FALSE
INTEGER li_level
LONG ll_row
STRING ls_syntax,ls_err,ls_label,ls_data
TREEVIEWITEM ltv_item,ltv_itemparent
DATASTORE lds_find
ls_syntax = sqlca.syntaxfromsql(as_sql, "style(type=grid) ",ls_err)
lds_find = Create DATASTORE
lds_find.Create(ls_syntax,ls_err)
lds_find.SetTransObject(sqlca)
IF lds_find.Retrieve() > 0 THEN
ib_rollback = TRUE //為真 不改變toolbar狀態
SetRedraw(FALSE)
// this.getitem(al_handle,ltv_itemparent)
// li_level = ltv_itemparent.level
this.getitem(al_handle,ltv_item)
li_level = ltv_item.level
ltv_item.PictureIndex = li_level*2 + 1
ltv_item.SelectedPictureIndex = li_level*2 + 2
ltv_item.Children = FALSE
ltv_item.HasFocus = FALSE
ltv_item.Selected = FALSE
FOR ll_row = 1 TO lds_find.Rowcount()
ls_label = lds_find.getitemstring(ll_row,1)
ls_data = lds_find.getitemstring(ll_row,2)
IF ls_label = ' ' OR Isnull(ls_label) THEN ls_label = '其它 '
ltv_item.label = ls_label
ltv_item.data = ls_data
this.InsertItemLast(al_handle, ltv_item)
NEXT
END IF
DESTROY lds_find
SetRedraw(TRUE)
This.SelectItem(al_handle)
ib_rollback = FALSE
RETURN ll_row
xowcbobo 2008-02-27
在樹的selectionchanged事件里面
TREEVIEWITEM ltv_item
this.GetItem(newhandle,ltv_item)
string ls_yymm,ls_pnl,ls_sql,ls_data,ls_date,ls_label,ls_date_card
CHOOSE CASE ltv_item.level
CASE 1
ls_date = string(ltv_item.data)
dw_2.Retrieve(gs_fact, '% ',ls_date+ '% ')
IF ltv_item.Children = FALSE THEN
ls_sql = "SELECT DISTINCT DATE_CARD,DATE_CARD FROM CK_CARDDATA WHERE FACT_NO = ' " + gs_fact +&
" ' AND DATE_CARD LIKE ' " + ls_date + "% ' ORDER BY 1 "
of_InsertFromSql(ls_sql,newhandle)
END IF
CASE 2
// this.GetItem(this.FindItem(ParentTreeItem!,newhandle),ltv_item)
ls_date = string(ltv_item.data)
dw_2.Retrieve(gs_fact, '% ',ls_date+ '% ')
// this.GetItem(this.FindItem(CurrentTreeItem!,newhandle),ltv_item)
IF ltv_item.Children = FALSE THEN
ls_sql = "SELECT DISTINCT PNL ¦ ¦ '. ' ¦ ¦PNL_NM,PNL FROM PE_PERSON WHERE FACT_NO = ' " + gs_fact + &
" ' AND PNL IN (SELECT PNL FROM CK_CARDDATA WHERE FACT_NO = ' " + gs_fact + &
" ' AND DATE_CARD like ' " + ls_date + "% ' )ORDER BY 1 "
of_InsertFromSql(ls_sql,newhandle)
END IF
case 3
ls_pnl = string(ltv_item.data)
this.GetItem(this.FindItem(ParentTreeItem!,newhandle),ltv_item)
ls_data = string(ltv_item.data)
dw_2.Retrieve(gs_fact,ls_pnl,ls_data)
END CHOOSE
TREEVIEWITEM ltv_item
this.GetItem(newhandle,ltv_item)
string ls_yymm,ls_pnl,ls_sql,ls_data,ls_date,ls_label,ls_date_card
CHOOSE CASE ltv_item.level
CASE 1
ls_date = string(ltv_item.data)
dw_2.Retrieve(gs_fact, '% ',ls_date+ '% ')
IF ltv_item.Children = FALSE THEN
ls_sql = "SELECT DISTINCT DATE_CARD,DATE_CARD FROM CK_CARDDATA WHERE FACT_NO = ' " + gs_fact +&
" ' AND DATE_CARD LIKE ' " + ls_date + "% ' ORDER BY 1 "
of_InsertFromSql(ls_sql,newhandle)
END IF
CASE 2
// this.GetItem(this.FindItem(ParentTreeItem!,newhandle),ltv_item)
ls_date = string(ltv_item.data)
dw_2.Retrieve(gs_fact, '% ',ls_date+ '% ')
// this.GetItem(this.FindItem(CurrentTreeItem!,newhandle),ltv_item)
IF ltv_item.Children = FALSE THEN
ls_sql = "SELECT DISTINCT PNL ¦ ¦ '. ' ¦ ¦PNL_NM,PNL FROM PE_PERSON WHERE FACT_NO = ' " + gs_fact + &
" ' AND PNL IN (SELECT PNL FROM CK_CARDDATA WHERE FACT_NO = ' " + gs_fact + &
" ' AND DATE_CARD like ' " + ls_date + "% ' )ORDER BY 1 "
of_InsertFromSql(ls_sql,newhandle)
END IF
case 3
ls_pnl = string(ltv_item.data)
this.GetItem(this.FindItem(ParentTreeItem!,newhandle),ltv_item)
ls_data = string(ltv_item.data)
dw_2.Retrieve(gs_fact,ls_pnl,ls_data)
END CHOOSE
richgod 2008-02-26
水晶报表能完成这个功能嘛?
richgod 2008-02-26
从网上看个反编译的中文报表服务组件那个是做什么的,可以用于做三栏式的明细帐嘛?
richgod 2008-02-26
可以给点提示嘛?不知道如何下手
qiyousyc 2008-02-26
当然是自由格式的数据窗口了。
具体做法跟你的表结构有关了。
具体做法跟你的表结构有关了。
richgod 2008-02-26
月日 摘要 收入(借方) 发出(贷方) 结 存
数量 单价 金额 数量 单价 金额 数量 单价 金额
1月1日 上年结转 100 0.8 80
1月7日 自购XX材料 100 0.8 80
1月12日 XX部门领料 50 0.8 40
1月15日 购XX材料 200 0.8 160
本月合计 300 0.8 240 50 0.8 40 350 0.8 280
2月1日 XX部门领料 100 0.8 80
本月合计
100 0.8 80 250 0.8 200
做成这个样式就行了,
数量 单价 金额 数量 单价 金额 数量 单价 金额
1月1日 上年结转 100 0.8 80
1月7日 自购XX材料 100 0.8 80
1月12日 XX部门领料 50 0.8 40
1月15日 购XX材料 200 0.8 160
本月合计 300 0.8 240 50 0.8 40 350 0.8 280
2月1日 XX部门领料 100 0.8 80
本月合计
100 0.8 80 250 0.8 200
做成这个样式就行了,
AFIC 2008-02-26
详细解释下你的三栏式的明细帐是啥
ckc 2008-02-26
似乎2张表就可以了，一个材料表，一个变化历史表
余额用历史表累加出来，也可以直接记录在历史表中
余额用历史表累加出来，也可以直接记录在历史表中
洛阳老马 2008-02-26
表里面直接建立这些收入、发出、结存的字段是最简单的，数据要在业务发生时更新
lzheng2001 2008-02-26
我以前的有几个项目用vb6+水晶报表, 我可以说水晶报表做到的dw也可以做到, dw能做到的水晶报表未必能做到.
当然界面上,两者会有差别.
当然界面上,两者会有差别.
guijunxu 2008-02-26
PB就可以完成该功能,数据窗口我觉得一个就可以实现.三联效果可以用自由格式的数据窗口进行编辑即可.
右侧数据窗口的数据可以通过点击左侧树状得到一个唯一值进行过滤.
右侧数据窗口的数据可以通过点击左侧树状得到一个唯一值进行过滤.
lzheng2001 2008-02-25
n up 风格的数据窗口 或者 组合式的数据窗口 具体看你的表的情况
richgod 2008-02-25
怎么才能做成三栏式明细帐的效果
dawugui 2008-02-25
这可一句两句说不清楚.
基本原则是,点击左边的东西,得到一个类似编号的代码,然后利用这个编号去数据库查询相关数据并统计生成右边的表.
基本原则是,点击左边的东西,得到一个类似编号的代码,然后利用这个编号去数据库查询相关数据并统计生成右边的表.
新手使用caffe实现mnist 也是请教了懂的人。现在把流程和注意事项贴出来，希望对大家有用。 由于不同的环境配置，新的caffe到你的服务器上需要从新进行编译。比如下面使用make all命令对文件进行编译。 若此处不进行编译，则...
网页新手30条进阶秘技 这里总结了30条网页编码的“秘技”，只要在编码过程中牢记它们，灵活运用，你一定会写出一手漂亮的代码，早日迈入专业开发者的行列。 1. 一定要闭合标签 在以往的页面源代码里，经常看到这样的语句： <li&...
[PL/SQL] 请教大家一个问题，存储过程中需要几个commit？ [PL/SQL] 请教大家一个问题，存储过程中需要几个commit？ [复制链接] yi888long 注册会员 精华贴数 0 专家积分 1 技术积分 126 社区...
SQL语句的优化： 1. 为查询缓存优化你的查询 大多数的MySQL服务器都开启了查询缓存。这是提高性最有效的方法之一，而且这是被MySQL的数据库引擎处理的。当有很多相同的查询被执行了...因为，我们某些查询语句会让MySQL不使用缓存。请
sql语句集锦
SQL语句集锦
<br /> --语 句 功 能
--数据操作
SELECT --从数据库表中检索数据行和列
INSERT --向数据库表添加新数据行
DELETE --从数据库表中删除数据行
...
IT 常用词汇（一） 搁置，将某事放到一旁不予考虑；将…搁在一边；装搁架于；罢免 vi. （陆地）逐渐倾斜 15 , stash n. 藏匿处；藏匿物 vt. 存放；贮藏 vi. 存放；藏起来 16 , proceed [pro 'sid ] vi. 开始；继续进行；发生；行进 ...
基础类 - SQL语句
基础类 - SQL语句
<br />转载请标明出处： http://blog.csdn.net/hz/archive/2006/03/01/613376.asp 本文来自 CSDN 博客。x
sql server 怎么跨库查询？
如何判断字符的大小写 ?
如何...
Python新手快速入门基础教程-语法 Python可以在同一行中使用多条语句，语句之间使用分号(;)分割，以下是一个简单的实例： #!/usr/bin/python import sys; x = 'runoob'; sys.stdout.write(x + '\n') 执行以上代码，输入结果为： $ python ...
新手小白该怎么学习Java 首先，学习java难吗？...推荐一个Java学习交流 扣扣 群 934623944每天晚上在腾讯课堂都有一个Java技术学习课,会有老师在线直播讲课,帮助大家分析解答问题欢迎你的加入。 这里再说下，初中生、高中生可不可以学习java
新手上路注意事项及驾车技巧 新手上路总则其实，每一个新手都曾经历过上路的窘迫，如果能够顺利度过最初实习期的话，将会受益终生。每一位驾驶员都经历过初次上路的忐忑不安，眼盯前方，双手紧握转向盘，身体僵直前倾，远离前车，缓慢前行，起步...
写给C语言新手的话 （转） 倒不是有偏见，而是我写的这个东西，根本不是为了考试，而是为了和新手交流怎么学习C语言，怎样编写代码的。 【如果要看，最后三条那是一定要看的。】 如果不是二级党，那么，开始： 一、 目的 我们做...
[转]30个网页新手的最佳实践 这里总结了30条网页编码的“秘技”，只要在编码过程中牢记它们，灵活运用，你一定会写出一手漂亮的代码，早日迈入专业开发者的行列。 1. 一定要闭合标签 在以往的页面源代码里，经常看到这样的语句： Some ...
C语言程序的基本结构(十分适合新手) 文章目录一、C语言基础知识的学习方法二、C语言程序开发的流程三、安装C语言的编译器四、C程序的基本结构1、程序的注释2、预处理指令3、主函数的入口4、主函数体五、编译并执行 C 程序六、知识总结七、课后作业八、...
MS-SQL Server 基础类 - SQL语句 高分请教一条SQL语句 帮我看看，怎么回事？ 查询条件为某日期变量在某段日期常量之间该怎么表达？ 记录更新的问题，帮我看看 大家来看看，如何在存储过程进行两个表TEXT字段的数据拷贝？ 请指教：行列数据翻转 如何...
新手小白该怎么学习Java，附学习路线和学习资料 在知乎上经常碰到这种问题：“我刚毕业，怎么入门java？”；“我是初中生、高中生可不可以自学java？”作为一个已经工作八年多的老鸟，我想说： ...基本的数据类型、判断语句、循环语句、面向对象以及Htm
基于java的企业人事管理系统设计--软件工程课程设计（含源码与论文设计）.rar 1 引言 4
1.1 课程设计目标 4
1.2 编程工具（编程环境）介绍 4
1.3 实施时间及主要实施步骤 4
2 需求分析 5
3 系统总体设计 6
4 数据库设计 6
5 主要功能模块的设计与实现 10
5.1 功能模块1详细设计（综合查询员工信息）..........................................................10
5.1.1 详细设计.......................................................................................................10
5.1.2 算法流程........................................................................................................15
5.1.3 界面设计及测试结果.....................................................................................15
6 调试分析 15
7 用户手册 16
8 测试结果 17
8.1 员工信息的添加...................................................................................................17
8.2 员工信息的修改...................................................................................................17
8.3 员工信息的删除...................................................................................................18
8.4 员工信息的综合查询...........................................................................................18
8.5 员工信息按性别统计的结果................................................................................19
8.6 员工信息按状态统计的结果...............................................................................19
8.7 员工信息按职称统计的结果................................................................................20
9 结论 20
10 参考文献 20
