Imports System.Data.SqlClient
Public Class data
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
Protected WithEvents DropDownList2 As System.Web.UI.WebControls.DropDownList
Protected WithEvents CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList
Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
PageInit()
End If
End Sub
Public Sub PageInit()
'Dim conn As SqlConnection = New SqlConnection
'conn.ConnectionString = "initial catalog=ysnew;data source=;user id=sa;password="
'Dim cmd As SqlCommand = New SqlCommand
'cmd.Connection = conn
'cmd.CommandText = "select * from snht"
Dim dt As DataTable = Cls_common.ExecQuerySQL("select * from sn_ht")
For Each dc As DataColumn In dt.Columns
Dim li As ListItem = New ListItem(dc.ColumnName, dc.ColumnName)
li.Selected = True
Me.CheckBoxList1.Items.Add(li)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'cmd.Parameters.Add(New SqlParameter("@txtbh", txtbh.Text))
'' Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("insert into gm_ht(")
'Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("")
'Dim i As Integer = 0
'Dim j As Integer = 0
'For Each li As ListItem In Me.CheckBoxList1.Items
' If li.Selected Then
' i = i + 1
' If i <> 1 Then sb.Append("\r\n")
' For k As Integer = 0 To 1
' If k = 0 Then
' sb.Append("cmd.Parameters.Add123New SqlParameter123456@" & li.Text)
' Else
' sb.Append("456," & li.Text & "222Text333333")
' End If
' Next
' End If
'Next
'Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("")
'Dim i As Integer = 0
'Dim j As Integer = 0
'For Each li As ListItem In Me.CheckBoxList1.Items
' If li.Selected Then
' i = i + 1
' If i <> 1 Then sb.Append("\n")
' For k As Integer = 0 To 1
' If k = 0 Then
' sb.Append(li.Text & ".Text = Convert.ToString123drtemp123456")
' Else
' sb.Append(li.Text & "456789789")
' End If
' Next
' End If
'Next
Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("update sn_ht set ")
Dim i As Integer = 0
Dim j As Integer = 0
For Each li As ListItem In Me.CheckBoxList1.Items
If li.Selected Then
i = i + 1
If i <> 1 Then sb.Append(",")
For k As Integer = 0 To 1
If k = 0 Then
sb.Append(li.Text & "=")
Else
sb.Append("@" & li.Text)
End If
Next
End If
Next
''Dim i As Integer = 0
''Dim j As Integer = 0
''For Each li As ListItem In Me.CheckBoxList1.Items
'' If li.Selected Then
'' i = i + 1
'' If i <> 1 Then sb.Append(",")
'' sb.Append(li.Text)
'' End If
''Next
''sb.Append(")")
''sb.Append(" values(")
''For Each li As ListItem In Me.CheckBoxList1.Items
'' If li.Selected Then
'' j = j + 1
'' If j <> 1 Then sb.Append(",")
'' sb.Append("@" + li.Text)
'' End If
''Next
''sb.Append(")")
Me.TextBox4.Text = sb.ToString()
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("c:\ee.txt")
sw.Write(sb.ToString)
sw.Flush()
sw.Close()
End Sub
End Class
Imports System.Data.SqlClient
Public Class data
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
Protected WithEvents DropDownList2 As System.Web.UI.WebControls.DropDownList
Protected WithEvents CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList
Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
PageInit()
End If
End Sub
Public Sub PageInit()
'Dim conn As SqlConnection = New SqlConnection
'conn.ConnectionString = "initial catalog=ysnew;data source=;user id=sa;password="
'Dim cmd As SqlCommand = New SqlCommand
'cmd.Connection = conn
'cmd.CommandText = "select * from snht"
Dim dt As DataTable = Cls_common.ExecQuerySQL("select * from gm_ht")
For Each dc As DataColumn In dt.Columns
Dim li As ListItem = New ListItem(dc.ColumnName, dc.ColumnName)
li.Selected = True
Me.CheckBoxList1.Items.Add(li)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'cmd.Parameters.Add(New SqlParameter("@txtbh", txtbh.Text))
'' Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("insert into gm_ht(")
'Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("")
'Dim i As Integer = 0
'Dim j As Integer = 0
'For Each li As ListItem In Me.CheckBoxList1.Items
' If li.Selected Then
' i = i + 1
' If i <> 1 Then sb.Append("\r\n")
' For k As Integer = 0 To 1
' If k = 0 Then
' sb.Append("cmd.Parameters.Add(New SqlParameter(""@" & li.Text)
' Else
' sb.Append("""," & li.Text & ".Text))")
' End If
' Next
' End If
'Next
Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("")
Dim i As Integer = 0
Dim j As Integer = 0
For Each li As ListItem In Me.CheckBoxList1.Items
If li.Selected Then
i = i + 1
If i <> 1 Then sb.Append("\t")
For k As Integer = 0 To 1
If k = 0 Then
sb.Append(li.Text & ".Text = Convert.ToString(drtemp(""")
Else
sb.Append(li.Text & """))")
End If
Next
End If
Next
'Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder("update la_ht set ")
'Dim i As Integer = 0
'Dim j As Integer = 0
'For Each li As ListItem In Me.CheckBoxList1.Items
' If li.Selected Then
' i = i + 1
' If i <> 1 Then sb.Append(",")
' For k As Integer = 0 To 1
' If k = 0 Then
' sb.Append(li.Text & "=")
' Else
' sb.Append("@" & li.Text)
' End If
' Next
' End If
'Next
''Dim i As Integer = 0
''Dim j As Integer = 0
''For Each li As ListItem In Me.CheckBoxList1.Items
'' If li.Selected Then
'' i = i + 1
'' If i <> 1 Then sb.Append(",")
'' sb.Append(li.Text)
'' End If
''Next
''sb.Append(")")
''sb.Append(" values(")
''For Each li As ListItem In Me.CheckBoxList1.Items
'' If li.Selected Then
'' j = j + 1
'' If j <> 1 Then sb.Append(",")
'' sb.Append("@" + li.Text)
'' End If
''Next
''sb.Append(")")
Me.TextBox4.Text = sb.ToString()
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("c:\ee.txt")
sw.Write(sb.ToString)
sw.Flush()
sw.Close()
End Sub
End Class
分享到：
相关推荐
3. **使用运行时代码生成库**：有一些库，如LLVM或Intel的Pin工具，提供了API来生成和执行机器码。 4. **JIT（Just-In-Time）编译**：JIT编译器可以在程序运行时将高级代码编译成机器码，例如，像Qt的QMetaObject...
标题"mybatis-plus 达梦 代码生成"表明了本文将要讨论的是如何使用Mybatis-Plus框架结合达梦数据库来自动生成代码。Mybatis-Plus是Mybatis的一个增强工具，它在Mybatis的基础上做了很多简化操作，如自动CRUD（创建、...
5. **目标代码生成**：最后，三地址代码生成器需要将三地址代码转化为特定机器架构的目标代码，这通常涉及到指令选择和寄存器分配。 在实际项目中，我们可以根据提供的“编译原理 三地址代码生成器”文档进一步了解...
很牛的带Ajax功能的ASP.NET+C#代码生成工具，能生成从表示层到SQL脚本的所有代码，只需使用VS2008+SQL2005（无需编码，生成后将代码加入我提供的框架就成一个项目，编译后即可使用）生成前需将数据库按要求设计好，...
在这个场景中，"JAVA在Windows平台上生成机器码"指的是将Java源代码编译成针对Windows系统的本地代码，也称为本机代码或机器码。 首先，了解Java的编译过程是必要的。通常，Java源代码（`.java`文件）会被Java...
Java代码生成器是一种工具，它能够自动生成符合特定规范或需求的Java源代码，从而提高开发效率，减少重复性工作。这种工具通常基于模板引擎，允许开发者定义模板，然后根据输入的数据生成相应的代码。在Java领域，...
动态代码生成器是一种在程序运行时能够自动生成和执行代码的技术。这种技术广泛应用于各种软件开发场景，如元编程、反射、AOP（面向切面编程）、动态语言实现以及性能优化等。动态代码生成通常涉及以下几个核心概念...
在编译原理中，中间代码生成是编译过程的一个关键阶段。这个阶段的任务是将源代码转换成一种抽象且与机器无关的表示形式，通常称为中间代码（Intermediate Code）。中间代码在编译器的设计中扮演着重要角色，因为它...
《编译原理中间代码生成报告》 编译原理是一门涉及计算机科学的深奥领域，其核心任务之一是将高级编程语言转化为机器可执行的指令。在这个过程中，中间代码生成是一个至关重要的步骤。本报告主要关注如何在实验二的...
Java代码生成器是一种高效开发工具，它可以帮助程序员自动化地生成大量的基础代码，从而极大地提高开发效率，减少重复劳动。在Java开发中，特别是在企业级应用系统构建时，大量的数据访问层（DAO）、服务层（Service...
目标代码生成是编译器工作的最后阶段之一，它将四元式或其他IR形式转化为特定机器的指令集。这个过程通常涉及指令选择、寄存器分配、指令调度等多个方面。目标代码应该尽可能地利用目标机器的特性，以提高程序的运行...
为了从C/C++源代码生成机器代码，我们需要经历编译、汇编和链接这三个过程。 1. **编译过程**： C/C++源代码（`.cpp`或`.c`文件）首先需要通过编译器（如GCC或Clang）进行编译。编译器会将源代码转换成汇编语言（`...
【编译原理实验报告——分析中间代码生成程序】 在编译原理中，中间代码生成是编译器设计的重要环节。本实验报告主要关注PL/0语言的编译过程，包括理解PL/0程序的结构、代码生成的方法以及通过实际编程实践来加深对...
6. **代码生成**：最后，将三地址代码翻译成特定机器的汇编代码或机器码。 五、应用与意义 了解并实现编译器的这一部分，对于深入理解计算机语言的底层工作原理至关重要。此外，三地址代码的生成对于编译器开发者来...
机器学习生成对抗网络 机器学习生成对抗网络是一种深度学习算法，通过生成模型和判别模型之间的博弈过程来生成真实样本数据。下面是对机器学习生成对抗网络的详细知识点： GAN 简介 GAN（Generative Adversarial ...
**中间代码生成** 在计算机科学领域，编译器设计是至关重要的部分，而中间代码生成是编译器工作流程中的一个重要阶段。中间代码是一种抽象的机器独立表示，它介于源代码和目标代码之间。这个阶段的目标是将高级语言...
本实验主要关注的是语义分析与中间代码生成这两个关键步骤，它们是编译器设计的重要组成部分。 首先，我们来理解语义分析。语义分析是编译过程中的一个阶段，它检查源代码是否符合语言的语义规则，即程序的意义是否...
LL(1)解析器负责识别源代码的语法结构，而中间代码生成则是将这些结构转化为更接近机器语言的表示形式，以便于后续的代码优化和目标代码生成。四元式作为一种有效的中间代码表示，其生成过程贯穿于整个编译流程中，...
目标机器是编译原理中代码生成的最终目标，是编译器生成机器代码的平台。下面将详细介绍目标机器的概念、地址方式、指令形式、指令开销、寄存器管理、高质量目标机器代码生成的一些困难等知识点。 1. 目标机器的...
李宏毅 机器学习 课程作业代码李宏毅 机器学习 课程作业代码李宏毅 机器学习 课程作业代码李宏毅 机器学习 课程作业代码李宏毅 机器学习 课程作业代码李宏毅 机器学习 课程作业代码李宏毅 机器学习 课程作业代码...