frminput.vb

VB写的进销存管理系统

        Me.Label9.TabIndex = 80
        Me.Label9.Text = "年"
        '
        'Label10
        '
        Me.Label10.ForeColor = System.Drawing.Color.Red
        Me.Label10.Location = New System.Drawing.Point(16, 120)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(80, 24)
        Me.Label10.TabIndex = 78
        Me.Label10.Text = "※销售日期："
        '
        'Label5
        '
        Me.Label5.ForeColor = System.Drawing.Color.Red
        Me.Label5.Location = New System.Drawing.Point(248, 88)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(80, 24)
        Me.Label5.TabIndex = 28
        Me.Label5.Text = "※进货数量："
        '
        'Label4
        '
        Me.Label4.ForeColor = System.Drawing.Color.Red
        Me.Label4.Location = New System.Drawing.Point(16, 88)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 24)
        Me.Label4.TabIndex = 27
        Me.Label4.Text = "※单价："
        '
        'Label3
        '
        Me.Label3.ForeColor = System.Drawing.Color.Red
        Me.Label3.Location = New System.Drawing.Point(16, 56)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(128, 24)
        Me.Label3.TabIndex = 26
        Me.Label3.Text = "※商品名称和型号："
        '
        'Label1
        '
        Me.Label1.ForeColor = System.Drawing.Color.Red
        Me.Label1.Location = New System.Drawing.Point(248, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(88, 24)
        Me.Label1.TabIndex = 25
        Me.Label1.Text = "※生产厂商："
        '
        'Label2
        '
        Me.Label2.ForeColor = System.Drawing.Color.Red
        Me.Label2.Location = New System.Drawing.Point(16, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 24)
        Me.Label2.TabIndex = 24
        Me.Label2.Text = "※编号："
        '
        'GBAddProduct
        '
        Me.GBAddProduct.Controls.Add(Me.txtPModel)
        Me.GBAddProduct.Controls.Add(Me.Label14)
        Me.GBAddProduct.Controls.Add(Me.Label13)
        Me.GBAddProduct.Controls.Add(Me.Label12)
        Me.GBAddProduct.Controls.Add(Me.Label11)
        Me.GBAddProduct.Controls.Add(Me.txtPId)
        Me.GBAddProduct.Controls.Add(Me.txtPName)
        Me.GBAddProduct.Controls.Add(Me.cobPFactory)
        Me.GBAddProduct.Controls.Add(Me.bunAddProduct)
        Me.GBAddProduct.Controls.Add(Me.bunAddProductCancel)
        Me.GBAddProduct.Controls.Add(Me.bunProductUpdate)
        Me.GBAddProduct.Location = New System.Drawing.Point(16, 224)
        Me.GBAddProduct.Name = "GBAddProduct"
        Me.GBAddProduct.Size = New System.Drawing.Size(552, 128)
        Me.GBAddProduct.TabIndex = 1
        Me.GBAddProduct.TabStop = False
        Me.GBAddProduct.Text = "添加商品"
        '
        'txtPModel
        '
        Me.txtPModel.BackColor = System.Drawing.SystemColors.Window
        Me.txtPModel.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtPModel.Location = New System.Drawing.Point(328, 48)
        Me.txtPModel.Name = "txtPModel"
        Me.txtPModel.Size = New System.Drawing.Size(208, 21)
        Me.txtPModel.TabIndex = 104
        Me.txtPModel.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(248, 56)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(88, 24)
        Me.Label14.TabIndex = 102
        Me.Label14.Text = "  型    号："
        '
        'Label13
        '
        Me.Label13.ForeColor = System.Drawing.Color.Red
        Me.Label13.Location = New System.Drawing.Point(16, 56)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(80, 24)
        Me.Label13.TabIndex = 101
        Me.Label13.Text = "※生产厂商："
        '
        'Label12
        '
        Me.Label12.ForeColor = System.Drawing.Color.Red
        Me.Label12.Location = New System.Drawing.Point(248, 24)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(80, 24)
        Me.Label12.TabIndex = 100
        Me.Label12.Text = "※商品名称："
        '
        'Label11
        '
        Me.Label11.ForeColor = System.Drawing.Color.Red
        Me.Label11.Location = New System.Drawing.Point(16, 24)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(80, 24)
        Me.Label11.TabIndex = 99
        Me.Label11.Text = "※商品编号："
        '
        'txtPId
        '
        Me.txtPId.BackColor = System.Drawing.SystemColors.Window
        Me.txtPId.Enabled = False
        Me.txtPId.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtPId.Location = New System.Drawing.Point(96, 16)
        Me.txtPId.Name = "txtPId"
        Me.txtPId.Size = New System.Drawing.Size(152, 21)
        Me.txtPId.TabIndex = 99
        Me.txtPId.Text = ""
        '
        'txtPName
        '
        Me.txtPName.BackColor = System.Drawing.SystemColors.Window
        Me.txtPName.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtPName.Location = New System.Drawing.Point(328, 16)
        Me.txtPName.Name = "txtPName"
        Me.txtPName.Size = New System.Drawing.Size(208, 21)
        Me.txtPName.TabIndex = 103
        Me.txtPName.Text = ""
        '
        'cobPFactory
        '
        Me.cobPFactory.Location = New System.Drawing.Point(96, 48)
        Me.cobPFactory.Name = "cobPFactory"
        Me.cobPFactory.Size = New System.Drawing.Size(152, 20)
        Me.cobPFactory.TabIndex = 99
        '
        'bunAddProduct
        '
        Me.bunAddProduct.Location = New System.Drawing.Point(336, 88)
        Me.bunAddProduct.Name = "bunAddProduct"
        Me.bunAddProduct.Size = New System.Drawing.Size(40, 24)
        Me.bunAddProduct.TabIndex = 99
        Me.bunAddProduct.Text = "添加"
        '
        'bunAddProductCancel
        '
        Me.bunAddProductCancel.Location = New System.Drawing.Point(392, 88)
        Me.bunAddProductCancel.Name = "bunAddProductCancel"
        Me.bunAddProductCancel.Size = New System.Drawing.Size(40, 24)
        Me.bunAddProductCancel.TabIndex = 100
        Me.bunAddProductCancel.Text = "取消"
        '
        'bunProductUpdate
        '
        Me.bunProductUpdate.Location = New System.Drawing.Point(448, 88)
        Me.bunProductUpdate.Name = "bunProductUpdate"
        Me.bunProductUpdate.Size = New System.Drawing.Size(88, 24)
        Me.bunProductUpdate.TabIndex = 101
        Me.bunProductUpdate.Text = "更新到数据库"
        '
        'GBAddFactory
        '
        Me.GBAddFactory.Controls.Add(Me.txtFAddr)
        Me.GBAddFactory.Controls.Add(Me.txtFPhone)
        Me.GBAddFactory.Controls.Add(Me.txtFManager)
        Me.GBAddFactory.Controls.Add(Me.Label19)
        Me.GBAddFactory.Controls.Add(Me.Label18)
        Me.GBAddFactory.Controls.Add(Me.Label15)
        Me.GBAddFactory.Controls.Add(Me.Label16)
        Me.GBAddFactory.Controls.Add(Me.Label17)
        Me.GBAddFactory.Controls.Add(Me.bunFactoryUpdate)
        Me.GBAddFactory.Controls.Add(Me.bunAddFactoryCancel)
        Me.GBAddFactory.Controls.Add(Me.bunAddFactory)
        Me.GBAddFactory.Controls.Add(Me.txtFId)
        Me.GBAddFactory.Controls.Add(Me.txtFName)
        Me.GBAddFactory.Location = New System.Drawing.Point(16, 360)
        Me.GBAddFactory.Name = "GBAddFactory"
        Me.GBAddFactory.Size = New System.Drawing.Size(552, 160)
        Me.GBAddFactory.TabIndex = 2
        Me.GBAddFactory.TabStop = False
        Me.GBAddFactory.Text = "添加厂商"
        '
        'txtFAddr
        '
        Me.txtFAddr.BackColor = System.Drawing.SystemColors.Window
        Me.txtFAddr.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFAddr.Location = New System.Drawing.Point(96, 80)
        Me.txtFAddr.Name = "txtFAddr"
        Me.txtFAddr.Size = New System.Drawing.Size(440, 21)
        Me.txtFAddr.TabIndex = 110
        Me.txtFAddr.Text = ""
        '
        'txtFPhone
        '
        Me.txtFPhone.BackColor = System.Drawing.SystemColors.Window
        Me.txtFPhone.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFPhone.Location = New System.Drawing.Point(328, 48)
        Me.txtFPhone.Name = "txtFPhone"
        Me.txtFPhone.Size = New System.Drawing.Size(208, 21)
        Me.txtFPhone.TabIndex = 109
        Me.txtFPhone.Text = ""
        '
        'txtFManager
        '
        Me.txtFManager.BackColor = System.Drawing.SystemColors.Window
        Me.txtFManager.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFManager.Location = New System.Drawing.Point(96, 48)
        Me.txtFManager.Name = "txtFManager"
        Me.txtFManager.Size = New System.Drawing.Size(152, 21)
        Me.txtFManager.TabIndex = 108
        Me.txtFManager.Text = ""
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(16, 88)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(88, 24)
        Me.Label19.TabIndex = 107
        Me.Label19.Text = "  厂商地址："
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(248, 56)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(88, 24)
        Me.Label18.TabIndex = 106
        Me.Label18.Text = "  厂商电话："
        '
        'Label15
        '
        Me.Label15.ForeColor = System.Drawing.Color.Red
        Me.Label15.Location = New System.Drawing.Point(16, 24)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(80, 24)
        Me.Label15.TabIndex = 105
        Me.Label15.Text = "※厂商编号："
        '
        'Label16
        '
        Me.Label16.ForeColor = System.Drawing.Color.Red
        Me.Label16.Location = New System.Drawing.Point(248, 24)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(80, 24)
        Me.Label16.TabIndex = 105
        Me.Label16.Text = "※厂商名称："
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(16, 56)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(88, 24)
        Me.Label17.TabIndex = 105
        Me.Label17.Text = "  联 系 人："
        '
        'bunFactoryUpdate
        '
        Me.bunFactoryUpdate.Location = New System.Drawing.Point(448, 120)
        Me.bunFactoryUpdate.Name = "bunFactoryUpdate"
        Me.bunFactoryUpdate.Size = New System.Drawing.Size(88, 24)
        Me.bunFactoryUpdate.TabIndex = 107
        Me.bunFactoryUpdate.Text = "更新到数据库"
        '
        'bunAddFactoryCancel
        '
        Me.bunAddFactoryCancel.Location = New System.Drawing.Point(392, 120)
        Me.bunAddFactoryCancel.Name = "bunAddFactoryCancel"
        Me.bunAddFactoryCancel.Size = New System.Drawing.Size(40, 24)
        Me.bunAddFactoryCancel.TabIndex = 106
        Me.bunAddFactoryCancel.Text = "取消"
        '
        'bunAddFactory