写维护页面重复逻辑写烦了,连页面的增、删、改、查、弹窗等代码都不行手写了,为此做成代码生成器成型版1.0.干到10点。。。
代码:
Class Demo.CodeGener Extends %RegisteredObject
{/// 生成操作表相关的代码,包括M、C#调用代码、界面增删改查代码、实体代码
/// 编码格式改WriteLineWithCode
/// TableName:表名
/// PathAdd:生成路径,默认D
/// MPath:M前缀,默认LIS.WS.BLL
/// AshxDir:ashx文件要放的路径,默认lis
/// w ##class(Demo.CodeGener).MakeOperTableCode("SYS_TableEnum")
/// w ##class(Demo.CodeGener).MakeOperTableCode("RP_VisitNumber")
ClassMethod MakeOperTableCode(TableName, PathAdd, MPath, AshxDir)
{s TableName=$g(TableName)s PathAdd=$g(PathAdd)s MPath=$g(MPath)s AshxDir=$g(AshxDir)//构造增删改查Mw ..MakeTableCUIDQCode(TableName, PathAdd, MPath, AshxDir),!//构造C#调用代码w ..MakeTableCSharpCallCode(TableName, PathAdd, MPath, AshxDir),!//构造aspx页面代码w ..MakeAspxCode(TableName, PathAdd, MPath, AshxDir),!//构造实体代码w ..MakeModelCode(TableName, PathAdd),!q "完成"
}/// 构造表的增删改查M类代码,以简化常规表M代码和C#调用代码工作量
/// 编码格式改WriteLineWithCode
/// w ##class(Demo.CodeGener).MakeTableCUIDQCode("SYS_TableEnum")
/// w ##class(Demo.CodeGener).MakeTableCUIDQCode("RP_VisitNumber")
ClassMethod MakeTableCUIDQCode(TableName, PathAdd, MPath, AshxDir)
{s TableName=$g(TableName)s PathAdd=$g(PathAdd)s MPath=$g(MPath)s AshxDir=$g(AshxDir)i '$l(MPath) s MPath="LIS.WS.BLL"i '$l(AshxDir) s AshxDir="lis"s ClassName=$tr(TableName,"_")s rset = ##class(%ResultSet).%New()d rset.Prepare("select COLUMN_NAME,DATA_TYPE,CHARACTER_MAXIMUM_LENGTH,DESCRIPTION,IS_NULLABLE FROM information_schema.COLUMNS WHERE TABLE_SCHEMA='dbo' and TABLE_NAME='"_TableName_"'")s exeret=rset.Execute()s colCount=rset.GetColumnCount()Set repid=$I(^CacheTemp)k ^TMP($zn,repid,$j)s IsLinux=1s logpath=""i ##class(%SYSTEM.Version).GetOS()="Windows" s IsLinux=0//默认路径i '$l(logpath) d.i IsLinux=0 d..s logpath="D:\".e d..s logpath="/"s logName=logpath_PathAdd_MPath_".DHC"_$tr(TableName,"_")_".cls"//方法名,查询名s TableInnerName=$tr(TableName,"_")//不存在目录就创建i '##class(%File).DirectoryExists(logpath_PathAdd) d.d ##class(%File).CreateNewDir(logpath_PathAdd,"")s file=##class(%File).%New(logName)//存在就追加i ##class(%File).Exists(logName) d.d ##class(%File).Delete(logName).d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")//不存在就新建e d.d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")//写类头部d ..WriteLineWithCode(file,"///"_TableName_"操作类,由工具生成,返回空串保存成功,否则就是返回失败原因")d ..WriteLineWithCode(file,"Class "_MPath_".DHC"_$tr(TableName,"_")_" Extends %RegisteredObject")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file,"///"_$zd($h,8))d ..WriteLineWithCode(file,"///保存数据,多列以$CSP$分割")d ..WriteLineWithCode(file,"///w ##Class("_MPath_".DHC"_TableInnerName_").Save"_TableInnerName_"MTHD("""")")d ..WriteLineWithCode(file,"///"_TableInnerName)d ..WriteLineWithCode(file,"ClassMethod Save"_TableInnerName_"MTHD(SaveStr As %String(MAXLEN=99999999), P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," s SaveStr=$g(SaveStr)")d ..WriteLineWithCode(file," s Sessions=$g(Sessions)")d ..WriteLineWithCode(file," s UserDR=$p(Sessions,""^"",1)")d ..WriteLineWithCode(file," s WorkGroupDR=$p(Sessions,""^"",2)")d ..WriteLineWithCode(file," s HospitalDR=$p(Sessions,""^"",5)")d ..WriteLineWithCode(file," s sp=""$CSP$""")d ..WriteLineWithCode(file," //得到主键,为空就插入数据,否则就更新数据")d ..WriteLineWithCode(file," s RowID=$p(SaveStr,sp,1)")d ..WriteLineWithCode(file," s SaveObj=""""")d ..WriteLineWithCode(file," i '$l(RowID) d")d ..WriteLineWithCode(file," .s SaveObj=##Class(dbo."_TableInnerName_").%New()")d ..WriteLineWithCode(file," e d")d ..WriteLineWithCode(file," .s SaveObj=##Class(dbo."_TableInnerName_").%OpenId(RowID)")s Index=0s RowSpec="RowID"While(rset.Next()){s outStr=""s colField=rset.GetColumnName(1)s colName=rset.GetDataByName(colField)s colField1=rset.GetColumnName(2)s colType=rset.GetDataByName(colField1)s colField2=rset.GetColumnName(3)s colLen=rset.GetDataByName(colField2)s colField3=rset.GetColumnName(4)s colDesc=rset.GetDataByName(colField3)s Index=Index+1i colName="RowID" continues RowSpec=RowSpec_","_colNamed ..WriteLineWithCode(file," s SaveObj."_colName_"=$p(SaveStr,sp,"_Index_")")}d ..WriteLineWithCode(file," s sc=SaveObj.%Save()")d ..WriteLineWithCode(file," i ('$SYSTEM.Status.IsOK(sc)) d")d ..WriteLineWithCode(file," .THROW ##class(%Exception.SystemException).%New(""事务委托"",""D"",,""-1^保存"_TableInnerName_"失败:""_$SYSTEM.Status.GetErrorText(sc))")d ..WriteLineWithCode(file," q """"")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")//构造删除数据代码d ..WriteLineWithCode(file,"///"_$zd($h,8))d ..WriteLineWithCode(file,"///删除数据,多个RowID以上尖号分割,返回空成功,非空为失败原因")d ..WriteLineWithCode(file,"///w ##Class("_MPath_".DHC"_TableInnerName_").Delete"_TableInnerName_"MTHD(1030,"""","""","""","""","""","""","""","""","""","""","""","""","""","""")")d ..WriteLineWithCode(file,"///"_TableInnerName)d ..WriteLineWithCode(file,"ClassMethod Delete"_TableInnerName_"MTHD(RowIDS As %String(MAXLEN=99999999), P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," s RowIDS=$g(RowIDS)")d ..WriteLineWithCode(file," s Sessions=$g(Sessions)")d ..WriteLineWithCode(file," //托管事务删除数据")d ..WriteLineWithCode(file," q ##Class(LIS.WS.DHCLISServiceBase).DeclarativeTrans(""LIS.WS.BLL.DHC"_TableInnerName_""",""Delete"_TableInnerName_"Do"",RowIDS, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions)")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"///"_$zd($h,8))d ..WriteLineWithCode(file,"///删除数据,多个RowID以上尖号分割")d ..WriteLineWithCode(file,"///w ##Class("_MPath_".DHC"_TableInnerName_").Delete"_TableInnerName_"Do(1030)")d ..WriteLineWithCode(file,"///"_TableInnerName)d ..WriteLineWithCode(file,"ClassMethod Delete"_TableInnerName_"Do(RowIDS As %String(MAXLEN=99999999), P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," s RowIDS=$g(RowIDS)")d ..WriteLineWithCode(file," s Sessions=$g(Sessions)")d ..WriteLineWithCode(file," s Sessions=$g(Sessions)")d ..WriteLineWithCode(file," s UserDR=$p(Sessions,""^"",1)")d ..WriteLineWithCode(file," s WorkGroupDR=$p(Sessions,""^"",2)")d ..WriteLineWithCode(file," s HospitalDR=$p(Sessions,""^"",5)")d ..WriteLineWithCode(file," f i=1:1:$l(RowIDS,""^"") d")d ..WriteLineWithCode(file," .s RowID=$p(RowIDS,""^"",i)")d ..WriteLineWithCode(file," .s sc=##Class(dbo."_TableInnerName_").%DeleteId(RowID)")d ..WriteLineWithCode(file," .i ('$SYSTEM.Status.IsOK(sc)) d")d ..WriteLineWithCode(file," ..THROW ##class(%Exception.SystemException).%New(""事务委托"",""D"",,""-1^删除"_TableInnerName_"失败:""_$SYSTEM.Status.GetErrorText(sc))")d ..WriteLineWithCode(file," q """"")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")//构造查询代码d ..WriteLineWithCode(file,"///"_$zd($h,8))d ..WriteLineWithCode(file,"///查询数据,查询条件自己改")d ..WriteLineWithCode(file,"///"_TableInnerName)d ..WriteLineWithCode(file,"Query Qry"_TableInnerName_"(Filter, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, PageSize, PageIndex, Sessions, Output RowCount As %String) As %Query")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"/// 构造输出列")d ..WriteLineWithCode(file,"ClassMethod Qry"_TableInnerName_"GetInfo(ByRef colinfo As %List, ByRef parminfo As %List, ByRef idinfo As %List, ByRef qHandle As %Binary, extoption As %Integer = 0, extinfo As %List) As %Status")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," Set RowSpec=$LIST(qHandle,4)")d ..WriteLineWithCode(file," f i=1:1:$l(RowSpec,"","") d")d ..WriteLineWithCode(file," .s OneCol=$p(RowSpec,"","",i)")d ..WriteLineWithCode(file," .s OneColType=$p(OneCol,"":"",2)")d ..WriteLineWithCode(file," .s OneCol=$p(OneCol,"":"",1)")d ..WriteLineWithCode(file," .i i=1 s colinfo=$lb($lb(OneCol,OneColType))")d ..WriteLineWithCode(file," .e s colinfo=colinfo_$lb($lb(OneCol,OneColType))")d ..WriteLineWithCode(file," s parminfo = """"")d ..WriteLineWithCode(file," s idinfo = """"")d ..WriteLineWithCode(file," q $$$OK")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"/// 在Execute控制RowSpec输出列")d ..WriteLineWithCode(file,"/// Query的执行方法")d ..WriteLineWithCode(file,"/// d ##class(%ResultSet).RunQuery("""_""_MPath_".DHC"_TableInnerName_""",""Qry"_TableInnerName_""","""","""","""","""","""","""","""","""","""","""","""","""","""","""","""","""")")d ..WriteLineWithCode(file,"ClassMethod Qry"_TableInnerName_"Execute(ByRef qHandle As %Binary, Filter, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, PageSize, PageIndex, Sessions, Output RowCount As %String) As %Status")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," s Filter=$g(Filter)")d ..WriteLineWithCode(file," s IsPer=0")d ..WriteLineWithCode(file," //指定输出列,和RowSpec保存一致,冒号指定类型")d ..WriteLineWithCode(file," s RowSpec="""_RowSpec_"""")d ..WriteLineWithCode(file," //得到repid和初始化ind")d ..WriteLineWithCode(file," Set ColFields = """_RowSpec_"""")d ..WriteLineWithCode(file," Set repid=$I(^CacheTemp)")d ..WriteLineWithCode(file," If $Get(ind)="""" Set ind=1")d ..WriteLineWithCode(file," //输出数据逻辑,这段逻辑可以动态改RowSpec控制输出列")d ..WriteLineWithCode(file," s RowID="""" f s RowID=$o(^dbo."_TableInnerName_"I(""PK"_$zcvt(TableInnerName,"U")_""",RowID)) q:RowID="""" d")d ..WriteLineWithCode(file," .d OutPutRow")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //第4个参数不可少")d ..WriteLineWithCode(file," Set qHandle=$lb(0,repid,0,RowSpec)")d ..WriteLineWithCode(file," Quit $$$OK")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"OutPutRow")d ..WriteLineWithCode(file," s OneRowData=$g(^dbo."_TableInnerName_"D(RowID))")f i=2:1:$l(RowSpec,",") d.s OneName=$p(RowSpec,",",i).d ..WriteLineWithCode(file," s "_OneName_"=$lg(OneRowData,"_i_")").d ..WriteLineWithCode(file," i $l(Filter),"_OneName_"[Filter s IsPer=1")d ..WriteLineWithCode(file," i $l(Filter),(IsPer=0) q")d ..WriteLineWithCode(file," s Data = $lb("_RowSpec_")")d ..WriteLineWithCode(file," Set ^CacheTemp(repid,ind)=##Class(LIS.Util.Common).TransListNull(Data,ColFields)")d ..WriteLineWithCode(file," Set ind=ind+1")d ..WriteLineWithCode(file," q")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"ClassMethod Qry"_TableInnerName_"Close(ByRef qHandle As %Binary) As %Status [ PlaceAfter = Qry"_TableInnerName_"Execute ]")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," Set repid=$LIST(qHandle,2)")d ..WriteLineWithCode(file," Kill ^CacheTemp(repid)")d ..WriteLineWithCode(file," Quit $$$OK")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"ClassMethod Qry"_TableInnerName_"Fetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = Qry"_TableInnerName_"Execute ]")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," Set AtEnd=$LIST(qHandle,1)")d ..WriteLineWithCode(file," Set repid=$LIST(qHandle,2)")d ..WriteLineWithCode(file," Set ind=$LIST(qHandle,3)")d ..WriteLineWithCode(file," Set ind=$o(^CacheTemp(repid,ind))")d ..WriteLineWithCode(file," If ind="""" { ")d ..WriteLineWithCode(file," Set AtEnd=1")d ..WriteLineWithCode(file," Set Row=""""")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," Else { ")d ..WriteLineWithCode(file," Set Row=^CacheTemp(repid,ind)")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," // Save QHandle")d ..WriteLineWithCode(file," s qHandle=$lb(AtEnd,repid,ind)")d ..WriteLineWithCode(file," Quit $$$OK")d ..WriteLineWithCode(file,"}")d ..WriteLineWithCode(file,"}")d file.Close()q "代码生成在:"_logName
}/// 构造表的增删改查的界面代码,以简化常规表界面代码工作量
/// 编码格式改WriteLineWithCode
/// w ##class(Demo.CodeGener).MakeAspxCode("SYS_TableEnum")
/// w ##class(Demo.CodeGener).MakeAspxCode("RP_VisitNumber")
ClassMethod MakeAspxCode(TableName, PathAdd, MPath, AshxDir)
{s TableName=$g(TableName)s PathAdd=$g(PathAdd)s MPath=$g(MPath)s AshxDir=$g(AshxDir)i '$l(MPath) s MPath="LIS.WS.BLL"i '$l(AshxDir) s AshxDir="lis"s ClassName=$tr(TableName,"_")s ClassName=$tr(TableName,"_")s rset = ##class(%ResultSet).%New()d rset.Prepare("select COLUMN_NAME,DATA_TYPE,CHARACTER_MAXIMUM_LENGTH,DESCRIPTION,IS_NULLABLE FROM information_schema.COLUMNS WHERE TABLE_SCHEMA='dbo' and TABLE_NAME='"_TableName_"'")s exeret=rset.Execute()s colCount=rset.GetColumnCount()Set repid=$I(^CacheTemp)k ^TMP($zn,repid,$j)s IsLinux=1s logpath=""i ##class(%SYSTEM.Version).GetOS()="Windows" s IsLinux=0//默认路径i '$l(logpath) d.i IsLinux=0 d..s logpath="D:\".e d..s logpath="/"s logName=logpath_PathAdd_"frm"_$tr(TableName,"_")_".aspx"//方法名,查询名s TableInnerName=$tr(TableName,"_")//不存在目录就创建i '##class(%File).DirectoryExists(logpath_PathAdd) d.d ##class(%File).CreateNewDir(logpath_PathAdd,"")s file=##class(%File).%New(logName)//存在就追加i ##class(%File).Exists(logName) d.d ##class(%File).Delete(logName).d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")//不存在就新建e d.d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")s RowSpec="RowID"s RowLen="10"s RowRemark="主键"While(rset.Next()){s outStr=""s colField=rset.GetColumnName(1)s colName=rset.GetDataByName(colField)s colField1=rset.GetColumnName(2)s colType=rset.GetDataByName(colField1)s colField2=rset.GetColumnName(3)s colLen=rset.GetDataByName(colField2)s colField3=rset.GetColumnName(4)s colDesc=rset.GetDataByName(colField3)s colField4=rset.GetColumnName(5)s NULLABLE=rset.GetDataByName(colField4)i colName="RowID" continues RowSpec=RowSpec_","_colNames type=colTypei colType="integer" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"i colType="bigint" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"i colType="smallint" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"i colType="tinyint" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"e i colType="varchar" d.s type="string"e i colType="bit" d.s type="bool".s colLen=1.i NULLABLE="YES" d..s type=type_"?"e i colType="double" d.s type="double".s colLen=10.i NULLABLE="YES" d..s type=type_"?"e i colType="numeric" d.s type="double".s colLen=10.i NULLABLE="YES" d..s type=type_"?"s RowLen=RowLen_","_colLens colDesc=$tr(colDesc," ")s RowRemark=RowRemark_","_colDesc}//写类头部d ..WriteLineWithCode(file,"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">")d ..WriteLineWithCode(file,"<html xmlns=""http://www.w3.org/1999/xhtml"">")d ..WriteLineWithCode(file,"<head>")d ..WriteLineWithCode(file," <meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8"" />")d ..WriteLineWithCode(file," <title>供拷贝代码使用</title>")d ..WriteLineWithCode(file," <link rel=""shortcut icon"" href=""../../resource/common/images/favicon.ico"" />")d ..WriteLineWithCode(file," <script src=""../../resource/common/js/lis-commonHISUI.js"" type=""text/javascript""></script>")d ..WriteLineWithCode(file," <script language=""javascript"" type=""text/javascript"">")d ..WriteLineWithCode(file," LISSYSPageCommonInfo.Init();")d ..WriteLineWithCode(file," var BasePath = '';")d ..WriteLineWithCode(file," var ResourcePath = '';")d ..WriteLineWithCode(file," var WebServicAddress = LISSYSPageCommonInfo.Data.WebServicAddress;")d ..WriteLineWithCode(file," var UserDR = LISSYSPageCommonInfo.Data.Sesssion.UserDR;")d ..WriteLineWithCode(file," var WorkGroupDR = LISSYSPageCommonInfo.Data.Sesssion.WorkGroupDR;")d ..WriteLineWithCode(file," var sysTheme = LISSYSPageCommonInfo.Data.Sesssion.Theme;")d ..WriteLineWithCode(file," var SessionStr = LISSYSPageCommonInfo.Data.SessionStr;")d ..WriteLineWithCode(file," </script>")d ..WriteLineWithCode(file," <script type=""text/javascript"">")d ..WriteLineWithCode(file," //全局变量")d ..WriteLineWithCode(file," var me = {")d ..WriteLineWithCode(file," actionUrl: '../ashx/ash"_TableInnerName_".ashx'")d ..WriteLineWithCode(file," };")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //jquery入口")d ..WriteLineWithCode(file," $(function () {")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //新增数据点击")d ..WriteLineWithCode(file," $(""#btnAdd"_TableInnerName_""").click(function () {")d ..WriteLineWithCode(file," $(""#txt"_TableInnerName_"RowID"").val(""""); ")d ..WriteLineWithCode(file," $('#winEdit"_TableInnerName_"').window({")d ..WriteLineWithCode(file," title: TranslateDataMTHD('Add Data', '新增数据', ''),")d ..WriteLineWithCode(file," modal: true")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //修改数据点击")d ..WriteLineWithCode(file," $(""#btnUpdate"_TableInnerName_""").click(function () {")d ..WriteLineWithCode(file," Update"_TableInnerName_"();")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //修改数据")d ..WriteLineWithCode(file," function Update"_TableInnerName_"(row)")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," var selectRow = $('#dg"_TableInnerName_"').datagrid(""getSelected"");")d ..WriteLineWithCode(file," if(row!=null)")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," selectRow=row;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," if (selectRow == null) {")d ..WriteLineWithCode(file," $.messager.alert(TranslateDataMTHD('Info', '提示', ''), TranslateDataMTHD('Please select the data to modify', '请选择要修改的数据!', ''), 'info');")d ..WriteLineWithCode(file," return;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," $(""#form"_TableInnerName_""").form('load', selectRow);")d ..WriteLineWithCode(file," $('#winEdit"_TableInnerName_"').window({")d ..WriteLineWithCode(file," title: TranslateDataMTHD('Update Data', '修改数据', ''),")d ..WriteLineWithCode(file," modal: true")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //删除数据点击")d ..WriteLineWithCode(file," $(""#btnDelete"_TableInnerName_""").click(function () {")d ..WriteLineWithCode(file," var checkRow = $('#dg"_TableInnerName_"').datagrid(""getChecked"");")d ..WriteLineWithCode(file," var selectRow = $('#dg"_TableInnerName_"').datagrid(""getSelected"");")d ..WriteLineWithCode(file," if ((checkRow == null || checkRow.length == 0)&&selectRow==null) {")d ..WriteLineWithCode(file," $.messager.alert(TranslateDataMTHD('Info', '提示', ''), TranslateDataMTHD('Please select the data to delete', '请勾选要删除的数据!', ''), 'info');")d ..WriteLineWithCode(file," return;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," if ((checkRow == null || checkRow.length == 0)) {")d ..WriteLineWithCode(file," checkRow=[selectRow];")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," var RowIDS = """";")d ..WriteLineWithCode(file," for (var i = 0; i < checkRow.length; i++) {")d ..WriteLineWithCode(file," if (i == 0) {")d ..WriteLineWithCode(file," RowIDS = checkRow[i].RowID;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," else {")d ..WriteLineWithCode(file," RowIDS += ""^"" + checkRow[i].RowID;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," $.messager.confirm(TranslateDataMTHD('Info', '提示', ''), TranslateDataMTHD('Do you want to delete the selected data', '是否要删除选择的数据?', '') , function (r) {")d ..WriteLineWithCode(file," if (r) {")d ..WriteLineWithCode(file," //开启等待")d ..WriteLineWithCode(file," $.messager.progress({ text: TranslateDataMTHD(""Deleting data"",""正在删除数据"", """"), interval: 500 });")d ..WriteLineWithCode(file," setTimeout(function () {")d ..WriteLineWithCode(file," $.messager.progress('close');")d ..WriteLineWithCode(file," }, 8000);")d ..WriteLineWithCode(file," //往后台提交数据")d ..WriteLineWithCode(file," $.ajax({")d ..WriteLineWithCode(file," type: ""post"",")d ..WriteLineWithCode(file," dataType: ""json"",")d ..WriteLineWithCode(file," cache: false, //")d ..WriteLineWithCode(file," async: true, //为true时,异步,不等待后台返回值,为false时强制等待;-asir")d ..WriteLineWithCode(file," url: me.actionUrl + '?Method=Delete"_TableInnerName_"',")d ..WriteLineWithCode(file," data: { RowIDS: RowIDS },")d ..WriteLineWithCode(file," success: function (data, status) {")d ..WriteLineWithCode(file," $.messager.progress('close');")d ..WriteLineWithCode(file," if (!FilterBackData(data)) {")d ..WriteLineWithCode(file," return;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," if (!data.IsOk) {")d ..WriteLineWithCode(file," $.messager.alert(TranslateDataMTHD(""Error message"", ""错误提示"", """"), TranslateDataMTHD(""failed to dalete data, error message:"", ""删除失败,错误信息:"", """") + data.Message);")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," else {")d ..WriteLineWithCode(file," Qry"_TableInnerName_"();")d ..WriteLineWithCode(file," $.messager.show({")d ..WriteLineWithCode(file," title: TranslateDataMTHD(""Info"", ""提示"", """"),")d ..WriteLineWithCode(file," msg: TranslateDataMTHD(""Successfully deleted!"", ""删除成功!"", """"),")d ..WriteLineWithCode(file," timeout: 500,")d ..WriteLineWithCode(file," showType: 'slide'")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //保存数据")d ..WriteLineWithCode(file," $(""#btnSave"_TableInnerName_""").click(function () {")d ..WriteLineWithCode(file," var saveData = jQuery.parseJSON($(""#form"_TableInnerName_""").serializeObject());")d ..WriteLineWithCode(file," //开启等待")d ..WriteLineWithCode(file," $.messager.progress({ text: TranslateDataMTHD(""Saving data"",""正在保存数据"", """"), interval: 500 });")d ..WriteLineWithCode(file," setTimeout(function () {")d ..WriteLineWithCode(file," $.messager.progress('close');")d ..WriteLineWithCode(file," }, 8000);")d ..WriteLineWithCode(file," //往后台提交数据")d ..WriteLineWithCode(file," $.ajax({")d ..WriteLineWithCode(file," type: ""post"",")d ..WriteLineWithCode(file," dataType: ""json"",")d ..WriteLineWithCode(file," cache: false, //")d ..WriteLineWithCode(file," async: true, //为true时,异步,不等待后台返回值,为false时强制等待;-asir")d ..WriteLineWithCode(file," url: me.actionUrl + '?Method=Save"_TableInnerName_"',")d ..WriteLineWithCode(file," data: saveData,")d ..WriteLineWithCode(file," success: function (data, status) {")d ..WriteLineWithCode(file," $.messager.progress('close');")d ..WriteLineWithCode(file," if (!FilterBackData(data)) {")d ..WriteLineWithCode(file," return;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," if (!data.IsOk) {")d ..WriteLineWithCode(file," $.messager.alert(TranslateDataMTHD(""Error message"", ""错误提示"", """"), TranslateDataMTHD(""failed to dalete data, error message:"", ""删除失败,错误信息:"", """") + data.Message);")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," else {")d ..WriteLineWithCode(file," Qry"_TableInnerName_"();")d ..WriteLineWithCode(file," $.messager.show({")d ..WriteLineWithCode(file," title: TranslateDataMTHD(""Info"", ""提示"", """"),")d ..WriteLineWithCode(file," msg: TranslateDataMTHD(""Successfully saveed!"", ""保存成功!"", """"),")d ..WriteLineWithCode(file," timeout: 500,")d ..WriteLineWithCode(file," showType: 'slide'")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," $('#winEdit"_TableInnerName_"').window(""close"");")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //关闭窗口")d ..WriteLineWithCode(file," $(""#btnClose"_TableInnerName_""").click(function () {")d ..WriteLineWithCode(file," $('#winEdit"_TableInnerName_"').window(""close"");")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //构造查询事件")d ..WriteLineWithCode(file," $(""#txtFilter"_TableInnerName_""").searchbox({")d ..WriteLineWithCode(file," searcher: function (value, name) {")d ..WriteLineWithCode(file," Qry"_TableInnerName_"();")d ..WriteLineWithCode(file," },")d ..WriteLineWithCode(file," prompt: TranslateDataMTHD('Enter query', '回车查询', '')")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")f i=1:1:$l(RowSpec,",") d.s colName=$p(RowSpec,",",i).s colLen=$p(RowLen,",",i).s remark=$p(RowRemark,",",i).//外键参照信息.s refInfo=..GetForeignKeyInfo(colName,TableName).//有外键.i $l(refInfo) d..d ..WriteLineWithCode(file," //"_remark_"下拉表格渲染")..d ..WriteLineWithCode(file," $('#txt"_TableInnerName_colName_"').combogrid({")..d ..WriteLineWithCode(file," panelWidth: 350,")..d ..WriteLineWithCode(file," idField: 'RowID',")..d ..WriteLineWithCode(file," textField: '"_$p(refInfo,"^",3)_"',")..d ..WriteLineWithCode(file," url: me.actionUrl + '?Method=CommonQueryView&data='+JSON.stringify({ ModelName: """_$p(refInfo,"^",1)_""", Pram: [], IsDisplayCount: false, Joiner: [], Operators: [] }),")..d ..WriteLineWithCode(file," columns: [[")..d ..WriteLineWithCode(file," { field: 'RowID', title: '主键', width: 60 },")..d ..WriteLineWithCode(file," { field: '"_$p(refInfo,"^",3)_"', title: '名称', width: 260 }")..d ..WriteLineWithCode(file," ]]")..d ..WriteLineWithCode(file," });").//没外键.e i $l(colName)>4 d..s LastName=$e(colName,$l(colName)-3,$l(colName))..i LastName="Date" d...d ..WriteLineWithCode(file," //"_remark_"日期渲染")...d ..WriteLineWithCode(file," $('#txt"_TableInnerName_colName_"').datebox({")...d ..WriteLineWithCode(file," required:false,")...d ..WriteLineWithCode(file," editable: true,")...d ..WriteLineWithCode(file," formatter: DateFormatter,")...d ..WriteLineWithCode(file," parser: DateParser")...d ..WriteLineWithCode(file," });")...d ..WriteLineWithCode(file," //设置默认日期")...d ..WriteLineWithCode(file," $('#txt"_TableInnerName_colName_"').datebox(""setValue"",GetCurentDate())")..i LastName="Time" d...d ..WriteLineWithCode(file," //"_remark_"时间渲染")...d ..WriteLineWithCode(file," $('#txt"_TableInnerName_colName_"').timespinner({")...d ..WriteLineWithCode(file," required:false,")...d ..WriteLineWithCode(file," editable: true,")...d ..WriteLineWithCode(file," showSeconds: true")...d ..WriteLineWithCode(file," });")...d ..WriteLineWithCode(file," //设置默认日期")...d ..WriteLineWithCode(file," $('#txt"_TableInnerName_colName_"').timespinner(""setValue"",GetCurentTime())")//构造表格代码d ..WriteLineWithCode(file," //"_TableInnerName_"表格")d ..WriteLineWithCode(file," $('#dg"_TableInnerName_"').datagrid({")d ..WriteLineWithCode(file," singleSelect: true,")d ..WriteLineWithCode(file," toolbar: ""#dg"_TableInnerName_"ToolBar"",")d ..WriteLineWithCode(file," fit: true,")d ..WriteLineWithCode(file," onDblClickRow: function (index, row) {")d ..WriteLineWithCode(file," Update"_TableInnerName_"(row);")d ..WriteLineWithCode(file," },")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," columns: [[")d ..WriteLineWithCode(file," { field: 'ChkFlag', title: TranslateDataMTHD('Check', '选择', ''), width: 20, sortable: true, align: 'center', checkbox: true },")f i=1:1:$l(RowSpec,",") d.s colName=$p(RowSpec,",",i).s colLen=$p(RowLen,",",i).s remark=$p(RowRemark,",",i).s endChar=",".i i=$l(RowSpec,",") s endChar="".d ..WriteLineWithCode(file," { field: '"_colName_"', title: TranslateDataMTHD('"_colName_"', '"_remark_"', '') , width: 150 }"_endChar)d ..WriteLineWithCode(file," ]]")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")//构造查询表格方法代码d ..WriteLineWithCode(file," //查询"_TableInnerName)d ..WriteLineWithCode(file," function Qry"_TableInnerName_"() {")d ..WriteLineWithCode(file," var Filter = $(""#txtFilter"_TableInnerName_""").searchbox(""getValue"");")d ..WriteLineWithCode(file," //开启等待")d ..WriteLineWithCode(file," $.messager.progress({ text: TranslateDataMTHD(""Querying data"",""正在查询数据"", """"), interval: 500 });")d ..WriteLineWithCode(file," setTimeout(function () {")d ..WriteLineWithCode(file," $.messager.progress('close');")d ..WriteLineWithCode(file," }, 8000);")d ..WriteLineWithCode(file," $.ajax({")d ..WriteLineWithCode(file," type: ""post"",")d ..WriteLineWithCode(file," dataType: ""json"",")d ..WriteLineWithCode(file," cache: false, //")d ..WriteLineWithCode(file," async: true, //为true时,异步,不等待后台返回值,为false时强制等待;-asir")d ..WriteLineWithCode(file," url: me.actionUrl + '?Method=Qry"_TableInnerName_"',")d ..WriteLineWithCode(file," data: { Filter: Filter },")d ..WriteLineWithCode(file," success: function (data, status) {")d ..WriteLineWithCode(file," //结束等待")d ..WriteLineWithCode(file," $.messager.progress('close');")d ..WriteLineWithCode(file," $('#dg"_TableInnerName_"').datagrid(""loadData"", data);")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," };")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //执行查询数据")d ..WriteLineWithCode(file," Qry"_TableInnerName_"();")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")s windowHeight=$l(RowSpec,",")*48d ..WriteLineWithCode(file," });")d ..WriteLineWithCode(file," </script>")d ..WriteLineWithCode(file,"</head>")d ..WriteLineWithCode(file,"<body>")d ..WriteLineWithCode(file," <div class=""hisui-layout"" fit=""true"" style=""border: none;"">")d ..WriteLineWithCode(file," <div data-options=""region:'center',title:''"" style=""border: none;"">")d ..WriteLineWithCode(file," <div id=""dg"_TableInnerName_"ToolBar"" style=""padding: 3px 0px 3px 10px;"">")d ..WriteLineWithCode(file," <a id=""btnAdd"_TableInnerName_""" href=""#"" class=""hisui-linkbutton"" data-options=""iconCls:'icon-add'"" plain=""true"" listranslate=""html~Add"">新增</a>")d ..WriteLineWithCode(file," <a id=""btnUpdate"_TableInnerName_""" href=""#"" class=""hisui-linkbutton"" data-options=""iconCls:'icon-write-order'"" plain=""true"" listranslate=""html~Mod"">修改</a>")d ..WriteLineWithCode(file," <a id=""btnDelete"_TableInnerName_""" href=""#"" class=""hisui-linkbutton"" data-options=""iconCls:'icon-cancel'"" plain=""true"" listranslate=""html~Del"">删除</a>")d ..WriteLineWithCode(file," <input id=""txtFilter"_TableInnerName_""" style=""margin-left: 14px; width: 240px;""></input>")d ..WriteLineWithCode(file," </div>")d ..WriteLineWithCode(file," <table id=""dg"_TableInnerName_""" title="""" iconcls=""icon-paper"" listranslate=""title~"_TableInnerName_"""></table>")d ..WriteLineWithCode(file," </div>")d ..WriteLineWithCode(file," <div id=""winEdit"_TableInnerName_""" style=""padding: 10px 0px 0px 10px;width:"_360_"px;height:"_windowHeight_"px;"">")d ..WriteLineWithCode(file," <form id=""form"_TableInnerName_""" name=""edit_form"" method=""post"">")d ..WriteLineWithCode(file," <input type=""hidden"" id=""txt"_TableInnerName_"RowID"" name=""RowID"" value=""0"" />")d ..WriteLineWithCode(file," <table>")f i=1:1:$l(RowSpec,",") d.s colName=$p(RowSpec,",",i).i colName="RowID" q.s colLen=$p(RowLen,",",i).s remark=$p(RowRemark,",",i).d ..WriteLineWithCode(file," <tr>").d ..WriteLineWithCode(file," <td class=""lisar"" listranslate=""html~"_colName_""">"_remark_"</td>").//外键参照信息.s refInfo=..GetForeignKeyInfo(colName,TableName).//有外键.i $l(refInfo) d..d ..WriteLineWithCode(file," <td class=""lisal""><input id=""txt"_TableInnerName_colName_""" type=""text"" name="""_colName_""" style=""width:200px;""/></td>").//没外键.e d..d ..WriteLineWithCode(file," <td class=""lisal""><input id=""txt"_TableInnerName_colName_""" type=""text"" name="""_colName_""" style=""width:200px;"" class=""hisui-validatebox"" maxlength="""_colLen_"""/></td>").d ..WriteLineWithCode(file," </tr>")d ..WriteLineWithCode(file," </table>")d ..WriteLineWithCode(file," <div region=""south"" border=""fale"" style=""text-align: center; padding: 5px 0 0;"">")d ..WriteLineWithCode(file," <a id=""btnSave"_TableInnerName_""" href=""#"" class=""hisui-linkbutton"" plain=""false"" listranslate=""html~Save"">保存</a>")d ..WriteLineWithCode(file," <span class=""sp6""></span>")d ..WriteLineWithCode(file," <a id=""btnClose"_TableInnerName_""" href=""#"" class=""hisui-linkbutton"" plain=""false"" listranslate=""html~Cancel"">取消</a>")d ..WriteLineWithCode(file," </div>")d ..WriteLineWithCode(file," </form>")d ..WriteLineWithCode(file," </div>")d ..WriteLineWithCode(file,"</body>")d ..WriteLineWithCode(file,"</html>")d ..WriteLineWithCode(file,"")q "代码生成在:"_logName
}/// 构造表的增删改查M类的C#调用代码,以简化常规表M代码和C#调用代码工作量
/// 编码格式改WriteLineWithCode
/// w ##class(Demo.CodeGener).MakeTableCSharpCallCode("SYS_TableEnum")
/// w ##class(Demo.CodeGener).MakeTableCSharpCallCode("RP_VisitNumber")
ClassMethod MakeTableCSharpCallCode(TableName, PathAdd, MPath, AshxDir)
{s TableName=$g(TableName)s PathAdd=$g(PathAdd)s MPath=$g(MPath)s AshxDir=$g(AshxDir)i '$l(MPath) s MPath="LIS.WS.BLL"i '$l(AshxDir) s AshxDir="lis"s ClassName=$tr(TableName,"_")s ClassName=$tr(TableName,"_")s rset = ##class(%ResultSet).%New()d rset.Prepare("select COLUMN_NAME,DATA_TYPE,CHARACTER_MAXIMUM_LENGTH,DESCRIPTION,IS_NULLABLE FROM information_schema.COLUMNS WHERE TABLE_SCHEMA='dbo' and TABLE_NAME='"_TableName_"'")s exeret=rset.Execute()s colCount=rset.GetColumnCount()Set repid=$I(^CacheTemp)k ^TMP($zn,repid,$j)s IsLinux=1s logpath=""i ##class(%SYSTEM.Version).GetOS()="Windows" s IsLinux=0//默认路径i '$l(logpath) d.i IsLinux=0 d..s logpath="D:\".e d..s logpath="/"s logName=logpath_PathAdd_"ash"_$tr(TableName,"_")_".cs"//方法名,查询名s TableInnerName=$tr(TableName,"_")//不存在目录就创建i '##class(%File).DirectoryExists(logpath_PathAdd) d.d ##class(%File).CreateNewDir(logpath_PathAdd,"")s file=##class(%File).%New(logName)//存在就追加i ##class(%File).Exists(logName) d.d ##class(%File).Delete(logName).d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")//不存在就新建e d.d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")//写类头部d ..WriteLineWithCode(file,"using System;")d ..WriteLineWithCode(file,"using System.Web;")d ..WriteLineWithCode(file,"using System.Reflection;")d ..WriteLineWithCode(file,"using System.Text;")d ..WriteLineWithCode(file,"using System.Data;")d ..WriteLineWithCode(file,"using System.Collections;")d ..WriteLineWithCode(file,"using System.Collections.Generic;")d ..WriteLineWithCode(file,"using LIS.Model.Entity;")d ..WriteLineWithCode(file,"using LIS.Model.Bussiness;")d ..WriteLineWithCode(file,"using Microsoft.AspNetCore.Http;")d ..WriteLineWithCode(file,"using iMedicalLIS;")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"///<summary NoteObject=""Class"">")d ..WriteLineWithCode(file,"/// [功能描述:"_TableInnerName_"调用类] <para/>")d ..WriteLineWithCode(file,"/// [创建者:自动生成] <para/>")d ..WriteLineWithCode(file,"/// [创建时间:"_$zd($h,8)_"] <para/>")d ..WriteLineWithCode(file,"///<说明>")d ..WriteLineWithCode(file,"/// [说明:自定义操作自己改]<para/>")d ..WriteLineWithCode(file,"///</说明>")d ..WriteLineWithCode(file,"///<修改记录>")d ..WriteLineWithCode(file,"/// [修改时间:本次修改时间]<para/>")d ..WriteLineWithCode(file,"///</summary> ")d ..WriteLineWithCode(file,"namespace UI."_AshxDir_".ashx")d ..WriteLineWithCode(file,"{")//构造保存方法d ..WriteLineWithCode(file," public class ash"_TableInnerName_" : BaseHttpHandler")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," /// <summary>")d ..WriteLineWithCode(file," /// 保存数据,多列以$CSP$分割")d ..WriteLineWithCode(file," /// </summary>")d ..WriteLineWithCode(file," /// <returns></returns>")d ..WriteLineWithCode(file," public string Save"_TableInnerName_"()")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," //调用的后台类")d ..WriteLineWithCode(file," string className = """_MPath_".DHC"_TableInnerName_""";")d ..WriteLineWithCode(file," //调用的后台方法")d ..WriteLineWithCode(file," string funcName = ""Save"_TableInnerName_"MTHD"";")d ..WriteLineWithCode(file," string SaveStr="""";")d ..WriteLineWithCode(file," string sp=""$CSP$"";")s Index=0s RowSpec="RowID"d ..WriteLineWithCode(file," string RowID=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, ""RowID""), """");")While(rset.Next()){s outStr=""s colField=rset.GetColumnName(1)s colName=rset.GetDataByName(colField)s colField1=rset.GetColumnName(2)s colType=rset.GetDataByName(colField1)s colField2=rset.GetColumnName(3)s colLen=rset.GetDataByName(colField2)s colField3=rset.GetColumnName(4)s colDesc=rset.GetDataByName(colField3)s Index=Index+1i colName="RowID" continues RowSpec=RowSpec_","_colNamed ..WriteLineWithCode(file," string "_colName_"=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, """_colName_"""), """");")}s SaveCodeStr=$REPLACE(RowSpec,",","+sp+")d ..WriteLineWithCode(file," SaveStr="_SaveCodeStr_";")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," Parameters param = new Parameters();")d ..WriteLineWithCode(file," param.P0=SaveStr;")d ..WriteLineWithCode(file," string logInfo = this.UserLogin.UserDR + ""^"" + this.UserLogin.WorkGroupDR + ""^"" + this.UserLogin.LocationDR + ""^"" + this.UserLogin.WorkGroupDR + ""^"" + this.UserLogin.HospitalDR;")d ..WriteLineWithCode(file," int rowCount;")d ..WriteLineWithCode(file," string ObjStr = LIS.DAL.DataAccess.WebManager.GetDataJSON(className, funcName, param, logInfo, false, out rowCount, out this.Err);")d ..WriteLineWithCode(file," if(ObjStr=="""")")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," return Helper.Success();")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," else")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," return Helper.Error(ObjStr);")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"") //构造删除方法d ..WriteLineWithCode(file," /// <summary>")d ..WriteLineWithCode(file," /// 删除数据,多个RowID以上尖号分割")d ..WriteLineWithCode(file," /// </summary>")d ..WriteLineWithCode(file," /// <returns></returns>")d ..WriteLineWithCode(file," public string Delete"_TableInnerName_"()")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," //调用的后台类")d ..WriteLineWithCode(file," string className = """_MPath_".DHC"_TableInnerName_""";")d ..WriteLineWithCode(file," //调用的后台方法")d ..WriteLineWithCode(file," string funcName = ""Delete"_TableInnerName_"MTHD"";")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," Parameters param = new Parameters();")d ..WriteLineWithCode(file," param.P0=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, ""RowIDS""), """");")d ..WriteLineWithCode(file," string logInfo = this.UserLogin.UserDR + ""^"" + this.UserLogin.WorkGroupDR + ""^"" + this.UserLogin.LocationDR + ""^"" + this.UserLogin.WorkGroupDR + ""^"" + this.UserLogin.HospitalDR;")d ..WriteLineWithCode(file," int rowCount;")d ..WriteLineWithCode(file," string ObjStr = LIS.DAL.DataAccess.WebManager.GetDataJSON(className, funcName, param, logInfo, false, out rowCount, out this.Err);")d ..WriteLineWithCode(file," if(ObjStr=="""")")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," return Helper.Success();")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," else")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," return Helper.Error(ObjStr);")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"") //构造查询代码d ..WriteLineWithCode(file," /// <summary>")d ..WriteLineWithCode(file," /// 查询数据")d ..WriteLineWithCode(file," /// </summary>")d ..WriteLineWithCode(file," /// <returns></returns>")d ..WriteLineWithCode(file," public string Qry"_TableInnerName_"()")d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," //调用的后台类")d ..WriteLineWithCode(file," string className = """_MPath_".DHC"_TableInnerName_""";")d ..WriteLineWithCode(file," //调用的后台方法")d ..WriteLineWithCode(file," string funcName = ""Qry"_TableInnerName_""";")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," //预留的取前台参数代码")s Index=0d ..WriteLineWithCode(file," string RowID=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, ""RowID""), """");")f i=1:1:$l(RowSpec,",") d.s colName=$p(RowSpec,",",i).i colName="RowID" q.d ..WriteLineWithCode(file," string "_colName_"=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, """_colName_"""), """");")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file," Parameters param = new Parameters();")d ..WriteLineWithCode(file," param.P0= Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, ""Filter""), """");")d ..WriteLineWithCode(file," string logInfo = this.UserLogin.UserDR + ""^"" + this.UserLogin.WorkGroupDR + ""^"" + this.UserLogin.LocationDR + ""^"" + this.UserLogin.WorkGroupDR + ""^"" + this.UserLogin.HospitalDR;")d ..WriteLineWithCode(file," int rowCount;")d ..WriteLineWithCode(file," string ObjStr = LIS.DAL.DataAccess.WebManager.GetDataJSON(className, funcName, param, logInfo, false, out rowCount, out this.Err);")d ..WriteLineWithCode(file," return ObjStr;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"") //收尾d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file,"}")d file.Close()q "代码生成在:"_logName
}/// 生成表实体代码
/// 编码格式改WriteLineWithCode
/// w ##class(Demo.CodeGener).MakeModelCode("SYS_TableEnum")
ClassMethod MakeModelCode(TableName, PathAdd)
{s TableName=$g(TableName)s PathAdd=$g(PathAdd)s ClassName=$tr(TableName,"_")s rset = ##class(%ResultSet).%New()d rset.Prepare("select COLUMN_NAME,DATA_TYPE,CHARACTER_MAXIMUM_LENGTH,DESCRIPTION,IS_NULLABLE FROM information_schema.COLUMNS WHERE TABLE_SCHEMA='dbo' and TABLE_NAME='"_TableName_"'")s exeret=rset.Execute()s colCount=rset.GetColumnCount()Set repid=$I(^CacheTemp)k ^TMP($zn,repid,$j)s IsLinux=1s logpath=""i ##class(%SYSTEM.Version).GetOS()="Windows" s IsLinux=0//默认路径i '$l(logpath) d.i IsLinux=0 d..s logpath="D:\".e d..s logpath="/"s logName=logpath_PathAdd_$tr(TableName,"_")_".cs"//不存在目录就创建i '##class(%File).DirectoryExists(logpath_PathAdd) d.d ##class(%File).CreateNewDir(logpath_PathAdd,"")s file=##class(%File).%New(logName)//存在就追加i ##class(%File).Exists(logName) d.d ##class(%File).Delete(logName).d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")//不存在就新建e d.d file.Open("WSN:/SHARED:/IOTABLE=""UTF8""")//写日志d ..WriteLineWithCode(file,"using System;")d ..WriteLineWithCode(file,"using System.Data;")d ..WriteLineWithCode(file,"using LIS.DAL.ORM.CustomAttributes;")d ..WriteLineWithCode(file,"")d ..WriteLineWithCode(file,"namespace LIS.Model.Entity")d ..WriteLineWithCode(file,"{")d ..WriteLineWithCode(file," ///<summary NoteObject=""Class"">")d ..WriteLineWithCode(file," /// [功能描述:本代码由LIS内部代码生成工具生成,请不要手动修改,如要修改,请写修改变更记录] <para/>")d ..WriteLineWithCode(file," /// [创建者:LIS.Entity生成器] <para/>")d ..WriteLineWithCode(file," /// [创建时间:"_$zd($h,8)_"] <para/>")d ..WriteLineWithCode(file," ///<说明>")d ..WriteLineWithCode(file," /// [说明:本代码由LIS内部代码生成工具生成,请不要手动修改]<para/>")d ..WriteLineWithCode(file," ///</说明>")d ..WriteLineWithCode(file," ///<修改记录>")d ..WriteLineWithCode(file," /// [修改时间:本次修改时间]<para/>")d ..WriteLineWithCode(file," /// [修改内容:本次修改内容]<para/>")d ..WriteLineWithCode(file," ///</修改记录>")d ..WriteLineWithCode(file," ///</summary>")d ..WriteLineWithCode(file," [Unique(ColNames = ""RowID"")]")d ..WriteLineWithCode(file," [Serializable]")d ..WriteLineWithCode(file," [Table(Name = ""dbo."_TableName_""")]")d ..WriteLineWithCode(file," public class "_ClassName_" : LIS.Core.Dto.BaseDto")d ..WriteLineWithCode(file," {")While(rset.Next()){s outStr=""s colField=rset.GetColumnName(1)s colName=rset.GetDataByName(colField)s colField1=rset.GetColumnName(2)s colType=rset.GetDataByName(colField1)s colField2=rset.GetColumnName(3)s colLen=rset.GetDataByName(colField2)s colField3=rset.GetColumnName(4)s colDesc=rset.GetDataByName(colField3)s colField4=rset.GetColumnName(5)s NULLABLE=rset.GetDataByName(colField4)i '$l(colDesc) s colDesc=colNamed ..WriteLineWithCode(file," /// <summary>")d ..WriteLineWithCode(file," /// "_##Class(LIS.Util.Common).DealNotSeeChar(colDesc))d ..WriteLineWithCode(file," /// </summary>")i NULLABLE="NO" d.d ..WriteLineWithCode(file," [NotNull]")i colName="RowID" d.d ..WriteLineWithCode(file," [Id(Name = ""RowID"", Strategy = GenerationType.INDENTITY)]")s type=colTypei colType="integer" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"i colType="bigint" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"i colType="smallint" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"i colType="tinyint" d.s type="int".s colLen=10.i NULLABLE="YES" d..s type=type_"?"e i colType="varchar" d.s type="string"e i colType="bit" d.s type="bool".s colLen=1.i NULLABLE="YES" d..s type=type_"?"e i colType="double" d.s type="double".s colLen=10.i NULLABLE="YES" d..s type=type_"?"e i colType="numeric" d.s type="double".s colLen=10.i NULLABLE="YES" d..s type=type_"?"//外键参照信息s refInfo=..GetForeignKeyInfo(colName,TableName)i $l(refInfo) d.d ..WriteLineWithCode(file," [Frekey(Name = """_$tr($p(refInfo,"^",1),"_")_""", RefColumnName = """_$p(refInfo,"^",2)_""", AssociaField = """_$p(refInfo,"^",3)_""")]")i $l(colLen) d.d ..WriteLineWithCode(file," [Length(MaxLen = "_colLen_")]")d ..WriteLineWithCode(file," public "_type_" "_colName)d ..WriteLineWithCode(file," {")d ..WriteLineWithCode(file," get;")d ..WriteLineWithCode(file," set;")d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file,"")zw colNamezw colTypezw colLen}d ..WriteLineWithCode(file," }")d ..WriteLineWithCode(file,"}")d file.Close()q "代码生成在:"_logName
}/// 带编码转换写字符
ClassMethod WriteLineWithCode(file, str)
{d file.WriteLine(str)//d file.WriteLine($zcvt(str,"O","UTF8"))
}/// 得到外键参照关系
ClassMethod GetForeignKeyInfo(ColName, TableName)
{s TableName=$g(TableName)s ColName=$g(ColName)s rset = ##class(%ResultSet).%New()d rset.Prepare("select REFERENCED_TABLE_NAME,REFERENCED_COLUMN_NAME,* FROM information_schema.KEY_COLUMN_USAGE where REFERENCED_TABLE_SCHEMA='dbo' and TABLE_NAME='"_TableName_"' and COLUMN_NAME='"_ColName_"'")s exeret=rset.Execute()s colCount=rset.GetColumnCount()s ret=""While(rset.Next()){s outStr=""s colField=rset.GetColumnName(1)s refTableName=rset.GetDataByName(colField)s colField1=rset.GetColumnName(2)s refColName=rset.GetDataByName(colField1)s ret=refTableName_"^"_refColName_"^"_..GetForeignKeyAssociaField(refTableName)}q ret
}/// 得到外键参照要拉取的字段
ClassMethod GetForeignKeyAssociaField(TableName)
{s TableName=$g(TableName)s rset = ##class(%ResultSet).%New()d rset.Prepare("select COLUMN_NAME FROM information_schema.COLUMNS WHERE TABLE_SCHEMA='dbo' and TABLE_NAME='"_TableName_"'")s exeret=rset.Execute()s colCount=rset.GetColumnCount()s ret="RowID"s curLev=0While(rset.Next()){s outStr=""s colField=rset.GetColumnName(1)s colName=rset.GetDataByName(colField)s lev=0i colName="CName" s lev=999i colName="IName" s lev=99i colName="XName" s lev=9i lev>curLev d.s ret=colName.s curLev=lev}q ret
}}
执行生成
生成的cls代码示例
///SYS_TableEnum操作类,由工具生成,返回空串保存成功,否则就是返回失败原因
Class LIS.WS.BLL.DHCSYSTableEnum Extends %RegisteredObject
{
///20230808
///保存数据,多列以$CSP$分割
///w ##Class(LIS.WS.BLL.DHCSYSTableEnum).SaveSYSTableEnumMTHD("")
///SYSTableEnum
ClassMethod SaveSYSTableEnumMTHD(SaveStr As %String(MAXLEN=99999999), P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String
{s SaveStr=$g(SaveStr)s Sessions=$g(Sessions)s UserDR=$p(Sessions,"^",1)s WorkGroupDR=$p(Sessions,"^",2)s HospitalDR=$p(Sessions,"^",5)s sp="$CSP$"//得到主键,为空就插入数据,否则就更新数据s RowID=$p(SaveStr,sp,1)s SaveObj=""i '$l(RowID) d.s SaveObj=##Class(dbo.SYSTableEnum).%New()e d.s SaveObj=##Class(dbo.SYSTableEnum).%OpenId(RowID)s SaveObj.TableCode=$p(SaveStr,sp,2)s SaveObj.FieldCode=$p(SaveStr,sp,3)s SaveObj.DataCode=$p(SaveStr,sp,4)s SaveObj.DataValue=$p(SaveStr,sp,5)s SaveObj.DataName=$p(SaveStr,sp,6)s SaveObj.Sequence=$p(SaveStr,sp,7)s SaveObj.Active=$p(SaveStr,sp,8)s sc=SaveObj.%Save()i ('$SYSTEM.Status.IsOK(sc)) d.THROW ##class(%Exception.SystemException).%New("事务委托","D",,"-1^保存SYSTableEnum失败:"_$SYSTEM.Status.GetErrorText(sc))q ""
}///20230808
///删除数据,多个RowID以上尖号分割,返回空成功,非空为失败原因
///w ##Class(LIS.WS.BLL.DHCSYSTableEnum).DeleteSYSTableEnumMTHD(1030,"","","","","","","","","","","","","","")
///SYSTableEnum
ClassMethod DeleteSYSTableEnumMTHD(RowIDS As %String(MAXLEN=99999999), P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String
{s RowIDS=$g(RowIDS)s Sessions=$g(Sessions)//托管事务删除数据q ##Class(LIS.WS.DHCLISServiceBase).DeclarativeTrans("LIS.WS.BLL.DHCSYSTableEnum","DeleteSYSTableEnumDo",RowIDS, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions)
}///20230808
///删除数据,多个RowID以上尖号分割
///w ##Class(LIS.WS.BLL.DHCSYSTableEnum).DeleteSYSTableEnumDo(1030)
///SYSTableEnum
ClassMethod DeleteSYSTableEnumDo(RowIDS As %String(MAXLEN=99999999), P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String
{s RowIDS=$g(RowIDS)s Sessions=$g(Sessions)s Sessions=$g(Sessions)s UserDR=$p(Sessions,"^",1)s WorkGroupDR=$p(Sessions,"^",2)s HospitalDR=$p(Sessions,"^",5)f i=1:1:$l(RowIDS,"^") d.s RowID=$p(RowIDS,"^",i).s sc=##Class(dbo.SYSTableEnum).%DeleteId(RowID).i ('$SYSTEM.Status.IsOK(sc)) d..THROW ##class(%Exception.SystemException).%New("事务委托","D",,"-1^删除SYSTableEnum失败:"_$SYSTEM.Status.GetErrorText(sc))q ""
}///20230808
///查询数据,查询条件自己改
///SYSTableEnum
Query QrySYSTableEnum(Filter, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, PageSize, PageIndex, Sessions, Output RowCount As %String) As %Query
{
}/// 构造输出列
ClassMethod QrySYSTableEnumGetInfo(ByRef colinfo As %List, ByRef parminfo As %List, ByRef idinfo As %List, ByRef qHandle As %Binary, extoption As %Integer = 0, extinfo As %List) As %Status
{Set RowSpec=$LIST(qHandle,4)f i=1:1:$l(RowSpec,",") d.s OneCol=$p(RowSpec,",",i).s OneColType=$p(OneCol,":",2).s OneCol=$p(OneCol,":",1).i i=1 s colinfo=$lb($lb(OneCol,OneColType)).e s colinfo=colinfo_$lb($lb(OneCol,OneColType))s parminfo = ""s idinfo = ""q $$$OK
}/// 在Execute控制RowSpec输出列
/// Query的执行方法
/// d ##class(%ResultSet).RunQuery("LIS.WS.BLL.DHCSYSTableEnum","QrySYSTableEnum","","","","","","","","","","","","","","","","")
ClassMethod QrySYSTableEnumExecute(ByRef qHandle As %Binary, Filter, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, PageSize, PageIndex, Sessions, Output RowCount As %String) As %Status
{s Filter=$g(Filter)s IsPer=0//指定输出列,和RowSpec保存一致,冒号指定类型s RowSpec="RowID,TableCode,FieldCode,DataCode,DataValue,DataName,Sequence,Active"//得到repid和初始化indSet ColFields = "RowID,TableCode,FieldCode,DataCode,DataValue,DataName,Sequence,Active"Set repid=$I(^CacheTemp)If $Get(ind)="" Set ind=1//输出数据逻辑,这段逻辑可以动态改RowSpec控制输出列s RowID="" f s RowID=$o(^dbo.SYSTableEnumI("PKSYSTABLEENUM",RowID)) q:RowID="" d.d OutPutRow//第4个参数不可少Set qHandle=$lb(0,repid,0,RowSpec)Quit $$$OKOutPutRows OneRowData=$g(^dbo.SYSTableEnumD(RowID))s TableCode=$lg(OneRowData,2)i $l(Filter),TableCode[Filter s IsPer=1s FieldCode=$lg(OneRowData,3)i $l(Filter),FieldCode[Filter s IsPer=1s DataCode=$lg(OneRowData,4)i $l(Filter),DataCode[Filter s IsPer=1s DataValue=$lg(OneRowData,5)i $l(Filter),DataValue[Filter s IsPer=1s DataName=$lg(OneRowData,6)i $l(Filter),DataName[Filter s IsPer=1s Sequence=$lg(OneRowData,7)i $l(Filter),Sequence[Filter s IsPer=1s Active=$lg(OneRowData,8)i $l(Filter),Active[Filter s IsPer=1i $l(Filter),(IsPer=0) qs Data = $lb(RowID,TableCode,FieldCode,DataCode,DataValue,DataName,Sequence,Active)Set ^CacheTemp(repid,ind)=##Class(LIS.Util.Common).TransListNull(Data,ColFields)Set ind=ind+1q
}ClassMethod QrySYSTableEnumClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = QrySYSTableEnumExecute ]
{Set repid=$LIST(qHandle,2)Kill ^CacheTemp(repid)Quit $$$OK
}ClassMethod QrySYSTableEnumFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = QrySYSTableEnumExecute ]
{Set AtEnd=$LIST(qHandle,1)Set repid=$LIST(qHandle,2)Set ind=$LIST(qHandle,3)Set ind=$o(^CacheTemp(repid,ind))If ind="" { Set AtEnd=1Set Row=""}Else { Set Row=^CacheTemp(repid,ind)}// Save QHandles qHandle=$lb(AtEnd,repid,ind)Quit $$$OK
}
}
生成的C#调用代码示例
using System;
using System.Web;
using System.Reflection;
using System.Text;
using System.Data;
using System.Collections;
using System.Collections.Generic;
using LIS.Model.Entity;
using LIS.Model.Bussiness;
using Microsoft.AspNetCore.Http;
using iMedicalLIS;///<summary NoteObject="Class">
/// [功能描述:SYSTableEnum调用类] <para/>
/// [创建者:自动生成] <para/>
/// [创建时间:20230808] <para/>
///<说明>
/// [说明:自定义操作自己改]<para/>
///</说明>
///<修改记录>
/// [修改时间:本次修改时间]<para/>
///</summary>
namespace UI.lis.ashx
{public class ashSYSTableEnum : BaseHttpHandler{/// <summary>/// 保存数据,多列以$CSP$分割/// </summary>/// <returns></returns>public string SaveSYSTableEnum(){//调用的后台类string className = "LIS.WS.BLL.DHCSYSTableEnum";//调用的后台方法string funcName = "SaveSYSTableEnumMTHD";string SaveStr="";string sp="$CSP$";string RowID=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "RowID"), "");string TableCode=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "TableCode"), "");string FieldCode=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "FieldCode"), "");string DataCode=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "DataCode"), "");string DataValue=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "DataValue"), "");string DataName=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "DataName"), "");string Sequence=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "Sequence"), "");string Active=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "Active"), "");SaveStr=RowID+sp+TableCode+sp+FieldCode+sp+DataCode+sp+DataValue+sp+DataName+sp+Sequence+sp+Active;Parameters param = new Parameters();param.P0=SaveStr;string logInfo = this.UserLogin.UserDR + "^" + this.UserLogin.WorkGroupDR + "^" + this.UserLogin.LocationDR + "^" + this.UserLogin.WorkGroupDR + "^" + this.UserLogin.HospitalDR;int rowCount;string ObjStr = LIS.DAL.DataAccess.WebManager.GetDataJSON(className, funcName, param, logInfo, false, out rowCount, out this.Err);if(ObjStr==""){return Helper.Success();}else{return Helper.Error(ObjStr);}}/// <summary>/// 删除数据,多个RowID以上尖号分割/// </summary>/// <returns></returns>public string DeleteSYSTableEnum(){//调用的后台类string className = "LIS.WS.BLL.DHCSYSTableEnum";//调用的后台方法string funcName = "DeleteSYSTableEnumMTHD";Parameters param = new Parameters();param.P0=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "RowIDS"), "");string logInfo = this.UserLogin.UserDR + "^" + this.UserLogin.WorkGroupDR + "^" + this.UserLogin.LocationDR + "^" + this.UserLogin.WorkGroupDR + "^" + this.UserLogin.HospitalDR;int rowCount;string ObjStr = LIS.DAL.DataAccess.WebManager.GetDataJSON(className, funcName, param, logInfo, false, out rowCount, out this.Err);if(ObjStr==""){return Helper.Success();}else{return Helper.Error(ObjStr);}}/// <summary>/// 查询数据/// </summary>/// <returns></returns>public string QrySYSTableEnum(){//调用的后台类string className = "LIS.WS.BLL.DHCSYSTableEnum";//调用的后台方法string funcName = "QrySYSTableEnum";//预留的取前台参数代码string RowID=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "RowID"), "");string TableCode=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "TableCode"), "");string FieldCode=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "FieldCode"), "");string DataCode=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "DataCode"), "");string DataValue=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "DataValue"), "");string DataName=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "DataName"), "");string Sequence=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "Sequence"), "");string Active=Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "Active"), "");Parameters param = new Parameters();param.P0= Helper.ValidParam(LIS.Core.MultiPlatform.LISContext.GetRequest(Request, "Filter"), "");string logInfo = this.UserLogin.UserDR + "^" + this.UserLogin.WorkGroupDR + "^" + this.UserLogin.LocationDR + "^" + this.UserLogin.WorkGroupDR + "^" + this.UserLogin.HospitalDR;int rowCount;string ObjStr = LIS.DAL.DataAccess.WebManager.GetDataJSON(className, funcName, param, logInfo, false, out rowCount, out this.Err);return ObjStr;}}
}
生成的aspx页面代码示例
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="Content-Type" content="text/html;charset=utf-8" /><title>供拷贝代码使用</title><link rel="shortcut icon" href="../../resource/common/images/favicon.ico" /><script src="../../resource/common/js/lis-commonHISUI.js" type="text/javascript"></script><script language="javascript" type="text/javascript">LISSYSPageCommonInfo.Init();var BasePath = '';var ResourcePath = '';var WebServicAddress = LISSYSPageCommonInfo.Data.WebServicAddress;var UserDR = LISSYSPageCommonInfo.Data.Sesssion.UserDR;var WorkGroupDR = LISSYSPageCommonInfo.Data.Sesssion.WorkGroupDR;var sysTheme = LISSYSPageCommonInfo.Data.Sesssion.Theme;var SessionStr = LISSYSPageCommonInfo.Data.SessionStr;</script><script type="text/javascript">//全局变量var me = {actionUrl: '../ashx/ashSYSTableEnum.ashx'};//jquery入口$(function () {//新增数据点击$("#btnAddSYSTableEnum").click(function () {$("#txtSYSTableEnumRowID").val(""); $('#winEditSYSTableEnum').window({title: TranslateDataMTHD('Add Data', '新增数据', ''),modal: true});});//修改数据点击$("#btnUpdateSYSTableEnum").click(function () {UpdateSYSTableEnum();});//修改数据function UpdateSYSTableEnum(row){var selectRow = $('#dgSYSTableEnum').datagrid("getSelected");if(row!=null){selectRow=row;}if (selectRow == null) {$.messager.alert(TranslateDataMTHD('Info', '提示', ''), TranslateDataMTHD('Please select the data to modify', '请选择要修改的数据!', ''), 'info');return;}$("#formSYSTableEnum").form('load', selectRow);$('#winEditSYSTableEnum').window({title: TranslateDataMTHD('Update Data', '修改数据', ''),modal: true});}//删除数据点击$("#btnDeleteSYSTableEnum").click(function () {var checkRow = $('#dgSYSTableEnum').datagrid("getChecked");var selectRow = $('#dgSYSTableEnum').datagrid("getSelected");if ((checkRow == null || checkRow.length == 0)&&selectRow==null) {$.messager.alert(TranslateDataMTHD('Info', '提示', ''), TranslateDataMTHD('Please select the data to delete', '请勾选要删除的数据!', ''), 'info');return;}if ((checkRow == null || checkRow.length == 0)) {checkRow=[selectRow];}var RowIDS = "";for (var i = 0; i < checkRow.length; i++) {if (i == 0) {RowIDS = checkRow[i].RowID;}else {RowIDS += "^" + checkRow[i].RowID;}}$.messager.confirm(TranslateDataMTHD('Info', '提示', ''), TranslateDataMTHD('Do you want to delete the selected data', '是否要删除选择的数据?', '') , function (r) {if (r) {//开启等待$.messager.progress({ text: TranslateDataMTHD("Deleting data","正在删除数据", ""), interval: 500 });setTimeout(function () {$.messager.progress('close');}, 8000);//往后台提交数据$.ajax({type: "post",dataType: "json",cache: false, //async: true, //为true时,异步,不等待后台返回值,为false时强制等待;-asirurl: me.actionUrl + '?Method=DeleteSYSTableEnum',data: { RowIDS: RowIDS },success: function (data, status) {$.messager.progress('close');if (!FilterBackData(data)) {return;}if (!data.IsOk) {$.messager.alert(TranslateDataMTHD("Error message", "错误提示", ""), TranslateDataMTHD("failed to dalete data, error message:", "删除失败,错误信息:", "") + data.Message);}else {QrySYSTableEnum();$.messager.show({title: TranslateDataMTHD("Info", "提示", ""),msg: TranslateDataMTHD("Successfully deleted!", "删除成功!", ""),timeout: 500,showType: 'slide'});}}});}});});//保存数据$("#btnSaveSYSTableEnum").click(function () {var saveData = jQuery.parseJSON($("#formSYSTableEnum").serializeObject());//开启等待$.messager.progress({ text: TranslateDataMTHD("Saving data","正在保存数据", ""), interval: 500 });setTimeout(function () {$.messager.progress('close');}, 8000);//往后台提交数据$.ajax({type: "post",dataType: "json",cache: false, //async: true, //为true时,异步,不等待后台返回值,为false时强制等待;-asirurl: me.actionUrl + '?Method=SaveSYSTableEnum',data: saveData,success: function (data, status) {$.messager.progress('close');if (!FilterBackData(data)) {return;}if (!data.IsOk) {$.messager.alert(TranslateDataMTHD("Error message", "错误提示", ""), TranslateDataMTHD("failed to dalete data, error message:", "删除失败,错误信息:", "") + data.Message);}else {QrySYSTableEnum();$.messager.show({title: TranslateDataMTHD("Info", "提示", ""),msg: TranslateDataMTHD("Successfully saveed!", "保存成功!", ""),timeout: 500,showType: 'slide'});$('#winEditSYSTableEnum').window("close");}}});});//关闭窗口$("#btnCloseSYSTableEnum").click(function () {$('#winEditSYSTableEnum').window("close");});//构造查询事件$("#txtFilterSYSTableEnum").searchbox({searcher: function (value, name) {QrySYSTableEnum();},prompt: TranslateDataMTHD('Enter query', '回车查询', '')});//SYSTableEnum表格$('#dgSYSTableEnum').datagrid({singleSelect: true,toolbar: "#dgSYSTableEnumToolBar",fit: true,onDblClickRow: function (index, row) {UpdateSYSTableEnum(row);},columns: [[{ field: 'ChkFlag', title: TranslateDataMTHD('Check', '选择', ''), width: 20, sortable: true, align: 'center', checkbox: true },{ field: 'RowID', title: TranslateDataMTHD('RowID', '主键', '') , width: 150 },{ field: 'TableCode', title: TranslateDataMTHD('TableCode', '表名', '') , width: 150 },{ field: 'FieldCode', title: TranslateDataMTHD('FieldCode', '字段名', '') , width: 150 },{ field: 'DataCode', title: TranslateDataMTHD('DataCode', '数据代码', '') , width: 150 },{ field: 'DataValue', title: TranslateDataMTHD('DataValue', '数据值', '') , width: 150 },{ field: 'DataName', title: TranslateDataMTHD('DataName', '数据名称', '') , width: 150 },{ field: 'Sequence', title: TranslateDataMTHD('Sequence', '序号', '') , width: 150 },{ field: 'Active', title: TranslateDataMTHD('Active', '激活{1:true', '') , width: 150 }]]});//查询SYSTableEnumfunction QrySYSTableEnum() {var Filter = $("#txtFilterSYSTableEnum").searchbox("getValue");//开启等待$.messager.progress({ text: TranslateDataMTHD("Querying data","正在查询数据", ""), interval: 500 });setTimeout(function () {$.messager.progress('close');}, 8000);$.ajax({type: "post",dataType: "json",cache: false, //async: true, //为true时,异步,不等待后台返回值,为false时强制等待;-asirurl: me.actionUrl + '?Method=QrySYSTableEnum',data: { Filter: Filter },success: function (data, status) {//结束等待$.messager.progress('close');$('#dgSYSTableEnum').datagrid("loadData", data);}});};//执行查询数据QrySYSTableEnum();});</script>
</head>
<body><div class="hisui-layout" fit="true" style="border: none;"><div data-options="region:'center',title:''" style="border: none;"><div id="dgSYSTableEnumToolBar" style="padding: 3px 0px 3px 10px;"><a id="btnAddSYSTableEnum" href="#" class="hisui-linkbutton" data-options="iconCls:'icon-add'" plain="true" listranslate="html~Add">新增</a><a id="btnUpdateSYSTableEnum" href="#" class="hisui-linkbutton" data-options="iconCls:'icon-write-order'" plain="true" listranslate="html~Mod">修改</a><a id="btnDeleteSYSTableEnum" href="#" class="hisui-linkbutton" data-options="iconCls:'icon-cancel'" plain="true" listranslate="html~Del">删除</a><input id="txtFilterSYSTableEnum" style="margin-left: 14px; width: 240px;"></input></div><table id="dgSYSTableEnum" title="" iconcls="icon-paper" listranslate="title~SYSTableEnum"></table></div><div id="winEditSYSTableEnum" style="padding: 10px 0px 0px 10px;width:360px;height:384px;"><form id="formSYSTableEnum" name="edit_form" method="post"><input type="hidden" id="txtSYSTableEnumRowID" name="RowID" value="0" /><table><tr><td class="lisar" listranslate="html~TableCode">表名</td><td class="lisal"><input id="txtSYSTableEnumTableCode" type="text" name="TableCode" style="width:200px;" class="hisui-validatebox" maxlength="40"/></td></tr><tr><td class="lisar" listranslate="html~FieldCode">字段名</td><td class="lisal"><input id="txtSYSTableEnumFieldCode" type="text" name="FieldCode" style="width:200px;" class="hisui-validatebox" maxlength="40"/></td></tr><tr><td class="lisar" listranslate="html~DataCode">数据代码</td><td class="lisal"><input id="txtSYSTableEnumDataCode" type="text" name="DataCode" style="width:200px;" class="hisui-validatebox" maxlength="10"/></td></tr><tr><td class="lisar" listranslate="html~DataValue">数据值</td><td class="lisal"><input id="txtSYSTableEnumDataValue" type="text" name="DataValue" style="width:200px;" class="hisui-validatebox" maxlength="10"/></td></tr><tr><td class="lisar" listranslate="html~DataName">数据名称</td><td class="lisal"><input id="txtSYSTableEnumDataName" type="text" name="DataName" style="width:200px;" class="hisui-validatebox" maxlength="40"/></td></tr><tr><td class="lisar" listranslate="html~Sequence">序号</td><td class="lisal"><input id="txtSYSTableEnumSequence" type="text" name="Sequence" style="width:200px;" class="hisui-validatebox" maxlength="10"/></td></tr><tr><td class="lisar" listranslate="html~Active">激活{1:true</td><td class="lisal"><input id="txtSYSTableEnumActive" type="text" name="Active" style="width:200px;" class="hisui-validatebox" maxlength="1"/></td></tr></table><div region="south" border="fale" style="text-align: center; padding: 5px 0 0;"><a id="btnSaveSYSTableEnum" href="#" class="hisui-linkbutton" plain="false" listranslate="html~Save">保存</a><span class="sp6"></span><a id="btnCloseSYSTableEnum" href="#" class="hisui-linkbutton" plain="false" listranslate="html~Cancel">取消</a></div></form></div>
</body>
</html>
生成的实体示例
using System;
using System.Data;
using LIS.DAL.ORM.CustomAttributes;namespace LIS.Model.Entity
{///<summary NoteObject="Class">/// [功能描述:本代码由LIS内部代码生成工具生成,请不要手动修改,如要修改,请写修改变更记录] <para/>/// [创建者:LIS.Entity生成器] <para/>/// [创建时间:20230808] <para/>///<说明>/// [说明:本代码由LIS内部代码生成工具生成,请不要手动修改]<para/>///</说明>///<修改记录>/// [修改时间:本次修改时间]<para/>/// [修改内容:本次修改内容]<para/>///</修改记录>///</summary>[Unique(ColNames = "RowID")][Serializable][Table(Name = "dbo.SYS_TableEnum")]public class SYSTableEnum : LIS.Core.Dto.BaseDto{/// <summary>/// 主键 /// </summary>[NotNull][Id(Name = "RowID", Strategy = GenerationType.INDENTITY)][Length(MaxLen = 10)]public int RowID{get;set;}/// <summary>/// 表名 /// </summary>[NotNull][Length(MaxLen = 40)]public string TableCode{get;set;}/// <summary>/// 字段名 /// </summary>[NotNull][Length(MaxLen = 40)]public string FieldCode{get;set;}/// <summary>/// 数据代码 /// </summary>[Length(MaxLen = 10)]public string DataCode{get;set;}/// <summary>/// 数据值/// </summary>[Length(MaxLen = 10)]public string DataValue{get;set;}/// <summary>/// 数据名称/// </summary>[Length(MaxLen = 40)]public string DataName{get;set;}/// <summary>/// 序号 /// </summary>[Length(MaxLen = 10)]public int? Sequence{get;set;}/// <summary>/// 激活 {1:true,0:false}/// </summary>[Length(MaxLen = 1)]public bool? Active{get;set;}}
}
直接代码投放到检验目录测试ok
增加数据
双击修改数据
查询数据
删除数据
大功告成,以后对基础维护表生成代码,直接拷贝要的代码再组装成父子表维护界面就可以很快了。单表维护用通用码表就能满足,特殊定义的单表维护生成代码再细化,多表维护生成代码拷贝组装页面。 哈哈哈