frmwgxg.vb

来自「一个实际的商业项目」· VB 代码 · 共 590 行 · 第 1/3 页

VB
590 行
字号
123
        '
        Me.DataGridTextBoxColumn9.Format = ""
        Me.DataGridTextBoxColumn9.FormatInfo = Nothing
        Me.DataGridTextBoxColumn9.HeaderText = "不合格(回用)"
        Me.DataGridTextBoxColumn9.MappingName = "Sl3"
        Me.DataGridTextBoxColumn9.Width = 75
        '
        'DataGridTextBoxColumn10
        '
        Me.DataGridTextBoxColumn10.Format = ""
        Me.DataGridTextBoxColumn10.FormatInfo = Nothing
        Me.DataGridTextBoxColumn10.HeaderText = "备注"
        Me.DataGridTextBoxColumn10.MappingName = "Bz"
        Me.DataGridTextBoxColumn10.Width = 120
        '
        'dp1
        '
        Me.dp1.Location = New System.Drawing.Point(40, 48)
        Me.dp1.Name = "dp1"
        Me.dp1.Size = New System.Drawing.Size(112, 21)
        Me.dp1.TabIndex = 1
        '
        'dp2
        '
        Me.dp2.Location = New System.Drawing.Point(184, 48)
        Me.dp2.Name = "dp2"
        Me.dp2.Size = New System.Drawing.Size(112, 21)
        Me.dp2.TabIndex = 2
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(152, 56)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(32, 23)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "－＞"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(40, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(100, 24)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "完工日期"
        '
        'txtXm
        '
        Me.txtXm.Location = New System.Drawing.Point(336, 48)
        Me.txtXm.Name = "txtXm"
        Me.txtXm.Size = New System.Drawing.Size(56, 21)
        Me.txtXm.TabIndex = 5
        Me.txtXm.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(336, 24)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 23)
        Me.Label3.TabIndex = 6
        Me.Label3.Text = "姓名"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(408, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 23)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "产品"
        '
        'txtPf
        '
        Me.txtPf.Location = New System.Drawing.Point(408, 48)
        Me.txtPf.Name = "txtPf"
        Me.txtPf.Size = New System.Drawing.Size(56, 21)
        Me.txtPf.TabIndex = 8
        Me.txtPf.Text = ""
        '
        'txtGx
        '
        Me.txtGx.Location = New System.Drawing.Point(480, 48)
        Me.txtGx.Name = "txtGx"
        Me.txtGx.Size = New System.Drawing.Size(56, 21)
        Me.txtGx.TabIndex = 9
        Me.txtGx.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(480, 24)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 23)
        Me.Label5.TabIndex = 10
        Me.Label5.Text = "工序"
        '
        'btnList
        '
        Me.btnList.Location = New System.Drawing.Point(560, 48)
        Me.btnList.Name = "btnList"
        Me.btnList.TabIndex = 11
        Me.btnList.Text = "刷新"
        '
        'btnUpdata
        '
        Me.btnUpdata.ForeColor = System.Drawing.Color.Red
        Me.btnUpdata.Location = New System.Drawing.Point(560, 408)
        Me.btnUpdata.Name = "btnUpdata"
        Me.btnUpdata.TabIndex = 12
        Me.btnUpdata.Text = "更新数据"
        '
        'btnExcel
        '
        Me.btnExcel.Location = New System.Drawing.Point(40, 408)
        Me.btnExcel.Name = "btnExcel"
        Me.btnExcel.Size = New System.Drawing.Size(152, 23)
        Me.btnExcel.TabIndex = 13
        Me.btnExcel.Text = "导出数据到Excel"
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label6.ForeColor = System.Drawing.SystemColors.ActiveCaption
        Me.Label6.Location = New System.Drawing.Point(304, 408)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(248, 23)
        Me.Label6.TabIndex = 14
        Me.Label6.Text = "更新数据前请仔细检查！"
        '
        'daWgxg
        '
        Me.daWgxg.DeleteCommand = Me.OleDbDeleteCommand1
        Me.daWgxg.InsertCommand = Me.OleDbInsertCommand1
        Me.daWgxg.SelectCommand = Me.OleDbSelectCommand1
        Me.daWgxg.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Wg", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Rq", "Rq"), New System.Data.Common.DataColumnMapping("Gh", "Gh"), New System.Data.Common.DataColumnMapping("Xm", "Xm"), New System.Data.Common.DataColumnMapping("Pf", "Pf"), New System.Data.Common.DataColumnMapping("Gx", "Gx"), New System.Data.Common.DataColumnMapping("Sl", "Sl"), New System.Data.Common.DataColumnMapping("Sl1", "Sl1"), New System.Data.Common.DataColumnMapping("Sl2", "Sl2"), New System.Data.Common.DataColumnMapping("Sl3", "Sl3"), New System.Data.Common.DataColumnMapping("Bz", "Bz")})})
        Me.daWgxg.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Wg WHERE (Gh = ?) AND (Gx = ?) AND (Pf = ?) AND (Rq = ?) AND (Xm = ?)" & _
        " AND (Bz = ? OR ? IS NULL AND Bz IS NULL) AND (Sl = ?) AND (Sl1 = ? OR ? IS NULL" & _
        " AND Sl1 IS NULL) AND (Sl2 = ? OR ? IS NULL AND Sl2 IS NULL) AND (Sl3 = ? OR ? I" & _
        "S NULL AND Sl3 IS NULL)"
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gh", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gh", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gx", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gx", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pf", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pf", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Rq", System.Data.OleDb.OleDbType.VarWChar, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Rq", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Xm", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Xm", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Bz", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Bz", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Bz1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Bz", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl11", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl2", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl2", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl21", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl2", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl3", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl3", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl31", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl3", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Wg(Rq, Gh, Xm, Pf, Gx, Sl, Sl1, Sl2, Sl3, Bz) VALUES (?, ?, ?, ?, ?, " & _
        "?, ?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Rq", System.Data.OleDb.OleDbType.VarWChar, 8, "Rq"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gh", System.Data.OleDb.OleDbType.VarWChar, 16, "Gh"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Xm", System.Data.OleDb.OleDbType.VarWChar, 16, "Xm"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pf", System.Data.OleDb.OleDbType.VarWChar, 20, "Pf"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gx", System.Data.OleDb.OleDbType.VarWChar, 20, "Gx"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl", System.Data.OleDb.OleDbType.Integer, 0, "Sl"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl1", System.Data.OleDb.OleDbType.Integer, 0, "Sl1"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl2", System.Data.OleDb.OleDbType.Integer, 0, "Sl2"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl3", System.Data.OleDb.OleDbType.Integer, 0, "Sl3"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Bz", System.Data.OleDb.OleDbType.VarWChar, 50, "Bz"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT Rq, Gh, Xm, Pf, Gx, Sl, Sl1, Sl2, Sl3, Bz FROM Wg"
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Wg SET Rq = ?, Gh = ?, Xm = ?, Pf = ?, Gx = ?, Sl = ?, Sl1 = ?, Sl2 = ?, S" & _
        "l3 = ?, Bz = ? WHERE (Gh = ?) AND (Gx = ?) AND (Pf = ?) AND (Rq = ?) AND (Xm = ?" & _
        ") AND (Bz = ? OR ? IS NULL AND Bz IS NULL) AND (Sl = ?) AND (Sl1 = ? OR ? IS NUL" & _
        "L AND Sl1 IS NULL) AND (Sl2 = ? OR ? IS NULL AND Sl2 IS NULL) AND (Sl3 = ? OR ? " & _
        "IS NULL AND Sl3 IS NULL)"
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Rq", System.Data.OleDb.OleDbType.VarWChar, 8, "Rq"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gh", System.Data.OleDb.OleDbType.VarWChar, 16, "Gh"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Xm", System.Data.OleDb.OleDbType.VarWChar, 16, "Xm"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pf", System.Data.OleDb.OleDbType.VarWChar, 20, "Pf"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gx", System.Data.OleDb.OleDbType.VarWChar, 20, "Gx"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl", System.Data.OleDb.OleDbType.Integer, 0, "Sl"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl1", System.Data.OleDb.OleDbType.Integer, 0, "Sl1"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl2", System.Data.OleDb.OleDbType.Integer, 0, "Sl2"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl3", System.Data.OleDb.OleDbType.Integer, 0, "Sl3"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Bz", System.Data.OleDb.OleDbType.VarWChar, 50, "Bz"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gh", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gh", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gx", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gx", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pf", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pf", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Rq", System.Data.OleDb.OleDbType.VarWChar, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Rq", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Xm", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Xm", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Bz", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Bz", System.Data.DataRowVersion.Original, Nothing))
123

frmwgxg.vb - 源码说明

本页面展示了「一个实际的商业项目」中的 frmwgxg.vb 源码文件，采用 VB 编程语言编写，共 590 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与商相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?