backupform1.vb

是一个用SQL和VB.NET来做的源码。

        Me.lblStock.Location = New System.Drawing.Point(72, 209)
        Me.lblStock.Name = "lblStock"
        Me.lblStock.Size = New System.Drawing.Size(56, 18)
        Me.lblStock.TabIndex = 60
        Me.lblStock.Text = "库存量:"
        '
        'lblPrice
        '
        Me.lblPrice.AutoSize = True
        Me.lblPrice.Location = New System.Drawing.Point(88, 177)
        Me.lblPrice.Name = "lblPrice"
        Me.lblPrice.Size = New System.Drawing.Size(40, 18)
        Me.lblPrice.TabIndex = 58
        Me.lblPrice.Text = "单价:"
        '
        'lblUnit
        '
        Me.lblUnit.AutoSize = True
        Me.lblUnit.Location = New System.Drawing.Point(57, 145)
        Me.lblUnit.Name = "lblUnit"
        Me.lblUnit.Size = New System.Drawing.Size(71, 18)
        Me.lblUnit.TabIndex = 56
        Me.lblUnit.Text = "单位数量:"
        '
        'lblCategoryID
        '
        Me.lblCategoryID.AutoSize = True
        Me.lblCategoryID.Location = New System.Drawing.Point(57, 113)
        Me.lblCategoryID.Name = "lblCategoryID"
        Me.lblCategoryID.Size = New System.Drawing.Size(71, 18)
        Me.lblCategoryID.TabIndex = 54
        Me.lblCategoryID.Text = "类别编号:"
        '
        'lblSupplierID
        '
        Me.lblSupplierID.AutoSize = True
        Me.lblSupplierID.Location = New System.Drawing.Point(41, 80)
        Me.lblSupplierID.Name = "lblSupplierID"
        Me.lblSupplierID.Size = New System.Drawing.Size(87, 18)
        Me.lblSupplierID.TabIndex = 52
        Me.lblSupplierID.Text = "供货商编号:"
        '
        'lblProduct
        '
        Me.lblProduct.AutoSize = True
        Me.lblProduct.Location = New System.Drawing.Point(84, 47)
        Me.lblProduct.Name = "lblProduct"
        Me.lblProduct.Size = New System.Drawing.Size(44, 18)
        Me.lblProduct.TabIndex = 50
        Me.lblProduct.Text = " 产品:"
        '
        'lblProductID
        '
        Me.lblProductID.AutoSize = True
        Me.lblProductID.Location = New System.Drawing.Point(57, 15)
        Me.lblProductID.Name = "lblProductID"
        Me.lblProductID.Size = New System.Drawing.Size(71, 18)
        Me.lblProductID.TabIndex = 48
        Me.lblProductID.Text = "产品编号:"
        '
        'TextBoxPosition
        '
        Me.TextBoxPosition.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.TextBoxPosition.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte))
        Me.TextBoxPosition.Location = New System.Drawing.Point(44, 329)
        Me.TextBoxPosition.Name = "TextBoxPosition"
        Me.TextBoxPosition.Size = New System.Drawing.Size(290, 25)
        Me.TextBoxPosition.TabIndex = 64
        Me.TextBoxPosition.Text = ""
        Me.TextBoxPosition.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'TextBoxOrderAmount
        '
        Me.TextBoxOrderAmount.Location = New System.Drawing.Point(137, 240)
        Me.TextBoxOrderAmount.Name = "TextBoxOrderAmount"
        Me.TextBoxOrderAmount.TabIndex = 63
        Me.TextBoxOrderAmount.Text = ""
        '
        'TextBoxStock
        '
        Me.TextBoxStock.Location = New System.Drawing.Point(137, 206)
        Me.TextBoxStock.Name = "TextBoxStock"
        Me.TextBoxStock.TabIndex = 61
        Me.TextBoxStock.Text = ""
        '
        'TextBoxPrice
        '
        Me.TextBoxPrice.Location = New System.Drawing.Point(137, 174)
        Me.TextBoxPrice.Name = "TextBoxPrice"
        Me.TextBoxPrice.Size = New System.Drawing.Size(104, 25)
        Me.TextBoxPrice.TabIndex = 59
        Me.TextBoxPrice.Text = ""
        '
        'TextBoxUnit
        '
        Me.TextBoxUnit.Location = New System.Drawing.Point(137, 142)
        Me.TextBoxUnit.Name = "TextBoxUnit"
        Me.TextBoxUnit.Size = New System.Drawing.Size(103, 25)
        Me.TextBoxUnit.TabIndex = 57
        Me.TextBoxUnit.Text = ""
        '
        'TextBoxCategoryID
        '
        Me.TextBoxCategoryID.Location = New System.Drawing.Point(137, 110)
        Me.TextBoxCategoryID.Name = "TextBoxCategoryID"
        Me.TextBoxCategoryID.Size = New System.Drawing.Size(177, 25)
        Me.TextBoxCategoryID.TabIndex = 55
        Me.TextBoxCategoryID.Text = ""
        '
        'TextBoxProductID
        '
        Me.TextBoxProductID.Location = New System.Drawing.Point(137, 12)
        Me.TextBoxProductID.Name = "TextBoxProductID"
        Me.TextBoxProductID.TabIndex = 49
        Me.TextBoxProductID.Text = ""
        '
        'TextBoxSupplierID
        '
        Me.TextBoxSupplierID.Location = New System.Drawing.Point(137, 77)
        Me.TextBoxSupplierID.Name = "TextBoxSupplierID"
        Me.TextBoxSupplierID.Size = New System.Drawing.Size(177, 25)
        Me.TextBoxSupplierID.TabIndex = 53
        Me.TextBoxSupplierID.Text = ""
        '
        'TextBoxProduct
        '
        Me.TextBoxProduct.Location = New System.Drawing.Point(137, 44)
        Me.TextBoxProduct.Name = "TextBoxProduct"
        Me.TextBoxProduct.Size = New System.Drawing.Size(177, 25)
        Me.TextBoxProduct.TabIndex = 51
        Me.TextBoxProduct.Text = ""
        '
        'BackupForm1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 18)
        Me.ClientSize = New System.Drawing.Size(491, 410)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ComboBoxCategory, Me.CheckBoxSaleOrNot, Me.lblSaleOrNot, Me.lblSafety, Me.TextBoxSafety, Me.btnEnd, Me.btnNext, Me.btnBack, Me.btnFirst, Me.lblOrderAmount, Me.lblStock, Me.lblPrice, Me.lblUnit, Me.lblCategoryID, Me.lblSupplierID, Me.lblProduct, Me.lblProductID, Me.TextBoxPosition, Me.TextBoxOrderAmount, Me.TextBoxStock, Me.TextBoxPrice, Me.TextBoxUnit, Me.TextBoxCategoryID, Me.TextBoxProductID, Me.TextBoxSupplierID, Me.TextBoxProduct})
        Me.Name = "BackupForm1"
        Me.Text = "BackupForm1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    ' 更新数据记录当前位置的讯息
    Protected Sub 产品资料_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        TextBoxPosition.Text = String.Format("数据记录:当前位置 {0} 总数 {1}", Me.BindingContext(ds, "产品资料").Position + 1, Me.BindingContext(ds, "产品资料").Count)
    End Sub

    ' 按下 第一条 按钮
    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        ' 将 Position 属性设定成 0
        Me.BindingContext(ds, "产品资料").Position = 0
    End Sub

    ' 按下 上一条 按钮
    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        If Me.BindingContext(ds, "产品资料").Position > 0 Then
            ' 将 Position 属性递减 1
            Me.BindingContext(ds, "产品资料").Position -= 1
        End If
    End Sub

    ' 按下 下一条 按钮
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        If Me.BindingContext(ds, "产品资料").Position < Me.BindingContext(ds, "产品资料").Count - 1 Then
            ' 将 Position 属性递增 1
            Me.BindingContext(ds, "产品资料").Position += 1
        End If
    End Sub

    ' 按下 最后一条 按钮
    Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
        Me.BindingContext(ds, "产品资料").Position = Me.BindingContext(ds, "产品资料").Count - 1
    End Sub
End Class