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

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

医药行业

开发平台：

Visual Basic

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