frmbuybook.vb

visual Basic 数据库开发实例导航

        Me.txbWorker.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(8, 64)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 16)
        Me.Label8.TabIndex = 8
        Me.Label8.Text = "操作员"
        '
        'txbSubscriber
        '
        Me.txbSubscriber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "图书征订.订购者"))
        Me.txbSubscriber.Location = New System.Drawing.Point(384, 32)
        Me.txbSubscriber.Name = "txbSubscriber"
        Me.txbSubscriber.Size = New System.Drawing.Size(72, 21)
        Me.txbSubscriber.TabIndex = 7
        Me.txbSubscriber.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(382, 16)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 6
        Me.Label7.Text = "订购者"
        '
        'txbBookName
        '
        Me.txbBookName.Location = New System.Drawing.Point(200, 32)
        Me.txbBookName.Name = "txbBookName"
        Me.txbBookName.ReadOnly = True
        Me.txbBookName.Size = New System.Drawing.Size(176, 21)
        Me.txbBookName.TabIndex = 5
        Me.txbBookName.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(200, 16)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 16)
        Me.Label6.TabIndex = 4
        Me.Label6.Text = "图书名称"
        '
        'txbBookNumber
        '
        Me.txbBookNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "图书征订.图书编号"))
        Me.txbBookNumber.Location = New System.Drawing.Point(88, 32)
        Me.txbBookNumber.Name = "txbBookNumber"
        Me.txbBookNumber.Size = New System.Drawing.Size(72, 21)
        Me.txbBookNumber.TabIndex = 3
        Me.txbBookNumber.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(88, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 2
        Me.Label5.Text = "图书编号"
        '
        'txbNumber
        '
        Me.txbNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "图书征订.征订编号"))
        Me.txbNumber.Location = New System.Drawing.Point(8, 32)
        Me.txbNumber.Name = "txbNumber"
        Me.txbNumber.ReadOnly = True
        Me.txbNumber.Size = New System.Drawing.Size(72, 21)
        Me.txbNumber.TabIndex = 1
        Me.txbNumber.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 0
        Me.Label4.Text = "征订编号"
        '
        'btnSubmit
        '
        Me.btnSubmit.Location = New System.Drawing.Point(246, 16)
        Me.btnSubmit.Name = "btnSubmit"
        Me.btnSubmit.Size = New System.Drawing.Size(125, 23)
        Me.btnSubmit.TabIndex = 20
        Me.btnSubmit.Text = "提交征订（验收）"
        '
        '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("订购单价", "订购单价"), 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_图书编号) AND (操" & _
        "作员 = @Original_操作员 OR @Original_操作员 IS NULL AND 操作员 IS NULL) AND (是否验收 = @Origin" & _
        "al_是否验收 OR @Original_是否验收 IS NULL AND 是否验收 IS NULL) AND (订购单价 = @Original_订购单价 O" & _
        "R @Original_订购单价 IS NULL AND 订购单价 IS NULL) AND (订购数量 = @Original_订购数量 OR @Origin" & _
        "al_订购数量 IS NULL AND 订购数量 IS NULL) AND (订购日期 = @Original_订购日期 OR @Original_订购日期 I" & _
        "S 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 " & _
        "NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_征订编号", System.Data.SqlDbType.VarChar, 50, 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, 50, 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.Bit, 1, 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.Money, 8, 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.Int, 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.DateTime, 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, 100, 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, 100, 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.DateTime, 4, 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=libbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 图书征订(征订编号, 图书编号, 订购者, 订购数量, 订购单价, 订购日期, 订购者联系方式, 操作员, 是否验收, 验收日期) VAL" & _
        "UES (@征订编号, @图书编号, @订购者, @订购数量, @订购单价, @订购日期, @订购者联系方式, @操作员, @是否验收, @验收日期); SEL" & _
        "ECT 征订编号, 图书编号, 订购者, 订购数量, 订购单价, 订购日期, 订购者联系方式, 操作员, 是否验收, 验收日期 FROM 图书征订 WHERE " & _
        "(征订编号 = @征订编号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@征订编号", System.Data.SqlDbType.VarChar, 50, "征订编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@图书编号", System.Data.SqlDbType.VarChar, 50, "图书编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购者", System.Data.SqlDbType.VarChar, 100, "订购者"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购数量", System.Data.SqlDbType.Int, 4, "订购数量"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购单价", System.Data.SqlDbType.Money, 8, "订购单价"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购日期", System.Data.SqlDbType.DateTime, 4, "订购日期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购者联系方式", System.Data.SqlDbType.VarChar, 100, "订购者联系方式"))
        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.Bit, 1, "是否验收"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@验收日期", System.Data.SqlDbType.DateTime, 4, "验收日期"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 征订编号, 图书编号, 订购者, 订购数量, 订购单价, 订购日期, 订购者联系方式, 操作员, 是否验收, 验收日期 FROM 图书征订"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 图书征订 SET 征订编号 = @征订编号, 图书编号 = @图书编号, 订购者 = @订购者, 订购数量 = @订购数量, 订购单价 = @订购单" & _
        "价, 订购日期 = @订购日期, 订购者联系方式 = @订购者联系方式, 操作员 = @操作员, 是否验收 = @是否验收, 验收日期 = @验收日期 WHER" & _
        "E (征订编号 = @Original_征订编号) AND (图书编号 = @Original_图书编号) AND (操作员 = @Original_操作员 O" & _
        "R @Original_操作员 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 NULL) AND (订购日期 = @Original_订购日期 OR @Original_订购日期 IS NULL AND 订购日期 IS N" & _
        "ULL) 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, 50, "征订编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@图书编号", System.Data.SqlDbType.VarChar, 50, "图书编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购者", System.Data.SqlDbType.VarChar, 100, "订购者"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购数量", System.Data.SqlDbType.Int, 4, "订购数量"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购单价", System.Data.SqlDbType.Money, 8, "订购单价"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购日期", System.Data.SqlDbType.DateTime, 4, "订购日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@订购者联系方式", System.Data.SqlDbType.VarChar, 100, "订购者联系方式"))
        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.Bit, 1, "是否验收"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@验收日期", System.Data.SqlDbType.DateTime, 4, "验收日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_征订编号", System.Data.SqlDbType.VarChar, 50, 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, 50, 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.Bit, 1, 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.Money, 8, 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.Int, 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.DateTime, 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, 100, 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, 100, 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.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "验收日期", System.Data.DataRowVersion.Original, Nothing))
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.btnSubmit)
        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.GroupBox2.Location = New System.Drawing.Point(0, 269)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(616, 48)
        Me.GroupBox2.TabIndex = 21
        Me.GroupBox2.TabStop = False
        '
        'frmBuyBook
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(616, 317)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmBuyBook"
        Me.Controls.SetChildIndex(Me.GroupBox1, 0)
        Me.Controls.SetChildIndex(Me.GroupBox2, 0)
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Overrides Sub Prepare()
        Me.Text = "图书征订"
        Me.Label1.Text = "征订编号"
        Me.Label2.Text = "图书编号"
        Me.Label3.Text = "图书名称"
    End Sub
    Public Overrides Sub LoadData()
        Dim strFilter As String
        If txbOne.Text.Trim.Length = 0 Then
            If txbTwo.Text.Trim.Length = 0 Then
                If txbThree.Text.Trim.Length = 0 Then
                    strFilter = ""
                Else
                    strFilter = "where 图书名称 like '"
                    strFilter += txbThree.Text.Trim + "%'"