02.01.01.tiptop：组件篇（4fd+4gl 新增：单身加多一个字段）

本页目录：

• 1、需求
• 2、编写程序
• 3、测试

---

需求

• 在aimq138的单身新增一列asfq301程序的“生产数量”

编写程序

• 将4gl+4fd备份，然后下拉程序

# win系统cmd进入本地文件架
cd C:\Users\wchbl-itd042\Desktop\4gl
# 下拉文件
sftp tiptop@10.1.2.205
get /u1/topprod/tiptop/aim/4fd/aimq138.4fd
get /u1/topprod/tiptop/aim/4gl/aimq138.4gl

# 开多一个cmd窗口，用来ssh
ssh tiptop@10.1.2.205 -p 22

# 备份画面档程序
cd /u1/topprod/tiptop/aim/4fd/
cp aimq138.4fd aimq138.4fd.20230215
# 检查
ll aimq138.4fd.20230215

# 备份后台档程序
cd /u1/topprod/tiptop/aim/4gl/
cp aimq138.4gl aimq138.4gl.20230215
# 检查
ll aimq138.4gl.20230215

4fd加字段

• 因为画面档开发工具的问题，先复制4fd的版本代码保存起来(如下)，使用画面档开发工具开发画面档后保存（如下的版本会发生改变）再回写之前保存的版本。

<ManagedForm databaseName="ds" gstVersion="22800" name="Root" uid="{d5c20857-0000-4000-840a-baebc78751d5}">

• 调出属性界面

• 单身添加字段

4gl加字段

• 数据组新增字段
  
• sql加字段

画面档语言设置

• p_perlang添加简体和繁体的字段
• p_per添加字段

测试

• 上传文件

sftp tiptop@10.1.2.205
# 画面档
cd /u1/topprod/tiptop/aim/4fd/
put aimq138.4fd

# 后台程序
cd /u1/topprod/tiptop/aim/4gl/
put aimq138.4gl

• 编译

# 开多一个cmd窗口，用来ssh
ssh tiptop@10.1.2.205 -p 22

# 后台程序
cd /u1/topprod/tiptop/aim/4gl
r.c2 aimq138
# 画面档
cd /u1/topprod/tiptop/aim/4fd/
r.l2 aimq138 2 c
r.f2 aimq138 2 c

• 测试

cd /u1/topprod/tiptop/aim/4gl
exe2 aimq138