📄 clscsharpcoder.cls
字号:
Else
Conn = "System.Data.SqlClient.SqlConnection"
Codes = Codes & "using System.Data.SqlClient;" & vbCrLf
End If
IdentityColumnDataType = Doc.firstChild.childNodes(i).childNodes(0).Attributes(0).Text '主键数据类型
Codes = Codes & "using " & sNameSpace & "DataAS.Base;" & vbCrLf
Codes = Codes & "using " & sNameSpace & "DataAS.Details;" & vbCrLf
Codes = Codes & vbCrLf
Codes = Codes & "namespace " & sNameSpace & "DataAS.EntityBase" & vbCrLf
Codes = Codes & "{" & vbCrLf
Codes = Codes & vbTab & "public class " & ClassName & "Base : Base.DbObject" & vbCrLf
Codes = Codes & vbTab & "{" & vbCrLf '类开始
'操作类构造函数
Codes = Codes & vbTab & vbTab & "public " & ClassName & "Base(){}" & vbCrLf
Codes = Codes & vbTab & vbTab & vbCrLf
Codes = Codes & vbTab & vbTab & "public " & ClassName & "Base(string ConnString):base(ConnString){}" & vbCrLf
Codes = Codes & vbTab & vbTab & vbCrLf
Codes = Codes & vbTab & vbTab & "public " & ClassName & "Base(" & Conn & " Connection):base(Connection){}" & vbCrLf
Codes = Codes & vbTab & vbTab & vbCrLf
'--- 添加单位 ---
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 增加" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public long Add(" & ClassName & "Details " & ObjectName & "Details)" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "long " & ID & " = 0;" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Parameter[] Parameters = new " & AdoName & "Parameter[]{" & vbCrLf
For j = 1 To Doc.firstChild.childNodes(i).childNodes.length - 2
Codes = Codes & vbTab & vbTab & vbTab & "new " & AdoName & "Parameter(" & Chr(34) & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & Chr(34) & "," & GetType(Doc.firstChild.childNodes(i).childNodes(j).Attributes(0).Text) & ")," & vbCrLf
Next j
Codes = Codes & vbTab & vbTab & vbTab & "new " & AdoName & "Parameter(" & Chr(34) & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & Chr(34) & _
"," & GetType(Doc.firstChild.childNodes(i).childNodes(j).Attributes(0).Text) & ")" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "};" & vbCrLf
Codes = Codes & vbCrLf
For j = 1 To Doc.firstChild.childNodes(i).childNodes.length - 1
Codes = Codes & vbTab & vbTab & vbTab & "Parameters[" & j - 1 & "].Value = " & ObjectName & "Details." & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & ";" & vbCrLf
Next j
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Command Cmd = BuildCommand(" & Chr(34) & "insert into [" & ClassName & "] ("
For j = 1 To Doc.firstChild.childNodes(i).childNodes.length - 2
Codes = Codes & "[" & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & "],"
Next j
Codes = Codes & "[" & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & "]"
Codes = Codes & ") values ("
For j = 1 To Doc.firstChild.childNodes(i).childNodes.length - 2
Codes = Codes & "@" & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & ","
Next j
Codes = Codes & "@" & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text
Codes = Codes & ")" & Chr(34) & ",Parameters);" & vbCrLf
Codes = Codes & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Open();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "Cmd.ExecuteNonQuery();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "Cmd = BuildCommand(" & Chr(34) & "Select @@Identity" & Chr(34) & ");" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & ID & " = Convert.ToInt64(Cmd.ExecuteScalar());" & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Close();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return " & ID & ";" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
'--- 删除单位 Delete 方法 ---
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 删除" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public int Delete(" & IdentityColumnDataType & " " & ID & ")" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Parameter[] Parameters = new " & AdoName & "Parameter[]{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "new " & AdoName & "Parameter(" & Chr(34) & ID & Chr(34) & "," & GetType(IdentityColumnDataType) & ")" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "};" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "Parameters[0].Value = " & ID & ";" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Command Cmd = BuildCommand(" & Chr(34) & "Delete From [" & ObjectName & "] where [" & ID & "]=@" & ID & Chr(34) & ",Parameters);" & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Open();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return Cmd.ExecuteNonQuery();" & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Close();" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
'--- 修改单位 ---
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 修改" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public int Update(" & ClassName & "Details " & ObjectName & "Details)" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Parameter[] Parameters = new " & AdoName & "Parameter[]{" & vbCrLf
For j = 1 To Doc.firstChild.childNodes(i).childNodes.length - 1
Codes = Codes & vbTab & vbTab & vbTab & "new " & AdoName & "Parameter(" & Chr(34) & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & Chr(34) & "," & GetType(Doc.firstChild.childNodes(i).childNodes(j).Attributes(0).Text) & ")," & vbCrLf
Next j
Codes = Codes & vbTab & vbTab & vbTab & "new " & AdoName & "Parameter(" & Chr(34) & Doc.firstChild.childNodes(i).childNodes(0).Attributes(1).Text & Chr(34) & _
"," & GetType(Doc.firstChild.childNodes(i).childNodes(0).Attributes(0).Text) & ")" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "};" & vbCrLf
Codes = Codes & vbCrLf
For j = 1 To Doc.firstChild.childNodes(i).childNodes.length - 1
Codes = Codes & vbTab & vbTab & vbTab & "Parameters[" & j - 1 & "].Value = " & ObjectName & "Details." & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & ";" & vbCrLf
Next j
Codes = Codes & vbTab & vbTab & vbTab & "Parameters[" & j - 1 & "].Value = " & ObjectName & "Details." & Doc.firstChild.childNodes(i).childNodes(0).Attributes(1).Text & ";" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Command Cmd = BuildCommand(" & Chr(34) & "Update [" & ObjectName & "] set "
For j = 1 To Doc.firstChild.childNodes(i).childNodes.length - 2
Codes = Codes & "[" & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & "]=@" & _
Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & ","
Next j
Codes = Codes & "[" & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & "]=@" & _
Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text
Codes = Codes & " where [" & ID & "]=@" & ID & Chr(34) & ",Parameters);" & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Open();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return Cmd.ExecuteNonQuery();" & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Close();" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf '过程结束
Codes = Codes & vbCrLf
'--- 查看单位 GetDetails 方法 ---
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 查询" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public " & ClassName & "Details GetDetails(" & IdentityColumnDataType & " " & ID & ")" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
'
Codes = Codes & vbTab & vbTab & vbTab & ClassName & "Details " & ObjectName & "Details = new " & ClassName & "Details();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Parameter[] Parameters = new " & AdoName & "Parameter[]{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "new " & AdoName & "Parameter(" & Chr(34) & ID & Chr(34) & "," & GetType(IdentityColumnDataType) & ")" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "};" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "Parameters[0].Value = " & GetCSharpType(Doc.firstChild.childNodes(i).childNodes(0).Attributes(1).Text) & "(" & _
Doc.firstChild.childNodes(i).childNodes(0).Attributes(1).Text & ");"
Codes = Codes & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "Command Cmd = BuildCommand(" & Chr(34) & "Select * from [" & ObjectName & "] where [" & ID & "]=@" & ID & Chr(34) & ",Parameters);" & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Open();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & AdoName & "DataReader dr = Cmd.ExecuteReader();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "dr.Read();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "if (!dr.HasRows){" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "dr.Close();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return null;" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
For j = 0 To Doc.firstChild.childNodes(i).childNodes.length - 1
Codes = Codes & vbTab & vbTab & vbTab & ObjectName & "Details." & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & _
"= " & GetCSharpType(Doc.firstChild.childNodes(i).childNodes(j).Attributes(0).Text) & "(dr[" & Chr(34) & Doc.firstChild.childNodes(i).childNodes(j).Attributes(1).Text & Chr(34) & "]);" & vbCrLf
Next j
Codes = Codes & vbTab & vbTab & vbTab & "dr.Close();" & vbCrLf
' Codes = Codes & vbTab & vbTab & vbTab & "Conn.Close();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return " & ObjectName & "Details;" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf '过程结束
Codes = Codes & vbCrLf
Codes = Codes & vbCrLf
'获取数据源
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 获取源" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// <param name=" & Chr(34) & "CurrentPageIndex" & Chr(34) & ">当前页</param>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// <param name=" & Chr(34) & "PageSize" & Chr(34) & ">每页的显示数量</param>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// <returns>数据源</returns>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public System.Web.UI.WebControls.PagedDataSource GetDataSource(int CurrentPageIndex,int PageSize)" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "System.Web.UI.WebControls.PagedDataSource pagedDataSource = new System.Web.UI.WebControls.PagedDataSource();" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "pagedDataSource.DataSource = SelectTable(" & Chr(34) & "SELECT * FROM [" & ObjectName & "] " & Chr(34) & ").DefaultView;" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "pagedDataSource.AllowPaging = true;" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "pagedDataSource.CurrentPageIndex = CurrentPageIndex;" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "pagedDataSource.PageSize = PageSize;" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return pagedDataSource;" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
Codes = Codes & vbCrLf
'获取数据源 重载版本2
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 获取表" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public DataTable GetDataSource()" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return SelectTable(" & Chr(34) & "SELECT * FROM [" & ObjectName & "] ORDER BY " & ID & " DESC" & Chr(34) & ");" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
'获取数据源 重载版本3
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 获取检索表" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public DataTable GetDataSource(QueryParamsCollection qpc)" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return SelectTable(" & Chr(34) & "SELECT * FROM [" & ObjectName & "] " & Chr(34) & " + qpc.ToString()" & " + " & Chr(34) & " ORDER BY " & ID & " DESC" & Chr(34) & ");" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
Codes = Codes & vbCrLf
'获取数据源 重载版本4
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 对象关系映射数据源" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public " & ClassName & "Details[] GetDataSourceORM()" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "DataTable dataTable = SelectTable(" & Chr(34) & "SELECT * FROM [" & ObjectName & "] ORDER BY " & ID & " DESC" & Chr(34) & ");" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & ClassName & "Details[] result = new " & ClassName & "Details[dataTable.Rows.Count];" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "for (int i = 0; i < dataTable.Rows.Count; i++)" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & vbTab & "result[i] = new " & ClassName & "Details(dataTable.Rows[i]);" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return result;" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
Codes = Codes & vbCrLf
'获取数据源 重载版本5
Codes = Codes & vbTab & vbTab & "/// <summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// 对象关系映射数据源" & vbCrLf
Codes = Codes & vbTab & vbTab & "/// </summary>" & vbCrLf
Codes = Codes & vbTab & vbTab & "public " & ClassName & "Details[] GetDataSourceORM(QueryParamsCollection qpc)" & vbCrLf
Codes = Codes & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "DataTable dataTable = SelectTable(" & Chr(34) & "SELECT * FROM [" & ObjectName & "] " & Chr(34) & " + qpc.ToString()" & " + " & Chr(34) & " ORDER BY " & ID & " DESC" & Chr(34) & ");" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & ClassName & "Details[] result = new " & ClassName & "Details[dataTable.Rows.Count];" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "for (int i = 0; i < dataTable.Rows.Count; i++)" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "{" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & vbTab & "result[i] = new " & ClassName & "Details(dataTable.Rows[i]);" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbTab & vbTab & vbTab & "return result;" & vbCrLf
Codes = Codes & vbTab & vbTab & "}" & vbCrLf
Codes = Codes & vbCrLf
Codes = Codes & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -