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

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

医药行业

开发平台：

Visual Basic

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