📄 frmkemu.vb
字号:
Public Class frmKeMu Inherits 财务管理.frmBase#Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() '该调用是 Windows 窗体设计器所必需的。 InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改此过程。 '不要使用代码编辑器修改它。 Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Friend WithEvents grbRight As System.Windows.Forms.GroupBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents grbKind As System.Windows.Forms.GroupBox
Friend WithEvents grbDirection As System.Windows.Forms.GroupBox
Friend WithEvents txbName As System.Windows.Forms.TextBox
Friend WithEvents txbHelpCode As System.Windows.Forms.TextBox
Friend WithEvents txbCode As System.Windows.Forms.TextBox
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
Friend WithEvents DataSet11 As 财务管理.DataSet1
Friend WithEvents cbbKind As System.Windows.Forms.ComboBox
Friend WithEvents cbbDirection As System.Windows.Forms.ComboBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
Me.grbRight = New System.Windows.Forms.GroupBox
Me.grbDirection = New System.Windows.Forms.GroupBox
Me.cbbDirection = New System.Windows.Forms.ComboBox
Me.DataSet11 = New 财务管理.DataSet1
Me.grbKind = New System.Windows.Forms.GroupBox
Me.cbbKind = New System.Windows.Forms.ComboBox
Me.txbName = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.txbHelpCode = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.txbCode = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.grbRight.SuspendLayout()
Me.grbDirection.SuspendLayout()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grbKind.SuspendLayout()
Me.SuspendLayout()
'
'SqlDataAdapter1
'
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "科目表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("科目代码", "科目代码"), New System.Data.Common.DataColumnMapping("科目名称", "科目名称"), New System.Data.Common.DataColumnMapping("助记码", "助记码"), New System.Data.Common.DataColumnMapping("科目类别", "科目类别"), New System.Data.Common.DataColumnMapping("余额方向", "余额方向")})})
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
'
'SqlDeleteCommand1
'
Me.SqlDeleteCommand1.CommandText = "DELETE FROM 科目表 WHERE (科目代码 = @Original_科目代码) AND (余额方向 = @Original_余额方向 OR @Orig" & _
"inal_余额方向 IS NULL AND 余额方向 IS NULL) AND (助记码 = @Original_助记码 OR @Original_助记码 IS" & _
" NULL AND 助记码 IS NULL) AND (科目名称 = @Original_科目名称 OR @Original_科目名称 IS NULL AND " & _
"科目名称 IS NULL) AND (科目类别 = @Original_科目类别 OR @Original_科目类别 IS NULL AND 科目类别 IS N" & _
"ULL)"
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_科目代码", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "科目代码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_余额方向", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "余额方向", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_助记码", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "助记码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_科目名称", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "科目名称", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_科目类别", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "科目类别", System.Data.DataRowVersion.Original, Nothing))
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=CS;persis" & _
"t security info=False;initial catalog=caiwubook"
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "INSERT INTO 科目表(科目代码, 科目名称, 助记码, 科目类别, 余额方向) VALUES (@科目代码, @科目名称, @助记码, @科目类别, @" & _
"余额方向); SELECT 科目代码, 科目名称, 助记码, 科目类别, 余额方向 FROM 科目表 WHERE (科目代码 = @科目代码)"
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@科目代码", System.Data.SqlDbType.VarChar, 20, "科目代码"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@科目名称", System.Data.SqlDbType.VarChar, 20, "科目名称"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@助记码", System.Data.SqlDbType.VarChar, 20, "助记码"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@科目类别", System.Data.SqlDbType.VarChar, 20, "科目类别"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@余额方向", System.Data.SqlDbType.VarChar, 4, "余额方向"))
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT 科目代码, 科目名称, 助记码, 科目类别, 余额方向 FROM 科目表"
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
'
'SqlUpdateCommand1
'
Me.SqlUpdateCommand1.CommandText = "UPDATE 科目表 SET 科目代码 = @科目代码, 科目名称 = @科目名称, 助记码 = @助记码, 科目类别 = @科目类别, 余额方向 = @余额方向" & _
" WHERE (科目代码 = @Original_科目代码) AND (余额方向 = @Original_余额方向 OR @Original_余额方向 IS N" & _
"ULL AND 余额方向 IS NULL) AND (助记码 = @Original_助记码 OR @Original_助记码 IS NULL AND 助记码 " & _
"IS NULL) AND (科目名称 = @Original_科目名称 OR @Original_科目名称 IS NULL AND 科目名称 IS NULL) " & _
"AND (科目类别 = @Original_科目类别 OR @Original_科目类别 IS NULL AND 科目类别 IS NULL); SELECT 科" & _
"目代码, 科目名称, 助记码, 科目类别, 余额方向 FROM 科目表 WHERE (科目代码 = @科目代码)"
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@科目代码", System.Data.SqlDbType.VarChar, 20, "科目代码"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@科目名称", System.Data.SqlDbType.VarChar, 20, "科目名称"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@助记码", System.Data.SqlDbType.VarChar, 20, "助记码"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@科目类别", System.Data.SqlDbType.VarChar, 20, "科目类别"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@余额方向", System.Data.SqlDbType.VarChar, 4, "余额方向"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_科目代码", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "科目代码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_余额方向", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "余额方向", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_助记码", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "助记码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_科目名称", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "科目名称", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_科目类别", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "科目类别", System.Data.DataRowVersion.Original, Nothing))
'
'grbRight
'
Me.grbRight.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.grbRight.Controls.Add(Me.grbDirection)
Me.grbRight.Controls.Add(Me.grbKind)
Me.grbRight.Controls.Add(Me.txbName)
Me.grbRight.Controls.Add(Me.Label6)
Me.grbRight.Controls.Add(Me.txbHelpCode)
Me.grbRight.Controls.Add(Me.Label5)
Me.grbRight.Controls.Add(Me.txbCode)
Me.grbRight.Controls.Add(Me.Label4)
Me.grbRight.Location = New System.Drawing.Point(208, 80)
Me.grbRight.Name = "grbRight"
Me.grbRight.Size = New System.Drawing.Size(328, 208)
Me.grbRight.TabIndex = 4
Me.grbRight.TabStop = False
'
'grbDirection
'
Me.grbDirection.Controls.Add(Me.cbbDirection)
Me.grbDirection.Location = New System.Drawing.Point(160, 72)
Me.grbDirection.Name = "grbDirection"
Me.grbDirection.Size = New System.Drawing.Size(112, 64)
Me.grbDirection.TabIndex = 7
Me.grbDirection.TabStop = False
Me.grbDirection.Text = "余额方向"
'
'cbbDirection
'
Me.cbbDirection.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "科目表.余额方向"))
Me.cbbDirection.Enabled = False
Me.cbbDirection.Items.AddRange(New Object() {"借方", "贷方"})
Me.cbbDirection.Location = New System.Drawing.Point(11, 24)
Me.cbbDirection.Name = "cbbDirection"
Me.cbbDirection.Size = New System.Drawing.Size(88, 20)
Me.cbbDirection.TabIndex = 8
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
'
'grbKind
'
Me.grbKind.Controls.Add(Me.cbbKind)
Me.grbKind.Location = New System.Drawing.Point(15, 72)
Me.grbKind.Name = "grbKind"
Me.grbKind.Size = New System.Drawing.Size(112, 64)
Me.grbKind.TabIndex = 6
Me.grbKind.TabStop = False
Me.grbKind.Text = "科目类别"
'
'cbbKind
'
Me.cbbKind.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "科目表.科目类别"))
Me.cbbKind.Enabled = False
Me.cbbKind.Items.AddRange(New Object() {"资产", "负债", "权益", "成本", "损溢"})
Me.cbbKind.Location = New System.Drawing.Point(12, 24)
Me.cbbKind.Name = "cbbKind"
Me.cbbKind.Size = New System.Drawing.Size(88, 20)
Me.cbbKind.TabIndex = 5
'
'txbName
'
Me.txbName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "科目表.科目名称"))
Me.txbName.Location = New System.Drawing.Point(120, 40)
Me.txbName.Name = "txbName"
Me.txbName.Size = New System.Drawing.Size(88, 21)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -