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

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

医药行业

开发平台：

Visual Basic

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