开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
frmPsPst.vb
资源名称：SALEOUTSYSTEM.rar　[点击查看]
上传用户：wj57717022
上传日期：2014-12-16
资源大小：4093k
文件大小：55k
源码类别：

医药行业

开发平台：

Visual Basic

frmPsPst.vb：源码内容
  1. Public Class frmPsPst
  2.     Inherits System.Windows.Forms.Form
  4. #Region " Windows 窗体设计器生成的代码 "
  6.     Public Sub New()
  7.         MyBase.New()
  9.         '该调用是 Windows 窗体设计器所必需的。
  10.         InitializeComponent()
  12.         '在 InitializeComponent() 调用之后添加任何初始化
  14.     End Sub
  16.     '窗体重写 dispose 以清理组件列表。
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  26.     'Windows 窗体设计器所必需的
  27.     Private components As System.ComponentModel.IContainer
  29.     '注意: 以下过程是 Windows 窗体设计器所必需的
  30.     '可以使用 Windows 窗体设计器修改此过程。
  31.     '不要使用代码编辑器修改它。
  32.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  33.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  34.     Friend WithEvents Label8 As System.Windows.Forms.Label
  35.     Friend WithEvents Label7 As System.Windows.Forms.Label
  36.     Friend WithEvents Label6 As System.Windows.Forms.Label
  37.     Friend WithEvents Label5 As System.Windows.Forms.Label
  38.     Friend WithEvents Label3 As System.Windows.Forms.Label
  39.     Friend WithEvents Label2 As System.Windows.Forms.Label
  40.     Friend WithEvents Label1 As System.Windows.Forms.Label
  41.     Friend WithEvents Label21 As System.Windows.Forms.Label
  42.     Friend WithEvents txtSum As System.Windows.Forms.TextBox
  43.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  44.     Friend WithEvents tbnAdd As System.Windows.Forms.ToolBarButton
  45.     Friend WithEvents tbnSave As System.Windows.Forms.ToolBarButton
  46.     Friend WithEvents tbnPrint As System.Windows.Forms.ToolBarButton
  47.     Friend WithEvents tbnExit As System.Windows.Forms.ToolBarButton
  48.     Friend WithEvents txtBhDate As System.Windows.Forms.DateTimePicker
  49.     Friend WithEvents txtBhType As System.Windows.Forms.ComboBox
  50.     Friend WithEvents txtBhy As System.Windows.Forms.ComboBox
  51.     Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
  52.     Friend WithEvents txtPsCenter As System.Windows.Forms.ComboBox
  53.     Friend WithEvents txtbillnumber As System.Windows.Forms.TextBox
  54.     Friend WithEvents txtshy As System.Windows.Forms.TextBox
  55.     Friend WithEvents txtBhNumber As System.Windows.Forms.TextBox
  56.     Friend WithEvents Label4 As System.Windows.Forms.Label
  57.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  58.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  59.     Friend WithEvents txtPackage As System.Windows.Forms.TextBox
  60.     Friend WithEvents txtUnit As System.Windows.Forms.TextBox
  61.     Friend WithEvents Label22 As System.Windows.Forms.Label
  62.     Friend WithEvents txtNo As System.Windows.Forms.TextBox
  63.     Friend WithEvents Label20 As System.Windows.Forms.Label
  64.     Friend WithEvents Label16 As System.Windows.Forms.Label
  65.     Friend WithEvents txtProduct As System.Windows.Forms.TextBox
  66.     Friend WithEvents txtAvaid As System.Windows.Forms.TextBox
  67.     Friend WithEvents txtBatch As System.Windows.Forms.TextBox
  68.     Friend WithEvents txtMoney As System.Windows.Forms.TextBox
  69.     Friend WithEvents txtPrice As System.Windows.Forms.TextBox
  70.     Friend WithEvents txtCount As System.Windows.Forms.TextBox
  71.     Friend WithEvents txtMedRule As System.Windows.Forms.TextBox
  72.     Friend WithEvents txtmedName As System.Windows.Forms.TextBox
  73.     Friend WithEvents txtMedNumber As System.Windows.Forms.TextBox
  74.     Friend WithEvents Label19 As System.Windows.Forms.Label
  75.     Friend WithEvents Label18 As System.Windows.Forms.Label
  76.     Friend WithEvents Label17 As System.Windows.Forms.Label
  77.     Friend WithEvents Label15 As System.Windows.Forms.Label
  78.     Friend WithEvents Label14 As System.Windows.Forms.Label
  79.     Friend WithEvents Label13 As System.Windows.Forms.Label
  80.     Friend WithEvents Label11 As System.Windows.Forms.Label
  81.     Friend WithEvents Label10 As System.Windows.Forms.Label
  82.     Friend WithEvents Label9 As System.Windows.Forms.Label
  83.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  84.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  85.     Friend WithEvents tbnPs As System.Windows.Forms.ToolBar
  86.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  87.     Friend WithEvents Label12 As System.Windows.Forms.Label
  88.     Friend WithEvents txtPsMedName As System.Windows.Forms.ComboBox
  89.     Friend WithEvents Label23 As System.Windows.Forms.Label
  90.     Friend WithEvents txthw As System.Windows.Forms.TextBox
  91.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  92.         Me.components = New System.ComponentModel.Container
  93.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPsPst))
  94.         Me.tbnPs = New System.Windows.Forms.ToolBar
  95.         Me.tbnAdd = New System.Windows.Forms.ToolBarButton
  96.         Me.tbnSave = New System.Windows.Forms.ToolBarButton
  97.         Me.tbnPrint = New System.Windows.Forms.ToolBarButton
  98.         Me.tbnExit = New System.Windows.Forms.ToolBarButton
  99.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  100.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  101.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  102.         Me.txthw = New System.Windows.Forms.TextBox
  103.         Me.Label23 = New System.Windows.Forms.Label
  104.         Me.txtPsMedName = New System.Windows.Forms.ComboBox
  105.         Me.Label12 = New System.Windows.Forms.Label
  106.         Me.Label4 = New System.Windows.Forms.Label
  107.         Me.txtBhNumber = New System.Windows.Forms.TextBox
  108.         Me.txtshy = New System.Windows.Forms.TextBox
  109.         Me.txtbillnumber = New System.Windows.Forms.TextBox
  110.         Me.txtPsCenter = New System.Windows.Forms.ComboBox
  111.         Me.txtBhy = New System.Windows.Forms.ComboBox
  112.         Me.txtBhType = New System.Windows.Forms.ComboBox
  113.         Me.txtBhDate = New System.Windows.Forms.DateTimePicker
  114.         Me.txtSum = New System.Windows.Forms.TextBox
  115.         Me.Label21 = New System.Windows.Forms.Label
  116.         Me.Label8 = New System.Windows.Forms.Label
  117.         Me.Label7 = New System.Windows.Forms.Label
  118.         Me.Label6 = New System.Windows.Forms.Label
  119.         Me.Label5 = New System.Windows.Forms.Label
  120.         Me.Label3 = New System.Windows.Forms.Label
  121.         Me.Label2 = New System.Windows.Forms.Label
  122.         Me.Label1 = New System.Windows.Forms.Label
  123.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  124.         Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
  125.         Me.txtPackage = New System.Windows.Forms.TextBox
  126.         Me.txtUnit = New System.Windows.Forms.TextBox
  127.         Me.txtNo = New System.Windows.Forms.TextBox
  128.         Me.txtProduct = New System.Windows.Forms.TextBox
  129.         Me.txtAvaid = New System.Windows.Forms.TextBox
  130.         Me.txtBatch = New System.Windows.Forms.TextBox
  131.         Me.txtMoney = New System.Windows.Forms.TextBox
  132.         Me.txtPrice = New System.Windows.Forms.TextBox
  133.         Me.txtCount = New System.Windows.Forms.TextBox
  134.         Me.txtMedRule = New System.Windows.Forms.TextBox
  135.         Me.txtmedName = New System.Windows.Forms.TextBox
  136.         Me.txtMedNumber = New System.Windows.Forms.TextBox
  137.         Me.Panel1 = New System.Windows.Forms.Panel
  138.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  139.         Me.Label22 = New System.Windows.Forms.Label
  140.         Me.Label20 = New System.Windows.Forms.Label
  141.         Me.Label16 = New System.Windows.Forms.Label
  142.         Me.Label19 = New System.Windows.Forms.Label
  143.         Me.Label18 = New System.Windows.Forms.Label
  144.         Me.Label17 = New System.Windows.Forms.Label
  145.         Me.Label15 = New System.Windows.Forms.Label
  146.         Me.Label14 = New System.Windows.Forms.Label
  147.         Me.Label13 = New System.Windows.Forms.Label
  148.         Me.Label11 = New System.Windows.Forms.Label
  149.         Me.Label10 = New System.Windows.Forms.Label
  150.         Me.Label9 = New System.Windows.Forms.Label
  151.         Me.Panel2 = New System.Windows.Forms.Panel
  152.         Me.dgview = New System.Windows.Forms.DataGrid
  153.         Me.GroupBox1.SuspendLayout()
  154.         Me.Panel1.SuspendLayout()
  155.         Me.GroupBox2.SuspendLayout()
  156.         Me.Panel2.SuspendLayout()
  157.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  158.         Me.SuspendLayout()
  159.         '
  160.         'tbnPs
  161.         '
  162.         Me.tbnPs.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  163.         Me.tbnPs.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnAdd, Me.tbnSave, Me.tbnPrint, Me.tbnExit})
  164.         Me.tbnPs.DropDownArrows = True
  165.         Me.tbnPs.ImageList = Me.ImageList2
  166.         Me.tbnPs.Location = New System.Drawing.Point(0, 0)
  167.         Me.tbnPs.Name = "tbnPs"
  168.         Me.tbnPs.ShowToolTips = True
  169.         Me.tbnPs.Size = New System.Drawing.Size(734, 44)
  170.         Me.tbnPs.TabIndex = 0
  171.         '
  172.         'tbnAdd
  173.         '
  174.         Me.tbnAdd.ImageIndex = 7
  175.         Me.tbnAdd.Text = "添加"
  176.         '
  177.         'tbnSave
  178.         '
  179.         Me.tbnSave.ImageIndex = 4
  180.         Me.tbnSave.Text = "保存"
  181.         '
  182.         'tbnPrint
  183.         '
  184.         Me.tbnPrint.ImageIndex = 12
  185.         Me.tbnPrint.Text = "打印"
  186.         '
  187.         'tbnExit
  188.         '
  189.         Me.tbnExit.ImageIndex = 11
  190.         Me.tbnExit.Text = "退出"
  191.         '
  192.         'ImageList2
  193.         '
  194.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  195.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  196.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  197.         '
  198.         'StatusBar1
  199.         '
  200.         Me.StatusBar1.Location = New System.Drawing.Point(0, 694)
  201.         Me.StatusBar1.Name = "StatusBar1"
  202.         Me.StatusBar1.Size = New System.Drawing.Size(734, 22)
  203.         Me.StatusBar1.TabIndex = 1
  204.         Me.StatusBar1.Text = "StatusBar1"
  205.         '
  206.         'GroupBox1
  207.         '
  208.         Me.GroupBox1.Controls.Add(Me.txthw)
  209.         Me.GroupBox1.Controls.Add(Me.Label23)
  210.         Me.GroupBox1.Controls.Add(Me.txtPsMedName)
  211.         Me.GroupBox1.Controls.Add(Me.Label12)
  212.         Me.GroupBox1.Controls.Add(Me.Label4)
  213.         Me.GroupBox1.Controls.Add(Me.txtBhNumber)
  214.         Me.GroupBox1.Controls.Add(Me.txtshy)
  215.         Me.GroupBox1.Controls.Add(Me.txtbillnumber)
  216.         Me.GroupBox1.Controls.Add(Me.txtPsCenter)
  217.         Me.GroupBox1.Controls.Add(Me.txtBhy)
  218.         Me.GroupBox1.Controls.Add(Me.txtBhType)
  219.         Me.GroupBox1.Controls.Add(Me.txtBhDate)
  220.         Me.GroupBox1.Controls.Add(Me.txtSum)
  221.         Me.GroupBox1.Controls.Add(Me.Label21)
  222.         Me.GroupBox1.Controls.Add(Me.Label8)
  223.         Me.GroupBox1.Controls.Add(Me.Label7)
  224.         Me.GroupBox1.Controls.Add(Me.Label6)
  225.         Me.GroupBox1.Controls.Add(Me.Label5)
  226.         Me.GroupBox1.Controls.Add(Me.Label3)
  227.         Me.GroupBox1.Controls.Add(Me.Label2)
  228.         Me.GroupBox1.Controls.Add(Me.Label1)
  229.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  230.         Me.GroupBox1.Location = New System.Drawing.Point(0, 44)
  231.         Me.GroupBox1.Name = "GroupBox1"
  232.         Me.GroupBox1.Size = New System.Drawing.Size(734, 153)
  233.         Me.GroupBox1.TabIndex = 2
  234.         Me.GroupBox1.TabStop = False
  235.         Me.GroupBox1.Text = "配送信息"
  236.         '
  237.         'txthw
  238.         '
  239.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txthw, True)
  240.         Me.MsdnTextboxValidator1.SetDataType(Me.txthw, MSDNTextboxValidator.DataTypeConstants.StringType)
  241.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txthw, "")
  242.         Me.txthw.Location = New System.Drawing.Point(480, 104)
  243.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txthw, "")
  244.         Me.MsdnTextboxValidator1.SetMinValue(Me.txthw, "")
  245.         Me.txthw.Name = "txthw"
  246.         Me.txthw.ReadOnly = True
  247.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txthw, "")
  248.         Me.MsdnTextboxValidator1.SetRequired(Me.txthw, False)
  249.         Me.txthw.Size = New System.Drawing.Size(80, 25)
  250.         Me.txthw.TabIndex = 49
  251.         Me.txthw.Text = ""
  252.         '
  253.         'Label23
  254.         '
  255.         Me.Label23.AutoSize = True
  256.         Me.Label23.Location = New System.Drawing.Point(440, 112)
  257.         Me.Label23.Name = "Label23"
  258.         Me.Label23.Size = New System.Drawing.Size(52, 21)
  259.         Me.Label23.TabIndex = 47
  260.         Me.Label23.Text = "货位："
  261.         '
  262.         'txtPsMedName
  263.         '
  264.         Me.txtPsMedName.Location = New System.Drawing.Point(96, 64)
  265.         Me.txtPsMedName.Name = "txtPsMedName"
  266.         Me.txtPsMedName.Size = New System.Drawing.Size(136, 23)
  267.         Me.txtPsMedName.TabIndex = 45
  268.         '
  269.         'Label12
  270.         '
  271.         Me.Label12.AutoSize = True
  272.         Me.Label12.Location = New System.Drawing.Point(24, 72)
  273.         Me.Label12.Name = "Label12"
  274.         Me.Label12.Size = New System.Drawing.Size(83, 21)
  275.         Me.Label12.TabIndex = 44
  276.         Me.Label12.Text = "配送对象："
  277.         '
  278.         'Label4
  279.         '
  280.         Me.Label4.Location = New System.Drawing.Point(0, 0)
  281.         Me.Label4.Name = "Label4"
  282.         Me.Label4.TabIndex = 46
  283.         '
  284.         'txtBhNumber
  285.         '
  286.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBhNumber, True)
  287.         Me.MsdnTextboxValidator1.SetDataType(Me.txtBhNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  288.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBhNumber, "")
  289.         Me.txtBhNumber.Location = New System.Drawing.Point(560, 24)
  290.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBhNumber, "")
  291.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtBhNumber, "")
  292.         Me.txtBhNumber.Name = "txtBhNumber"
  293.         Me.txtBhNumber.ReadOnly = True
  294.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBhNumber, "")
  295.         Me.MsdnTextboxValidator1.SetRequired(Me.txtBhNumber, False)
  296.         Me.txtBhNumber.Size = New System.Drawing.Size(152, 25)
  297.         Me.txtBhNumber.TabIndex = 41
  298.         Me.txtBhNumber.Text = ""
  299.         '
  300.         'txtshy
  301.         '
  302.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtshy, True)
  303.         Me.MsdnTextboxValidator1.SetDataType(Me.txtshy, MSDNTextboxValidator.DataTypeConstants.StringType)
  304.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtshy, "")
  305.         Me.txtshy.Location = New System.Drawing.Point(560, 62)
  306.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtshy, "")
  307.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtshy, "")
  308.         Me.txtshy.Name = "txtshy"
  309.         Me.txtshy.ReadOnly = True
  310.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtshy, "")
  311.         Me.MsdnTextboxValidator1.SetRequired(Me.txtshy, False)
  312.         Me.txtshy.Size = New System.Drawing.Size(152, 25)
  313.         Me.txtshy.TabIndex = 40
  314.         Me.txtshy.Text = ""
  315.         '
  316.         'txtbillnumber
  317.         '
  318.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtbillnumber, True)
  319.         Me.MsdnTextboxValidator1.SetDataType(Me.txtbillnumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  320.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtbillnumber, "")
  321.         Me.txtbillnumber.Location = New System.Drawing.Point(85, 24)
  322.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtbillnumber, "")
  323.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtbillnumber, "")
  324.         Me.txtbillnumber.Name = "txtbillnumber"
  325.         Me.txtbillnumber.ReadOnly = True
  326.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtbillnumber, "")
  327.         Me.MsdnTextboxValidator1.SetRequired(Me.txtbillnumber, False)
  328.         Me.txtbillnumber.Size = New System.Drawing.Size(147, 25)
  329.         Me.txtbillnumber.TabIndex = 39
  330.         Me.txtbillnumber.Text = ""
  331.         '
  332.         'txtPsCenter
  333.         '
  334.         Me.txtPsCenter.Location = New System.Drawing.Point(96, 103)
  335.         Me.txtPsCenter.Name = "txtPsCenter"
  336.         Me.txtPsCenter.Size = New System.Drawing.Size(136, 23)
  337.         Me.txtPsCenter.TabIndex = 38
  338.         '
  339.         'txtBhy
  340.         '
  341.         Me.txtBhy.Location = New System.Drawing.Point(328, 104)
  342.         Me.txtBhy.Name = "txtBhy"
  343.         Me.txtBhy.Size = New System.Drawing.Size(88, 23)
  344.         Me.txtBhy.TabIndex = 36
  345.         '
  346.         'txtBhType
  347.         '
  348.         Me.txtBhType.Location = New System.Drawing.Point(328, 62)
  349.         Me.txtBhType.Name = "txtBhType"
  350.         Me.txtBhType.Size = New System.Drawing.Size(136, 23)
  351.         Me.txtBhType.TabIndex = 35
  352.         '
  353.         'txtBhDate
  354.         '
  355.         Me.txtBhDate.Location = New System.Drawing.Point(328, 24)
  356.         Me.txtBhDate.Name = "txtBhDate"
  357.         Me.txtBhDate.Size = New System.Drawing.Size(136, 25)
  358.         Me.txtBhDate.TabIndex = 34
  359.         '
  360.         'txtSum
  361.         '
  362.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtSum, True)
  363.         Me.MsdnTextboxValidator1.SetDataType(Me.txtSum, MSDNTextboxValidator.DataTypeConstants.StringType)
  364.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtSum, "")
  365.         Me.txtSum.Location = New System.Drawing.Point(640, 104)
  366.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtSum, "")
  367.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtSum, "")
  368.         Me.txtSum.Name = "txtSum"
  369.         Me.txtSum.ReadOnly = True
  370.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtSum, "")
  371.         Me.MsdnTextboxValidator1.SetRequired(Me.txtSum, False)
  372.         Me.txtSum.Size = New System.Drawing.Size(72, 25)
  373.         Me.txtSum.TabIndex = 33
  374.         Me.txtSum.Text = ""
  375.         '
  376.         'Label21
  377.         '
  378.         Me.Label21.AutoSize = True
  379.         Me.Label21.ForeColor = System.Drawing.Color.Red
  380.         Me.Label21.Location = New System.Drawing.Point(568, 112)
  381.         Me.Label21.Name = "Label21"
  382.         Me.Label21.RightToLeft = System.Windows.Forms.RightToLeft.No
  383.         Me.Label21.Size = New System.Drawing.Size(83, 21)
  384.         Me.Label21.TabIndex = 32
  385.         Me.Label21.Text = "合计金额："
  386.         '
  387.         'Label8
  388.         '
  389.         Me.Label8.AutoSize = True
  390.         Me.Label8.Location = New System.Drawing.Point(504, 72)
  391.         Me.Label8.Name = "Label8"
  392.         Me.Label8.Size = New System.Drawing.Size(67, 21)
  393.         Me.Label8.TabIndex = 31
  394.         Me.Label8.Text = "审核员："
  395.         '
  396.         'Label7
  397.         '
  398.         Me.Label7.AutoSize = True
  399.         Me.Label7.Location = New System.Drawing.Point(272, 113)
  400.         Me.Label7.Name = "Label7"
  401.         Me.Label7.Size = New System.Drawing.Size(67, 21)
  402.         Me.Label7.TabIndex = 30
  403.         Me.Label7.Text = "配送员："
  404.         '
  405.         'Label6
  406.         '
  407.         Me.Label6.AutoSize = True
  408.         Me.Label6.Location = New System.Drawing.Point(256, 72)
  409.         Me.Label6.Name = "Label6"
  410.         Me.Label6.Size = New System.Drawing.Size(83, 21)
  411.         Me.Label6.TabIndex = 29
  412.         Me.Label6.Text = "配送状态："
  413.         '
  414.         'Label5
  415.         '
  416.         Me.Label5.AutoSize = True
  417.         Me.Label5.Location = New System.Drawing.Point(21, 113)
  418.         Me.Label5.Name = "Label5"
  419.         Me.Label5.Size = New System.Drawing.Size(83, 21)
  420.         Me.Label5.TabIndex = 28
  421.         Me.Label5.Text = "配送中心："
  422.         Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
  423.         '
  424.         'Label3
  425.         '
  426.         Me.Label3.AutoSize = True
  427.         Me.Label3.Location = New System.Drawing.Point(488, 32)
  428.         Me.Label3.Name = "Label3"
  429.         Me.Label3.Size = New System.Drawing.Size(83, 21)
  430.         Me.Label3.TabIndex = 26
  431.         Me.Label3.Text = "补货票号："
  432.         '
  433.         'Label2
  434.         '
  435.         Me.Label2.AutoSize = True
  436.         Me.Label2.Location = New System.Drawing.Point(256, 31)
  437.         Me.Label2.Name = "Label2"
  438.         Me.Label2.Size = New System.Drawing.Size(83, 21)
  439.         Me.Label2.TabIndex = 25
  440.         Me.Label2.Text = "配货日期："
  441.         '
  442.         'Label1
  443.         '
  444.         Me.Label1.AutoSize = True
  445.         Me.Label1.Location = New System.Drawing.Point(37, 32)
  446.         Me.Label1.Name = "Label1"
  447.         Me.Label1.Size = New System.Drawing.Size(52, 21)
  448.         Me.Label1.TabIndex = 24
  449.         Me.Label1.Text = "票号："
  450.         Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
  451.         '
  452.         'ErrorProvider1
  453.         '
  454.         Me.ErrorProvider1.ContainerControl = Me
  455.         '
  456.         'MsdnTextboxValidator1
  457.         '
  458.         Me.MsdnTextboxValidator1.DisplayControl = Nothing
  459.         Me.MsdnTextboxValidator1.ErrorProvider = Nothing
  460.         Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
  461.         Me.MsdnTextboxValidator1.TooltipProvider = Nothing
  462.         '
  463.         'txtPackage
  464.         '
  465.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPackage, True)
  466.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPackage, MSDNTextboxValidator.DataTypeConstants.StringType)
  467.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPackage, "")
  468.         Me.txtPackage.Location = New System.Drawing.Point(656, 104)
  469.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPackage, "")
  470.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPackage, "")
  471.         Me.txtPackage.Name = "txtPackage"
  472.         Me.txtPackage.ReadOnly = True
  473.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPackage, "")
  474.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPackage, False)
  475.         Me.txtPackage.Size = New System.Drawing.Size(56, 25)
  476.         Me.txtPackage.TabIndex = 74
  477.         Me.txtPackage.Text = ""
  478.         '
  479.         'txtUnit
  480.         '
  481.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtUnit, True)
  482.         Me.MsdnTextboxValidator1.SetDataType(Me.txtUnit, MSDNTextboxValidator.DataTypeConstants.StringType)
  483.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtUnit, "")
  484.         Me.txtUnit.Location = New System.Drawing.Point(656, 62)
  485.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtUnit, "")
  486.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtUnit, "")
  487.         Me.txtUnit.Name = "txtUnit"
  488.         Me.txtUnit.ReadOnly = True
  489.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtUnit, "")
  490.         Me.MsdnTextboxValidator1.SetRequired(Me.txtUnit, False)
  491.         Me.txtUnit.Size = New System.Drawing.Size(56, 25)
  492.         Me.txtUnit.TabIndex = 73
  493.         Me.txtUnit.Text = ""
  494.         '
  495.         'txtNo
  496.         '
  497.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNo, True)
  498.         Me.MsdnTextboxValidator1.SetDataType(Me.txtNo, MSDNTextboxValidator.DataTypeConstants.StringType)
  499.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNo, "")
  500.         Me.txtNo.Location = New System.Drawing.Point(96, 62)
  501.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNo, "")
  502.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtNo, "")
  503.         Me.txtNo.Name = "txtNo"
  504.         Me.txtNo.ReadOnly = True
  505.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNo, "")
  506.         Me.MsdnTextboxValidator1.SetRequired(Me.txtNo, False)
  507.         Me.txtNo.Size = New System.Drawing.Size(40, 25)
  508.         Me.txtNo.TabIndex = 71
  509.         Me.txtNo.Text = ""
  510.         '
  511.         'txtProduct
  512.         '
  513.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtProduct, True)
  514.         Me.MsdnTextboxValidator1.SetDataType(Me.txtProduct, MSDNTextboxValidator.DataTypeConstants.StringType)
  515.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtProduct, "")
  516.         Me.txtProduct.Location = New System.Drawing.Point(331, 103)
  517.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtProduct, "")
  518.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtProduct, "")
  519.         Me.txtProduct.Name = "txtProduct"
  520.         Me.txtProduct.ReadOnly = True
  521.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtProduct, "")
  522.         Me.MsdnTextboxValidator1.SetRequired(Me.txtProduct, False)
  523.         Me.txtProduct.Size = New System.Drawing.Size(128, 25)
  524.         Me.txtProduct.TabIndex = 67
  525.         Me.txtProduct.Text = ""
  526.         '
  527.         'txtAvaid
  528.         '
  529.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAvaid, True)
  530.         Me.MsdnTextboxValidator1.SetDataType(Me.txtAvaid, MSDNTextboxValidator.DataTypeConstants.StringType)
  531.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAvaid, "")
  532.         Me.txtAvaid.Location = New System.Drawing.Point(528, 103)
  533.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAvaid, "")
  534.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtAvaid, "")
  535.         Me.txtAvaid.Name = "txtAvaid"
  536.         Me.txtAvaid.ReadOnly = True
  537.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAvaid, "")
  538.         Me.MsdnTextboxValidator1.SetRequired(Me.txtAvaid, False)
  539.         Me.txtAvaid.Size = New System.Drawing.Size(72, 25)
  540.         Me.txtAvaid.TabIndex = 66
  541.         Me.txtAvaid.Text = ""
  542.         '
  543.         'txtBatch
  544.         '
  545.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBatch, True)
  546.         Me.MsdnTextboxValidator1.SetDataType(Me.txtBatch, MSDNTextboxValidator.DataTypeConstants.StringType)
  547.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBatch, "")
  548.         Me.txtBatch.Location = New System.Drawing.Point(96, 103)
  549.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBatch, "")
  550.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtBatch, "")
  551.         Me.txtBatch.Name = "txtBatch"
  552.         Me.txtBatch.ReadOnly = True
  553.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBatch, "")
  554.         Me.MsdnTextboxValidator1.SetRequired(Me.txtBatch, False)
  555.         Me.txtBatch.Size = New System.Drawing.Size(152, 25)
  556.         Me.txtBatch.TabIndex = 65
  557.         Me.txtBatch.Text = ""
  558.         '
  559.         'txtMoney
  560.         '
  561.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMoney, True)
  562.         Me.MsdnTextboxValidator1.SetDataType(Me.txtMoney, MSDNTextboxValidator.DataTypeConstants.StringType)
  563.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMoney, "")
  564.         Me.txtMoney.Location = New System.Drawing.Point(528, 62)
  565.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMoney, "")
  566.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtMoney, "")
  567.         Me.txtMoney.Name = "txtMoney"
  568.         Me.txtMoney.ReadOnly = True
  569.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMoney, "")
  570.         Me.MsdnTextboxValidator1.SetRequired(Me.txtMoney, False)
  571.         Me.txtMoney.Size = New System.Drawing.Size(72, 25)
  572.         Me.txtMoney.TabIndex = 63
  573.         Me.txtMoney.Text = "0.00"
  574.         '
  575.         'txtPrice
  576.         '
  577.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPrice, True)
  578.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPrice, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  579.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPrice, "")
  580.         Me.txtPrice.Location = New System.Drawing.Point(331, 62)
  581.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPrice, "")
  582.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPrice, "")
  583.         Me.txtPrice.Name = "txtPrice"
  584.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPrice, "")
  585.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPrice, False)
  586.         Me.txtPrice.Size = New System.Drawing.Size(128, 25)
  587.         Me.txtPrice.TabIndex = 62
  588.         Me.txtPrice.Text = "0.00"
  589.         '
  590.         'txtCount
  591.         '
  592.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCount, True)
  593.         Me.MsdnTextboxValidator1.SetDataType(Me.txtCount, MSDNTextboxValidator.DataTypeConstants.StringType)
  594.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCount, "")
  595.         Me.txtCount.Location = New System.Drawing.Point(192, 62)
  596.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCount, "")
  597.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtCount, "")
  598.         Me.txtCount.Name = "txtCount"
  599.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCount, "")
  600.         Me.MsdnTextboxValidator1.SetRequired(Me.txtCount, False)
  601.         Me.txtCount.Size = New System.Drawing.Size(56, 25)
  602.         Me.txtCount.TabIndex = 61
  603.         Me.txtCount.Text = ""
  604.         '
  605.         'txtMedRule
  606.         '
  607.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMedRule, True)
  608.         Me.MsdnTextboxValidator1.SetDataType(Me.txtMedRule, MSDNTextboxValidator.DataTypeConstants.StringType)
  609.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMedRule, "")
  610.         Me.txtMedRule.Location = New System.Drawing.Point(616, 24)
  611.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMedRule, "")
  612.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtMedRule, "")
  613.         Me.txtMedRule.Name = "txtMedRule"
  614.         Me.txtMedRule.ReadOnly = True
  615.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMedRule, "")
  616.         Me.MsdnTextboxValidator1.SetRequired(Me.txtMedRule, False)
  617.         Me.txtMedRule.Size = New System.Drawing.Size(96, 25)
  618.         Me.txtMedRule.TabIndex = 59
  619.         Me.txtMedRule.Text = ""
  620.         '
  621.         'txtmedName
  622.         '
  623.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtmedName, True)
  624.         Me.MsdnTextboxValidator1.SetDataType(Me.txtmedName, MSDNTextboxValidator.DataTypeConstants.StringType)
  625.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtmedName, "")
  626.         Me.txtmedName.Location = New System.Drawing.Point(331, 24)
  627.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtmedName, "")
  628.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtmedName, "")
  629.         Me.txtmedName.Name = "txtmedName"
  630.         Me.txtmedName.ReadOnly = True
  631.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtmedName, "")
  632.         Me.MsdnTextboxValidator1.SetRequired(Me.txtmedName, False)
  633.         Me.txtmedName.Size = New System.Drawing.Size(200, 25)
  634.         Me.txtmedName.TabIndex = 58
  635.         Me.txtmedName.Text = ""
  636.         '
  637.         'txtMedNumber
  638.         '
  639.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMedNumber, True)
  640.         Me.MsdnTextboxValidator1.SetDataType(Me.txtMedNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  641.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMedNumber, "")
  642.         Me.txtMedNumber.Location = New System.Drawing.Point(96, 24)
  643.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMedNumber, "")
  644.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtMedNumber, "")
  645.         Me.txtMedNumber.Name = "txtMedNumber"
  646.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMedNumber, "")
  647.         Me.MsdnTextboxValidator1.SetRequired(Me.txtMedNumber, False)
  648.         Me.txtMedNumber.Size = New System.Drawing.Size(152, 25)
  649.         Me.txtMedNumber.TabIndex = 57
  650.         Me.txtMedNumber.Text = ""
  651.         '
  652.         'Panel1
  653.         '
  654.         Me.Panel1.Controls.Add(Me.GroupBox2)
  655.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
  656.         Me.Panel1.Location = New System.Drawing.Point(0, 197)
  657.         Me.Panel1.Name = "Panel1"
  658.         Me.Panel1.Size = New System.Drawing.Size(734, 144)
  659.         Me.Panel1.TabIndex = 6
  660.         '
  661.         'GroupBox2
  662.         '
  663.         Me.GroupBox2.Controls.Add(Me.txtPackage)
  664.         Me.GroupBox2.Controls.Add(Me.txtUnit)
  665.         Me.GroupBox2.Controls.Add(Me.Label22)
  666.         Me.GroupBox2.Controls.Add(Me.txtNo)
  667.         Me.GroupBox2.Controls.Add(Me.Label20)
  668.         Me.GroupBox2.Controls.Add(Me.Label16)
  669.         Me.GroupBox2.Controls.Add(Me.txtProduct)
  670.         Me.GroupBox2.Controls.Add(Me.txtAvaid)
  671.         Me.GroupBox2.Controls.Add(Me.txtBatch)
  672.         Me.GroupBox2.Controls.Add(Me.txtMoney)
  673.         Me.GroupBox2.Controls.Add(Me.txtPrice)
  674.         Me.GroupBox2.Controls.Add(Me.txtCount)
  675.         Me.GroupBox2.Controls.Add(Me.txtMedRule)
  676.         Me.GroupBox2.Controls.Add(Me.txtmedName)
  677.         Me.GroupBox2.Controls.Add(Me.txtMedNumber)
  678.         Me.GroupBox2.Controls.Add(Me.Label19)
  679.         Me.GroupBox2.Controls.Add(Me.Label18)
  680.         Me.GroupBox2.Controls.Add(Me.Label17)
  681.         Me.GroupBox2.Controls.Add(Me.Label15)
  682.         Me.GroupBox2.Controls.Add(Me.Label14)
  683.         Me.GroupBox2.Controls.Add(Me.Label13)
  684.         Me.GroupBox2.Controls.Add(Me.Label11)
  685.         Me.GroupBox2.Controls.Add(Me.Label10)
  686.         Me.GroupBox2.Controls.Add(Me.Label9)
  687.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
  688.         Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
  689.         Me.GroupBox2.Name = "GroupBox2"
  690.         Me.GroupBox2.Size = New System.Drawing.Size(734, 144)
  691.         Me.GroupBox2.TabIndex = 6
  692.         Me.GroupBox2.TabStop = False
  693.         Me.GroupBox2.Text = "药品信息"
  694.         '
  695.         'Label22
  696.         '
  697.         Me.Label22.AutoSize = True
  698.         Me.Label22.Location = New System.Drawing.Point(616, 72)
  699.         Me.Label22.Name = "Label22"
  700.         Me.Label22.Size = New System.Drawing.Size(52, 21)
  701.         Me.Label22.TabIndex = 72
  702.         Me.Label22.Text = "单位："
  703.         '
  704.         'Label20
  705.         '
  706.         Me.Label20.AutoSize = True
  707.         Me.Label20.Location = New System.Drawing.Point(56, 72)
  708.         Me.Label20.Name = "Label20"
  709.         Me.Label20.Size = New System.Drawing.Size(52, 21)
  710.         Me.Label20.TabIndex = 70
  711.         Me.Label20.Text = "序号："
  712.         '
  713.         'Label16
  714.         '
  715.         Me.Label16.AutoSize = True
  716.         Me.Label16.Location = New System.Drawing.Point(616, 113)
  717.         Me.Label16.Name = "Label16"
  718.         Me.Label16.Size = New System.Drawing.Size(52, 21)
  719.         Me.Label16.TabIndex = 69
  720.         Me.Label16.Text = "包装："
  721.         '
  722.         'Label19
  723.         '
  724.         Me.Label19.AutoSize = True
  725.         Me.Label19.Location = New System.Drawing.Point(288, 113)
  726.         Me.Label19.Name = "Label19"
  727.         Me.Label19.Size = New System.Drawing.Size(52, 21)
  728.         Me.Label19.TabIndex = 56
  729.         Me.Label19.Text = "产地："
  730.         '
  731.         'Label18
  732.         '
  733.         Me.Label18.AutoSize = True
  734.         Me.Label18.Location = New System.Drawing.Point(472, 113)
  735.         Me.Label18.Name = "Label18"
  736.         Me.Label18.Size = New System.Drawing.Size(67, 21)
  737.         Me.Label18.TabIndex = 55
  738.         Me.Label18.Text = "有效期："
  739.         '
  740.         'Label17
  741.         '
  742.         Me.Label17.AutoSize = True
  743.         Me.Label17.Location = New System.Drawing.Point(56, 113)
  744.         Me.Label17.Name = "Label17"
  745.         Me.Label17.Size = New System.Drawing.Size(52, 21)
  746.         Me.Label17.TabIndex = 54
  747.         Me.Label17.Text = "批号："
  748.         '
  749.         'Label15
  750.         '
  751.         Me.Label15.AutoSize = True
  752.         Me.Label15.ForeColor = System.Drawing.Color.Red
  753.         Me.Label15.Location = New System.Drawing.Point(488, 72)
  754.         Me.Label15.Name = "Label15"
  755.         Me.Label15.Size = New System.Drawing.Size(52, 21)
  756.         Me.Label15.TabIndex = 53
  757.         Me.Label15.Text = "金额："
  758.         '
  759.         'Label14
  760.         '
  761.         Me.Label14.AutoSize = True
  762.         Me.Label14.Location = New System.Drawing.Point(288, 72)
  763.         Me.Label14.Name = "Label14"
  764.         Me.Label14.Size = New System.Drawing.Size(52, 21)
  765.         Me.Label14.TabIndex = 52
  766.         Me.Label14.Text = "单价："
  767.         '
  768.         'Label13
  769.         '
  770.         Me.Label13.AutoSize = True
  771.         Me.Label13.Location = New System.Drawing.Point(152, 72)
  772.         Me.Label13.Name = "Label13"
  773.         Me.Label13.Size = New System.Drawing.Size(52, 21)
  774.         Me.Label13.TabIndex = 51
  775.         Me.Label13.Text = "数量："
  776.         '
  777.         'Label11
  778.         '
  779.         Me.Label11.AutoSize = True
  780.         Me.Label11.Location = New System.Drawing.Point(544, 31)
  781.         Me.Label11.Name = "Label11"
  782.         Me.Label11.Size = New System.Drawing.Size(83, 21)
  783.         Me.Label11.TabIndex = 50
  784.         Me.Label11.Text = "药品规格："
  785.         '
  786.         'Label10
  787.         '
  788.         Me.Label10.AutoSize = True
  789.         Me.Label10.Location = New System.Drawing.Point(260, 32)
  790.         Me.Label10.Name = "Label10"
  791.         Me.Label10.Size = New System.Drawing.Size(83, 21)
  792.         Me.Label10.TabIndex = 49
  793.         Me.Label10.Text = "药品名称："
  794.         '
  795.         'Label9
  796.         '
  797.         Me.Label9.AutoSize = True
  798.         Me.Label9.Location = New System.Drawing.Point(24, 31)
  799.         Me.Label9.Name = "Label9"
  800.         Me.Label9.Size = New System.Drawing.Size(83, 21)
  801.         Me.Label9.TabIndex = 48
  802.         Me.Label9.Text = "药品编号："
  803.         '
  804.         'Panel2
  805.         '
  806.         Me.Panel2.Controls.Add(Me.dgview)
  807.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
  808.         Me.Panel2.Location = New System.Drawing.Point(0, 341)
  809.         Me.Panel2.Name = "Panel2"
  810.         Me.Panel2.Size = New System.Drawing.Size(734, 353)
  811.         Me.Panel2.TabIndex = 7
  812.         '
  813.         'dgview
  814.         '
  815.         Me.dgview.DataMember = ""
  816.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  817.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  818.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  819.         Me.dgview.Name = "dgview"
  820.         Me.dgview.Size = New System.Drawing.Size(734, 353)
  821.         Me.dgview.TabIndex = 5
  822.         '
  823.         'frmPsPst
  824.         '
  825.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  826.         Me.ClientSize = New System.Drawing.Size(734, 716)
  827.         Me.Controls.Add(Me.Panel2)
  828.         Me.Controls.Add(Me.Panel1)
  829.         Me.Controls.Add(Me.GroupBox1)
  830.         Me.Controls.Add(Me.StatusBar1)
  831.         Me.Controls.Add(Me.tbnPs)
  832.         Me.Name = "frmPsPst"
  833.         Me.Text = "门店配送登记"
  834.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  835.         Me.GroupBox1.ResumeLayout(False)
  836.         Me.Panel1.ResumeLayout(False)
  837.         Me.GroupBox2.ResumeLayout(False)
  838.         Me.Panel2.ResumeLayout(False)
  839.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  840.         Me.ResumeLayout(False)
  842.     End Sub
  844. #End Region
  845.     Public lsweb As New jxcmanage
  846.     Public dslocals As New DataSet
  848.     Public dslocal As DataSet = lsweb.returndataset("select BillNumber as 票号,BhDate as 日期,BhNumber as 补货票号,PsMedName as 配送对象,PsZt as 配送状态,Shy as 审核员,PsCenter as 配送中心,Psy as 配送员,Money as 金额,ysmoney as 应收金额 from PsPsdj", "PsPsdj")
  849.     Public strSql As String
  850.     Public s As Int16
  853.     Private Sub frmPsPst_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  854.         Dim pscenterdr, psmednamedr, bhy As System.Data.SqlClient.SqlDataReader
  855.         pscenterdr = lsweb.returnDataReader("select Cname from PsCenter")
  856.         psmednamedr = lsweb.returnDataReader("select Cname from MdManager")
  857.         bhy = lsweb.returnDataReader("select 操作员 from wz_mm")
  858.         Do While pscenterdr.Read()
  860.             txtPsCenter.Items.Add(pscenterdr("Cname"))
  861.         Loop
  862.         Do While psmednamedr.Read()
  864.             txtPsMedName.Items.Add(psmednamedr("Cname"))
  865.         Loop
  866.         Do While bhy.Read()
  868.             txtBhy.Items.Add(bhy("操作员"))
  869.         Loop
  870.         
  871.         Dim frmpspfer As New frmPsPf
  872.         If strSql = "" Then
  873.             dslocals = lsweb.returndataset("select number as 序号,medNumber as 药品编号,medname as 药品名称,medrule as 药品规格,unit as 单位,Pfcount as 数量,price as 单价,money as 金额,batch as 批号,avaid as 有效期,product as 产地,package as 包装,billnumber as 票号,demo as 货位 from PsPsdjMx", "PsPsdjMx")
  874.             dslocals.Clear()
  875.             Me.Show()
  876.             s = 0
  878.         Else
  879.             tbnAdd.Enabled = False
  880.             Dim drlocals As System.Data.SqlClient.SqlDataReader
  881.             drlocals = lsweb.returnDataReader("select * from PsPsdj where billnumber = '" & strSql.Substring(4, 16) & "' and psmedname='" & strSql.Substring(0, 4) & "'")
  882.             Do While drlocals.Read()
  883.                 txtbillnumber.Text = lsweb.selectbill("PS").ToString.Trim()
  884.                 txtBhDate.Text = drlocals("BhDate")
  885.                 txtSum.Text = drlocals("Money")
  886.                 txtPsMedName.Text = drlocals("PsMedName")
  887.                 txtBhNumber.Text = drlocals("billnumber")
  889.                 txtshy.Text = drlocals("Shy")
  890.                 txtPsCenter.Text = drlocals("PsCenter")
  892.             Loop
  894.             dslocals = lsweb.returndataset("select number as 序号,medNumber as 药品编号,medname as 药品名称,medrule as 药品规格,unit as 单位,Pfcount as 数量,price as 单价,money as 金额,batch as 批号,avaid as 有效期,product as 产地,package as 包装,billnumber as 票号,demo as 货位 from PsPsdjMx where billnumber = '" & strSql.Substring(4, 16) & "' and psmedname='" & strSql.Substring(0, 4) & "'", "PsPsdjMx")
  895.             dgview.DataSource = dslocals.Tables(0).DefaultView
  896.             s = lsweb.maxNumber("select isnull(max(number),0) as 序号 from PsPsdjMx where billnumber = '" & strSql.Substring(4, 16) & "' and psmedname='" & strSql.Substring(0, 4) & "'")
  897.         End If
  899.         txtBhDate.Value() = Today().ToString()
  901.     End Sub
  902.     Public Function getinfo(ByVal strqueryid As String) As String
  903.         Dim strOrderId As String
  904.         strOrderId = strqueryid
  905.         Return strOrderId
  906.     End Function
  907.     Private Sub CalMxMoney()
  908.         Dim price As Double = CType(txtPrice.Text.Trim, Double)
  909.         Dim count As Int16 = CInt(txtCount.Text.Trim)
  910.         Me.txtMoney.Text = (price * count).ToString
  911.     End Sub
  912.     Private Sub CalTotalMoney()
  913.         If dslocals.Tables("PsPsdjMx").Rows.Count = 0 Then
  914.             Me.txtMoney.Text = 0
  915.         End If
  916.         Dim money As String = ""
  917.         Dim dtotal As Double = 0
  918.         For Each dr As DataRow In dslocals.Tables("PsPsdjMx").Rows
  919.             money = dr("金额")
  920.             dtotal = dtotal + CType(money.Trim, Double)
  921.             txtSum.Text = dtotal.ToString.Trim
  922.         Next
  923.     End Sub
  924.     Private Sub clear()
  925.         txtMedNumber.Text = ""
  926.         txtmedName.Text = ""
  927.         txtMedRule.Text = ""
  928.         txtUnit.Text = ""
  929.         txtPrice.Text = 0.0
  930.         txtCount.Text = 0
  931.         txtMoney.Text = 0.0
  932.         txtAvaid.Text = ""
  933.         txtPackage.Text = ""
  934.         txtProduct.Text = ""
  935.         txtBatch.Text = ""
  936.     End Sub
  938.     Private Sub add()
  939.         dslocals.Clear()
  940.         txtBhDate.Value() = Today().ToString()
  941.         txtbillnumber.Text = lsweb.selectbill("PS").ToString
  942.         txtPsMedName.Text = ""
  943.         txtBhType.Text = ""
  944.         txtPsCenter.Text = ""
  945.         txtBhy.Text = ""
  946.         txthw.Text = ""
  947.         txtNo.Text = "1"
  948.         txtMedNumber.Text = ""
  949.         txtmedName.Text = ""
  950.         txtMedRule.Text = ""
  951.         txtUnit.Text = ""
  952.         txtPrice.Text = 0.0
  953.         txtCount.Text = 0
  954.         txtMoney.Text = 0.0
  955.         txtAvaid.Text = ""
  956.         txtPackage.Text = ""
  957.         txtProduct.Text = ""
  958.         txtBatch.Text = ""
  959.         txtPsMedName.Focus()
  960.     End Sub
  961.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  962.         If strboolean = "tbnAdd.Enabled = True" Then
  963.             tbnSave.Enabled = False
  964.             tbnPrint.Enabled = False
  965.             tbnExit.Enabled = True
  966.         ElseIf strboolean = "tbnAdd.Enabled = False" Then
  967.             tbnAdd.Enabled = False
  968.             tbnSave.Enabled = True
  969.             tbnPrint.Enabled = True
  970.             tbnExit.Enabled = True
  971.         ElseIf strboolean = "tbnSave.Enabled = True" Then
  972.             tbnAdd.Enabled = False
  973.             tbnPrint.Enabled = True
  974.             tbnExit.Enabled = True
  975.         ElseIf strboolean = "tbnSave.Enabled = False" Then
  976.             tbnSave.Enabled = False
  977.             tbnAdd.Enabled = True
  978.             tbnPrint.Enabled = True
  979.             tbnExit.Enabled = True
  980.         End If
  981.     End Sub
  982.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbnPs.ButtonClick
  983.         Select Case e.Button.Text
  984.             Case "添加"
  985.                 add()
  986.                 tbnEnable("tbnAdd.Enabled = False", tbnPs)
  987.             Case "保存"
  988.                 If txtSum.Text = "" Then
  989.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  990.                 Else
  991.                     Dim dr As DataRow = dslocal.Tables("PsPsdj").NewRow()
  992.                     dr("票号") = Me.txtbillnumber.Text.Trim
  993.                     dr("日期") = Me.txtBhDate.Value
  994.                     dr("补货票号") = Me.txtBhNumber.Text.Trim
  995.                     dr("配送对象") = Me.txtPsMedName.Text.Trim
  996.                     dr("配送状态") = Me.txtBhType.Text.Trim
  997.                     dr("审核员") = Me.txtshy.Text.Trim
  998.                     dr("配送中心") = Me.txtPsCenter.Text.Trim
  999.                     dr("配送员") = Me.txtBhy.Text.Trim
  1000.                     dr("金额") = Me.txtSum.Text.Trim
  1001.                     dr("应收金额") = Me.txtSum.Text.Trim
  1003.                     dslocal.Tables("PsPsdj").Rows.Add(dr)
  1004.                     If lsweb.updatedataset("select number as 序号,medNumber as 药品编号,medname as 药品名称,medrule as 药品规格,unit as 单位,Pfcount as 数量,price as 单价,money as 金额,batch as 批号,avaid as 有效期,product as 产地,package as 包装,billnumber as 票号,demo as 货位 from PsPsdjMx", "PsPsdjMx", dslocals, DataRowState.Added) = True And lsweb.updatedataset("select BillNumber as 票号,BhDate as 日期,BhNumber as 补货票号,PsMedName as 配送对象,PsZt as 配送状态,Shy as 审核员,PsCenter as 配送中心,Psy as 配送员,Money as 金额,ysmoney as 应收金额 from PsPsdj", "PsPsdj", dslocal, DataRowState.Added) = True Then
  1005.                         MessageBox.Show("销售信息成功保存！", "提示", MessageBoxButtons.OK)
  1006.                     Else
  1007.                         MessageBox.Show("销售信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  1008.                     End If
  1009.                     tbnEnable("tbnSave.Enabled = False", tbnPs)
  1010.                 End If
  1012.             Case "退出"
  1013.                     Me.Close()
  1015.         End Select
  1016.     End Sub
  1021.     Private Sub txtPrice_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  1022.         If Not IsNumeric(txtPrice.Text) Or txtPrice.Text = String.Empty Then
  1023.             ErrorProvider1.SetError(txtPrice, "不是数值类型且不能为空。")
  1024.             txtPrice.Focus()
  1025.         Else
  1026.             ErrorProvider1.SetError(txtPrice, "")
  1027.         End If
  1028.     End Sub
  1032.     Private Sub txtCount_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  1033.         If e.KeyCode = Keys.Enter Then
  1034.             txtPrice.Focus()
  1036.         End If
  1038.     End Sub
  1040.     Private Sub txtCount_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  1041.         If txtCount.Text = String.Empty Then
  1042.             ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空。")
  1043.             txtCount.Focus()
  1044.         Else
  1045.             ErrorProvider1.SetError(txtCount, "")
  1046.         End If
  1047.     End Sub
  1051.     Private Sub txtMedNumber_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMedNumber.KeyDown
  1052.         If e.KeyCode = Keys.Enter Then
  1053.             Dim dlg As frmMedKcQuery = New frmMedKcQuery
  1054.             dlg.PYMs = Me.getinfo(txtMedNumber.Text)
  1055.             If dlg.PYMs = "" Then
  1056.                 ErrorProvider1.SetError(txtMedNumber, "不能为空，请输入查询码！")
  1057.             Else
  1058.                 dlg.ShowDialog()
  1059.                 ErrorProvider1.SetError(txtMedNumber, "")
  1060.             End If
  1061.             Dim medIdvalue, medbatch, product, avaid, hw, package As String
  1062.             medIdvalue = dlg.GetInfo("药品编号")
  1063.             medbatch = dlg.GetInfo("批号")
  1064.             product = dlg.GetInfo("产地")
  1065.             avaid = dlg.GetInfo("有效期")
  1066.             hw = dlg.GetInfo("货位")
  1067.             package = dlg.GetInfo("包装")
  1068.             If medIdvalue Is Nothing Then
  1069.                 ErrorProvider1.SetError(txtMedNumber, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
  1070.             Else
  1071.                 Dim runSqlQuery As String
  1072.                 runSqlQuery = "select * from wz_kc where 药品编号='" & medIdvalue & "' and 批号 ='" & medbatch & "' and 产地='" & product & "' and 有效期='" & avaid & "' and 货位='" & hw & "' and 包装='" & package & "'"
  1073.                 Dim dv As DataView
  1074.                 ' Dim mOrderId As New managers
  1075.                 '调用mCustomId对象的SPcustomersID函数
  1076.                 Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
  1077.                 'bb为一随意表名
  1078.                 dtOrder.TableName = "bb"
  1079.                 dv = dtOrder.DefaultView
  1080.                 txtMedNumber.Text = dv(0)("药品编号")
  1081.                 txtmedName.Text = dv(0)("药品名称")
  1082.                 txtMedRule.Text = dv(0)("药品规格")
  1083.                 txtUnit.Text = dv(0)("单位")
  1084.                 txtPrice.Text = dv(0)("进价")
  1085.                 txtCount.Text = dv(0)("数量")
  1086.                 txtAvaid.Text = dv(0)("有效期")
  1087.                 txtPackage.Text = dv(0)("包装")
  1088.                 txtProduct.Text = dv(0)("产地")
  1089.                 txtBatch.Text = dv(0)("批号")
  1090.                 txthw.Text = dv(0)("货位")
  1091.                 ErrorProvider1.SetError(txtMedNumber, "")
  1092.                 txtCount.Focus()
  1093.             End If
  1095.         End If
  1096.     End Sub
  1100.     Private Sub txtPrice_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPrice.KeyDown
  1101.         If e.KeyCode = Keys.Enter Then
  1102.             If txtPrice.Text = String.Empty Then
  1103.                 txtPrice_Validating(Nothing, Nothing)
  1104.             Else
  1105.                 Static i As Int16
  1106.                 If dslocals.Tables("PsPsdjMx").Rows.Count < 1 Then
  1107.                     i = 1
  1108.                 Else
  1109.                     i = i + 1
  1110.                 End If
  1111.                 txtNo.Text = CStr(i + s)
  1112.                 Dim dr As DataRow = dslocals.Tables("PsPsdjMx").NewRow()
  1113.                 dr("序号") = CStr(i + s)
  1114.                 dr("药品编号") = Me.txtMedNumber.Text.Trim
  1115.                 dr("药品名称") = Me.txtmedName.Text.Trim
  1116.                 dr("药品规格") = Me.txtMedRule.Text.Trim
  1117.                 dr("单位") = Me.txtUnit.Text.Trim
  1118.                 dr("数量") = Me.txtCount.Text.Trim
  1119.                 dr("单价") = CDec(Me.txtPrice.Text.Trim)
  1120.                 dr("金额") = CDec(Me.txtPrice.Text.Trim) * CInt(Me.txtCount.Text.Trim)
  1121.                 dr("批号") = Me.txtBatch.Text.Trim
  1122.                 dr("有效期") = Me.txtAvaid.Text.Trim
  1123.                 dr("产地") = Me.txtProduct.Text.Trim
  1124.                 dr("包装") = Me.txtPackage.Text.Trim
  1125.                 dr("票号") = Me.txtbillnumber.Text.Trim
  1126.                 dr("货位") = Me.txthw.Text.Trim
  1127.                 dslocals.Tables("PsPsdjMx").Rows.Add(dr)
  1128.                 txtMedNumber.Text = ""
  1129.                 txtMedNumber.Focus()
  1130.                 'clear()
  1131.                 CalMxMoney()
  1132.                 CalTotalMoney()
  1134.             End If
  1135.         End If
  1137.         dgview.DataSource = dslocals.Tables("PsPsdjMx").DefaultView
  1138.     End Sub
  1142.     Private Sub txtPsMedName_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  1143.        
  1145.     End Sub
  1149.     Private Sub txtBhType_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBhType.KeyDown
  1150.         If e.KeyCode = Keys.Enter Then
  1151.             txtPsCenter.Focus()
  1153.         End If
  1154.     End Sub
  1157.     Private Sub txtPsCenter_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPsCenter.KeyDown
  1158.         If e.KeyCode = Keys.Enter Then
  1159.             txtBhy.Focus()
  1161.         End If
  1162.     End Sub
  1166.     Private Sub txtBhy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBhy.KeyDown
  1167.         If e.KeyCode = Keys.Enter Then
  1168.             txtMedNumber.Focus()
  1170.         End If
  1171.     End Sub
  1174.     Private Sub txtCount_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCount.KeyDown
  1175.         If e.KeyCode = Keys.Enter Then
  1176.             txtPrice.Focus()
  1178.         End If
  1181.     End Sub
  1183.     Private Sub txtPsMedName_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  1184.         If txtPsMedName.Text = String.Empty Then
  1185.             ErrorProvider1.SetError(txtPsMedName, "不能为空！")
  1186.             e.Cancel = True
  1187.         Else
  1188.             ErrorProvider1.SetError(txtPsMedName, "")
  1189.         End If
  1190.     End Sub
  1192.     Private Sub txtBhType_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtBhType.Validating
  1193.         If txtBhType.Text = String.Empty Then
  1194.             ErrorProvider1.SetError(txtBhType, "不能为空！")
  1195.             e.Cancel = True
  1196.         Else
  1197.             ErrorProvider1.SetError(txtBhType, "")
  1198.         End If
  1199.     End Sub
  1201.     Private Sub txtPsCenter_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPsCenter.Validating
  1202.         If txtPsCenter.Text = String.Empty Then
  1203.             ErrorProvider1.SetError(txtPsCenter, "不能为空！")
  1204.             e.Cancel = True
  1205.         Else
  1206.             ErrorProvider1.SetError(txtPsCenter, "")
  1207.         End If
  1208.     End Sub
  1210.     Private Sub txtBhy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtBhy.Validating
  1211.         If txtBhy.Text = String.Empty Then
  1212.             ErrorProvider1.SetError(txtBhy, "不能为空！")
  1213.             e.Cancel = True
  1214.         Else
  1215.             ErrorProvider1.SetError(txtBhy, "")
  1216.         End If
  1217.     End Sub
  1219.     Private Sub txtMedNumber_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtMedNumber.Validating
  1220.         If txtMedNumber.Text = String.Empty Then
  1221.             ErrorProvider1.SetError(txtMedNumber, "不能为空！")
  1222.             txtMedNumber.Focus()
  1224.         Else
  1225.             ErrorProvider1.SetError(txtMedNumber, "")
  1226.         End If
  1227.     End Sub
  1229.     Private Sub txtCount_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtCount.Validating
  1230.         If Not IsNumeric(txtCount.Text) Or txtCount.Text = String.Empty Then
  1231.             ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空。")
  1232.             e.Cancel = True
  1233.         Else
  1234.             ErrorProvider1.SetError(txtCount, "")
  1235.         End If
  1236.     End Sub
  1239.     Private Sub txtPrice_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPrice.Validating
  1240.         If Not IsNumeric(txtPrice.Text) Or txtPrice.Text = String.Empty Then
  1241.             ErrorProvider1.SetError(txtPrice, "不是数值类型且不能为空。")
  1242.             e.Cancel = True
  1243.         Else
  1244.             ErrorProvider1.SetError(txtPrice, "")
  1245.         End If
  1246.     End Sub
  1248.     Private Sub frmPsPst_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
  1249.         If txtbillnumber.Text <> String.Empty And tbnSave.Enabled = True Then
  1251.             lsweb.cancelbill(txtbillnumber.Text.Trim)
  1252.         End If
  1253.     End Sub
  1255.     Private Sub txtBhy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBhy.SelectedIndexChanged
  1257.     End Sub
  1259.     Private Sub txthw_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  1261.     End Sub
  1263.     Private Sub txthw_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  1264.         
  1265.     End Sub
  1267.     Private Sub txthw_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  1268.         If txthw.Text = String.Empty Then
  1269.             ErrorProvider1.SetError(txthw, "不能为空！")
  1270.             e.Cancel = True
  1271.         Else
  1272.             ErrorProvider1.SetError(txthw, "")
  1273.         End If
  1274.     End Sub
  1276.     Private Sub txtPsMedName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPsMedName.SelectedIndexChanged
  1278.     End Sub
  1280.     Private Sub txtPsMedName_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPsMedName.KeyDown
  1281.         If e.KeyCode = Keys.Enter Then
  1282.             txtBhType.Focus()
  1284.         End If
  1285.     End Sub
  1287.     Private Sub txthw_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txthw.TextChanged
  1289.     End Sub
  1291.     Private Sub txthw_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txthw.KeyDown
  1293.     End Sub
  1295.     Private Sub txtMedNumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMedNumber.TextChanged
  1297.     End Sub
  1298. End Class