fmx121586-优快云博客

原创 T100 ERP 开发说明(二)

一般程序开发流程 1.主程序开发，需先登记 azzi900/azzi910 2.子程序或元件，登记于 azzi901 -->主程序或子程序使用 r.a 设定初步画面 -->spec designer 下载规格(T100设计器) -->code editor 下载程序(T100设计器) --&...

2019-08-27 12:04:10 3099

原创 T100 ERP 开发说明(一)

1.登入T100的背景訊息 DGENV： s=標準環境／c=客戶環境 CUST : 客户名称 TOPENT：企業編號(預設為99，企業編號維護作業azzi500) 切換企業：TOPENT=企業編號 TOPALM：是否啟用開發需求單(adzi800) TOPCHKOUT：是否可簽出程式2.资料库结构标准资料库:ds 暂存资料库:...

2019-08-27 11:48:53 7276

原创 SQL SERVER【2】——行转列结果加上其他列

接上篇……--二.行转列结果加上其他列--【1】行转列结果+其他列SELECT 年度,SUM(CASE(月份) WHEN 1 THEN 数量 END) "1月份",SUM(CASE(月份) WHEN 2 THEN 数量 END) "2月份",SUM(CASE(月份) WHEN 3 THEN 数量 END) "3月份",SUM(CASE(月份) WHEN 4

2012-12-10 09:01:04 3576

原创 SQL SERVER【1】——行转列

行列转换在编程中用的比较多,故稍微总结了下，具体看下面：一.创建测试数据表/*创建册数数据表【订单表】*/USE [TEST]GO/****** Object: Table [dbo].[订单表] Script Date: 12/03/2012 16:56:28 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIF

2012-12-03 17:10:45 7204

原创 ROWNUM and ROWID

select rownum,zx01,rowid,length(rowid) 长度,substr(rowid,1,6) 数据对象编号,substr(rowid,7,3) 文件编号,substr(rowid,10,6) 块编号,substr(rowid,16,6) 行编号,dbms_rowid.rowid_object(rowid) AS object_id ,dbms_rowid.

2012-12-03 14:36:11 2427

原创 TIPTOP ERP ——OS操作

OS操作创建文件夹【mkdir 目录名】创建文件【touch 文件名】删除文件【rm 文件名】复制文件夹【cp –R 源目录路径目的目录路径】重命名【mv 旧名称新名称】删除文件夹【rm –R 目录名】【rm –Rf 目录名】直接删除，小心使用修改文件访问权限【chmod 权限文件名】权限是用数字表示的修改文件所有

2012-11-21 13:23:37 4202

原创 TIPTOP ERP ——License 管理

TIPTOP ERP GP 3.0Genero的licence可以用过命令 fpi (可以看到Genero 的版本是1.33.1g)使用命令【fglWrt –a info】查看license信息, 我们可以看到这是一个有100users的临时license，将在38天后过期，届时请联系TIPTOP 使用命令【fglWrt –a info users】检查使用人数

2012-11-20 13:36:49 10436

原创 TIPTOP ERP ——创建GDC快捷方式

TIPTOP GP 3.0 Genero 1.33红框里的参数是：-aDM 意思分别是:-a 以管理员方式开启 -M 直接开启到托盘(直接最小化)点击New创建一个快捷方式，取名udm7，点击下一步编辑Connection String, 这里设置密码，OK以后点next，在Host上输入目标主机的IP，点击Finish完成配置, 可以打开GDC

2012-11-20 11:58:04 6734

转载 oracle中常用表和视图

dba_开头 dba_users 数据库用户信息 dba_segments 表段信息 dba_extents 数据区信息 dba_objects 数据库对象信息 dba_tablespaces 数据库表空间信息 dba_data_files 数据文件设置信息

2012-11-14 13:43:18 2014

原创 DIALOG.setCellAttributes方法

TPTOP ERP GP 3.0 测试【DEMO源码下载：GP5.2——单身高亮显示demo.rar】#################################################################### 说明：# 1. 本程序展现：显示单元格内字体颜色 # 2. 主要应用了DIALOG.setCellAttributes方

2012-11-13 11:29:03 4294

原创 HTML报表

#20121108 BY FMX LET l_sql01 = " SELECT '[1]',qcgg02, tc_qcj031||tc_qcj03,tc_qcj04,tc_qcj032,TRIM(tc_qcj05) ,tc_qcj051,tc_qcj052, WM_CONCAT(DECODE(QCGG04,'1', (CASE INSTR(qcgg06,'.',1,1)

2012-11-08 12:47:04 5599 1

原创记录跟踪日志【r.r2d】

TIPTOP ERP系统 GP 3.0 记录跟踪日志[r.r2d] Debug命令r.d2+此命令用得比较多，不详细介绍，可以参考技术手册r.r2d使用方法：r.r2d cooc200执行效果同r.r2 cooc200一样，同样可以开启此程序。不同之处就是在相应目录下会产生一个cooc200.log的文件,如下图所示：文件说明：在.log的文件里面会

2012-11-05 08:52:13 4003

原创变态的报表——TIPTOP 报表

此报表是利用 4GL+HTML 打印出来的。效果如下：用过TIPTOP的人都知道，特别的TIPTOP的低版本，报表很挫，对于有格子的报表很难弄。高版本用的CR就不说了。废话不多说，直接看下图：（问题：小于零的数值型数据转换成字符型的时候前面的零自动没有了）SQL没改之前的预览效果（预览效果一）：LET l_sql = " SELECT qcgg02, tc_qcj

2012-10-25 10:23:22 6657 2

转载 [转]爆笑程序员的笑话集锦

1、栈和队列的区别是啥？吃多了拉就是队列；吃多了吐就是栈2、世界上最遥远的距离不是生与死，而是你亲手制造的BUG就在你眼前，你却怎么都找不到她。。。3、《c++程序设计语言》比《c程序设计语言》厚了几倍。。。果然有了对象就麻烦很多。。。4、怎么使用面向对象的方式变得富有？继承。5、为什么程序员总是分不清万圣节和圣诞节？因为 Oct 31 == Dec 25。6、Keyboar

2012-10-19 09:03:32 3139

转载做程序员二十年的经验总结 [转载]

了解我的人可能以为我在说谎，怎么会有二十年的程序员经历呢，难道你穿越了？我哪有穿越啊，只是我喜欢并认真向前辈们学习，积累了胜过几十载的经验罢了。优快云、ChinaUnix博文、论坛的帖子我都是一路看到底，比如《当程序员那些狗日的日子》、《菜鸟飞啊飞》、《程序员、DBA、SEO等的对比》，什么人没有？什么样的经历没有？很多道理我本人是懂了，前不久一个小事件让我觉得，大家懂才是真的懂，大家好

2012-10-12 09:23:33 2243

转载【第20天】打破冷场，避免话不投机

正文打破冷场，避免话不投机交谈过程中，由于话不投机或不善表达，常常会导致冷场，这是非常令人窘迫的情况。打破冷场的最佳办法，就是寻找一个新的话题，转移大家的注意力。有人作了分析，认为在以下几种情况下，最容易因“话不投机”而出现冷场。 1．彼此是陌生人，不大相识。 2．谈话者的年龄、职业、身份、地位差异大。 3．兴趣、爱好、性格、素质差异大。

2012-10-11 08:30:59 3341

原创 Linux 上建立使用者(useradd指令)

以root账号新建user账号，命令为useradd：useradd -d /u1/usr/topgui -s 存放 Shell 的目录 -g tiptop –p 新使用者的密码新使用者的账号【-d /u1/usr/topgui 】每个 USER 都指向这个目录，执行同一个 .profile 档，以方便管理详细看下图所示：目前使用者所使用的ksh是tiptop

2012-10-10 10:43:36 3374

转载【第19天】内涵深厚才能妙语连珠

正文内涵深厚才能妙语连珠总有一些人抱怨自己没有天生的好口才，和别人在一起总是无话可说。其实，口才并不是天生的，是要有足够的底蕴作为基础的。苏秦是我国战国时期一位有名的纵横家，他就是依靠自己的口才为各国的君主出谋划策。但是，苏秦并不是一开始就是成功的。他曾经拜师鬼谷子，学成出师之后，他先后去游说过周王、秦王，但是都失败了。随后，苏秦很落魄地回到了家里，受到了亲戚朋友，甚至包

2012-10-10 08:51:36 3331

原创在sql2008上面建立dblink

在sql2008上面建立dblink一.建立oracle的链接服务器1.首先电脑上应该安装有oracle的客户端，并能连接到服务器 (因为这里是TIPTOP ERP系统+oracle数据库，所以电脑上oracle的安装就先忽略)2.在sql server2008的Management Stadio 中——链接服务器——新建链接服务器3.在新建对话框"常规"选项卡里面:

2012-10-09 11:43:38 14899 1

转载【第18天】善于发掘“共鸣”话题

正文善于发掘“共鸣”话题与人交谈时，如果话题处理得不好，就会导致四目相对，局促无言。而如果能找到彼此的共鸣点，找到双方都感兴趣的话题，就能顺利地打开话匣子，畅所欲言。寻找共同话题的最大困难就在于不了解对方，因此同他人交谈首先要解决好的问题便是尽快熟悉对方。我们可以通过观察获得很多信息，对方的发型、服饰、说话时的声调及举止等等，都可以给你提供了解对方的线索，从中看到他的爱好

2012-10-09 08:15:51 2459

原创动态设置单身栏位名

首先看图：三个月的日期分别显示到三个页签上，当前月份10月代码：##定义全局数组变量，长度31，因一个月最多31天DEFINE g_month_day ARRAY[31] OF VARCHAR(1000)DEFINE g_month_day2 ARRAY[31] OF VARCHAR(1000)DEFINE g_month_day3 ARRAY[31] OF

2012-10-08 15:55:32 2733

原创 EXCEL数据导入TIPTOP ERP 系统

测试系统TIPTOP GP 3.0主要用到DDE API函数描述DDEConnectThis function opens a DDE connectionDDEExecuteThis function executes a command in the specified programDDEFinishThis fun

2012-10-08 14:35:43 9169

转载【第17天】丰富的阅历使话题源源不断

正文丰富的阅历使话题源源不断世事洞明皆学问，人情练达即文章。丰富的人生阅历是话题富足的根源，由自身体验得出的话题最具有魅力，而且取之不尽，用之不竭。所以，想要积累谈资，就要不断地拓展视野、增长见闻，丰富自己的生活经历。当一个人就某个话题表述自己的看法的时候，往往总是首先在他已有的人生阅历的材料储备中去寻找和发现可供选用的内容，把它编入话题。自己亲身经历过的事情，往往感受最

2012-10-08 08:08:57 2340

原创 4gl数字金额转大写汉字金额

首先看张效果图：注意底色部分实现函数代码：FUNCTION F_CONV_GB(pf_money)DEFINE pf_money DECIMAL(14,2)DEFINE ll_money INTEGERDEFINE i SMALLINTDEFINE li_bit SMALLINTDEFINE li_length SMAL

2012-09-29 13:33:30 2158

转载【第16天】“提问法”的话题展开法

正文 “提问法”的话题展开法巧妙的问题可以激起谈话者的兴致，打开对方的话题闸门。当聊天人数比较多时，还可以用猜谜、脑筋急转弯等富有趣味的提问方式，来活跃现场气氛。通过一些简单的提问就可以“撬开”对方的嘴巴，引出新的话题，例如：甲：您在什么地方工作？乙：在南京一家单位工作，现在来这里出差。甲：南京不错啊，好山好水，还有很多美食。

2012-09-29 08:22:30 2382

转载【第15天】高明的承接技巧让谈话高潮迭起

正文高明的承接技巧让谈话高潮迭起谈话就像是打羽毛球，如果不懂得如何接住对方打过来的球，就没办法让游戏继续进行，如果接球不顺利，就会让双方很扫兴。同样，谈话时，不懂得如何承接对方的话题，就会让谈话难以继续进行下去，出现“卡壳”的情况。拥有高明的承接技巧，可以使聊天的气氛达到高潮，使谈资源源不断，使双方兴致高涨。一次朋友聚会，小如和小军聊起“花卉”的话题。小如是一个爱花之人，不

2012-09-28 08:33:34 2477

原创用户权限管理模块【表结构及SQL语句】

tb_user：用户帐户信息表列名数据类型允许空说明UserNamenvarchar(128)N用户IDPasswordnvarchar(128)N登录名，用户EmailEmailnvarchar(100)Y密码Questionnvarchar(100)Y重置密码的问题

2012-09-27 16:08:20 16259

原创用户角色权限设计思路

用户角色管理作为每个管理系统所必备的模块，也是每个系统的基础模块。网上有很多都称作通用权限管理系统，真的就通用么？不一定吧，个人认为不管通用与不通用，能满足自己系统的需求就OK了。废话不多说下面是一个用户角色权限设计思路：不同职责的人员，对于系统操作的权限应该是不同;可以对“组”进行权限分配;权限管理系统应该是可扩展的;满足业务系统中的功能权限

2012-09-27 15:46:53 11735 1

原创 4GL COMBOX动态绑定内容

一般的COMBOX我们一般的是直接在per里面写item属性，如下代码： COMBOBOX tc_qcjj08 = FORMONLY.tc_qcjj08,COMMENTS ='Enter 0 1 2 4 8 12 ', ITEMS=(("0","每批/次"),("1","1H/次"),

2012-09-27 14:56:15 3089

转载【第14天】读书破万卷，开口如有神

正文读书破万卷，开口如有神一个胸无点墨的人，是不能做到在谈话中应对自如、侃侃而谈的。工欲善其事，必先利其器。这是一句非常实用的老话，想和任何人都能愉快、顺畅地交谈，就必须具备广博的知识。书本是增长知识的重要工具，即使是最伟大的口才家，也要借助阅读来丰富谈话内容。每天都能做到多读书、多看报，就能了解世界的动向、国内的情形、科学界的新发明和新发现、艺术新作、娱乐信息、影视作品

2012-09-27 08:54:26 3155

原创 TIPTOP ERP 用户密码修改

由于TIPTOP ERP 用户更改口令不是很方便，所以写了个程序用来更改用户口令(按理来说不是自己亲自写的，是从别人那里要来改过后的，好东西总是要共享的嘛)以前的修改界面如下：【输入的内容是看不到的，造成用户有时候不知所措】运行p_pw界面及操作如下:程序信息如下：(per文件与4gl文件)**************************************

2012-09-26 14:11:04 8962

转载【第13天】让谈资无处不在——充实你的口才资本

正文让谈资无处不在——充实你的口才资本如果你能做到和任何人都能谈上十分钟，并且使对方对你所说的内容发生兴趣，你便是一个非常好的交际人物了。和各种阶层、各种性格的人都能侃侃而谈，不是一件容易的事情。很多人常常因为对于对方的事业毫无认识而默然相对，这是非常失败的交谈。想要改变这种尴尬的局面，就要学会充实谈资。只有不断充实口才资本，才能面对任何人都应对自如。用知识“武装”口才

2012-09-26 08:48:41 3210

转载【第12天】口才模板

正文口才模板安慰别人的最佳方式： 1．当别人失恋时——“分手总是让人难过的，但是往事如烟，忘掉不开心的事情，开始新的生活吧！” 2．当别人的亲人去世时——“听到这个消息，我也感到非常难过，能为你做些什么吗？” 3．当别人失业时——“塞翁失马，焉知非福。一定还有更好的机会等着你，不要气馁。好好为未来打算一下吧。” 赞美别人的最佳方式：

2012-09-25 08:32:04 2563

原创 4GL算法【列举法-百钱买百鸡，递归法-小猴吃枣】

1. 滴水不漏——列举法破解难题示例：百钱买百鸡公鸡3元每只，母鸡5元每只，小鸡1元3只，一百元钱买一百只鸡。请求出公鸡，母鸡和小鸡的数目?编程简析：我们做最极端的假设，公鸡可能是0-100，母鸡也可能是0-100，小鸡还可能是0-100，将这三种情况用循环套起来，那就是1000000种情况。这就是列举法。为了将题目再简化一下，我们还可以对上述题目进行一下优化处理：假设

2012-09-24 12:52:52 4610

转载【第11天】得饶人处且饶人，不咄咄逼人

正文得饶人处且饶人，不咄咄逼人有一些能言善辩的人，为了显示自己的口才有多么了得，在和他人交谈时，他们常常尖酸刻薄、咄咄逼人，带有挑衅意味这些人不懂人际关系的维护，目中无人，争强好胜。卡耐基对此说：“你可能赢了辩论，可是你却输了人缘。”任何咄咄逼人的话语都是带有攻击性的，会让对方感觉不舒服，阻挡了正常的开放式的交流，并且引发不必要的争吵。公共汽车上人多，一个年轻小伙子不小

2012-09-24 08:12:35 1524

转载【第10天】避免不必要的争论

正文避免不必要的争论有这样一句话：“当两个人总是意见相同的时候，其中一个人就不需要了。确实如此，由于人们的成长环境不同、阅历不同、学识不同，在对待同一个问题时，就会出现意见相左、观点不一的情况。当意见不一致时，有些人往往喜欢固执己见、坚持自我；有些人喜欢争论到底，非要辨出谁是谁非。这样只能产生不必要的争论，导致矛盾扩大化。面对不同的意见时，要坦然接

2012-09-23 08:14:59 2558

转载【第9天】道歉不仅仅是认错

正文道歉不仅仅是认错（1） “人非圣贤，孰能无过”。平常生活中，与人交往时，谁都难免说错话、做错事。这不仅会得罪人，有时还会伤害别人的心灵，甚至给别人造成经济上的巨大损失。这时，要做的事情就是坦白地承认错误。若是能及时认识到自己的错误，诚恳地向别人道歉，并主动承担责任，一般情况下，会平息事态，并且总是能得到别人原谅的。正像孙子所说：“过也，人皆见之；更也，人皆仰之。” 有时候

2012-09-22 09:59:43 2383

原创系统单据编号的几种实现方法

系统单据编号介绍：直接调用系统函数：(模组名，单号，单据日期，单据性质，表名，栏位名……)CALL s_auto_assign_no("aco",g_cno.cno01,g_cno.cno02,"14","cno_file","cno01","","","")RETURNING li_result,g_cno.cno01简单的一句SQL语句实现编号,主要单别+日期年月日+时间时

2012-09-22 09:23:02 7641

最近不知道怎么了，老是会想起一些过去的事，想想时间过得真快，从学校到工作，首先工作也换过不少，不知道是心高气傲还是怎么的，到头来还是什么都木有，其实都一样，关键是什么心态去面对。话是不错，但是人都希望更好。现在这工作也不是啥好工作，可以说是垃圾，每周六天，天天八点到五六点，中午四十分钟吃饭，天天进办公室都有一种不干的冲动，好讨厌现在这个工作。有时候在想自己是不是入错了行？我真的适合这个工作吗？这是

2012-09-21 23:36:01 1309 2

原创 TIPTOP JavaMail邮件通知功能

系统 TIPTOP GP 3.0对于一些需要审核的单据，可以采用【邮件通知】的功能，知会审核人，详细介绍如下：将发送邮件的处理写成一个共享函数，以便调用***************************************************************************************************目录：/u1/topprod/t

2012-09-21 14:47:25 4322 1

云终端企业解决方案

11个震撼的javascript后台界面设计效果

4GL与web网站数据通信

边用边学JavaScript

空空如也