lQuery.ConnectionString :='DATABASEURL=Biz:\XTGLPT_SPACE\XXXT_SPACE\XXXTSJK_DATA.DATABASE';
lQuery.CommandText := 'select (max(yp_gxh)+1) as gxh '+
'from ypgyb_table where yp_ypdh='''+ypdh+''' and yp_gybc='''+gybc+''' group by yp_ypdh,yp_gybc'; 这里面的yp_gybc是数据类型