07.02.01.集成篇（4gl集成mysql：增加多一个数据源）

本页目录

• 1、tiptop服务器安装mysql客户端
• 2、tiptop配置
• 3、测试

---

tiptop服务器安装mysql客户端

下载mysql

• mysql官网下载：https://dev.mysql.com/downloads/mysql/

# 安装前查看tiptop服务器的系统版本
# 例如,输出如下:
#LSB Version:    :base-4.0-amd64:base-4.0-noarch:core-4.0-amd64:core-4.0-noarch:graphics-h
#Distributor ID: RedHatEnterpriseServer
#Description:    Red Hat Enterprise Linux Server release 6.5 (Santiago)
#Release:        6.5
#Codename:       Santiago
lsb_release -a

安装mysql

#将下载好的文件上传到tiptop服务器
#安装
su root
rpm -ivh mysql-community-*

# 检查是否安装成功
# 安装成功后会输出版本：mysql  Ver 14.14 Distrib 5.1.73, for redhat-linux-gnu (x86_64) using readline 5.1
mysql --version

# 测试连接mysql数据库
# 能连表示成功
mysql -h xxx.xxx.xxx -P3306 -uhjwms -p****

tiptop配置

vi /u1/genero/fgl/etc/fglprofile.prod

• 添加内容

# schema 自定义命名
dbi.database.blwms.source= "数据库名称@IP地址"
dbi.database.blwms.driver= "dbmmys51x"
dbi.database.blwms.schema= "blwms"
dbi.database.blwms.username= "账号"
dbi.database.blwms.password= "密码"

dbi.database.swwms.source= "数据库名称@IP地址"
dbi.database.swwms.driver= "dbmmys51x"
dbi.database.swwms.schema= "swwms"
dbi.database.swwms.username= "账号"
dbi.database.swwms.password= "密码"

• tiptop 2.5的driver参数

测试

• 写测试代码
• 测试程序：p_test.4gl

DATABASE ds
GLOBALS "../../config/top.global"

DEFINE g_wmsdb LIKE azp_file.azp08
DEFINE test_log    LIKE type_file.num5

# @mathodName: MAIN
# @author:xxxx
# @date:Created in 2024-05-17
# @description:主程序
MAIN
  WHENEVER ERROR CONTINUE
  CALL cl_connect_wmsdb('swwms') RETURNING  g_wmsdb
  IF cl_null(g_wmsdb) THEN
	## WMS数据库连接失败
  ELSE
	## 以下在 wms 数据库执行
      SELECT COUNT(1) INTO test_log FROM pn_package_spec
 	DISPLAY "1111111111111"
      DISPLAY test_log
	## 正常的SQL执行检查
	IF SQLCA.SQLCODE THEN
		EXIT PROGRAM	
	END IF
	DISCONNECT g_wmsdb #断开WMS的数据库
	SET connection g_dbs #转回正常TIPTOP的数据库
  END IF
END MAIN

# @mathodName: cl_connect_db
# @author:李德凯 2665252078@qq.com
# @date:Created in 2024-04-18
# @description: 连接WMS数据源
# @param l_wmsdb LIKE azp_file.azp02  匹配配置文件/u1/genero/fgl/etc/fglprofile.prod 的dbi.database.xxx
# @result: l_wmsdb
FUNCTION cl_connect_wmsdb(l_wmsdb) 
  DEFINE l_wmsdb LIKE azp_file.azp02
   SET CONNECTION l_wmsdb  # 嘗試連接現有database session
   IF SQLCA.sqlcode THEN # 沒有現有連接
      CONNECT TO l_wmsdb
      IF SQLCA.sqlcode THEN
         SET CONNECTION g_dbs
         RETURN NULL
      END IF
   END IF
  RETURN l_wmsdb
END FUNCTION

• 编译运行

r.c2 p_test
# 有输出笔数 表示成功
exe2 p_test