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

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

医药行业

开发平台：

Visual Basic

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