strValue = Replace(strValue.ToUpper, "$G_SITE", sysParams(0))   ‘公司
 strValue = Replace(strValue.ToUpper, "$G_HS", sysParams(5))     ‘核算体系
 strValue = Replace(strValue.ToUpper, "$G_USER_NAME", G_USER_NAME)   ‘用户
 strValue = Replace(strValue.ToUpper, "$G_USER", sysParams(1))   ‘用户
 strValue = Replace(strValue.ToUpper, "$G_YEAR", Microsoft.VisualBasic.Format(CDate(G_Main.BasicDataDS.Tables("ServerDate").Rows(0).Item(0).ToString), "yyyy"))
 strValue = Replace(strValue.ToUpper, "$G_MONTH", CInt(Microsoft.VisualBasic.Format(CDate(G_Main.BasicDataDS.Tables("ServerDate").Rows(0).Item(0).ToString), "dd")))
     strValue = Replace(strValue.ToUpper, "$G_BILL_ID", BillID)       ‘单据ID
     strValue = Replace(strValue.ToUpper, "$G_DEL_VALUE", DelValue)       ‘删除值

Sql全局变量