医药行业

开发平台：
Visual Basic

frmCk.vb：源码内容
							Public Class frmCk
    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 StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents tbrAdd As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbrSave As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbrPrint As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbrQuery As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbrSeparator As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbrExit As System.Windows.Forms.ToolBarButton
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents Label22 As System.Windows.Forms.Label
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents txtCustNumber As System.Windows.Forms.TextBox
    Friend WithEvents txtCustName As System.Windows.Forms.TextBox
    Friend WithEvents txtBillnumber As System.Windows.Forms.TextBox
    Friend WithEvents txtNo As System.Windows.Forms.TextBox
    Friend WithEvents cboJs As System.Windows.Forms.ComboBox
    Friend WithEvents txtMedNumber As System.Windows.Forms.TextBox
    Friend WithEvents txtmedName As System.Windows.Forms.TextBox
    Friend WithEvents txtMedRule As System.Windows.Forms.TextBox
    Friend WithEvents txtUnit As System.Windows.Forms.TextBox
    Friend WithEvents txtCount As System.Windows.Forms.TextBox
    Friend WithEvents txtPrice As System.Windows.Forms.TextBox
    Friend WithEvents txtMoney As System.Windows.Forms.TextBox
    Friend WithEvents txtPackage As System.Windows.Forms.TextBox
    Friend WithEvents txtBatch As System.Windows.Forms.TextBox
    Friend WithEvents txtAvaid As System.Windows.Forms.TextBox
    Friend WithEvents txtProduct As System.Windows.Forms.TextBox
    Friend WithEvents txtHw As System.Windows.Forms.TextBox
    Friend WithEvents txtPprice As System.Windows.Forms.TextBox
    Friend WithEvents txtLprice As System.Windows.Forms.TextBox
    Friend WithEvents txtJprice As System.Windows.Forms.TextBox
    Friend WithEvents txtZprice As System.Windows.Forms.TextBox
    Friend WithEvents txtSum As System.Windows.Forms.TextBox
    Friend WithEvents dgck As System.Windows.Forms.DataGrid
    Friend WithEvents txtDate As System.Windows.Forms.DateTimePicker
    Friend WithEvents tbrCk As System.Windows.Forms.ToolBar
    Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
    Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
    Friend WithEvents txtXsy As System.Windows.Forms.TextBox
    Friend WithEvents tbrth As System.Windows.Forms.ToolBarButton
    Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
    Friend WithEvents txtID As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmCk))
        Me.tbrCk = New System.Windows.Forms.ToolBar
        Me.tbrAdd = New System.Windows.Forms.ToolBarButton
        Me.tbrSave = New System.Windows.Forms.ToolBarButton
        Me.tbrPrint = New System.Windows.Forms.ToolBarButton
        Me.tbrQuery = New System.Windows.Forms.ToolBarButton
        Me.tbrSeparator = New System.Windows.Forms.ToolBarButton
        Me.tbrth = New System.Windows.Forms.ToolBarButton
        Me.tbrExit = New System.Windows.Forms.ToolBarButton
        Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
        Me.StatusBar1 = New System.Windows.Forms.StatusBar
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.txtXsy = New System.Windows.Forms.TextBox
        Me.txtDate = New System.Windows.Forms.DateTimePicker
        Me.txtSum = New System.Windows.Forms.TextBox
        Me.Label24 = New System.Windows.Forms.Label
        Me.cboJs = New System.Windows.Forms.ComboBox
        Me.txtNo = New System.Windows.Forms.TextBox
        Me.txtBillnumber = New System.Windows.Forms.TextBox
        Me.txtCustName = New System.Windows.Forms.TextBox
        Me.txtCustNumber = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.Label5 = New System.Windows.Forms.Label
        Me.Label4 = 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.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.txtID = New System.Windows.Forms.Label
        Me.txtZprice = New System.Windows.Forms.TextBox
        Me.txtJprice = New System.Windows.Forms.TextBox
        Me.txtLprice = New System.Windows.Forms.TextBox
        Me.txtPprice = New System.Windows.Forms.TextBox
        Me.txtHw = 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.txtMoney = New System.Windows.Forms.TextBox
        Me.txtPrice = New System.Windows.Forms.TextBox
        Me.txtCount = 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.Label23 = New System.Windows.Forms.Label
        Me.Label22 = New System.Windows.Forms.Label
        Me.Label21 = New System.Windows.Forms.Label
        Me.Label20 = 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.Label15 = New System.Windows.Forms.Label
        Me.Label14 = New System.Windows.Forms.Label
        Me.Label13 = 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.Label8 = New System.Windows.Forms.Label
        Me.dgck = New System.Windows.Forms.DataGrid
        Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
        Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.dgck, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'tbrCk
        '
        Me.tbrCk.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.tbrCk.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrAdd, Me.tbrSave, Me.tbrPrint, Me.tbrQuery, Me.tbrSeparator, Me.tbrth, Me.tbrExit})
        Me.tbrCk.DropDownArrows = True
        Me.tbrCk.ImageList = Me.ImageList2
        Me.tbrCk.Location = New System.Drawing.Point(0, 0)
        Me.tbrCk.Name = "tbrCk"
        Me.tbrCk.ShowToolTips = True
        Me.tbrCk.Size = New System.Drawing.Size(678, 41)
        Me.tbrCk.TabIndex = 0
        '
        'tbrAdd
        '
        Me.tbrAdd.ImageIndex = 7
        Me.tbrAdd.Text = "添加"
        '
        'tbrSave
        '
        Me.tbrSave.ImageIndex = 4
        Me.tbrSave.Text = "保存"
        '
        'tbrPrint
        '
        Me.tbrPrint.ImageIndex = 12
        Me.tbrPrint.Text = "打印"
        '
        'tbrQuery
        '
        Me.tbrQuery.ImageIndex = 13
        Me.tbrQuery.Text = "查询"
        '
        'tbrSeparator
        '
        Me.tbrSeparator.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbrth
        '
        Me.tbrth.ImageIndex = 9
        Me.tbrth.Text = "退货"
        '
        'tbrExit
        '
        Me.tbrExit.ImageIndex = 11
        Me.tbrExit.Text = "退出"
        '
        'ImageList2
        '
        Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 427)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Size = New System.Drawing.Size(678, 21)
        Me.StatusBar1.TabIndex = 1
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.txtXsy)
        Me.GroupBox1.Controls.Add(Me.txtDate)
        Me.GroupBox1.Controls.Add(Me.txtSum)
        Me.GroupBox1.Controls.Add(Me.Label24)
        Me.GroupBox1.Controls.Add(Me.cboJs)
        Me.GroupBox1.Controls.Add(Me.txtNo)
        Me.GroupBox1.Controls.Add(Me.txtBillnumber)
        Me.GroupBox1.Controls.Add(Me.txtCustName)
        Me.GroupBox1.Controls.Add(Me.txtCustNumber)
        Me.GroupBox1.Controls.Add(Me.Label7)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(678, 74)
        Me.GroupBox1.TabIndex = 2
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "票据信息"
        '
        'txtXsy
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtXsy, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtXsy, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtXsy, "")
        Me.txtXsy.Location = New System.Drawing.Point(390, 44)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtXsy, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtXsy, "")
        Me.txtXsy.Name = "txtXsy"
        Me.txtXsy.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtXsy, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtXsy, False)
        Me.txtXsy.Size = New System.Drawing.Size(102, 21)
        Me.txtXsy.TabIndex = 17
        Me.txtXsy.Text = ""
        '
        'txtDate
        '
        Me.txtDate.Location = New System.Drawing.Point(390, 19)
        Me.txtDate.Name = "txtDate"
        Me.txtDate.Size = New System.Drawing.Size(102, 21)
        Me.txtDate.TabIndex = 16
        Me.txtDate.Value = New Date(2006, 3, 28, 0, 0, 0, 0)
        '
        'txtSum
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtSum, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtSum, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtSum, "")
        Me.txtSum.Location = New System.Drawing.Point(552, 44)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtSum, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtSum, "")
        Me.txtSum.Name = "txtSum"
        Me.txtSum.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtSum, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtSum, False)
        Me.txtSum.Size = New System.Drawing.Size(114, 21)
        Me.txtSum.TabIndex = 15
        Me.txtSum.Text = ""
        '
        'Label24
        '
        Me.Label24.AutoSize = True
        Me.Label24.ForeColor = System.Drawing.Color.Red
        Me.Label24.Location = New System.Drawing.Point(498, 50)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(66, 17)
        Me.Label24.TabIndex = 14
        Me.Label24.Text = "合计金额："
        '
        'cboJs
        '
        Me.cboJs.Items.AddRange(New Object() {"现金", "支票", "记账"})
        Me.cboJs.Location = New System.Drawing.Point(210, 44)
        Me.cboJs.Name = "cboJs"
        Me.cboJs.Size = New System.Drawing.Size(72, 20)
        Me.cboJs.TabIndex = 12
        '
        'txtNo
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNo, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtNo, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNo, "")
        Me.txtNo.Location = New System.Drawing.Point(60, 44)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNo, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtNo, "")
        Me.txtNo.Name = "txtNo"
        Me.txtNo.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNo, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtNo, False)
        Me.txtNo.Size = New System.Drawing.Size(78, 21)
        Me.txtNo.TabIndex = 11
        Me.txtNo.Text = ""
        '
        'txtBillnumber
        '
        Me.txtBillnumber.BackColor = System.Drawing.SystemColors.Control
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBillnumber, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtBillnumber, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBillnumber, "")
        Me.txtBillnumber.Location = New System.Drawing.Point(552, 19)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBillnumber, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtBillnumber, "")
        Me.txtBillnumber.Name = "txtBillnumber"
        Me.txtBillnumber.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBillnumber, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtBillnumber, False)
        Me.txtBillnumber.Size = New System.Drawing.Size(114, 21)
        Me.txtBillnumber.TabIndex = 10
        Me.txtBillnumber.Text = ""
        '
        'txtCustName
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCustName, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtCustName, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCustName, "")
        Me.txtCustName.Location = New System.Drawing.Point(210, 19)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCustName, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtCustName, "")
        Me.txtCustName.Name = "txtCustName"
        Me.txtCustName.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCustName, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtCustName, False)
        Me.txtCustName.Size = New System.Drawing.Size(126, 21)
        Me.txtCustName.TabIndex = 8
        Me.txtCustName.Text = ""
        '
        'txtCustNumber
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCustNumber, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtCustNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCustNumber, "sorry")
        Me.txtCustNumber.Location = New System.Drawing.Point(60, 19)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCustNumber, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtCustNumber, "")
        Me.txtCustNumber.Name = "txtCustNumber"
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCustNumber, "<>""""")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtCustNumber, True)
        Me.txtCustNumber.Size = New System.Drawing.Size(78, 21)
        Me.txtCustNumber.TabIndex = 7
        Me.txtCustNumber.Text = ""
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Location = New System.Drawing.Point(348, 50)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(54, 17)
        Me.Label7.TabIndex = 6
        Me.Label7.Text = "销售员："
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(156, 50)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(66, 17)
        Me.Label6.TabIndex = 5
        Me.Label6.Text = "结算方式："
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(30, 50)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(42, 17)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "序号："
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(522, 25)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(42, 17)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "票号："
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(360, 25)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(42, 17)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "日期："
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(156, 25)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(66, 17)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "客户名称："
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(6, 25)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(66, 17)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "客户编号："
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.txtID)
        Me.GroupBox2.Controls.Add(Me.txtZprice)
        Me.GroupBox2.Controls.Add(Me.txtJprice)
        Me.GroupBox2.Controls.Add(Me.txtLprice)
        Me.GroupBox2.Controls.Add(Me.txtPprice)
        Me.GroupBox2.Controls.Add(Me.txtHw)
        Me.GroupBox2.Controls.Add(Me.txtProduct)
        Me.GroupBox2.Controls.Add(Me.txtAvaid)
        Me.GroupBox2.Controls.Add(Me.txtBatch)
        Me.GroupBox2.Controls.Add(Me.txtPackage)
        Me.GroupBox2.Controls.Add(Me.txtMoney)
        Me.GroupBox2.Controls.Add(Me.txtPrice)
        Me.GroupBox2.Controls.Add(Me.txtCount)
        Me.GroupBox2.Controls.Add(Me.txtUnit)
        Me.GroupBox2.Controls.Add(Me.txtMedRule)
        Me.GroupBox2.Controls.Add(Me.txtmedName)
        Me.GroupBox2.Controls.Add(Me.txtMedNumber)
        Me.GroupBox2.Controls.Add(Me.Label23)
        Me.GroupBox2.Controls.Add(Me.Label22)
        Me.GroupBox2.Controls.Add(Me.Label21)
        Me.GroupBox2.Controls.Add(Me.Label20)
        Me.GroupBox2.Controls.Add(Me.Label19)
        Me.GroupBox2.Controls.Add(Me.Label18)
        Me.GroupBox2.Controls.Add(Me.Label17)
        Me.GroupBox2.Controls.Add(Me.Label16)
        Me.GroupBox2.Controls.Add(Me.Label15)
        Me.GroupBox2.Controls.Add(Me.Label14)
        Me.GroupBox2.Controls.Add(Me.Label13)
        Me.GroupBox2.Controls.Add(Me.Label12)
        Me.GroupBox2.Controls.Add(Me.Label11)
        Me.GroupBox2.Controls.Add(Me.Label10)
        Me.GroupBox2.Controls.Add(Me.Label9)
        Me.GroupBox2.Controls.Add(Me.Label8)
        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox2.Location = New System.Drawing.Point(0, 115)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(678, 131)
        Me.GroupBox2.TabIndex = 3
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "药品信息"
        '
        'txtID
        '
        Me.txtID.Location = New System.Drawing.Point(630, 25)
        Me.txtID.Name = "txtID"
        Me.txtID.Size = New System.Drawing.Size(36, 18)
        Me.txtID.TabIndex = 31
        '
        'txtZprice
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtZprice, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtZprice, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtZprice, "")
        Me.txtZprice.Location = New System.Drawing.Point(552, 100)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtZprice, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtZprice, "")
        Me.txtZprice.Name = "txtZprice"
        Me.txtZprice.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtZprice, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtZprice, False)
        Me.txtZprice.Size = New System.Drawing.Size(114, 21)
        Me.txtZprice.TabIndex = 30
        Me.txtZprice.Text = ""
        '
        'txtJprice
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtJprice, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtJprice, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtJprice, "")
        Me.txtJprice.Location = New System.Drawing.Point(402, 100)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtJprice, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtJprice, "")
        Me.txtJprice.Name = "txtJprice"
        Me.txtJprice.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtJprice, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtJprice, False)
        Me.txtJprice.Size = New System.Drawing.Size(96, 21)
        Me.txtJprice.TabIndex = 29
        Me.txtJprice.Text = "0.00"
        '
        'txtLprice
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtLprice, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtLprice, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtLprice, "")
        Me.txtLprice.Location = New System.Drawing.Point(210, 100)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtLprice, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtLprice, "")
        Me.txtLprice.Name = "txtLprice"
        Me.txtLprice.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtLprice, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtLprice, False)
        Me.txtLprice.Size = New System.Drawing.Size(72, 21)
        Me.txtLprice.TabIndex = 28
        Me.txtLprice.Text = "0.00"
        '
        'txtPprice
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPprice, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtPprice, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPprice, "")
        Me.txtPprice.Location = New System.Drawing.Point(60, 100)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPprice, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtPprice, "")
        Me.txtPprice.Name = "txtPprice"
        Me.txtPprice.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPprice, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtPprice, False)
        Me.txtPprice.Size = New System.Drawing.Size(78, 21)
        Me.txtPprice.TabIndex = 27
        Me.txtPprice.Text = ""
        '
        'txtHw
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtHw, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtHw, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtHw, "")
        Me.txtHw.Location = New System.Drawing.Point(552, 75)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtHw, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtHw, "")
        Me.txtHw.Name = "txtHw"
        Me.txtHw.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtHw, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtHw, False)
        Me.txtHw.Size = New System.Drawing.Size(114, 21)
        Me.txtHw.TabIndex = 26
        Me.txtHw.Text = ""
        '
        'txtProduct
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtProduct, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtProduct, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtProduct, "")
        Me.txtProduct.Location = New System.Drawing.Point(402, 75)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtProduct, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtProduct, "")
        Me.txtProduct.Name = "txtProduct"
        Me.txtProduct.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtProduct, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtProduct, False)
        Me.txtProduct.Size = New System.Drawing.Size(96, 21)
        Me.txtProduct.TabIndex = 25
        Me.txtProduct.Text = ""
        '
        'txtAvaid
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAvaid, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtAvaid, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAvaid, "")
        Me.txtAvaid.Location = New System.Drawing.Point(210, 75)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAvaid, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtAvaid, "")
        Me.txtAvaid.Name = "txtAvaid"
        Me.txtAvaid.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAvaid, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtAvaid, False)
        Me.txtAvaid.Size = New System.Drawing.Size(72, 21)
        Me.txtAvaid.TabIndex = 24
        Me.txtAvaid.Text = ""
        '
        'txtBatch
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBatch, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtBatch, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBatch, "")
        Me.txtBatch.Location = New System.Drawing.Point(60, 75)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBatch, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtBatch, "")
        Me.txtBatch.Name = "txtBatch"
        Me.txtBatch.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBatch, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtBatch, False)
        Me.txtBatch.Size = New System.Drawing.Size(78, 21)
        Me.txtBatch.TabIndex = 23
        Me.txtBatch.Text = ""
        '
        'txtPackage
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPackage, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtPackage, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPackage, "")
        Me.txtPackage.Location = New System.Drawing.Point(552, 50)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPackage, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtPackage, "")
        Me.txtPackage.Name = "txtPackage"
        Me.txtPackage.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPackage, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtPackage, False)
        Me.txtPackage.Size = New System.Drawing.Size(114, 21)
        Me.txtPackage.TabIndex = 22
        Me.txtPackage.Text = ""
        '
        'txtMoney
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMoney, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtMoney, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMoney, "")
        Me.txtMoney.Location = New System.Drawing.Point(402, 50)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMoney, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtMoney, "")
        Me.txtMoney.Name = "txtMoney"
        Me.txtMoney.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMoney, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtMoney, False)
        Me.txtMoney.Size = New System.Drawing.Size(96, 21)
        Me.txtMoney.TabIndex = 21
        Me.txtMoney.Text = "0.00"
        '
        'txtPrice
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPrice, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtPrice, MSDNTextboxValidator.DataTypeConstants.DoubleType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPrice, "")
        Me.txtPrice.Location = New System.Drawing.Point(210, 50)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPrice, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtPrice, "")
        Me.txtPrice.Name = "txtPrice"
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPrice, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtPrice, False)
        Me.txtPrice.Size = New System.Drawing.Size(72, 21)
        Me.txtPrice.TabIndex = 20
        Me.txtPrice.Text = "0.00"
        '
        'txtCount
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCount, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtCount, MSDNTextboxValidator.DataTypeConstants.Int16Type)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCount, "")
        Me.txtCount.Location = New System.Drawing.Point(60, 50)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCount, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtCount, "")
        Me.txtCount.Name = "txtCount"
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCount, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtCount, False)
        Me.txtCount.Size = New System.Drawing.Size(78, 21)
        Me.txtCount.TabIndex = 19
        Me.txtCount.Text = ""
        '
        'txtUnit
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtUnit, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtUnit, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtUnit, "")
        Me.txtUnit.Location = New System.Drawing.Point(552, 25)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtUnit, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtUnit, "")
        Me.txtUnit.Name = "txtUnit"
        Me.txtUnit.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtUnit, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtUnit, False)
        Me.txtUnit.Size = New System.Drawing.Size(56, 21)
        Me.txtUnit.TabIndex = 18
        Me.txtUnit.Text = ""
        '
        'txtMedRule
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMedRule, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtMedRule, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMedRule, "")
        Me.txtMedRule.Location = New System.Drawing.Point(402, 25)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMedRule, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtMedRule, "")
        Me.txtMedRule.Name = "txtMedRule"
        Me.txtMedRule.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMedRule, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtMedRule, False)
        Me.txtMedRule.Size = New System.Drawing.Size(96, 21)
        Me.txtMedRule.TabIndex = 17
        Me.txtMedRule.Text = ""
        '
        'txtmedName
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtmedName, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtmedName, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtmedName, "")
        Me.txtmedName.Location = New System.Drawing.Point(210, 24)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtmedName, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtmedName, "")
        Me.txtmedName.Name = "txtmedName"
        Me.txtmedName.ReadOnly = True
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtmedName, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtmedName, False)
        Me.txtmedName.Size = New System.Drawing.Size(126, 21)
        Me.txtmedName.TabIndex = 16
        Me.txtmedName.Text = ""
        '
        'txtMedNumber
        '
        Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMedNumber, True)
        Me.MsdnTextboxValidator1.SetDataType(Me.txtMedNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
        Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMedNumber, "")
        Me.txtMedNumber.Location = New System.Drawing.Point(60, 24)
        Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMedNumber, "")
        Me.MsdnTextboxValidator1.SetMinValue(Me.txtMedNumber, "")
        Me.txtMedNumber.Name = "txtMedNumber"
        Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMedNumber, "")
        Me.MsdnTextboxValidator1.SetRequired(Me.txtMedNumber, False)
        Me.txtMedNumber.Size = New System.Drawing.Size(78, 21)
        Me.txtMedNumber.TabIndex = 15
        Me.txtMedNumber.Text = ""
        '
        'Label23
        '
        Me.Label23.AutoSize = True
        Me.Label23.Location = New System.Drawing.Point(360, 106)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(54, 17)
        Me.Label23.TabIndex = 14
        Me.Label23.Text = "建议价："
        '
        'Label22
        '
        Me.Label22.AutoSize = True
        Me.Label22.Location = New System.Drawing.Point(168, 106)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(54, 17)
        Me.Label22.TabIndex = 13
        Me.Label22.Text = "零售价："
        '
        'Label21
        '
        Me.Label21.AutoSize = True
        Me.Label21.Location = New System.Drawing.Point(18, 106)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(54, 17)
        Me.Label21.TabIndex = 12
        Me.Label21.Text = "批发价："
        '
        'Label20
        '
        Me.Label20.AutoSize = True
        Me.Label20.Location = New System.Drawing.Point(522, 81)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(42, 17)
        Me.Label20.TabIndex = 11
        Me.Label20.Text = "货位："
        '
        'Label19
        '
        Me.Label19.AutoSize = True
        Me.Label19.Location = New System.Drawing.Point(372, 81)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(42, 17)
        Me.Label19.TabIndex = 10
        Me.Label19.Text = "产地："
        '
        'Label18
        '
        Me.Label18.AutoSize = True
        Me.Label18.Location = New System.Drawing.Point(168, 81)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(54, 17)
        Me.Label18.TabIndex = 9
        Me.Label18.Text = "有效期："
        '
        'Label17
        '
        Me.Label17.AutoSize = True
        Me.Label17.Location = New System.Drawing.Point(30, 81)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(42, 17)
        Me.Label17.TabIndex = 8
        Me.Label17.Text = "批号："
        '
        'Label16
        '
        Me.Label16.AutoSize = True
        Me.Label16.Location = New System.Drawing.Point(522, 56)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(42, 17)
        Me.Label16.TabIndex = 7
        Me.Label16.Text = "包装："
        '
        'Label15
        '
        Me.Label15.AutoSize = True
        Me.Label15.ForeColor = System.Drawing.Color.Red
        Me.Label15.Location = New System.Drawing.Point(372, 56)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(42, 17)
        Me.Label15.TabIndex = 6
        Me.Label15.Text = "金额："
        '
        'Label14
        '
        Me.Label14.AutoSize = True
        Me.Label14.Location = New System.Drawing.Point(180, 56)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(42, 17)
        Me.Label14.TabIndex = 5
        Me.Label14.Text = "单价："
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.Location = New System.Drawing.Point(30, 56)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(42, 17)
        Me.Label13.TabIndex = 4
        Me.Label13.Text = "数量："
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.Location = New System.Drawing.Point(522, 31)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(42, 17)
        Me.Label12.TabIndex = 3
        Me.Label12.Text = "单位："
        '
        'Label11
        '
        Me.Label11.AutoSize = True
        Me.Label11.Location = New System.Drawing.Point(348, 31)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(66, 17)
        Me.Label11.TabIndex = 2
        Me.Label11.Text = "药品规格："
        '
        'Label10
        '
        Me.Label10.AutoSize = True
        Me.Label10.Location = New System.Drawing.Point(156, 31)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(66, 17)
        Me.Label10.TabIndex = 1
        Me.Label10.Text = "药品名称："
        '
        'Label9
        '
        Me.Label9.AutoSize = True
        Me.Label9.Location = New System.Drawing.Point(6, 31)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(66, 17)
        Me.Label9.TabIndex = 0
        Me.Label9.Text = "药品编号："
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.Location = New System.Drawing.Point(510, 106)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(54, 17)
        Me.Label8.TabIndex = 7
        Me.Label8.Text = "最低价："
        '
        'dgck
        '
        Me.dgck.AlternatingBackColor = System.Drawing.Color.Gainsboro
        Me.dgck.BackColor = System.Drawing.Color.Silver
        Me.dgck.BackgroundColor = System.Drawing.Color.Silver
        Me.dgck.CaptionBackColor = System.Drawing.Color.DarkSlateBlue
        Me.dgck.CaptionFont = New System.Drawing.Font("Tahoma", 8.0!)
        Me.dgck.CaptionForeColor = System.Drawing.Color.White
        Me.dgck.CaptionVisible = False
        Me.dgck.DataMember = ""
        Me.dgck.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgck.FlatMode = True
        Me.dgck.ForeColor = System.Drawing.Color.Black
        Me.dgck.GridLineColor = System.Drawing.Color.White
        Me.dgck.HeaderBackColor = System.Drawing.Color.DarkGray
        Me.dgck.HeaderForeColor = System.Drawing.Color.Black
        Me.dgck.LinkColor = System.Drawing.Color.DarkSlateBlue
        Me.dgck.Location = New System.Drawing.Point(0, 246)
        Me.dgck.Name = "dgck"
        Me.dgck.ParentRowsBackColor = System.Drawing.Color.Black
        Me.dgck.ParentRowsForeColor = System.Drawing.Color.White
        Me.dgck.RowHeadersVisible = False
        Me.dgck.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
        Me.dgck.SelectionForeColor = System.Drawing.Color.White
        Me.dgck.Size = New System.Drawing.Size(678, 181)
        Me.dgck.TabIndex = 4
        '
        'MsdnTextboxValidator1
        '
        Me.MsdnTextboxValidator1.DisplayControl = Nothing
        Me.MsdnTextboxValidator1.ErrorProvider = Nothing
        Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
        Me.MsdnTextboxValidator1.TooltipProvider = Nothing
        '
        'ErrorProvider1
        '
        Me.ErrorProvider1.ContainerControl = Me
        '
        'frmCk
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(678, 448)
        Me.Controls.Add(Me.dgck)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.tbrCk)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Name = "frmCk"
        Me.Text = "销售开单"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.dgck, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
    End Sub
#End Region
    Public bl As Boolean
    Public lsweb As New jxcmanage
    Public dslocals As DataSet = lsweb.returndataset("select 日期,票号,结算方式,客户编号,客户名称,金额,应收金额,操作员 from wz_ck_sk", "wz_ck_sk")
    Public dslocal As DataSet = lsweb.returndataset("select 序号,药品编号,药品名称,药品规格,单位,单价,数量,金额,批号,有效期,包装,产地,货位,批发价,零售价,建议价,最低价,日期,票号,客户编号,客户名称,结算,销售员,库存ID from wz_ck", "wz_ck")
    Public Function getinfo(ByVal strqueryid As String) As String
        Dim strOrderId As String
        strOrderId = strqueryid
        Return strOrderId
    End Function
    Private Sub txtCustNumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCustNumber.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim dlg As frmQuery = New frmQuery
            dlg.PYM = Me.getinfo(txtCustNumber.Text)
            If dlg.PYM = String.Empty Then
                ErrorProvider1.SetError(txtCustNumber, "不能为空，请输入查询码！")
            Else
                dlg.ShowDialog()
                ErrorProvider1.SetError(txtCustNumber, "")
            End If
            Dim CustIdvalue As String
            CustIdvalue = dlg.GetInfo("客户编号")
            If CustIdvalue Is Nothing Then
                ErrorProvider1.SetError(txtCustNumber, "或没有查到记录，请重新开始！")
            Else
                Dim runSqlQuery As String
                runSqlQuery = "select * from wz_kh 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
                txtCustNumber.Text = dv(0)("客户编号")
                txtCustName.Text = dv(0)("客户名称")
                cboJs.Focus()
                ErrorProvider1.SetError(txtCustNumber, "")
            End If
        End If
    End Sub
    Public Sub add()
        dslocal.Clear()
        txtCustNumber.Text() = ""
        txtCustNumber.Enabled = True
        txtCustNumber.ReadOnly = False
        cboJs.Enabled = True
        txtDate.Enabled = True
        txtCustNumber.Focus()
        txtCustName.Text() = ""
        If tbrth.Enabled = False Then
            txtBillnumber.Text = lsweb.selectbill("TH").ToString
            txtBillnumber.ForeColor = System.Drawing.Color.Red
            txtCount.ForeColor = System.Drawing.Color.Red
        Else
            txtBillnumber.Text = lsweb.selectbill("CK").ToString
            txtBillnumber.ForeColor = System.Drawing.Color.Black
            txtCount.ForeColor = System.Drawing.Color.Black
        End If
        txtDate.Value = Today.ToString
        txtNo.Text = 1
        cboJs.Text = ""
        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
        txtJprice.Text() = 0.0
        txtZprice.Text() = 0.0
    End Sub
    Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
        If strboolean = "tbrAdd.Enabled = True" Then
            tbrSave.Enabled = False
            tbrPrint.Enabled = False
            tbrExit.Enabled = True
            tbrTh.Enabled = True
        ElseIf strboolean = "tbrAdd.Enabled = False" Then
            tbrAdd.Enabled = False
            tbrSave.Enabled = True
            tbrPrint.Enabled = False
            tbrExit.Enabled = True
            tbrth.Enabled = False
        ElseIf strboolean = "tbrSave.Enabled = True" Then
            tbrAdd.Enabled = False
            tbrPrint.Enabled = False
            tbrExit.Enabled = True
            tbrTh.Enabled = True
        ElseIf strboolean = "tbrSave.Enabled = False" Then
            tbrSave.Enabled = False
            tbrAdd.Enabled = True
            tbrPrint.Enabled = True
            tbrExit.Enabled = True
            tbrth.Enabled = True
        ElseIf strboolean = "tbrTh.Enabled = True" Then
            tbrSave.Enabled = True
            tbrAdd.Enabled = True
            tbrPrint.Enabled = True
            tbrExit.Enabled = True
        ElseIf strboolean = "tbrTh.Enabled = False" Then
            tbrTh.Enabled = False
            tbrSave.Enabled = False
            tbrAdd.Enabled = True
            tbrPrint.Enabled = False
            tbrExit.Enabled = True
        End If
    End Sub
    Private Sub frmCk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dslocal.Clear()
        dgck.DataSource = dslocal.Tables("wz_ck").DefaultView
        Dim dslocalmm As DataSet = lsweb.returndataset("select 操作员 from wz_mm", "wz_mm")
        tbrAdd.Enabled = True
        tbrSave.Enabled = False
        tbrPrint.Enabled = False
        tbrQuery.Enabled = True
        tbrExit.Enabled = True
        Dim frmloginer As New frmLogin
        txtXsy.Text = frmloginer.struser
        txtDate.Value = Today.ToString
    End Sub
    Private Sub save()
        Dim dr As DataRow = dslocals.Tables("wz_ck_sk").NewRow()
        dr("票号") = Me.txtBillnumber.Text.Trim
        dr("客户编号") = Me.txtCustNumber.Text.Trim
        dr("客户名称") = Me.txtCustName.Text.Trim
        dr("日期") = Me.txtDate.Value
        dr("结算方式") = Me.cboJs.Text.Trim
        dr("操作员") = Me.txtXsy.Text.Trim
        dr("金额") = Me.txtSum.Text.Trim
        If Me.cboJs.Text = "记账" Or Me.cboJs.Text = "支票" Then
            dr("应收金额") = Me.txtSum.Text.Trim
        Else
            dr("应收金额") = 0
        End If
        dslocals.Tables("wz_ck_sk").Rows.Add(dr)
        If lsweb.updatedataset("select 序号,药品编号,药品名称,药品规格,单位,单价,数量,金额,批号,有效期,包装,产地,货位,批发价,零售价,建议价,最低价,日期,票号,客户编号,客户名称,结算,销售员,库存ID from wz_ck", "wz_ck", dslocal, DataRowState.Added) = True And lsweb.updatedataset("select 日期,票号,结算方式,客户编号,客户名称,金额,应收金额,操作员 from wz_ck_sk", "wz_ck_sk", dslocals, DataRowState.Added) = True Then
            MessageBox.Show("销售信息成功保存！", "提示", MessageBoxButtons.OK)
        Else
            MessageBox.Show("销售信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
        End If
        txtCustNumber.ReadOnly = False
        txtCustNumber.Text() = ""
        txtCustNumber.Focus()
        txtCustName.ReadOnly = False
        txtDate.Enabled = True
        txtBillnumber.ReadOnly = True
        txtNo.ReadOnly = True
        cboJs.Enabled = True
    End Sub
    Private Sub clear()
        txtCustNumber.ReadOnly = True
        txtCustName.ReadOnly = True
        txtDate.Enabled = False
        txtBillnumber.ReadOnly = True
        txtNo.ReadOnly = True
        cboJs.Enabled = False
        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
        txtJprice.Text() = 0.0
        txtZprice.Text() = 0.0
    End Sub
    Private Sub clearAll()
        txtCustNumber.ReadOnly = True
        txtCustName.ReadOnly = True
        txtCustName.Text = ""
        txtSum.Text = ""
        txtdate.Enabled = False
        txtBillNumber.ReadOnly = True
        txtNo.ReadOnly = True
        cboJs.Enabled = False
        cboJs.Text = ""
        txtHw.Enabled = False
        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() = CStr(0.0)
        txtLprice.Text() = CStr(0.0)
        txtJprice.Text() = CStr(0.0)
        txtZprice.Text() = CStr(0.0)
    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.txtSum.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 txtMedNumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMedNumber.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim dlgs As frmMedKcQuery = New frmMedKcQuery
            dlgs.PYMs = Me.getinfo(txtMedNumber.Text)
            If dlgs.PYMs = String.Empty Then
                ErrorProvider1.SetError(txtMedNumber, "不能为空，请输入查询码！")
            Else
                dlgs.ShowDialog()
                ErrorProvider1.SetError(txtMedNumber, "")
            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(txtMedNumber, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
            Else
                Dim runSqlQuery As String
                runSqlQuery = "select * from wz_kc where 药品编号='" & medIdvalue & "'and 批号 ='" & medbatch & "' and 产地='" & product & "' and 有效期='" & avaid & "' and 货位='" & hw & "' and 包装='" & 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
                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)("最低价")
                txtID.Text = dv(0)("库存ID")
                ErrorProvider1.SetError(txtMedNumber, "")
                txtCount.Focus()
            End If
        End If
    End Sub
    Private Sub txtPrice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPrice.KeyDown
        If e.KeyCode = Keys.Enter Then
            If txtPrice.Text = String.Empty Then
                txtPrice_Validating(Nothing, Nothing)
            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("数量") = 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.txtPackage.Text.Trim
                dr("产地") = Me.txtProduct.Text.Trim
                dr("货位") = Me.txtHw.Text.Trim
                dr("批发价") = Me.txtPprice.Text.Trim
                dr("零售价") = Me.txtLprice.Text.Trim
                dr("建议价") = CInt(Me.txtJprice.Text.Trim)
                dr("最低价") = CInt(Me.txtZprice.Text.Trim)
                dr("日期") = Me.txtDate.Text.Trim
                dr("票号") = Me.txtBillnumber.Text.Trim
                dr("客户编号") = Me.txtCustNumber.Text.Trim
                dr("客户名称") = Me.txtCustName.Text.Trim
                dr("结算") = Me.cboJs.Text.Trim
                dr("销售员") = Me.txtXsy.Text.Trim
                dr("库存ID") = Me.txtID.Text.Trim
                dslocal.Tables("wz_ck").Rows.Add(dr)
                CalMxMoney()
                CalTotalMoney()
                clear()
                Me.txtMedNumber.Focus()
            End If
        End If
        dgck.DataSource = dslocal.Tables("wz_ck").DefaultView
    End Sub
    Private Sub cboJs_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboJs.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.txtMedNumber.Focus()
        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
                CalMxMoney()
            End If
            Me.txtPrice.Focus()
        End If
    End Sub
    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrCk.ButtonClick
        Select Case e.Button.Text
            Case "添加"
                'Dim frminstancer As New frmCk
                'Dim FrmMainStarter As New FrmMainStart
                'frminstancer.MdiParent = FrmMainStarter
                'frminstancer.Show()
                'Me.Hide()
                add()
                tbnEnable("tbrAdd.Enabled = False", tbrCk)
            Case "保存"
                If Me.txtSum.Text = String.Empty Then
                    MessageBox.Show("不能保存记录，数据不完整！", "提示：", MessageBoxButtons.OK)
                Else
                    save()
                    tbnEnable("tbrSave.Enabled = False", tbrCk)
                    clearAll()
                    bl = False
                End If
            Case "打印"
                Dim frmviewcker As New frmviewck
                frmviewcker.ckbillnumber = txtBillnumber.Text.Trim
                frmviewcker.Show()
            Case "查询"
                Dim frmckqueryer As New frmCkQuery
                frmckqueryer.Show()
            Case "退货"
                bl = True
                tbnEnable("tbrTh.Enabled = False", tbrCk)
            Case "退出"
                Me.Close()
        End Select
    End Sub
    Private Sub txtCount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtCount.Validating
        If bl = True Then
            If Not IsNumeric(txtCount.Text) Or txtCount.Text = String.Empty Or CDec(txtCount.Text) > 0 Then
                ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空,数量不能大于零！")
                txtCount.Focus()
            Else
                ErrorProvider1.SetError(txtCount, "")
            End If
        Else
            If Not IsNumeric(txtCount.Text) Or txtCount.Text = String.Empty Or CDec(txtCount.Text) < 0 Then
                ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空,数量不能小于零！")
                txtCount.Focus()
            Else
                ErrorProvider1.SetError(txtCount, "")
            End If
        End If
    End Sub
    Private Sub txtPrice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPrice.Validating
        If Not IsNumeric(txtPrice.Text) Or txtPrice.Text = String.Empty Then
            ErrorProvider1.SetError(txtPrice, "不是数值类型且不能为空。")
            txtPrice.Focus()
        Else
            ErrorProvider1.SetError(txtPrice, "")
        End If
    End Sub
    Private Sub frmCk_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        If txtBillnumber.Text <> String.Empty And tbrSave.Enabled = True Then
            lsweb.cancelbill(txtBillnumber.Text.Trim)
        End If
    End Sub
End Class

						