医药行业

开发平台：
Visual Basic

frmMdck.vb：源码内容
							Public Class frmMdck
    Inherits System.Windows.Forms.Form
#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 GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents txtXsy As System.Windows.Forms.TextBox
    Friend WithEvents txtDate As System.Windows.Forms.DateTimePicker
    Friend WithEvents txtBillnumber As System.Windows.Forms.TextBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents txtLprice As System.Windows.Forms.TextBox
    Friend WithEvents txtPprice As System.Windows.Forms.TextBox
    Friend WithEvents txtProduct As System.Windows.Forms.TextBox
    Friend WithEvents txtAvaid As System.Windows.Forms.TextBox
    Friend WithEvents txtBatch As System.Windows.Forms.TextBox
    Friend WithEvents txtPackage As System.Windows.Forms.TextBox
    Friend WithEvents txtPrice As System.Windows.Forms.TextBox
    Friend WithEvents txtUnit As System.Windows.Forms.TextBox
    Friend WithEvents txtMedRule As System.Windows.Forms.TextBox
    Friend WithEvents txtmedName As System.Windows.Forms.TextBox
    Friend WithEvents txtMedNumber As System.Windows.Forms.TextBox
    Friend WithEvents Label22 As System.Windows.Forms.Label
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents txtNo As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents Label26 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Panel4 As System.Windows.Forms.Panel
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents Label27 As System.Windows.Forms.Label
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents lblsum As System.Windows.Forms.Label
    Friend WithEvents lblfk As System.Windows.Forms.Label
    Friend WithEvents lblzl As System.Windows.Forms.Label
    Friend WithEvents btnAdd As System.Windows.Forms.Button
    Friend WithEvents btnSave As System.Windows.Forms.Button
    Friend WithEvents btnprint As System.Windows.Forms.Button
    Friend WithEvents txtKh As System.Windows.Forms.TextBox
    Friend WithEvents txtKl As System.Windows.Forms.TextBox
    Friend WithEvents txtsum As System.Windows.Forms.TextBox
    Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
    Friend WithEvents txtcard As System.Windows.Forms.TextBox
    Friend WithEvents txtcount As System.Windows.Forms.TextBox
    Friend WithEvents txtmednumbers As System.Windows.Forms.TextBox
    Friend WithEvents dgview As System.Windows.Forms.DataGrid
    Friend WithEvents Label28 As System.Windows.Forms.Label
    Friend WithEvents txtmoney As System.Windows.Forms.TextBox
    Friend WithEvents txtshmoney As System.Windows.Forms.TextBox
    Friend WithEvents Label25 As System.Windows.Forms.Label
    Friend WithEvents btnth As System.Windows.Forms.Button
    Friend WithEvents btnExit As System.Windows.Forms.Button
    Friend WithEvents Label29 As System.Windows.Forms.Label
    Friend WithEvents txthw As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.txtcard = New System.Windows.Forms.TextBox
        Me.Label24 = New System.Windows.Forms.Label
        Me.txtXsy = New System.Windows.Forms.TextBox
        Me.txtDate = New System.Windows.Forms.DateTimePicker
        Me.txtBillnumber = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.dgview = New System.Windows.Forms.DataGrid
        Me.Panel2 = New System.Windows.Forms.Panel
        Me.GroupBox3 = New System.Windows.Forms.GroupBox
        Me.txthw = New System.Windows.Forms.TextBox
        Me.Label29 = New System.Windows.Forms.Label
        Me.txtLprice = New System.Windows.Forms.TextBox
        Me.txtPprice = New System.Windows.Forms.TextBox
        Me.txtProduct = New System.Windows.Forms.TextBox
        Me.txtAvaid = New System.Windows.Forms.TextBox
        Me.txtBatch = New System.Windows.Forms.TextBox
        Me.txtPackage = New System.Windows.Forms.TextBox
        Me.txtPrice = New System.Windows.Forms.TextBox
        Me.txtUnit = New System.Windows.Forms.TextBox
        Me.txtMedRule = New System.Windows.Forms.TextBox
        Me.txtmedName = New System.Windows.Forms.TextBox
        Me.txtMedNumber = New System.Windows.Forms.TextBox
        Me.Label22 = New System.Windows.Forms.Label
        Me.Label21 = New System.Windows.Forms.Label
        Me.Label19 = New System.Windows.Forms.Label
        Me.Label18 = New System.Windows.Forms.Label
        Me.Label17 = New System.Windows.Forms.Label
        Me.Label16 = New System.Windows.Forms.Label
        Me.Label14 = New System.Windows.Forms.Label
        Me.Label12 = New System.Windows.Forms.Label
        Me.Label11 = New System.Windows.Forms.Label
        Me.Label10 = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.txtNo = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.Panel3 = New System.Windows.Forms.Panel
        Me.lblzl = New System.Windows.Forms.Label
        Me.lblfk = New System.Windows.Forms.Label
        Me.lblsum = New System.Windows.Forms.Label
        Me.Label26 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.Panel4 = New System.Windows.Forms.Panel
        Me.GroupBox4 = New System.Windows.Forms.GroupBox
        Me.btnExit = New System.Windows.Forms.Button
        Me.btnth = New System.Windows.Forms.Button
        Me.Label25 = New System.Windows.Forms.Label
        Me.txtshmoney = New System.Windows.Forms.TextBox
        Me.txtmoney = New System.Windows.Forms.TextBox
        Me.Label28 = New System.Windows.Forms.Label
        Me.btnprint = New System.Windows.Forms.Button
        Me.btnSave = New System.Windows.Forms.Button
        Me.btnAdd = New System.Windows.Forms.Button
        Me.Label27 = New System.Windows.Forms.Label
        Me.GroupBox5 = New System.Windows.Forms.GroupBox
        Me.txtsum = New System.Windows.Forms.TextBox
        Me.txtKl = New System.Windows.Forms.TextBox
        Me.txtKh = New System.Windows.Forms.TextBox
        Me.Label23 = New System.Windows.Forms.Label
        Me.Label15 = New System.Windows.Forms.Label
        Me.Label13 = New System.Windows.Forms.Label
        Me.txtcount = New System.Windows.Forms.TextBox
        Me.txtmednumbers = New System.Windows.Forms.TextBox
        Me.Label8 = New System.Windows.Forms.Label
        Me.Label20 = New System.Windows.Forms.Label
        Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
        Me.GroupBox2.SuspendLayout()
        CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.SuspendLayout()
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.txtcard)
        Me.GroupBox2.Controls.Add(Me.Label24)
        Me.GroupBox2.Controls.Add(Me.txtXsy)
        Me.GroupBox2.Controls.Add(Me.txtDate)
        Me.GroupBox2.Controls.Add(Me.txtBillnumber)
        Me.GroupBox2.Controls.Add(Me.Label7)
        Me.GroupBox2.Controls.Add(Me.Label4)
        Me.GroupBox2.Controls.Add(Me.Label6)
        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(968, 62)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        '
        'txtcard
        '
        Me.txtcard.Location = New System.Drawing.Point(96, 21)
        Me.txtcard.Name = "txtcard"
        Me.txtcard.Size = New System.Drawing.Size(128, 25)
        Me.txtcard.TabIndex = 27
        Me.txtcard.Text = ""
        '
        'Label24
        '
        Me.Label24.AutoSize = True
        Me.Label24.Location = New System.Drawing.Point(32, 31)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(60, 21)
        Me.Label24.TabIndex = 26
        Me.Label24.Text = "会员卡:"
        '
        'txtXsy
        '
        Me.txtXsy.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtXsy.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtXsy.Location = New System.Drawing.Point(597, 24)
        Me.txtXsy.Name = "txtXsy"
        Me.txtXsy.Size = New System.Drawing.Size(118, 18)
        Me.txtXsy.TabIndex = 25
        Me.txtXsy.Text = ""
        '
        'txtDate
        '
        Me.txtDate.Location = New System.Drawing.Point(288, 21)
        Me.txtDate.Name = "txtDate"
        Me.txtDate.Size = New System.Drawing.Size(144, 25)
        Me.txtDate.TabIndex = 24
        '
        'txtBillnumber
        '
        Me.txtBillnumber.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtBillnumber.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtBillnumber.Location = New System.Drawing.Point(800, 24)
        Me.txtBillnumber.Name = "txtBillnumber"
        Me.txtBillnumber.Size = New System.Drawing.Size(160, 18)
        Me.txtBillnumber.TabIndex = 22
        Me.txtBillnumber.Text = ""
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Location = New System.Drawing.Point(533, 24)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(67, 21)
        Me.Label7.TabIndex = 21
        Me.Label7.Text = "销售员："
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(747, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(52, 21)
        Me.Label4.TabIndex = 19
        Me.Label4.Text = "票号："
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(235, 31)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(52, 21)
        Me.Label6.TabIndex = 18
        Me.Label6.Text = "日期："
        '
        'dgview
        '
        Me.dgview.DataMember = ""
        Me.dgview.Dock = System.Windows.Forms.DockStyle.Top
        Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgview.Location = New System.Drawing.Point(0, 62)
        Me.dgview.Name = "dgview"
        Me.dgview.Size = New System.Drawing.Size(968, 211)
        Me.dgview.TabIndex = 6
        '
        'Panel2
        '
        Me.Panel2.Controls.Add(Me.GroupBox3)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Location = New System.Drawing.Point(0, 273)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(968, 144)
        Me.Panel2.TabIndex = 7
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.txthw)
        Me.GroupBox3.Controls.Add(Me.Label29)
        Me.GroupBox3.Controls.Add(Me.txtLprice)
        Me.GroupBox3.Controls.Add(Me.txtPprice)
        Me.GroupBox3.Controls.Add(Me.txtProduct)
        Me.GroupBox3.Controls.Add(Me.txtAvaid)
        Me.GroupBox3.Controls.Add(Me.txtBatch)
        Me.GroupBox3.Controls.Add(Me.txtPackage)
        Me.GroupBox3.Controls.Add(Me.txtPrice)
        Me.GroupBox3.Controls.Add(Me.txtUnit)
        Me.GroupBox3.Controls.Add(Me.txtMedRule)
        Me.GroupBox3.Controls.Add(Me.txtmedName)
        Me.GroupBox3.Controls.Add(Me.txtMedNumber)
        Me.GroupBox3.Controls.Add(Me.Label22)
        Me.GroupBox3.Controls.Add(Me.Label21)
        Me.GroupBox3.Controls.Add(Me.Label19)
        Me.GroupBox3.Controls.Add(Me.Label18)
        Me.GroupBox3.Controls.Add(Me.Label17)
        Me.GroupBox3.Controls.Add(Me.Label16)
        Me.GroupBox3.Controls.Add(Me.Label14)
        Me.GroupBox3.Controls.Add(Me.Label12)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Controls.Add(Me.Label10)
        Me.GroupBox3.Controls.Add(Me.Label9)
        Me.GroupBox3.Controls.Add(Me.txtNo)
        Me.GroupBox3.Controls.Add(Me.Label5)
        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupBox3.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(968, 144)
        Me.GroupBox3.TabIndex = 3
        Me.GroupBox3.TabStop = False
        '
        'txthw
        '
        Me.txthw.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txthw.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txthw.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txthw.Location = New System.Drawing.Point(853, 93)
        Me.txthw.Name = "txthw"
        Me.txthw.Size = New System.Drawing.Size(107, 20)
        Me.txthw.TabIndex = 56
        Me.txthw.Text = ""
        '
        'Label29
        '
        Me.Label29.AutoSize = True
        Me.Label29.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label29.Location = New System.Drawing.Point(800, 93)
        Me.Label29.Name = "Label29"
        Me.Label29.Size = New System.Drawing.Size(60, 23)
        Me.Label29.TabIndex = 55
        Me.Label29.Text = "货位："
        '
        'txtLprice
        '
        Me.txtLprice.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtLprice.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtLprice.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtLprice.Location = New System.Drawing.Point(491, 93)
        Me.txtLprice.Name = "txtLprice"
        Me.txtLprice.Size = New System.Drawing.Size(128, 20)
        Me.txtLprice.TabIndex = 54
        Me.txtLprice.Text = "0.00"
        '
        'txtPprice
        '
        Me.txtPprice.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtPprice.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtPprice.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtPprice.Location = New System.Drawing.Point(288, 93)
        Me.txtPprice.Name = "txtPprice"
        Me.txtPprice.Size = New System.Drawing.Size(128, 20)
        Me.txtPprice.TabIndex = 53
        Me.txtPprice.Text = "0.00"
        '
        'txtProduct
        '
        Me.txtProduct.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtProduct.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtProduct.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtProduct.Location = New System.Drawing.Point(491, 62)
        Me.txtProduct.Name = "txtProduct"
        Me.txtProduct.Size = New System.Drawing.Size(128, 20)
        Me.txtProduct.TabIndex = 52
        Me.txtProduct.Text = ""
        '
        'txtAvaid
        '
        Me.txtAvaid.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtAvaid.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtAvaid.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtAvaid.Location = New System.Drawing.Point(288, 62)
        Me.txtAvaid.Name = "txtAvaid"
        Me.txtAvaid.Size = New System.Drawing.Size(128, 20)
        Me.txtAvaid.TabIndex = 51
        Me.txtAvaid.Text = ""
        '
        'txtBatch
        '
        Me.txtBatch.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtBatch.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtBatch.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtBatch.Location = New System.Drawing.Point(96, 60)
        Me.txtBatch.Name = "txtBatch"
        Me.txtBatch.Size = New System.Drawing.Size(104, 20)
        Me.txtBatch.TabIndex = 50
        Me.txtBatch.Text = ""
        '
        'txtPackage
        '
        Me.txtPackage.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtPackage.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtPackage.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtPackage.Location = New System.Drawing.Point(96, 93)
        Me.txtPackage.Name = "txtPackage"
        Me.txtPackage.Size = New System.Drawing.Size(107, 20)
        Me.txtPackage.TabIndex = 49
        Me.txtPackage.Text = ""
        '
        'txtPrice
        '
        Me.txtPrice.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtPrice.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtPrice.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtPrice.Location = New System.Drawing.Point(693, 93)
        Me.txtPrice.Name = "txtPrice"
        Me.txtPrice.Size = New System.Drawing.Size(107, 20)
        Me.txtPrice.TabIndex = 47
        Me.txtPrice.Text = "0.00"
        '
        'txtUnit
        '
        Me.txtUnit.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtUnit.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtUnit.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtUnit.Location = New System.Drawing.Point(800, 62)
        Me.txtUnit.Name = "txtUnit"
        Me.txtUnit.Size = New System.Drawing.Size(75, 20)
        Me.txtUnit.TabIndex = 45
        Me.txtUnit.Text = ""
        '
        'txtMedRule
        '
        Me.txtMedRule.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtMedRule.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtMedRule.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtMedRule.Location = New System.Drawing.Point(800, 31)
        Me.txtMedRule.Name = "txtMedRule"
        Me.txtMedRule.Size = New System.Drawing.Size(155, 20)
        Me.txtMedRule.TabIndex = 44
        Me.txtMedRule.Text = ""
        '
        'txtmedName
        '
        Me.txtmedName.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtmedName.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtmedName.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtmedName.Location = New System.Drawing.Point(491, 31)
        Me.txtmedName.Name = "txtmedName"
        Me.txtmedName.Size = New System.Drawing.Size(224, 20)
        Me.txtmedName.TabIndex = 43
        Me.txtmedName.Text = ""
        '
        'txtMedNumber
        '
        Me.txtMedNumber.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtMedNumber.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtMedNumber.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtMedNumber.Location = New System.Drawing.Point(288, 31)
        Me.txtMedNumber.Name = "txtMedNumber"
        Me.txtMedNumber.Size = New System.Drawing.Size(104, 20)
        Me.txtMedNumber.TabIndex = 42
        Me.txtMedNumber.Text = ""
        '
        'Label22
        '
        Me.Label22.AutoSize = True
        Me.Label22.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label22.Location = New System.Drawing.Point(420, 93)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(78, 23)
        Me.Label22.TabIndex = 41
        Me.Label22.Text = "零售价："
        '
        'Label21
        '
        Me.Label21.AutoSize = True
        Me.Label21.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label21.Location = New System.Drawing.Point(219, 93)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(78, 23)
        Me.Label21.TabIndex = 40
        Me.Label21.Text = "批发价："
        '
        'Label19
        '
        Me.Label19.AutoSize = True
        Me.Label19.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label19.Location = New System.Drawing.Point(440, 62)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(60, 23)
        Me.Label19.TabIndex = 39
        Me.Label19.Text = "产地："
        '
        'Label18
        '
        Me.Label18.AutoSize = True
        Me.Label18.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label18.Location = New System.Drawing.Point(219, 62)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(78, 23)
        Me.Label18.TabIndex = 38
        Me.Label18.Text = "有效期："
        '
        'Label17
        '
        Me.Label17.AutoSize = True
        Me.Label17.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label17.Location = New System.Drawing.Point(43, 62)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(60, 23)
        Me.Label17.TabIndex = 37
        Me.Label17.Text = "批号："
        '
        'Label16
        '
        Me.Label16.AutoSize = True
        Me.Label16.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label16.Location = New System.Drawing.Point(43, 93)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(60, 23)
        Me.Label16.TabIndex = 36
        Me.Label16.Text = "包装："
        '
        'Label14
        '
        Me.Label14.AutoSize = True
        Me.Label14.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label14.Location = New System.Drawing.Point(640, 93)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(60, 23)
        Me.Label14.TabIndex = 34
        Me.Label14.Text = "单价："
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label12.Location = New System.Drawing.Point(752, 62)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(60, 23)
        Me.Label12.TabIndex = 32
        Me.Label12.Text = "单位："
        '
        'Label11
        '
        Me.Label11.AutoSize = True
        Me.Label11.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label11.Location = New System.Drawing.Point(715, 31)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(96, 23)
        Me.Label11.TabIndex = 31
        Me.Label11.Text = "药品规格："
        '
        'Label10
        '
        Me.Label10.AutoSize = True
        Me.Label10.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label10.Location = New System.Drawing.Point(404, 31)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(96, 23)
        Me.Label10.TabIndex = 30
        Me.Label10.Text = "药品名称："
        '
        'Label9
        '
        Me.Label9.AutoSize = True
        Me.Label9.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label9.Location = New System.Drawing.Point(203, 31)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(96, 23)
        Me.Label9.TabIndex = 29
        Me.Label9.Text = "药品编号："
        '
        'txtNo
        '
        Me.txtNo.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtNo.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtNo.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtNo.Location = New System.Drawing.Point(96, 32)
        Me.txtNo.Name = "txtNo"
        Me.txtNo.Size = New System.Drawing.Size(43, 20)
        Me.txtNo.TabIndex = 23
        Me.txtNo.Text = ""
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label5.Location = New System.Drawing.Point(43, 31)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(60, 23)
        Me.Label5.TabIndex = 20
        Me.Label5.Text = "序号："
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.Panel3)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 417)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(968, 79)
        Me.Panel1.TabIndex = 8
        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.SystemColors.WindowText
        Me.Panel3.Controls.Add(Me.lblzl)
        Me.Panel3.Controls.Add(Me.lblfk)
        Me.Panel3.Controls.Add(Me.lblsum)
        Me.Panel3.Controls.Add(Me.Label26)
        Me.Panel3.Controls.Add(Me.Label3)
        Me.Panel3.Controls.Add(Me.Label2)
        Me.Panel3.Controls.Add(Me.Label1)
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel3.Location = New System.Drawing.Point(0, 0)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(968, 79)
        Me.Panel3.TabIndex = 6
        '
        'lblzl
        '
        Me.lblzl.Font = New System.Drawing.Font("宋体", 25.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblzl.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.lblzl.Location = New System.Drawing.Point(808, 8)
        Me.lblzl.Name = "lblzl"
        Me.lblzl.Size = New System.Drawing.Size(152, 49)
        Me.lblzl.TabIndex = 9
        Me.lblzl.Text = "0.00"
        '
        'lblfk
        '
        Me.lblfk.Font = New System.Drawing.Font("宋体", 25.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblfk.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.lblfk.Location = New System.Drawing.Point(472, 8)
        Me.lblfk.Name = "lblfk"
        Me.lblfk.Size = New System.Drawing.Size(152, 49)
        Me.lblfk.TabIndex = 8
        Me.lblfk.Text = "0.00"
        '
        'lblsum
        '
        Me.lblsum.Font = New System.Drawing.Font("宋体", 25.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblsum.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.lblsum.Location = New System.Drawing.Point(120, 8)
        Me.lblsum.Name = "lblsum"
        Me.lblsum.Size = New System.Drawing.Size(152, 49)
        Me.lblsum.TabIndex = 7
        Me.lblsum.Text = "0.00"
        '
        'Label26
        '
        Me.Label26.AutoSize = True
        Me.Label26.BackColor = System.Drawing.Color.Black
        Me.Label26.Font = New System.Drawing.Font("宋体", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label26.ForeColor = System.Drawing.Color.Gainsboro
        Me.Label26.Location = New System.Drawing.Point(11, 10)
        Me.Label26.Name = "Label26"
        Me.Label26.Size = New System.Drawing.Size(117, 49)
        Me.Label26.TabIndex = 6
        Me.Label26.Text = "合计:"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.BackColor = System.Drawing.Color.Black
        Me.Label3.Font = New System.Drawing.Font("宋体", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.ForeColor = System.Drawing.Color.White
        Me.Label3.Location = New System.Drawing.Point(696, 10)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(150, 53)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "找零："
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.BackColor = System.Drawing.Color.Black
        Me.Label2.Font = New System.Drawing.Font("宋体", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label2.ForeColor = System.Drawing.Color.White
        Me.Label2.Location = New System.Drawing.Point(360, 10)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(117, 49)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "付款:"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.Label1.Font = New System.Drawing.Font("宋体", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label1.Location = New System.Drawing.Point(-213, 19)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(150, 53)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "收款："
        '
        'Panel4
        '
        Me.Panel4.Controls.Add(Me.GroupBox4)
        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel4.Location = New System.Drawing.Point(0, 496)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(968, 137)
        Me.Panel4.TabIndex = 9
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.btnExit)
        Me.GroupBox4.Controls.Add(Me.btnth)
        Me.GroupBox4.Controls.Add(Me.Label25)
        Me.GroupBox4.Controls.Add(Me.txtshmoney)
        Me.GroupBox4.Controls.Add(Me.txtmoney)
        Me.GroupBox4.Controls.Add(Me.Label28)
        Me.GroupBox4.Controls.Add(Me.btnprint)
        Me.GroupBox4.Controls.Add(Me.btnSave)
        Me.GroupBox4.Controls.Add(Me.btnAdd)
        Me.GroupBox4.Controls.Add(Me.Label27)
        Me.GroupBox4.Controls.Add(Me.GroupBox5)
        Me.GroupBox4.Controls.Add(Me.txtcount)
        Me.GroupBox4.Controls.Add(Me.txtmednumbers)
        Me.GroupBox4.Controls.Add(Me.Label8)
        Me.GroupBox4.Controls.Add(Me.Label20)
        Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox4.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(968, 152)
        Me.GroupBox4.TabIndex = 4
        Me.GroupBox4.TabStop = False
        '
        'btnExit
        '
        Me.btnExit.Location = New System.Drawing.Point(309, 64)
        Me.btnExit.Name = "btnExit"
        Me.btnExit.Size = New System.Drawing.Size(75, 31)
        Me.btnExit.TabIndex = 67
        Me.btnExit.Text = "退出"
        Me.btnExit.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'btnth
        '
        Me.btnth.Location = New System.Drawing.Point(235, 64)
        Me.btnth.Name = "btnth"
        Me.btnth.Size = New System.Drawing.Size(74, 31)
        Me.btnth.TabIndex = 66
        Me.btnth.Text = "退货"
        Me.btnth.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Label25
        '
        Me.Label25.AutoSize = True
        Me.Label25.Location = New System.Drawing.Point(21, 103)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(569, 21)
        Me.Label25.TabIndex = 65
        Me.Label25.Text = "F1:添加 F2:保存 F3:会员查询 F4:药品查询 Down:向下 Up:向上 F6:删除 F8:打印"
        '
        'txtshmoney
        '
        Me.txtshmoney.Location = New System.Drawing.Point(469, 64)
        Me.txtshmoney.Name = "txtshmoney"
        Me.txtshmoney.Size = New System.Drawing.Size(134, 25)
        Me.txtshmoney.TabIndex = 64
        Me.txtshmoney.Text = ""
        '
        'txtmoney
        '
        Me.txtmoney.Location = New System.Drawing.Point(469, 31)
        Me.txtmoney.Name = "txtmoney"
        Me.txtmoney.ReadOnly = True
        Me.txtmoney.Size = New System.Drawing.Size(134, 25)
        Me.txtmoney.TabIndex = 63
        Me.txtmoney.Text = ""
        '
        'Label28
        '
        Me.Label28.AutoSize = True
        Me.Label28.Location = New System.Drawing.Point(416, 41)
        Me.Label28.Name = "Label28"
        Me.Label28.Size = New System.Drawing.Size(52, 21)
        Me.Label28.TabIndex = 62
        Me.Label28.Text = "金额："
        '
        'btnprint
        '
        Me.btnprint.Location = New System.Drawing.Point(168, 64)
        Me.btnprint.Name = "btnprint"
        Me.btnprint.Size = New System.Drawing.Size(75, 31)
        Me.btnprint.TabIndex = 60
        Me.btnprint.Text = "打印"
        Me.btnprint.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(96, 64)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(75, 31)
        Me.btnSave.TabIndex = 59
        Me.btnSave.Text = "收款"
        Me.btnSave.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(24, 64)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(75, 31)
        Me.btnAdd.TabIndex = 56
        Me.btnAdd.Text = "开票"
        Me.btnAdd.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Label27
        '
        Me.Label27.AutoSize = True
        Me.Label27.Location = New System.Drawing.Point(392, 72)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(83, 21)
        Me.Label27.TabIndex = 53
        Me.Label27.Text = "实收现金："
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.txtsum)
        Me.GroupBox5.Controls.Add(Me.txtKl)
        Me.GroupBox5.Controls.Add(Me.txtKh)
        Me.GroupBox5.Controls.Add(Me.Label23)
        Me.GroupBox5.Controls.Add(Me.Label15)
        Me.GroupBox5.Controls.Add(Me.Label13)
        Me.GroupBox5.Location = New System.Drawing.Point(693, 10)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(267, 113)
        Me.GroupBox5.TabIndex = 51
        Me.GroupBox5.TabStop = False
        '
        'txtsum
        '
        Me.txtsum.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtsum.Location = New System.Drawing.Point(107, 82)
        Me.txtsum.Name = "txtsum"
        Me.txtsum.Size = New System.Drawing.Size(133, 18)
        Me.txtsum.TabIndex = 5
        Me.txtsum.Text = ""
        '
        'txtKl
        '
        Me.txtKl.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtKl.Location = New System.Drawing.Point(107, 51)
        Me.txtKl.Name = "txtKl"
        Me.txtKl.Size = New System.Drawing.Size(133, 18)
        Me.txtKl.TabIndex = 4
        Me.txtKl.Text = ""
        '
        'txtKh
        '
        Me.txtKh.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtKh.Location = New System.Drawing.Point(107, 21)
        Me.txtKh.Name = "txtKh"
        Me.txtKh.Size = New System.Drawing.Size(133, 18)
        Me.txtKh.TabIndex = 3
        Me.txtKh.Text = ""
        '
        'Label23
        '
        Me.Label23.AutoSize = True
        Me.Label23.Location = New System.Drawing.Point(21, 82)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(75, 21)
        Me.Label23.TabIndex = 2
        Me.Label23.Text = "消费金额:"
        '
        'Label15
        '
        Me.Label15.AutoSize = True
        Me.Label15.Location = New System.Drawing.Point(21, 51)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(75, 21)
        Me.Label15.TabIndex = 1
        Me.Label15.Text = "会员扣率:"
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.Location = New System.Drawing.Point(21, 22)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(75, 21)
        Me.Label13.TabIndex = 0
        Me.Label13.Text = "会员卡号:"
        '
        'txtcount
        '
        Me.txtcount.Location = New System.Drawing.Point(272, 31)
        Me.txtcount.Name = "txtcount"
        Me.txtcount.Size = New System.Drawing.Size(120, 25)
        Me.txtcount.TabIndex = 50
        Me.txtcount.Text = ""
        '
        'txtmednumbers
        '
        Me.txtmednumbers.Location = New System.Drawing.Point(88, 31)
        Me.txtmednumbers.Name = "txtmednumbers"
        Me.txtmednumbers.Size = New System.Drawing.Size(120, 25)
        Me.txtmednumbers.TabIndex = 49
        Me.txtmednumbers.Text = ""
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.Location = New System.Drawing.Point(235, 41)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(52, 21)
        Me.Label8.TabIndex = 48
        Me.Label8.Text = "数量："
        '
        'Label20
        '
        Me.Label20.AutoSize = True
        Me.Label20.Location = New System.Drawing.Point(21, 41)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(83, 21)
        Me.Label20.TabIndex = 47
        Me.Label20.Text = "药品编号："
        '
        'ErrorProvider1
        '
        Me.ErrorProvider1.ContainerControl = Me
        '
        'frmMdck
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(968, 723)
        Me.Controls.Add(Me.Panel4)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.dgview)
        Me.Controls.Add(Me.GroupBox2)
        Me.KeyPreview = True
        Me.Name = "frmMdck"
        Me.Text = "frmMdck"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.Panel4.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.ResumeLayout(False)
    End Sub
#End Region
    Public bl As Boolean
    Public lsweb As New jxcmanage
    Public dslocal As DataSet = lsweb.returndataset("select 序号,药品编号,药品名称,药品规格,单位,单价,数量,金额,批号,有效期,货位,包装,产地,批发价,零售价,建议价,最低价,日期,票号,客户编号,客户名称,结算,销售员 from wz_ck", "wz_ck")
    Private Sub frmMdck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim frmloginer As New frmLogin
        'StatusBar1.Panels(0).Text = "AAA"
        ' StatusBar1.Panels(1).Text = Now.ToLongDateString
        ' StatusBar1.Panels(2).Text = Now.ToLongTimeString
        'StatusBar1.Panels(3).Text = "当前的操作人员是：" & frmloginer.struser
        dslocal.Clear()
        dgview.DataSource = dslocal.Tables("wz_ck").DefaultView
        txtDate.Value = Today.ToString
    End Sub
    Public Sub btnEnable(ByVal strboolean As String)
        If strboolean = "btnAdd.Enabled = True" Then
            btnSave.Enabled = False
            btnprint.Enabled = False
            btnExit.Enabled = True
        ElseIf strboolean = "btnAdd.Enabled = False" Then
            btnAdd.Enabled = False
            btnSave.Enabled = True
            btnprint.Enabled = True
            btnExit.Enabled = True
        ElseIf strboolean = "btnSave.Enabled = True" Then
            btnAdd.Enabled = False
            btnprint.Enabled = True
            btnExit.Enabled = True
        ElseIf strboolean = "btnSave.Enabled = False" Then
            btnSave.Enabled = False
            btnAdd.Enabled = True
            btnprint.Enabled = True
            btnExit.Enabled = True
        End If
    End Sub
    Private Sub frmMdck_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Select Case e.KeyCode
            Case Keys.F1
                add()
                btnEnable("btnAdd.Enabled = False")
                txtmednumbers.Focus()
               
                btnth.Enabled = False
            Case Keys.F2
                save()
                btnEnable("btnSave.Enabled = False")
                
                btnth.Enabled = True
            Case Keys.F3
                Dim strquery As String
                If txtcard.Text <> String.Empty Then
                    strquery = Me.getinfo(txtcard.Text)
                Else
                    strquery = "%"
                End If
                Dim dlg As frmCard = New frmCard
                dlg.PYM = strquery
                If dlg.PYM = String.Empty Then
                    ErrorProvider1.SetError(txtcard, "不能为空，请输入查询码！")
                Else
                    dlg.ShowDialog()
                    ErrorProvider1.SetError(txtcard, "")
                End If
                Dim CustIdvalue As String
                CustIdvalue = dlg.GetInfo("会员编号")
                If CustIdvalue Is Nothing Then
                    ErrorProvider1.SetError(txtcard, "或没有查到记录，请重新开始！")
                Else
                    Dim runSqlQuery As String
                    runSqlQuery = "select * from mdcard where 会员编号='" & CustIdvalue & " '"
                    Dim dv As DataView
                    ' Dim mOrderId As New managers
                    '调用mCustomId对象的SPcustomersID函数
                    Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
                    'bb为一随意表名
                    dtOrder.TableName = "bb"
                    dv = dtOrder.DefaultView
                    txtcard.Text = dv(0)("会员编号")
                    txtKh.Text = dv(0)("会员名称")
                    txtKl.Text = dv(0)("会员折扣")
                    txtsum.Text = dv(0)("消费金额")
                    'txtCustName.Text = dv(0)("客户名称")
                    txtmednumbers.Focus()
                    ErrorProvider1.SetError(txtcard, "")
                End If
            Case Keys.F4
                Dim strquery As String
                If txtcard.Text <> String.Empty Then
                    strquery = Me.getinfo(txtcard.Text)
                Else
                    strquery = "%"
                End If
                Dim dlgs As frmMdQuery = New frmMdQuery
                dlgs.PYMs = strquery
                If dlgs.PYMs = String.Empty Then
                    ErrorProvider1.SetError(txtmednumbers, "不能为空，请输入查询码！")
                Else
                    dlgs.ShowDialog()
                    ErrorProvider1.SetError(txtmednumbers, "")
                End If
                Dim medIdvalue, medbatch, product, avaid, hw, package As String
                medIdvalue = dlgs.GetInfo("药品编号")
                medbatch = dlgs.GetInfo("批号")
                product = dlgs.GetInfo("产地")
                avaid = dlgs.GetInfo("有效期")
                hw = dlgs.GetInfo("货位")
                package = dlgs.GetInfo("包装")
                If medIdvalue Is Nothing Then
                    ErrorProvider1.SetError(txtmednumbers, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
                Else
                    Dim runSqlQuery As String
                    runSqlQuery = "select wz_kc.药品编号,wz_kc.药品名称,wz_kc.药品规格,wz_kc.单位,wz_kc.数量,wz_cp.售价,wz_kc.金额,wz_kc.包装,wz_kc.批号,wz_kc.有效期,wz_kc.产地,wz_kc.货位,wz_kc.建议价,wz_kc.最低价,wz_kc.批发价,wz_kc.零售价,wz_cp.拼音码 from wz_cp,wz_kc where wz_cp.药品编号=wz_kc.药品编号 and wz_kc.药品编号='" & medIdvalue & "'and wz_kc.批号 ='" & medbatch & "' and wz_kc.产地='" & product & "' and wz_kc.有效期='" & avaid & "' and wz_kc.货位='" & hw & "' and wz_kc.包装='" & package & "'"
                    Dim dv As DataView
                    ' Dim mOrderId As New managers
                    '调用mCustomId对象的SPcustomersID函数
                    Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
                    'bb为一随意表名
                    dtOrder.TableName = "bb"
                    dv = dtOrder.DefaultView
                    txtmednumbers.Text = dv(0)("药品编号")
                    txtMedNumber.Text = dv(0)("药品编号")
                    txtmedName.Text = dv(0)("药品名称")
                    txtMedRule.Text = dv(0)("药品规格")
                    txtUnit.Text = dv(0)("单位")
                    txtPrice.Text = dv(0)("售价")
                    txtProduct.Text = dv(0)("产地")
                    txtPprice.Text = dv(0)("批发价")
                    txtLprice.Text = dv(0)("零售价")
                    txtBatch.Text = dv(0)("批号")
                    txthw.Text = dv(0)("货位")
                    txtPackage.Text = dv(0)("包装")
                    txtAvaid.Text = dv(0)("有效期")
                    'txtJprice.Text = dv(0)("建议价")
                    'txtZprice.Text = dv(0)("最低价")
                    ErrorProvider1.SetError(txtmednumbers, "")
                    txtcount.Focus()
                    txtcount.Text = ""
                End If
            Case Keys.Down
                BindingContext(Me.dgview.DataSource).Position = dgview.BindingContext(Me.dgview.DataSource).Position + 1
            Case Keys.Up
                BindingContext(Me.dgview.DataSource).Position = dgview.BindingContext(Me.dgview.DataSource).Position - 1
            Case Keys.F6
                Dim i As Int16
                i = dgview.CurrentRowIndex
                dgview.Select(dgview.CurrentRowIndex)
                BindingContext(Me.dgview.DataSource).RemoveAt(i)
            Case Keys.F7
                bl = True
                btnth.Enabled = False
            Case Keys.F8
                Dim frmviewcker As New frmviewck
                frmviewcker.ckbillnumber = txtBillnumber.Text.Trim
                frmviewcker.Show()
        End Select
        
    End Sub
   
    Public Function getinfo(ByVal strqueryid As String) As String
        Dim strOrderId As String
        strOrderId = strqueryid
        Return strOrderId
    End Function
    Private Sub TextBox3_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtcard.KeyDown
        If e.KeyCode = Keys.Enter Then
            If txtcard.Text <> String.Empty Then
                Dim dlg As frmCard = New frmCard
                dlg.PYM = Me.getinfo(txtcard.Text)
                If dlg.PYM = String.Empty Then
                    ErrorProvider1.SetError(txtcard, "不能为空，请输入查询码！")
                Else
                    dlg.ShowDialog()
                    ErrorProvider1.SetError(txtcard, "")
                End If
                Dim CustIdvalue As String
                CustIdvalue = dlg.GetInfo("会员编号")
                If CustIdvalue Is Nothing Then
                    ErrorProvider1.SetError(txtcard, "或没有查到记录，请重新开始！")
                Else
                    Dim runSqlQuery As String
                    runSqlQuery = "select * from mdcard where 会员编号='" & CustIdvalue & " '"
                    Dim dv As DataView
                    ' Dim mOrderId As New managers
                    '调用mCustomId对象的SPcustomersID函数
                    Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
                    'bb为一随意表名
                    dtOrder.TableName = "bb"
                    dv = dtOrder.DefaultView
                    txtcard.Text = dv(0)("会员编号")
                    txtKh.Text = dv(0)("会员名称")
                    txtKl.Text = dv(0)("会员折扣")
                    txtsum.Text = dv(0)("消费金额")
                    'txtCustName.Text = dv(0)("客户名称")
                    txtmednumbers.Focus()
                    ErrorProvider1.SetError(txtcard, "")
                End If
            Else
                txtmednumbers.Focus()
            End If
        End If
    End Sub
   
    Private Sub txtmednumbers_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtmednumbers.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim dlgs As frmMdQuery = New frmMdQuery
            dlgs.PYMs = Me.getinfo(txtmednumbers.Text)
            If dlgs.PYMs = String.Empty Then
                ErrorProvider1.SetError(txtmednumbers, "不能为空，请输入查询码！")
            Else
                dlgs.ShowDialog()
                ErrorProvider1.SetError(txtmednumbers, "")
            End If
            Dim medIdvalue, medbatch, product, avaid, hw, package As String
            medIdvalue = dlgs.GetInfo("药品编号")
            medbatch = dlgs.GetInfo("批号")
            product = dlgs.GetInfo("产地")
            avaid = dlgs.GetInfo("有效期")
            hw = dlgs.GetInfo("货位")
            package = dlgs.GetInfo("包装")
            If medIdvalue Is Nothing Then
                ErrorProvider1.SetError(txtmednumbers, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
            Else
                Dim runSqlQuery As String
                runSqlQuery = "select wz_kc.药品编号,wz_kc.药品名称,wz_kc.药品规格,wz_kc.单位,wz_kc.数量,wz_cp.售价,wz_kc.金额,wz_kc.包装,wz_kc.批号,wz_kc.有效期,wz_kc.产地,wz_kc.货位,wz_kc.建议价,wz_kc.最低价,wz_kc.批发价,wz_kc.零售价,wz_cp.拼音码 from wz_cp,wz_kc where wz_cp.药品编号=wz_kc.药品编号 and wz_kc.药品编号='" & medIdvalue & "'and wz_kc.批号 ='" & medbatch & "' and wz_kc.产地='" & product & "' and wz_kc.有效期='" & avaid & "' and wz_kc.货位='" & hw & "' and wz_kc.包装='" & package & "'"
                Dim dv As DataView
                ' Dim mOrderId As New managers
                '调用mCustomId对象的SPcustomersID函数
                Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
                'bb为一随意表名
                dtOrder.TableName = "bb"
                dv = dtOrder.DefaultView
                txtmednumbers.Text = dv(0)("药品编号")
                txtMedNumber.Text = dv(0)("药品编号")
                txtmedName.Text = dv(0)("药品名称")
                txtMedRule.Text = dv(0)("药品规格")
                txtUnit.Text = dv(0)("单位")
                txtPrice.Text = dv(0)("售价")
                txtProduct.Text = dv(0)("产地")
                txtPprice.Text = dv(0)("批发价")
                txtLprice.Text = dv(0)("零售价")
                txtBatch.Text = dv(0)("批号")
                txtHw.Text = dv(0)("货位")
                txtPackage.Text = dv(0)("包装")
                txtAvaid.Text = dv(0)("有效期")
                'txtJprice.Text = dv(0)("建议价")
                'txtZprice.Text = dv(0)("最低价")
                ErrorProvider1.SetError(txtmednumbers, "")
                txtcount.Focus()
                txtcount.Text = ""
            End If
        End If
    End Sub
   
    Private Sub txtcount_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtcount.KeyDown
        If e.KeyCode = Keys.Enter Then
            
            If txtcount.Text = String.Empty Then
                txtcount_Validating(Nothing, Nothing)
            Else
                If bl = True Then
                    If CInt(txtcount.Text) > 0 Then
                        txtcount_Validating(Nothing, Nothing)
                    Else
                        Static t As Int16
                        If dslocal.Tables("wz_ck").Rows.Count < 1 Then
                            t = 1
                        Else
                            t = t + 1
                        End If
                        txtNo.Text = CStr(t)
                        Dim dr As DataRow = dslocal.Tables("wz_ck").NewRow()
                        dr("序号") = CInt(Me.txtNo.Text.Trim)
                        dr("药品编号") = Me.txtMedNumber.Text.Trim
                        dr("药品名称") = Me.txtmedName.Text.Trim
                        dr("药品规格") = Me.txtMedRule.Text.Trim
                        dr("单位") = Me.txtUnit.Text.Trim
                        dr("单价") = CDec(Me.txtPrice.Text.Trim)
                        dr("数量") = CInt(Me.txtcount.Text.Trim)
                        dr("金额") = CDec(Me.txtPrice.Text.Trim) * CInt(Me.txtcount.Text.Trim)
                        dr("批号") = Me.txtBatch.Text.Trim
                        dr("有效期") = Me.txtAvaid.Text.Trim
                        dr("货位") = Me.txthw.Text.Trim
                        dr("包装") = Me.txtPackage.Text.Trim
                        dr("产地") = Me.txtProduct.Text.Trim
                        dr("批发价") = Me.txtPprice.Text.Trim
                        dr("零售价") = Me.txtLprice.Text.Trim
                        dr("建议价") = 0.0
                        dr("最低价") = 0.0
                        dr("日期") = Me.txtDate.Text.Trim
                        dr("票号") = Me.txtBillnumber.Text.Trim
                        dr("客户编号") = "1001"
                        dr("客户名称") = "现金"
                        dr("结算") = "现金"
                        dr("销售员") = Me.txtXsy.Text.Trim
                        dslocal.Tables("wz_ck").Rows.Add(dr)
                        CalMxMoney()
                        CalTotalMoney()
                        'clear()
                        Me.txtmednumbers.Text = ""
                        Me.txtmednumbers.Focus()
                        txtshmoney.ReadOnly = True
                    End If
                Else
                    Static i As Int16
                    If dslocal.Tables("wz_ck").Rows.Count < 1 Then
                        i = 1
                    Else
                        i = i + 1
                    End If
                    txtNo.Text = CStr(i)
                    Dim dr As DataRow = dslocal.Tables("wz_ck").NewRow()
                    dr("序号") = CInt(Me.txtNo.Text.Trim)
                    dr("药品编号") = Me.txtMedNumber.Text.Trim
                    dr("药品名称") = Me.txtmedName.Text.Trim
                    dr("药品规格") = Me.txtMedRule.Text.Trim
                    dr("单位") = Me.txtUnit.Text.Trim
                    dr("单价") = CDec(Me.txtPrice.Text.Trim)
                    dr("数量") = CInt(Me.txtcount.Text.Trim)
                    dr("金额") = CDec(Me.txtPrice.Text.Trim) * CInt(Me.txtcount.Text.Trim)
                    dr("批号") = Me.txtBatch.Text.Trim
                    dr("有效期") = Me.txtAvaid.Text.Trim
                    dr("货位") = Me.txthw.Text.Trim
                    dr("包装") = Me.txtPackage.Text.Trim
                    dr("产地") = Me.txtProduct.Text.Trim
                    dr("批发价") = Me.txtPprice.Text.Trim
                    dr("零售价") = Me.txtLprice.Text.Trim
                    dr("建议价") = 0.0
                    dr("最低价") = 0.0
                    dr("日期") = Me.txtDate.Text.Trim
                    dr("票号") = Me.txtBillnumber.Text.Trim
                    dr("客户编号") = "1001"
                    dr("客户名称") = "现金"
                    dr("结算") = "现金"
                    dr("销售员") = Me.txtXsy.Text.Trim
                    dslocal.Tables("wz_ck").Rows.Add(dr)
                    CalMxMoney()
                    CalTotalMoney()
                    'clear()
                    Me.txtmednumbers.Text = ""
                    Me.txtmednumbers.Focus()
                End If
                End If
        End If
        dgview.DataSource = dslocal.Tables("wz_ck").DefaultView
    End Sub
    Private Sub CalTotalMoney()
        If dslocal.Tables("wz_ck").Rows.Count = 0 Then
            Me.txtmoney.Text = 0
        End If
        Dim money As String = ""
        Dim dtotal As Double = 0
        For Each dr As DataRow In dslocal.Tables("wz_ck").Rows
            money = dr("金额")
            dtotal = dtotal + CType(money.Trim, Double)
        Next
        Me.lblsum.Text = dtotal.ToString
    End Sub
    Private Sub CalMxMoney()
        Dim price As Double = CType(txtPrice.Text, Double)
        Dim count As Int16 = CInt(txtcount.Text)
        Me.txtmoney.Text = (price * count).ToString
    End Sub
    Private Sub txtcount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtcount.Validating
        If bl = True Then
          
                If CInt(txtcount.Text) > 0 Or Not IsNumeric(txtcount.Text) Or txtcount.Text = String.Empty Then
                    ErrorProvider1.SetError(txtcount, "不是数值类型且不能大于零。")
                    'ErrorProvider1.SetError(txtcount, "")
                    txtcount.Text = ""
                    txtcount.Focus()
                Else
                    ErrorProvider1.SetError(txtcount, "")
                End If
        Else
            If CInt(txtcount.Text) < 0 Or Not IsNumeric(txtcount.Text) Or txtcount.Text = String.Empty Then
                ErrorProvider1.SetError(txtcount, "不是数值类型且不能为空。")
                txtcount.Focus()
            Else
                ErrorProvider1.SetError(txtcount, "")
            End If
        End If
    End Sub
  
    Public Sub add()
        Dim frmloginer As New frmLogin
        If btnth.Enabled = False Then
            bl = True
            txtBillnumber.Text = lsweb.selectbill("LT").ToString
            txtBillnumber.ForeColor = System.Drawing.Color.Red
            txtcount.ForeColor = System.Drawing.Color.Red
        Else
            bl = False
            txtBillnumber.Text = lsweb.selectbill("LS").ToString
            txtBillnumber.ForeColor = System.Drawing.Color.Black
            txtcount.ForeColor = System.Drawing.Color.Black
        End If
        txtNo.Text = 1
        txtXsy.Text = frmloginer.struser
        txtMedNumber.Text = ""
        txtmedName.Text() = ""
        txtMedRule.Text() = ""
        txtUnit.Text() = ""
        txtPrice.Text() = 0.0
        txtcount.Text() = 0
        'txtMoney.Text() = 0.0
        txtPackage.Text() = ""
        txtBatch.Text() = ""
        txtAvaid.Text() = ""
        txtProduct.Text() = ""
        txtPprice.Text() = 0.0
        txtLprice.Text() = 0.0
        dslocal.Clear()
        txtmednumbers.Focus()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        lblfk.Text = txtshmoney.Text
        Dim intzl As Decimal
        intzl = CType(lblsum.Text.Trim, Double) - CType(txtshmoney.Text.Trim, Double)
        lblzl.Text = intzl.ToString
    End Sub
    Private Sub txtshmoney_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtshmoney.KeyUp
        If txtshmoney.Text = String.Empty Then
            MessageBox.Show("请输入金额！", "提示信息：", MessageBoxButtons.OK)
        Else
            lblfk.Text = txtshmoney.Text
            Dim intzl As Decimal
            intzl = CType(txtshmoney.Text.Trim, Double) - CType(lblsum.Text.Trim, Double)
            lblzl.Text = intzl.ToString
        End If
    End Sub
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        add()
        btnEnable("btnAdd.Enabled = False")
        btnth.Enabled = False
    End Sub
    Private Sub save()
        If txtBillnumber.Text = String.Empty Then
            MessageBox.Show("请点击开票按钮！", "提示：", MessageBoxButtons.OK)
        Else
            If lsweb.updatedataset("select 序号,药品编号,药品名称,药品规格,单位,单价,数量,金额,批号,有效期,货位,包装,产地,批发价,零售价,建议价,最低价,日期,票号,客户编号,客户名称,结算,销售员 from wz_ck", "wz_ck", dslocal, DataRowState.Added) = True Then
                MessageBox.Show("销售信息成功保存！", "提示", MessageBoxButtons.OK)
            Else
                MessageBox.Show("销售信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
            End If
        End If
    End Sub
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        save()
        btnEnable("btnSave.Enabled = False")
        btnth.Enabled = True
    End Sub
    Private Sub btnth_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnth.Click
        bl = True
        btnth.Enabled = False
    End Sub
    Private Sub btnprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint.Click
        Dim frmviewcker As New frmviewck
        frmviewcker.ckbillnumber = txtBillnumber.Text.Trim
        frmviewcker.Show()
    End Sub
    Private Sub btnExit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
    Private Sub txtcount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcount.TextChanged
    End Sub
    Private Sub frmMdck_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        If txtBillnumber.Text <> String.Empty And btnSave.Enabled = True Then
            lsweb.cancelbill(txtBillnumber.Text.Trim)
        End If
    End Sub
    Private Sub txtmednumbers_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtmednumbers.TextChanged
    End Sub
End Class

						