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

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

医药行业

开发平台：

Visual Basic

frmPsth.vb：源码内容
  1. Public Class frmPsth
  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 GroupBox2 As System.Windows.Forms.GroupBox
  35.     Friend WithEvents Label7 As System.Windows.Forms.Label
  36.     Friend WithEvents Label5 As System.Windows.Forms.Label
  37.     Friend WithEvents Label4 As System.Windows.Forms.Label
  38.     Friend WithEvents Label2 As System.Windows.Forms.Label
  39.     Friend WithEvents Label1 As System.Windows.Forms.Label
  40.     Friend WithEvents Label16 As System.Windows.Forms.Label
  41.     Friend WithEvents Label12 As System.Windows.Forms.Label
  42.     Friend WithEvents txtProduct As System.Windows.Forms.TextBox
  43.     Friend WithEvents txtAvaid As System.Windows.Forms.TextBox
  44.     Friend WithEvents txtBatch As System.Windows.Forms.TextBox
  45.     Friend WithEvents txtMoney As System.Windows.Forms.TextBox
  46.     Friend WithEvents txtPrice As System.Windows.Forms.TextBox
  47.     Friend WithEvents txtCount As System.Windows.Forms.TextBox
  48.     Friend WithEvents txtMedRule As System.Windows.Forms.TextBox
  49.     Friend WithEvents txtmedName As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtMedNumber As System.Windows.Forms.TextBox
  51.     Friend WithEvents Label19 As System.Windows.Forms.Label
  52.     Friend WithEvents Label18 As System.Windows.Forms.Label
  53.     Friend WithEvents Label17 As System.Windows.Forms.Label
  54.     Friend WithEvents Label15 As System.Windows.Forms.Label
  55.     Friend WithEvents Label14 As System.Windows.Forms.Label
  56.     Friend WithEvents Label13 As System.Windows.Forms.Label
  57.     Friend WithEvents Label11 As System.Windows.Forms.Label
  58.     Friend WithEvents Label10 As System.Windows.Forms.Label
  59.     Friend WithEvents Label9 As System.Windows.Forms.Label
  60.     Friend WithEvents Label6 As System.Windows.Forms.Label
  61.     Friend WithEvents txtno As System.Windows.Forms.TextBox
  62.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  63.     Friend WithEvents txtpsmedname As System.Windows.Forms.ComboBox
  64.     Friend WithEvents txtywy As System.Windows.Forms.ComboBox
  65.     Friend WithEvents tbnAdd As System.Windows.Forms.ToolBarButton
  66.     Friend WithEvents tbnSave As System.Windows.Forms.ToolBarButton
  67.     Friend WithEvents tbnExit As System.Windows.Forms.ToolBarButton
  68.     Friend WithEvents tbnPrint As System.Windows.Forms.ToolBarButton
  69.     Friend WithEvents lblsum As System.Windows.Forms.Label
  70.     Friend WithEvents txtsum As System.Windows.Forms.TextBox
  71.     Friend WithEvents txtthdate As System.Windows.Forms.DateTimePicker
  72.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  73.     Friend WithEvents txtUnit As System.Windows.Forms.TextBox
  74.     Friend WithEvents txtPackage As System.Windows.Forms.TextBox
  75.     Friend WithEvents tbnth As System.Windows.Forms.ToolBar
  76.     Friend WithEvents txtpscenter As System.Windows.Forms.ComboBox
  77.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  78.     Friend WithEvents Label3 As System.Windows.Forms.Label
  79.     Friend WithEvents txthw As System.Windows.Forms.TextBox
  80.     Friend WithEvents txtbillnumber As System.Windows.Forms.TextBox
  81.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  82.         Me.components = New System.ComponentModel.Container
  83.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPsth))
  84.         Me.tbnth = New System.Windows.Forms.ToolBar
  85.         Me.tbnAdd = New System.Windows.Forms.ToolBarButton
  86.         Me.tbnSave = New System.Windows.Forms.ToolBarButton
  87.         Me.tbnPrint = New System.Windows.Forms.ToolBarButton
  88.         Me.tbnExit = New System.Windows.Forms.ToolBarButton
  89.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  90.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  91.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  92.         Me.txthw = New System.Windows.Forms.TextBox
  93.         Me.Label3 = New System.Windows.Forms.Label
  94.         Me.txtpscenter = New System.Windows.Forms.ComboBox
  95.         Me.txtthdate = New System.Windows.Forms.DateTimePicker
  96.         Me.txtsum = New System.Windows.Forms.TextBox
  97.         Me.lblsum = New System.Windows.Forms.Label
  98.         Me.txtywy = New System.Windows.Forms.ComboBox
  99.         Me.txtpsmedname = New System.Windows.Forms.ComboBox
  100.         Me.Label7 = New System.Windows.Forms.Label
  101.         Me.Label5 = New System.Windows.Forms.Label
  102.         Me.Label4 = New System.Windows.Forms.Label
  103.         Me.Label2 = New System.Windows.Forms.Label
  104.         Me.Label1 = New System.Windows.Forms.Label
  105.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  106.         Me.txtPackage = New System.Windows.Forms.TextBox
  107.         Me.txtUnit = New System.Windows.Forms.TextBox
  108.         Me.txtno = New System.Windows.Forms.TextBox
  109.         Me.Label6 = New System.Windows.Forms.Label
  110.         Me.Label16 = New System.Windows.Forms.Label
  111.         Me.Label12 = New System.Windows.Forms.Label
  112.         Me.txtProduct = New System.Windows.Forms.TextBox
  113.         Me.txtAvaid = New System.Windows.Forms.TextBox
  114.         Me.txtBatch = New System.Windows.Forms.TextBox
  115.         Me.txtMoney = New System.Windows.Forms.TextBox
  116.         Me.txtPrice = New System.Windows.Forms.TextBox
  117.         Me.txtCount = New System.Windows.Forms.TextBox
  118.         Me.txtMedRule = New System.Windows.Forms.TextBox
  119.         Me.txtmedName = New System.Windows.Forms.TextBox
  120.         Me.txtMedNumber = New System.Windows.Forms.TextBox
  121.         Me.Label19 = New System.Windows.Forms.Label
  122.         Me.Label18 = New System.Windows.Forms.Label
  123.         Me.Label17 = New System.Windows.Forms.Label
  124.         Me.Label15 = New System.Windows.Forms.Label
  125.         Me.Label14 = New System.Windows.Forms.Label
  126.         Me.Label13 = New System.Windows.Forms.Label
  127.         Me.Label11 = New System.Windows.Forms.Label
  128.         Me.Label10 = New System.Windows.Forms.Label
  129.         Me.Label9 = New System.Windows.Forms.Label
  130.         Me.dgview = New System.Windows.Forms.DataGrid
  131.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  132.         Me.txtbillnumber = New System.Windows.Forms.TextBox
  133.         Me.GroupBox1.SuspendLayout()
  134.         Me.GroupBox2.SuspendLayout()
  135.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  136.         Me.SuspendLayout()
  137.         '
  138.         'tbnth
  139.         '
  140.         Me.tbnth.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  141.         Me.tbnth.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnAdd, Me.tbnSave, Me.tbnPrint, Me.tbnExit})
  142.         Me.tbnth.DropDownArrows = True
  143.         Me.tbnth.ImageList = Me.ImageList2
  144.         Me.tbnth.Location = New System.Drawing.Point(0, 0)
  145.         Me.tbnth.Name = "tbnth"
  146.         Me.tbnth.ShowToolTips = True
  147.         Me.tbnth.Size = New System.Drawing.Size(604, 41)
  148.         Me.tbnth.TabIndex = 0
  149.         '
  150.         'tbnAdd
  151.         '
  152.         Me.tbnAdd.ImageIndex = 7
  153.         Me.tbnAdd.Text = "添加"
  154.         '
  155.         'tbnSave
  156.         '
  157.         Me.tbnSave.ImageIndex = 4
  158.         Me.tbnSave.Text = "保存"
  159.         '
  160.         'tbnPrint
  161.         '
  162.         Me.tbnPrint.ImageIndex = 12
  163.         Me.tbnPrint.Text = "打印"
  164.         '
  165.         'tbnExit
  166.         '
  167.         Me.tbnExit.ImageIndex = 11
  168.         Me.tbnExit.Text = "退出"
  169.         '
  170.         'ImageList2
  171.         '
  172.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  173.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  174.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  175.         '
  176.         'StatusBar1
  177.         '
  178.         Me.StatusBar1.Location = New System.Drawing.Point(0, 472)
  179.         Me.StatusBar1.Name = "StatusBar1"
  180.         Me.StatusBar1.Size = New System.Drawing.Size(604, 17)
  181.         Me.StatusBar1.TabIndex = 1
  182.         Me.StatusBar1.Text = "StatusBar1"
  183.         '
  184.         'GroupBox1
  185.         '
  186.         Me.GroupBox1.Controls.Add(Me.txtbillnumber)
  187.         Me.GroupBox1.Controls.Add(Me.txthw)
  188.         Me.GroupBox1.Controls.Add(Me.Label3)
  189.         Me.GroupBox1.Controls.Add(Me.txtpscenter)
  190.         Me.GroupBox1.Controls.Add(Me.txtthdate)
  191.         Me.GroupBox1.Controls.Add(Me.txtsum)
  192.         Me.GroupBox1.Controls.Add(Me.lblsum)
  193.         Me.GroupBox1.Controls.Add(Me.txtywy)
  194.         Me.GroupBox1.Controls.Add(Me.txtpsmedname)
  195.         Me.GroupBox1.Controls.Add(Me.Label7)
  196.         Me.GroupBox1.Controls.Add(Me.Label5)
  197.         Me.GroupBox1.Controls.Add(Me.Label4)
  198.         Me.GroupBox1.Controls.Add(Me.Label2)
  199.         Me.GroupBox1.Controls.Add(Me.Label1)
  200.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  201.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  202.         Me.GroupBox1.Name = "GroupBox1"
  203.         Me.GroupBox1.Size = New System.Drawing.Size(604, 79)
  204.         Me.GroupBox1.TabIndex = 2
  205.         Me.GroupBox1.TabStop = False
  206.         Me.GroupBox1.Text = "门店退货信息"
  207.         '
  208.         'txthw
  209.         '
  210.         Me.txthw.Location = New System.Drawing.Point(408, 50)
  211.         Me.txthw.Name = "txthw"
  212.         Me.txthw.ReadOnly = True
  213.         Me.txthw.Size = New System.Drawing.Size(54, 21)
  214.         Me.txthw.TabIndex = 56
  215.         Me.txthw.Text = ""
  216.         '
  217.         'Label3
  218.         '
  219.         Me.Label3.AutoSize = True
  220.         Me.Label3.Location = New System.Drawing.Point(378, 56)
  221.         Me.Label3.Name = "Label3"
  222.         Me.Label3.Size = New System.Drawing.Size(42, 17)
  223.         Me.Label3.TabIndex = 55
  224.         Me.Label3.Text = "货位："
  225.         '
  226.         'txtpscenter
  227.         '
  228.         Me.txtpscenter.Location = New System.Drawing.Point(240, 50)
  229.         Me.txtpscenter.Name = "txtpscenter"
  230.         Me.txtpscenter.Size = New System.Drawing.Size(108, 20)
  231.         Me.txtpscenter.TabIndex = 54
  232.         '
  233.         'txtthdate
  234.         '
  235.         Me.txtthdate.Location = New System.Drawing.Point(240, 19)
  236.         Me.txtthdate.Name = "txtthdate"
  237.         Me.txtthdate.Size = New System.Drawing.Size(108, 21)
  238.         Me.txtthdate.TabIndex = 52
  239.         '
  240.         'txtsum
  241.         '
  242.         Me.txtsum.Location = New System.Drawing.Point(522, 50)
  243.         Me.txtsum.Name = "txtsum"
  244.         Me.txtsum.ReadOnly = True
  245.         Me.txtsum.Size = New System.Drawing.Size(72, 21)
  246.         Me.txtsum.TabIndex = 51
  247.         Me.txtsum.Text = ""
  248.         '
  249.         'lblsum
  250.         '
  251.         Me.lblsum.AutoSize = True
  252.         Me.lblsum.Location = New System.Drawing.Point(468, 56)
  253.         Me.lblsum.Name = "lblsum"
  254.         Me.lblsum.Size = New System.Drawing.Size(66, 17)
  255.         Me.lblsum.TabIndex = 50
  256.         Me.lblsum.Text = "合计金额："
  257.         '
  258.         'txtywy
  259.         '
  260.         Me.txtywy.Location = New System.Drawing.Point(408, 19)
  261.         Me.txtywy.Name = "txtywy"
  262.         Me.txtywy.Size = New System.Drawing.Size(72, 20)
  263.         Me.txtywy.TabIndex = 48
  264.         '
  265.         'txtpsmedname
  266.         '
  267.         Me.txtpsmedname.Location = New System.Drawing.Point(60, 48)
  268.         Me.txtpsmedname.Name = "txtpsmedname"
  269.         Me.txtpsmedname.Size = New System.Drawing.Size(114, 20)
  270.         Me.txtpsmedname.TabIndex = 47
  271.         '
  272.         'Label7
  273.         '
  274.         Me.Label7.AutoSize = True
  275.         Me.Label7.Location = New System.Drawing.Point(366, 24)
  276.         Me.Label7.Name = "Label7"
  277.         Me.Label7.Size = New System.Drawing.Size(54, 17)
  278.         Me.Label7.TabIndex = 46
  279.         Me.Label7.Text = "业务员："
  280.         '
  281.         'Label5
  282.         '
  283.         Me.Label5.AutoSize = True
  284.         Me.Label5.Location = New System.Drawing.Point(186, 56)
  285.         Me.Label5.Name = "Label5"
  286.         Me.Label5.Size = New System.Drawing.Size(66, 17)
  287.         Me.Label5.TabIndex = 44
  288.         Me.Label5.Text = "配送中心："
  289.         '
  290.         'Label4
  291.         '
  292.         Me.Label4.AutoSize = True
  293.         Me.Label4.Location = New System.Drawing.Point(8, 56)
  294.         Me.Label4.Name = "Label4"
  295.         Me.Label4.Size = New System.Drawing.Size(66, 17)
  296.         Me.Label4.TabIndex = 43
  297.         Me.Label4.Text = "配送对象："
  298.         '
  299.         'Label2
  300.         '
  301.         Me.Label2.AutoSize = True
  302.         Me.Label2.Location = New System.Drawing.Point(186, 24)
  303.         Me.Label2.Name = "Label2"
  304.         Me.Label2.Size = New System.Drawing.Size(66, 17)
  305.         Me.Label2.TabIndex = 41
  306.         Me.Label2.Text = "退货日期："
  307.         '
  308.         'Label1
  309.         '
  310.         Me.Label1.AutoSize = True
  311.         Me.Label1.Location = New System.Drawing.Point(8, 24)
  312.         Me.Label1.Name = "Label1"
  313.         Me.Label1.Size = New System.Drawing.Size(42, 17)
  314.         Me.Label1.TabIndex = 40
  315.         Me.Label1.Text = "票号："
  316.         '
  317.         'GroupBox2
  318.         '
  319.         Me.GroupBox2.Controls.Add(Me.txtPackage)
  320.         Me.GroupBox2.Controls.Add(Me.txtUnit)
  321.         Me.GroupBox2.Controls.Add(Me.txtno)
  322.         Me.GroupBox2.Controls.Add(Me.Label6)
  323.         Me.GroupBox2.Controls.Add(Me.Label16)
  324.         Me.GroupBox2.Controls.Add(Me.Label12)
  325.         Me.GroupBox2.Controls.Add(Me.txtProduct)
  326.         Me.GroupBox2.Controls.Add(Me.txtAvaid)
  327.         Me.GroupBox2.Controls.Add(Me.txtBatch)
  328.         Me.GroupBox2.Controls.Add(Me.txtMoney)
  329.         Me.GroupBox2.Controls.Add(Me.txtPrice)
  330.         Me.GroupBox2.Controls.Add(Me.txtCount)
  331.         Me.GroupBox2.Controls.Add(Me.txtMedRule)
  332.         Me.GroupBox2.Controls.Add(Me.txtmedName)
  333.         Me.GroupBox2.Controls.Add(Me.txtMedNumber)
  334.         Me.GroupBox2.Controls.Add(Me.Label19)
  335.         Me.GroupBox2.Controls.Add(Me.Label18)
  336.         Me.GroupBox2.Controls.Add(Me.Label17)
  337.         Me.GroupBox2.Controls.Add(Me.Label15)
  338.         Me.GroupBox2.Controls.Add(Me.Label14)
  339.         Me.GroupBox2.Controls.Add(Me.Label13)
  340.         Me.GroupBox2.Controls.Add(Me.Label11)
  341.         Me.GroupBox2.Controls.Add(Me.Label10)
  342.         Me.GroupBox2.Controls.Add(Me.Label9)
  343.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
  344.         Me.GroupBox2.Location = New System.Drawing.Point(0, 120)
  345.         Me.GroupBox2.Name = "GroupBox2"
  346.         Me.GroupBox2.Size = New System.Drawing.Size(604, 112)
  347.         Me.GroupBox2.TabIndex = 3
  348.         Me.GroupBox2.TabStop = False
  349.         Me.GroupBox2.Text = "药品信息"
  350.         '
  351.         'txtPackage
  352.         '
  353.         Me.txtPackage.Location = New System.Drawing.Point(486, 81)
  354.         Me.txtPackage.Name = "txtPackage"
  355.         Me.txtPackage.ReadOnly = True
  356.         Me.txtPackage.Size = New System.Drawing.Size(60, 21)
  357.         Me.txtPackage.TabIndex = 95
  358.         Me.txtPackage.Text = ""
  359.         '
  360.         'txtUnit
  361.         '
  362.         Me.txtUnit.Location = New System.Drawing.Point(486, 48)
  363.         Me.txtUnit.Name = "txtUnit"
  364.         Me.txtUnit.ReadOnly = True
  365.         Me.txtUnit.Size = New System.Drawing.Size(60, 21)
  366.         Me.txtUnit.TabIndex = 94
  367.         Me.txtUnit.Text = ""
  368.         '
  369.         'txtno
  370.         '
  371.         Me.txtno.Location = New System.Drawing.Point(60, 48)
  372.         Me.txtno.Name = "txtno"
  373.         Me.txtno.ReadOnly = True
  374.         Me.txtno.Size = New System.Drawing.Size(30, 21)
  375.         Me.txtno.TabIndex = 93
  376.         Me.txtno.Text = ""
  377.         '
  378.         'Label6
  379.         '
  380.         Me.Label6.Location = New System.Drawing.Point(30, 56)
  381.         Me.Label6.Name = "Label6"
  382.         Me.Label6.Size = New System.Drawing.Size(42, 17)
  383.         Me.Label6.TabIndex = 92
  384.         Me.Label6.Text = "序号："
  385.         '
  386.         'Label16
  387.         '
  388.         Me.Label16.AutoSize = True
  389.         Me.Label16.Location = New System.Drawing.Point(456, 88)
  390.         Me.Label16.Name = "Label16"
  391.         Me.Label16.Size = New System.Drawing.Size(42, 17)
  392.         Me.Label16.TabIndex = 91
  393.         Me.Label16.Text = "包装："
  394.         '
  395.         'Label12
  396.         '
  397.         Me.Label12.AutoSize = True
  398.         Me.Label12.Location = New System.Drawing.Point(456, 56)
  399.         Me.Label12.Name = "Label12"
  400.         Me.Label12.Size = New System.Drawing.Size(42, 17)
  401.         Me.Label12.TabIndex = 90
  402.         Me.Label12.Text = "单位："
  403.         '
  404.         'txtProduct
  405.         '
  406.         Me.txtProduct.Location = New System.Drawing.Point(240, 81)
  407.         Me.txtProduct.Name = "txtProduct"
  408.         Me.txtProduct.ReadOnly = True
  409.         Me.txtProduct.Size = New System.Drawing.Size(88, 21)
  410.         Me.txtProduct.TabIndex = 89
  411.         Me.txtProduct.Text = ""
  412.         '
  413.         'txtAvaid
  414.         '
  415.         Me.txtAvaid.Location = New System.Drawing.Point(378, 81)
  416.         Me.txtAvaid.Name = "txtAvaid"
  417.         Me.txtAvaid.ReadOnly = True
  418.         Me.txtAvaid.Size = New System.Drawing.Size(66, 21)
  419.         Me.txtAvaid.TabIndex = 88
  420.         Me.txtAvaid.Text = ""
  421.         '
  422.         'txtBatch
  423.         '
  424.         Me.txtBatch.Location = New System.Drawing.Point(60, 80)
  425.         Me.txtBatch.Name = "txtBatch"
  426.         Me.txtBatch.ReadOnly = True
  427.         Me.txtBatch.Size = New System.Drawing.Size(114, 21)
  428.         Me.txtBatch.TabIndex = 87
  429.         Me.txtBatch.Text = ""
  430.         '
  431.         'txtMoney
  432.         '
  433.         Me.txtMoney.Location = New System.Drawing.Point(378, 48)
  434.         Me.txtMoney.Name = "txtMoney"
  435.         Me.txtMoney.ReadOnly = True
  436.         Me.txtMoney.Size = New System.Drawing.Size(66, 21)
  437.         Me.txtMoney.TabIndex = 85
  438.         Me.txtMoney.Text = "0.00"
  439.         '
  440.         'txtPrice
  441.         '
  442.         Me.txtPrice.Location = New System.Drawing.Point(240, 50)
  443.         Me.txtPrice.Name = "txtPrice"
  444.         Me.txtPrice.Size = New System.Drawing.Size(88, 21)
  445.         Me.txtPrice.TabIndex = 84
  446.         Me.txtPrice.Text = "0.00"
  447.         '
  448.         'txtCount
  449.         '
  450.         Me.txtCount.Location = New System.Drawing.Point(132, 48)
  451.         Me.txtCount.Name = "txtCount"
  452.         Me.txtCount.Size = New System.Drawing.Size(42, 21)
  453.         Me.txtCount.TabIndex = 83
  454.         Me.txtCount.Text = ""
  455.         '
  456.         'txtMedRule
  457.         '
  458.         Me.txtMedRule.Location = New System.Drawing.Point(450, 16)
  459.         Me.txtMedRule.Name = "txtMedRule"
  460.         Me.txtMedRule.ReadOnly = True
  461.         Me.txtMedRule.Size = New System.Drawing.Size(96, 21)
  462.         Me.txtMedRule.TabIndex = 81
  463.         Me.txtMedRule.Text = ""
  464.         '
  465.         'txtmedName
  466.         '
  467.         Me.txtmedName.Location = New System.Drawing.Point(240, 16)
  468.         Me.txtmedName.Name = "txtmedName"
  469.         Me.txtmedName.ReadOnly = True
  470.         Me.txtmedName.Size = New System.Drawing.Size(136, 21)
  471.         Me.txtmedName.TabIndex = 80
  472.         Me.txtmedName.Text = ""
  473.         '
  474.         'txtMedNumber
  475.         '
  476.         Me.txtMedNumber.Location = New System.Drawing.Point(60, 16)
  477.         Me.txtMedNumber.Name = "txtMedNumber"
  478.         Me.txtMedNumber.Size = New System.Drawing.Size(114, 21)
  479.         Me.txtMedNumber.TabIndex = 79
  480.         Me.txtMedNumber.Text = ""
  481.         '
  482.         'Label19
  483.         '
  484.         Me.Label19.AutoSize = True
  485.         Me.Label19.Location = New System.Drawing.Point(210, 88)
  486.         Me.Label19.Name = "Label19"
  487.         Me.Label19.Size = New System.Drawing.Size(42, 17)
  488.         Me.Label19.TabIndex = 78
  489.         Me.Label19.Text = "产地："
  490.         '
  491.         'Label18
  492.         '
  493.         Me.Label18.AutoSize = True
  494.         Me.Label18.Location = New System.Drawing.Point(336, 88)
  495.         Me.Label18.Name = "Label18"
  496.         Me.Label18.Size = New System.Drawing.Size(54, 17)
  497.         Me.Label18.TabIndex = 77
  498.         Me.Label18.Text = "有效期："
  499.         '
  500.         'Label17
  501.         '
  502.         Me.Label17.AutoSize = True
  503.         Me.Label17.Location = New System.Drawing.Point(30, 88)
  504.         Me.Label17.Name = "Label17"
  505.         Me.Label17.Size = New System.Drawing.Size(42, 17)
  506.         Me.Label17.TabIndex = 76
  507.         Me.Label17.Text = "批号："
  508.         '
  509.         'Label15
  510.         '
  511.         Me.Label15.AutoSize = True
  512.         Me.Label15.ForeColor = System.Drawing.Color.Red
  513.         Me.Label15.Location = New System.Drawing.Point(348, 56)
  514.         Me.Label15.Name = "Label15"
  515.         Me.Label15.Size = New System.Drawing.Size(42, 17)
  516.         Me.Label15.TabIndex = 75
  517.         Me.Label15.Text = "金额："
  518.         '
  519.         'Label14
  520.         '
  521.         Me.Label14.AutoSize = True
  522.         Me.Label14.Location = New System.Drawing.Point(210, 56)
  523.         Me.Label14.Name = "Label14"
  524.         Me.Label14.Size = New System.Drawing.Size(42, 17)
  525.         Me.Label14.TabIndex = 74
  526.         Me.Label14.Text = "单价："
  527.         '
  528.         'Label13
  529.         '
  530.         Me.Label13.AutoSize = True
  531.         Me.Label13.Location = New System.Drawing.Point(100, 56)
  532.         Me.Label13.Name = "Label13"
  533.         Me.Label13.Size = New System.Drawing.Size(42, 17)
  534.         Me.Label13.TabIndex = 73
  535.         Me.Label13.Text = "数量："
  536.         '
  537.         'Label11
  538.         '
  539.         Me.Label11.AutoSize = True
  540.         Me.Label11.Location = New System.Drawing.Point(396, 24)
  541.         Me.Label11.Name = "Label11"
  542.         Me.Label11.Size = New System.Drawing.Size(66, 17)
  543.         Me.Label11.TabIndex = 72
  544.         Me.Label11.Text = "药品规格："
  545.         '
  546.         'Label10
  547.         '
  548.         Me.Label10.AutoSize = True
  549.         Me.Label10.Location = New System.Drawing.Point(186, 24)
  550.         Me.Label10.Name = "Label10"
  551.         Me.Label10.Size = New System.Drawing.Size(66, 17)
  552.         Me.Label10.TabIndex = 71
  553.         Me.Label10.Text = "药品名称："
  554.         '
  555.         'Label9
  556.         '
  557.         Me.Label9.AutoSize = True
  558.         Me.Label9.Location = New System.Drawing.Point(6, 24)
  559.         Me.Label9.Name = "Label9"
  560.         Me.Label9.Size = New System.Drawing.Size(66, 17)
  561.         Me.Label9.TabIndex = 70
  562.         Me.Label9.Text = "药品编号："
  563.         '
  564.         'dgview
  565.         '
  566.         Me.dgview.DataMember = ""
  567.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  568.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  569.         Me.dgview.Location = New System.Drawing.Point(0, 232)
  570.         Me.dgview.Name = "dgview"
  571.         Me.dgview.Size = New System.Drawing.Size(604, 240)
  572.         Me.dgview.TabIndex = 4
  573.         '
  574.         'ErrorProvider1
  575.         '
  576.         Me.ErrorProvider1.ContainerControl = Me
  577.         '
  578.         'txtbillnumber
  579.         '
  580.         Me.txtbillnumber.Location = New System.Drawing.Point(48, 19)
  581.         Me.txtbillnumber.Name = "txtbillnumber"
  582.         Me.txtbillnumber.ReadOnly = True
  583.         Me.txtbillnumber.Size = New System.Drawing.Size(126, 21)
  584.         Me.txtbillnumber.TabIndex = 57
  585.         Me.txtbillnumber.Text = ""
  586.         '
  587.         'frmPsth
  588.         '
  589.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  590.         Me.ClientSize = New System.Drawing.Size(604, 489)
  591.         Me.Controls.Add(Me.dgview)
  592.         Me.Controls.Add(Me.GroupBox2)
  593.         Me.Controls.Add(Me.GroupBox1)
  594.         Me.Controls.Add(Me.StatusBar1)
  595.         Me.Controls.Add(Me.tbnth)
  596.         Me.Name = "frmPsth"
  597.         Me.Text = "门店退货登记"
  598.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  599.         Me.GroupBox1.ResumeLayout(False)
  600.         Me.GroupBox2.ResumeLayout(False)
  601.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  602.         Me.ResumeLayout(False)
  604.     End Sub
  606. #End Region
  607.     Public bool As Boolean
  608.     Public lsweb As New jxcmanage
  609.     Public dslocal As DataSet = lsweb.returndataset("select BillNumber as 票号,PsMedName as 配送对象,Money as 金额,ThTime as 退货日期,PsCenter as 配送中心,ywy as 业务员 from psth", "psth")
  610.     Public dslocals As DataSet = lsweb.returndataset("select Number as 序号,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Price as 单价,Lcount as 数量,Money as 金额,Batch as 批号,Avaid as 有效期,Package as 包装,Product as 产地,BillNumber as 票号,demo as 货位 from psthmx", "psthmx")
  611.     Public Sub add()
  612.         dslocal.Clear()
  613.         dslocals.Clear()
  614.         txtthdate.Value().Today().ToString()
  615.         txtbillnumber.Text = lsweb.selectbill("TS").ToString
  616.         txtpsmedname.Text = ""
  617.         txtpscenter.Text = ""
  618.         txtywy.Text = ""
  619.         txtsum.Text() = CStr(0)
  620.         txtMedNumber.Text = ""
  621.         txtmedName.Text() = ""
  622.         txtMedRule.Text() = ""
  623.         txtno.Text() = "1"
  624.         txtCount.Text() = ""
  625.         txtPrice.Text() = CStr(0)
  626.         txtMoney.Text() = CStr(0)
  627.         txtBatch.Text() = ""
  628.         txtAvaid.Text() = ""
  629.         txtUnit.Text() = ""
  630.         txtProduct.Text() = ""
  631.         txtPackage.Text() = ""
  632.         txtywy.Focus()
  633.     End Sub
  634.     Private Sub save()
  635.         Dim dr As DataRow = dslocal.Tables("psth").NewRow()
  636.         dr("票号") = Me.txtbillnumber.Text.Trim
  637.         dr("配送对象") = Me.txtmedName.Text.Trim
  638.         dr("金额") = Me.txtsum.Text.Trim
  639.         dr("退货日期") = Me.txtthdate.Text.Trim
  640.         dr("配送中心") = Me.txtpscenter.Text.Trim
  641.         dr("业务员") = Me.txtywy.Text.Trim
  642.         dslocal.Tables("psth").Rows.Add(dr)
  643.         If lsweb.updatedataset("select BillNumber as 票号,PsMedName as 配送对象,Money as 金额,ThTime as 退货日期,PsCenter as 配送中心,ywy as 业务员 from psth", "psth", dslocal, DataRowState.Added) = True And lsweb.updatedataset("select Number as 序号,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Price as 单价,Lcount as 数量,Money as 金额,Batch as 批号,Avaid as 有效期,Package as 包装,Product as 产地,BillNumber as 票号,demo as 货位 from psthmx", "psthmx", dslocals, DataRowState.Added) = True Then
  644.             MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  645.         Else
  646.             MessageBox.Show("信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  647.         End If
  648.     End Sub
  649.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  650.         If strboolean = "tbnAdd.Enabled = True" Then
  651.             tbnsave.Enabled = False
  652.             tbnprint.Enabled = False
  653.             tbnexit.Enabled = True
  654.         ElseIf strboolean = "tbnAdd.Enabled = False" Then
  655.             tbnAdd.Enabled = False
  656.             tbnsave.Enabled = True
  657.             tbnprint.Enabled = True
  658.             tbnexit.Enabled = True
  659.         ElseIf strboolean = "tbnSave.Enabled = True" Then
  660.             tbnAdd.Enabled = False
  661.             tbnprint.Enabled = True
  662.             tbnexit.Enabled = True
  663.         ElseIf strboolean = "tbnSave.Enabled = False" Then
  664.             tbnsave.Enabled = False
  665.             tbnAdd.Enabled = True
  666.             tbnprint.Enabled = True
  667.             tbnexit.Enabled = True
  668.         End If
  669.     End Sub
  671.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbnth.ButtonClick
  672.         Select Case e.Button.Text
  673.             Case "添加"
  674.                 add()
  675.                 tbnEnable("tbnAdd.Enabled = False", tbnth)
  676.             Case "保存"
  677.                 If txtsum.Text = "" Then
  678.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  679.                 Else
  680.                     save()
  681.                     tbnEnable("tbnSave.Enabled = False", tbnth)
  682.                 End If
  684.             Case "退出"
  685.                     Me.Close()
  687.         End Select
  688.     End Sub
  690.     Private Sub txtywy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtywy.SelectedIndexChanged
  692.     End Sub
  694.     Private Sub txtywy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtywy.KeyDown
  695.         If e.KeyCode = Keys.Enter Then
  696.             txtpsmedname.Focus()
  697.         End If
  698.     End Sub
  700.     Private Sub txtpsmedname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpsmedname.SelectedIndexChanged
  702.     End Sub
  704.     Private Sub txtpsmedname_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpsmedname.KeyDown
  705.         If e.KeyCode = Keys.Enter Then
  706.             txtpscenter.Focus()
  707.         End If
  708.     End Sub
  710.     Public Function getinfo(ByVal strqueryid As String) As String
  711.         Dim strOrderId As String
  712.         strOrderId = strqueryid
  713.         Return strOrderId
  714.     End Function
  715.     Private Sub CalMxMoney()
  716.         Dim price As Double = CType(txtPrice.Text.Trim, Double)
  717.         Dim count As Int16 = CInt(txtCount.Text.Trim)
  718.         Me.txtMoney.Text = (price * count).ToString
  719.     End Sub
  720.     Private Sub CalTotalMoney()
  721.         If dslocals.Tables("psthMx").Rows.Count = 0 Then
  722.             Me.txtMoney.Text = 0
  723.         End If
  724.         Dim money As String = ""
  725.         Dim dtotal As Double = 0
  726.         For Each dr As DataRow In dslocals.Tables("psthMx").Rows
  727.             money = dr("金额")
  728.             dtotal = dtotal + CType(money.Trim, Double)
  729.             txtsum.Text = dtotal.ToString.Trim
  730.         Next
  731.     End Sub
  733.     Private Sub txtMedNumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMedNumber.KeyDown
  734.         If e.KeyCode = Keys.Enter Then
  735.             Dim dlg As frmMedKcQuery = New frmMedKcQuery
  736.             dlg.PYMs = Me.getinfo(txtMedNumber.Text)
  737.             If dlg.PYMs = "" Then
  738.                 ErrorProvider1.SetError(txtMedNumber, "不能为空，请输入查询码！")
  739.             Else
  740.                 dlg.ShowDialog()
  741.                 ErrorProvider1.SetError(txtMedNumber, "")
  742.             End If
  743.             Dim medIdvalue, medbatch, product, avaid, hw, package As String
  744.             medIdvalue = dlg.GetInfo("药品编号")
  745.             medbatch = dlg.GetInfo("批号")
  746.             product = dlg.GetInfo("产地")
  747.             avaid = dlg.GetInfo("有效期")
  748.             hw = dlg.GetInfo("货位")
  749.             package = dlg.GetInfo("包装")
  750.             If medIdvalue Is Nothing Then
  751.                 ErrorProvider1.SetError(txtMedNumber, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
  752.             Else
  753.                 Dim runSqlQuery As String
  754.                 runSqlQuery = "select * from wz_kc where 药品编号='" & medIdvalue & "' and 批号 ='" & medbatch & "' and 产地='" & product & "' and 有效期='" & avaid & "' and 货位='" & hw & "' and 包装='" & package & "'"
  755.                 Dim dv As DataView
  756.                 ' Dim mOrderId As New managers
  757.                 '调用mCustomId对象的SPcustomersID函数
  758.                 Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
  759.                 'bb为一随意表名
  760.                 dtOrder.TableName = "bb"
  761.                 dv = dtOrder.DefaultView
  762.                 txtMedNumber.Text = dv(0)("药品编号")
  763.                 txtmedName.Text = dv(0)("药品名称")
  764.                 txtMedRule.Text = dv(0)("药品规格")
  765.                 txtUnit.Text = dv(0)("单位")
  766.                 txtPrice.Text = dv(0)("进价")
  767.                 txtCount.Text = dv(0)("数量")
  768.                 txtAvaid.Text = dv(0)("有效期")
  769.                 txtPackage.Text = dv(0)("包装")
  770.                 txtProduct.Text = dv(0)("产地")
  771.                 txtBatch.Text = dv(0)("批号")
  772.                 txthw.Text = dv(0)("货位")
  773.                 ErrorProvider1.SetError(txtMedNumber, "")
  774.             End If
  775.             txtCount.Focus()
  776.         End If
  777.     End Sub
  779.     Private Sub txtCount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCount.TextChanged
  781.     End Sub
  783.     Private Sub txtCount_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCount.KeyDown
  784.         If e.KeyCode = Keys.Enter Then
  785.             txtPrice.Focus()
  786.             CalMxMoney()
  787.         End If
  788.     End Sub
  790.     Private Sub txtywy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtywy.Validating
  791.         If txtywy.Text = String.Empty Then
  792.             ErrorProvider1.SetError(txtywy, "不是数值类型且不能为空。")
  793.             txtywy.Focus()
  794.         Else
  795.             ErrorProvider1.SetError(txtywy, "")
  796.         End If
  797.     End Sub
  799.     Private Sub txtpsmedname_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtpsmedname.Validating
  800.         If txtpsmedname.Text = String.Empty Then
  801.             ErrorProvider1.SetError(txtpsmedname, "不是数值类型且不能为空。")
  802.             txtpsmedname.Focus()
  803.         Else
  804.             ErrorProvider1.SetError(txtpsmedname, "")
  805.         End If
  806.     End Sub
  808.     Private Sub txtMedNumber_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtMedNumber.Validating
  809.         If txtMedNumber.Text = String.Empty Then
  810.             ErrorProvider1.SetError(txtMedNumber, "不是数值类型且不能为空。")
  811.             txtMedNumber.Focus()
  812.         Else
  813.             ErrorProvider1.SetError(txtMedNumber, "")
  814.         End If
  815.     End Sub
  817.     Private Sub txtCount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtCount.Validating
  818.         If Not IsNumeric(txtCount.Text) Or txtCount.Text = String.Empty Then
  820.             ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空！")
  821.             txtCount.Focus()
  822.         Else
  823.             ErrorProvider1.SetError(txtCount, "")
  824.         End If
  829.     End Sub
  831.     Private Sub txtPrice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPrice.TextChanged
  833.     End Sub
  835.     Private Sub txtPrice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPrice.Validating
  836.         If Not IsNumeric(txtPrice.Text) Or txtPrice.Text = String.Empty Then
  837.             ErrorProvider1.SetError(txtPrice, "不是数值类型且不能为空。")
  838.             e.Cancel = True
  839.         Else
  840.             ErrorProvider1.SetError(txtPrice, "")
  841.         End If
  842.     End Sub
  844.     Private Sub txtPrice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPrice.KeyDown
  845.         If e.KeyCode = Keys.Enter Then
  846.             If txtPrice.Text = String.Empty Then
  847.                 txtPrice_Validating(Nothing, Nothing)
  848.             Else
  849.                 Static i As Int16
  850.                 If dslocals.Tables("psthmx").Rows.Count < 1 Then
  851.                     i = 1
  852.                 Else
  853.                     i = i + 1
  854.                 End If
  855.                 txtno.Text = CStr(i)
  856.                 Dim dr As DataRow = dslocals.Tables("psthmx").NewRow()
  857.                 dr("序号") = CStr(i)
  858.                 dr("药品编号") = Me.txtMedNumber.Text.Trim
  859.                 dr("药品名称") = Me.txtmedName.Text.Trim
  860.                 dr("药品规格") = Me.txtMedRule.Text.Trim
  861.                 dr("单位") = Me.txtUnit.Text.Trim
  862.                 dr("数量") = Me.txtCount.Text.Trim
  863.                 dr("单价") = CDec(Me.txtPrice.Text.Trim)
  864.                 dr("金额") = CDec(Me.txtPrice.Text.Trim) * CInt(Me.txtCount.Text.Trim)
  865.                 dr("批号") = Me.txtBatch.Text.Trim
  866.                 dr("有效期") = Me.txtAvaid.Text.Trim
  867.                 dr("产地") = Me.txtProduct.Text.Trim
  868.                 dr("包装") = Me.txtPackage.Text.Trim
  869.                 dr("票号") = Me.txtbillnumber.Text.Trim
  870.                 dr("货位") = Me.txthw.Text.Trim
  871.                 dslocals.Tables("psthmx").Rows.Add(dr)
  872.                 txtMedNumber.Text = ""
  873.                 txtMedNumber.Focus()
  875.                 CalTotalMoney()
  876.                 clear()
  877.             End If
  878.         End If
  880.         dgview.DataSource = dslocals.Tables("psthMx").DefaultView
  881.     End Sub
  882.     Private Sub clear()
  883.         txtMedNumber.Text = ""
  884.         txtmedName.Text = ""
  885.         txtMedRule.Text = ""
  886.         txtUnit.Text = ""
  887.         txtPrice.Text = 0.0
  888.         txtCount.Text = 0
  889.         txtMoney.Text = 0.0
  890.         txtAvaid.Text = ""
  891.         txtPackage.Text = ""
  892.         txtProduct.Text = ""
  893.         txtBatch.Text = ""
  894.     End Sub
  896.     Private Sub frmPsth_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  897.         dslocals.Clear()
  898.         dgview.DataSource = dslocals.Tables("psthMx").DefaultView
  899.         Dim unitdr, mmdr, md As System.Data.SqlClient.SqlDataReader
  900.         unitdr = lsweb.returnDataReader("select Cname from PsCenter")
  901.         Do While unitdr.Read()
  902.             txtpscenter.Items.Add(unitdr("Cname"))
  904.         Loop
  905.         mmdr = lsweb.returnDataReader("select 操作员 from wz_mm")
  906.         Do While mmdr.Read()
  907.             txtywy.Items.Add(mmdr("操作员"))
  909.         Loop
  910.         md = lsweb.returnDataReader("select Cname from MdManager")
  912.         Do While md.Read()
  913.             txtpsmedname.Items.Add(md("Cname"))
  915.         Loop
  916.     End Sub
  918.     Private Sub txtpscenter_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  920.     End Sub
  922.     Private Sub txtpscenter_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  923.         If e.KeyCode = Keys.Enter Then
  924.             txtMedNumber.Focus()
  925.         End If
  926.     End Sub
  928.     Private Sub txtpscenter_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  929.         If txtpscenter.Text = String.Empty Then
  930.             ErrorProvider1.SetError(txtpscenter, "不是数值类型且不能为空。")
  931.             txtpscenter.Focus()
  932.         Else
  933.             ErrorProvider1.SetError(txtpscenter, "")
  934.         End If
  935.     End Sub
  937.     Private Sub frmPsth_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
  938.         If txtbillnumber.Text <> String.Empty And tbnSave.Enabled = True Then
  940.             lsweb.cancelbill(txtbillnumber.Text.Trim)
  941.         End If
  943.     End Sub
  946.     Private Sub txtpscenter_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpscenter.KeyDown
  947.         If e.KeyCode = Keys.Enter Then
  948.             txtMedNumber.Focus()
  949.         End If
  950.     End Sub
  952.     Private Sub txtMedNumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMedNumber.TextChanged
  954.     End Sub
  955. End Class