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

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

医药行业

开发平台：

Visual Basic

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