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

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

医药行业

开发平台：

Visual Basic

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