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

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

医药行业

开发平台：

Visual Basic

frmKcCs.vb：源码内容
  1. Public Class frmKcCs
  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 cbohw As System.Windows.Forms.ComboBox
  35.     Friend WithEvents Label2 As System.Windows.Forms.Label
  36.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  37.     Friend WithEvents Label3 As System.Windows.Forms.Label
  38.     Friend WithEvents Label4 As System.Windows.Forms.Label
  39.     Friend WithEvents Label5 As System.Windows.Forms.Label
  40.     Friend WithEvents Label6 As System.Windows.Forms.Label
  41.     Friend WithEvents Label7 As System.Windows.Forms.Label
  42.     Friend WithEvents Label8 As System.Windows.Forms.Label
  43.     Friend WithEvents Label9 As System.Windows.Forms.Label
  44.     Friend WithEvents Label10 As System.Windows.Forms.Label
  45.     Friend WithEvents Label11 As System.Windows.Forms.Label
  46.     Friend WithEvents Label12 As System.Windows.Forms.Label
  47.     Friend WithEvents Label13 As System.Windows.Forms.Label
  48.     Friend WithEvents Label14 As System.Windows.Forms.Label
  49.     Friend WithEvents Label15 As System.Windows.Forms.Label
  50.     Friend WithEvents Label16 As System.Windows.Forms.Label
  51.     Friend WithEvents Label17 As System.Windows.Forms.Label
  52.     Friend WithEvents txtDate As System.Windows.Forms.DateTimePicker
  53.     Friend WithEvents txtRule As System.Windows.Forms.TextBox
  54.     Friend WithEvents txtName As System.Windows.Forms.TextBox
  55.     Friend WithEvents txtUnit As System.Windows.Forms.TextBox
  56.     Friend WithEvents txtCount As System.Windows.Forms.TextBox
  57.     Friend WithEvents txtJJ As System.Windows.Forms.TextBox
  58.     Friend WithEvents txtBatch As System.Windows.Forms.TextBox
  59.     Friend WithEvents txtHy As System.Windows.Forms.TextBox
  60.     Friend WithEvents txtZprice As System.Windows.Forms.TextBox
  61.     Friend WithEvents txtJprice As System.Windows.Forms.TextBox
  62.     Friend WithEvents txtLprice As System.Windows.Forms.TextBox
  63.     Friend WithEvents txtPprice As System.Windows.Forms.TextBox
  64.     Friend WithEvents Label18 As System.Windows.Forms.Label
  65.     Friend WithEvents tbnSave As System.Windows.Forms.ToolBarButton
  66.     Friend WithEvents tbnPrint As System.Windows.Forms.ToolBarButton
  67.     Friend WithEvents tbnExit As System.Windows.Forms.ToolBarButton
  68.     Friend WithEvents Label19 As System.Windows.Forms.Label
  69.     Friend WithEvents Label20 As System.Windows.Forms.Label
  70.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  71.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  72.     Friend WithEvents txtNumber As System.Windows.Forms.TextBox
  73.     Friend WithEvents txtavaid As System.Windows.Forms.TextBox
  74.     Friend WithEvents txtaddress As System.Windows.Forms.TextBox
  75.     Friend WithEvents cboczy As System.Windows.Forms.ComboBox
  76.     Friend WithEvents txtNo As System.Windows.Forms.TextBox
  77.     Friend WithEvents txtmoney As System.Windows.Forms.TextBox
  78.     Friend WithEvents txtPackage As System.Windows.Forms.TextBox
  79.     Friend WithEvents tbrcs 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(frmKcCs))
  85.         Me.tbrcs = 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.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  91.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  92.         Me.txtNo = New System.Windows.Forms.TextBox
  93.         Me.cboczy = New System.Windows.Forms.ComboBox
  94.         Me.Label20 = New System.Windows.Forms.Label
  95.         Me.Label19 = New System.Windows.Forms.Label
  96.         Me.txtavaid = New System.Windows.Forms.TextBox
  97.         Me.Label18 = New System.Windows.Forms.Label
  98.         Me.txtZprice = New System.Windows.Forms.TextBox
  99.         Me.Label14 = New System.Windows.Forms.Label
  100.         Me.txtJprice = New System.Windows.Forms.TextBox
  101.         Me.Label15 = New System.Windows.Forms.Label
  102.         Me.txtLprice = New System.Windows.Forms.TextBox
  103.         Me.Label16 = New System.Windows.Forms.Label
  104.         Me.txtPprice = New System.Windows.Forms.TextBox
  105.         Me.Label17 = New System.Windows.Forms.Label
  106.         Me.txtHy = New System.Windows.Forms.TextBox
  107.         Me.Label13 = New System.Windows.Forms.Label
  108.         Me.txtaddress = New System.Windows.Forms.TextBox
  109.         Me.Label12 = New System.Windows.Forms.Label
  110.         Me.txtBatch = New System.Windows.Forms.TextBox
  111.         Me.Label11 = New System.Windows.Forms.Label
  112.         Me.txtmoney = New System.Windows.Forms.TextBox
  113.         Me.Label10 = New System.Windows.Forms.Label
  114.         Me.txtPackage = New System.Windows.Forms.TextBox
  115.         Me.Label9 = New System.Windows.Forms.Label
  116.         Me.txtJJ = New System.Windows.Forms.TextBox
  117.         Me.Label8 = New System.Windows.Forms.Label
  118.         Me.txtCount = New System.Windows.Forms.TextBox
  119.         Me.Label7 = New System.Windows.Forms.Label
  120.         Me.txtUnit = New System.Windows.Forms.TextBox
  121.         Me.Label6 = New System.Windows.Forms.Label
  122.         Me.txtName = New System.Windows.Forms.TextBox
  123.         Me.Label5 = New System.Windows.Forms.Label
  124.         Me.txtRule = New System.Windows.Forms.TextBox
  125.         Me.Label4 = New System.Windows.Forms.Label
  126.         Me.txtNumber = New System.Windows.Forms.TextBox
  127.         Me.Label3 = New System.Windows.Forms.Label
  128.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  129.         Me.txtDate = New System.Windows.Forms.DateTimePicker
  130.         Me.Label2 = New System.Windows.Forms.Label
  131.         Me.cbohw = New System.Windows.Forms.ComboBox
  132.         Me.Label1 = New System.Windows.Forms.Label
  133.         Me.dgview = New System.Windows.Forms.DataGrid
  134.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  135.         Me.GroupBox1.SuspendLayout()
  136.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  137.         Me.SuspendLayout()
  138.         '
  139.         'tbrcs
  140.         '
  141.         Me.tbrcs.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  142.         Me.tbrcs.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnAdd, Me.tbnSave, Me.tbnPrint, Me.tbnExit})
  143.         Me.tbrcs.DropDownArrows = True
  144.         Me.tbrcs.ImageList = Me.ImageList2
  145.         Me.tbrcs.Location = New System.Drawing.Point(0, 0)
  146.         Me.tbrcs.Name = "tbrcs"
  147.         Me.tbrcs.ShowToolTips = True
  148.         Me.tbrcs.Size = New System.Drawing.Size(676, 41)
  149.         Me.tbrcs.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.         'ImageList2
  172.         '
  173.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  174.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  175.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  176.         '
  177.         'GroupBox1
  178.         '
  179.         Me.GroupBox1.Controls.Add(Me.txtNo)
  180.         Me.GroupBox1.Controls.Add(Me.cboczy)
  181.         Me.GroupBox1.Controls.Add(Me.Label20)
  182.         Me.GroupBox1.Controls.Add(Me.Label19)
  183.         Me.GroupBox1.Controls.Add(Me.txtavaid)
  184.         Me.GroupBox1.Controls.Add(Me.Label18)
  185.         Me.GroupBox1.Controls.Add(Me.txtZprice)
  186.         Me.GroupBox1.Controls.Add(Me.Label14)
  187.         Me.GroupBox1.Controls.Add(Me.txtJprice)
  188.         Me.GroupBox1.Controls.Add(Me.Label15)
  189.         Me.GroupBox1.Controls.Add(Me.txtLprice)
  190.         Me.GroupBox1.Controls.Add(Me.Label16)
  191.         Me.GroupBox1.Controls.Add(Me.txtPprice)
  192.         Me.GroupBox1.Controls.Add(Me.Label17)
  193.         Me.GroupBox1.Controls.Add(Me.txtHy)
  194.         Me.GroupBox1.Controls.Add(Me.Label13)
  195.         Me.GroupBox1.Controls.Add(Me.txtaddress)
  196.         Me.GroupBox1.Controls.Add(Me.Label12)
  197.         Me.GroupBox1.Controls.Add(Me.txtBatch)
  198.         Me.GroupBox1.Controls.Add(Me.Label11)
  199.         Me.GroupBox1.Controls.Add(Me.txtmoney)
  200.         Me.GroupBox1.Controls.Add(Me.Label10)
  201.         Me.GroupBox1.Controls.Add(Me.txtPackage)
  202.         Me.GroupBox1.Controls.Add(Me.Label9)
  203.         Me.GroupBox1.Controls.Add(Me.txtJJ)
  204.         Me.GroupBox1.Controls.Add(Me.Label8)
  205.         Me.GroupBox1.Controls.Add(Me.txtCount)
  206.         Me.GroupBox1.Controls.Add(Me.Label7)
  207.         Me.GroupBox1.Controls.Add(Me.txtUnit)
  208.         Me.GroupBox1.Controls.Add(Me.Label6)
  209.         Me.GroupBox1.Controls.Add(Me.txtName)
  210.         Me.GroupBox1.Controls.Add(Me.Label5)
  211.         Me.GroupBox1.Controls.Add(Me.txtRule)
  212.         Me.GroupBox1.Controls.Add(Me.Label4)
  213.         Me.GroupBox1.Controls.Add(Me.txtNumber)
  214.         Me.GroupBox1.Controls.Add(Me.Label3)
  215.         Me.GroupBox1.Controls.Add(Me.GroupBox2)
  216.         Me.GroupBox1.Controls.Add(Me.txtDate)
  217.         Me.GroupBox1.Controls.Add(Me.Label2)
  218.         Me.GroupBox1.Controls.Add(Me.cbohw)
  219.         Me.GroupBox1.Controls.Add(Me.Label1)
  220.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  221.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  222.         Me.GroupBox1.Name = "GroupBox1"
  223.         Me.GroupBox1.Size = New System.Drawing.Size(676, 192)
  224.         Me.GroupBox1.TabIndex = 1
  225.         Me.GroupBox1.TabStop = False
  226.         Me.GroupBox1.Text = "初始化信息"
  227.         '
  228.         'txtNo
  229.         '
  230.         Me.txtNo.Location = New System.Drawing.Point(594, 24)
  231.         Me.txtNo.Name = "txtNo"
  232.         Me.txtNo.ReadOnly = True
  233.         Me.txtNo.Size = New System.Drawing.Size(56, 21)
  234.         Me.txtNo.TabIndex = 42
  235.         Me.txtNo.Text = ""
  236.         '
  237.         'cboczy
  238.         '
  239.         Me.cboczy.Location = New System.Drawing.Point(456, 24)
  240.         Me.cboczy.Name = "cboczy"
  241.         Me.cboczy.Size = New System.Drawing.Size(84, 20)
  242.         Me.cboczy.TabIndex = 41
  243.         '
  244.         'Label20
  245.         '
  246.         Me.Label20.AutoSize = True
  247.         Me.Label20.Location = New System.Drawing.Point(414, 32)
  248.         Me.Label20.Name = "Label20"
  249.         Me.Label20.Size = New System.Drawing.Size(54, 17)
  250.         Me.Label20.TabIndex = 40
  251.         Me.Label20.Text = "操作员："
  252.         '
  253.         'Label19
  254.         '
  255.         Me.Label19.AutoSize = True
  256.         Me.Label19.Location = New System.Drawing.Point(564, 32)
  257.         Me.Label19.Name = "Label19"
  258.         Me.Label19.Size = New System.Drawing.Size(42, 17)
  259.         Me.Label19.TabIndex = 39
  260.         Me.Label19.Text = "序号："
  261.         '
  262.         'txtavaid
  263.         '
  264.         Me.txtavaid.Location = New System.Drawing.Point(456, 124)
  265.         Me.txtavaid.Name = "txtavaid"
  266.         Me.txtavaid.ReadOnly = True
  267.         Me.txtavaid.Size = New System.Drawing.Size(84, 21)
  268.         Me.txtavaid.TabIndex = 38
  269.         Me.txtavaid.Text = ""
  270.         '
  271.         'Label18
  272.         '
  273.         Me.Label18.AutoSize = True
  274.         Me.Label18.Location = New System.Drawing.Point(414, 131)
  275.         Me.Label18.Name = "Label18"
  276.         Me.Label18.Size = New System.Drawing.Size(54, 17)
  277.         Me.Label18.TabIndex = 37
  278.         Me.Label18.Text = "有效期："
  279.         '
  280.         'txtZprice
  281.         '
  282.         Me.txtZprice.Location = New System.Drawing.Point(594, 156)
  283.         Me.txtZprice.Name = "txtZprice"
  284.         Me.txtZprice.Size = New System.Drawing.Size(72, 21)
  285.         Me.txtZprice.TabIndex = 36
  286.         Me.txtZprice.Text = ""
  287.         '
  288.         'Label14
  289.         '
  290.         Me.Label14.AutoSize = True
  291.         Me.Label14.Location = New System.Drawing.Point(552, 162)
  292.         Me.Label14.Name = "Label14"
  293.         Me.Label14.Size = New System.Drawing.Size(54, 17)
  294.         Me.Label14.TabIndex = 35
  295.         Me.Label14.Text = "最低价："
  296.         '
  297.         'txtJprice
  298.         '
  299.         Me.txtJprice.Location = New System.Drawing.Point(456, 156)
  300.         Me.txtJprice.Name = "txtJprice"
  301.         Me.txtJprice.Size = New System.Drawing.Size(84, 21)
  302.         Me.txtJprice.TabIndex = 34
  303.         Me.txtJprice.Text = ""
  304.         '
  305.         'Label15
  306.         '
  307.         Me.Label15.AutoSize = True
  308.         Me.Label15.Location = New System.Drawing.Point(414, 162)
  309.         Me.Label15.Name = "Label15"
  310.         Me.Label15.Size = New System.Drawing.Size(54, 17)
  311.         Me.Label15.TabIndex = 33
  312.         Me.Label15.Text = "建议价："
  313.         '
  314.         'txtLprice
  315.         '
  316.         Me.txtLprice.Location = New System.Drawing.Point(246, 156)
  317.         Me.txtLprice.Name = "txtLprice"
  318.         Me.txtLprice.Size = New System.Drawing.Size(102, 21)
  319.         Me.txtLprice.TabIndex = 32
  320.         Me.txtLprice.Text = ""
  321.         '
  322.         'Label16
  323.         '
  324.         Me.Label16.AutoSize = True
  325.         Me.Label16.Location = New System.Drawing.Point(204, 162)
  326.         Me.Label16.Name = "Label16"
  327.         Me.Label16.Size = New System.Drawing.Size(54, 17)
  328.         Me.Label16.TabIndex = 31
  329.         Me.Label16.Text = "零售价："
  330.         '
  331.         'txtPprice
  332.         '
  333.         Me.txtPprice.Location = New System.Drawing.Point(72, 156)
  334.         Me.txtPprice.Name = "txtPprice"
  335.         Me.txtPprice.TabIndex = 30
  336.         Me.txtPprice.Text = ""
  337.         '
  338.         'Label17
  339.         '
  340.         Me.Label17.AutoSize = True
  341.         Me.Label17.Location = New System.Drawing.Point(34, 162)
  342.         Me.Label17.Name = "Label17"
  343.         Me.Label17.Size = New System.Drawing.Size(54, 17)
  344.         Me.Label17.TabIndex = 29
  345.         Me.Label17.Text = "批发价："
  346.         '
  347.         'txtHy
  348.         '
  349.         Me.txtHy.Location = New System.Drawing.Point(246, 124)
  350.         Me.txtHy.Name = "txtHy"
  351.         Me.txtHy.Size = New System.Drawing.Size(144, 21)
  352.         Me.txtHy.TabIndex = 28
  353.         Me.txtHy.Text = ""
  354.         '
  355.         'Label13
  356.         '
  357.         Me.Label13.AutoSize = True
  358.         Me.Label13.Location = New System.Drawing.Point(216, 131)
  359.         Me.Label13.Name = "Label13"
  360.         Me.Label13.Size = New System.Drawing.Size(42, 17)
  361.         Me.Label13.TabIndex = 27
  362.         Me.Label13.Text = "货源："
  363.         '
  364.         'txtaddress
  365.         '
  366.         Me.txtaddress.Location = New System.Drawing.Point(594, 124)
  367.         Me.txtaddress.Name = "txtaddress"
  368.         Me.txtaddress.ReadOnly = True
  369.         Me.txtaddress.Size = New System.Drawing.Size(72, 21)
  370.         Me.txtaddress.TabIndex = 26
  371.         Me.txtaddress.Text = ""
  372.         '
  373.         'Label12
  374.         '
  375.         Me.Label12.AutoSize = True
  376.         Me.Label12.Location = New System.Drawing.Point(564, 131)
  377.         Me.Label12.Name = "Label12"
  378.         Me.Label12.Size = New System.Drawing.Size(42, 17)
  379.         Me.Label12.TabIndex = 25
  380.         Me.Label12.Text = "产地："
  381.         '
  382.         'txtBatch
  383.         '
  384.         Me.txtBatch.Location = New System.Drawing.Point(72, 124)
  385.         Me.txtBatch.Name = "txtBatch"
  386.         Me.txtBatch.TabIndex = 24
  387.         Me.txtBatch.Text = ""
  388.         '
  389.         'Label11
  390.         '
  391.         Me.Label11.AutoSize = True
  392.         Me.Label11.Location = New System.Drawing.Point(44, 131)
  393.         Me.Label11.Name = "Label11"
  394.         Me.Label11.Size = New System.Drawing.Size(42, 17)
  395.         Me.Label11.TabIndex = 23
  396.         Me.Label11.Text = "批号："
  397.         '
  398.         'txtmoney
  399.         '
  400.         Me.txtmoney.Location = New System.Drawing.Point(594, 93)
  401.         Me.txtmoney.Name = "txtmoney"
  402.         Me.txtmoney.ReadOnly = True
  403.         Me.txtmoney.Size = New System.Drawing.Size(72, 21)
  404.         Me.txtmoney.TabIndex = 22
  405.         Me.txtmoney.Text = ""
  406.         '
  407.         'Label10
  408.         '
  409.         Me.Label10.AutoSize = True
  410.         Me.Label10.Location = New System.Drawing.Point(564, 100)
  411.         Me.Label10.Name = "Label10"
  412.         Me.Label10.Size = New System.Drawing.Size(42, 17)
  413.         Me.Label10.TabIndex = 21
  414.         Me.Label10.Text = "金额："
  415.         '
  416.         'txtPackage
  417.         '
  418.         Me.txtPackage.Location = New System.Drawing.Point(456, 93)
  419.         Me.txtPackage.Name = "txtPackage"
  420.         Me.txtPackage.Size = New System.Drawing.Size(84, 21)
  421.         Me.txtPackage.TabIndex = 20
  422.         Me.txtPackage.Text = ""
  423.         '
  424.         'Label9
  425.         '
  426.         Me.Label9.AutoSize = True
  427.         Me.Label9.Location = New System.Drawing.Point(426, 100)
  428.         Me.Label9.Name = "Label9"
  429.         Me.Label9.Size = New System.Drawing.Size(42, 17)
  430.         Me.Label9.TabIndex = 19
  431.         Me.Label9.Text = "包装："
  432.         '
  433.         'txtJJ
  434.         '
  435.         Me.txtJJ.Location = New System.Drawing.Point(246, 93)
  436.         Me.txtJJ.Name = "txtJJ"
  437.         Me.txtJJ.Size = New System.Drawing.Size(102, 21)
  438.         Me.txtJJ.TabIndex = 18
  439.         Me.txtJJ.Text = ""
  440.         '
  441.         'Label8
  442.         '
  443.         Me.Label8.AutoSize = True
  444.         Me.Label8.Location = New System.Drawing.Point(216, 104)
  445.         Me.Label8.Name = "Label8"
  446.         Me.Label8.Size = New System.Drawing.Size(42, 17)
  447.         Me.Label8.TabIndex = 17
  448.         Me.Label8.Text = "进价："
  449.         '
  450.         'txtCount
  451.         '
  452.         Me.txtCount.Location = New System.Drawing.Point(72, 93)
  453.         Me.txtCount.Name = "txtCount"
  454.         Me.txtCount.TabIndex = 16
  455.         Me.txtCount.Text = ""
  456.         '
  457.         'Label7
  458.         '
  459.         Me.Label7.AutoSize = True
  460.         Me.Label7.Location = New System.Drawing.Point(44, 104)
  461.         Me.Label7.Name = "Label7"
  462.         Me.Label7.Size = New System.Drawing.Size(42, 17)
  463.         Me.Label7.TabIndex = 15
  464.         Me.Label7.Text = "数量："
  465.         '
  466.         'txtUnit
  467.         '
  468.         Me.txtUnit.Location = New System.Drawing.Point(594, 62)
  469.         Me.txtUnit.Name = "txtUnit"
  470.         Me.txtUnit.ReadOnly = True
  471.         Me.txtUnit.Size = New System.Drawing.Size(72, 21)
  472.         Me.txtUnit.TabIndex = 14
  473.         Me.txtUnit.Text = ""
  474.         '
  475.         'Label6
  476.         '
  477.         Me.Label6.AutoSize = True
  478.         Me.Label6.Location = New System.Drawing.Point(564, 68)
  479.         Me.Label6.Name = "Label6"
  480.         Me.Label6.Size = New System.Drawing.Size(42, 17)
  481.         Me.Label6.TabIndex = 13
  482.         Me.Label6.Text = "单位："
  483.         '
  484.         'txtName
  485.         '
  486.         Me.txtName.Location = New System.Drawing.Point(246, 62)
  487.         Me.txtName.Name = "txtName"
  488.         Me.txtName.ReadOnly = True
  489.         Me.txtName.Size = New System.Drawing.Size(144, 21)
  490.         Me.txtName.TabIndex = 12
  491.         Me.txtName.Text = ""
  492.         '
  493.         'Label5
  494.         '
  495.         Me.Label5.AutoSize = True
  496.         Me.Label5.Location = New System.Drawing.Point(192, 72)
  497.         Me.Label5.Name = "Label5"
  498.         Me.Label5.Size = New System.Drawing.Size(66, 17)
  499.         Me.Label5.TabIndex = 11
  500.         Me.Label5.Text = "药品名称："
  501.         '
  502.         'txtRule
  503.         '
  504.         Me.txtRule.Location = New System.Drawing.Point(456, 62)
  505.         Me.txtRule.Name = "txtRule"
  506.         Me.txtRule.ReadOnly = True
  507.         Me.txtRule.Size = New System.Drawing.Size(84, 21)
  508.         Me.txtRule.TabIndex = 10
  509.         Me.txtRule.Text = ""
  510.         '
  511.         'Label4
  512.         '
  513.         Me.Label4.AutoSize = True
  514.         Me.Label4.Location = New System.Drawing.Point(402, 68)
  515.         Me.Label4.Name = "Label4"
  516.         Me.Label4.Size = New System.Drawing.Size(66, 17)
  517.         Me.Label4.TabIndex = 9
  518.         Me.Label4.Text = "药品规格："
  519.         '
  520.         'txtNumber
  521.         '
  522.         Me.txtNumber.Location = New System.Drawing.Point(72, 62)
  523.         Me.txtNumber.Name = "txtNumber"
  524.         Me.txtNumber.TabIndex = 8
  525.         Me.txtNumber.Text = ""
  526.         '
  527.         'Label3
  528.         '
  529.         Me.Label3.AutoSize = True
  530.         Me.Label3.Location = New System.Drawing.Point(20, 72)
  531.         Me.Label3.Name = "Label3"
  532.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  533.         Me.Label3.TabIndex = 7
  534.         Me.Label3.Text = "药品编号："
  535.         '
  536.         'GroupBox2
  537.         '
  538.         Me.GroupBox2.Location = New System.Drawing.Point(8, 48)
  539.         Me.GroupBox2.Name = "GroupBox2"
  540.         Me.GroupBox2.Size = New System.Drawing.Size(800, 8)
  541.         Me.GroupBox2.TabIndex = 6
  542.         Me.GroupBox2.TabStop = False
  543.         '
  544.         'txtDate
  545.         '
  546.         Me.txtDate.Location = New System.Drawing.Point(246, 24)
  547.         Me.txtDate.Name = "txtDate"
  548.         Me.txtDate.Size = New System.Drawing.Size(102, 21)
  549.         Me.txtDate.TabIndex = 5
  550.         Me.txtDate.Value = New Date(2006, 4, 15, 0, 0, 0, 0)
  551.         '
  552.         'Label2
  553.         '
  554.         Me.Label2.AutoSize = True
  555.         Me.Label2.Location = New System.Drawing.Point(192, 32)
  556.         Me.Label2.Name = "Label2"
  557.         Me.Label2.Size = New System.Drawing.Size(66, 17)
  558.         Me.Label2.TabIndex = 4
  559.         Me.Label2.Text = "初始日期："
  560.         '
  561.         'cbohw
  562.         '
  563.         Me.cbohw.Location = New System.Drawing.Point(72, 24)
  564.         Me.cbohw.Name = "cbohw"
  565.         Me.cbohw.Size = New System.Drawing.Size(104, 20)
  566.         Me.cbohw.TabIndex = 1
  567.         '
  568.         'Label1
  569.         '
  570.         Me.Label1.AutoSize = True
  571.         Me.Label1.Location = New System.Drawing.Point(44, 32)
  572.         Me.Label1.Name = "Label1"
  573.         Me.Label1.Size = New System.Drawing.Size(42, 17)
  574.         Me.Label1.TabIndex = 0
  575.         Me.Label1.Text = "货位："
  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, 233)
  583.         Me.dgview.Name = "dgview"
  584.         Me.dgview.Size = New System.Drawing.Size(676, 274)
  585.         Me.dgview.TabIndex = 2
  586.         '
  587.         'ErrorProvider1
  588.         '
  589.         Me.ErrorProvider1.ContainerControl = Me
  590.         '
  591.         'frmKcCs
  592.         '
  593.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  594.         Me.ClientSize = New System.Drawing.Size(676, 507)
  595.         Me.Controls.Add(Me.dgview)
  596.         Me.Controls.Add(Me.GroupBox1)
  597.         Me.Controls.Add(Me.tbrcs)
  598.         Me.Name = "frmKcCs"
  599.         Me.Text = "库存初始化"
  600.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  601.         Me.GroupBox1.ResumeLayout(False)
  602.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  603.         Me.ResumeLayout(False)
  605.     End Sub
  607. #End Region
  608.     Public lsweb As New jxcmanage
  609.     Public dslocals As DataSet = lsweb.returndataset("select 序号,药品编号,药品名称,药品规格,单位,进价,数量,金额,批号,有效期,包装,产地,批发价,零售价,建议价,最低价,货位,客户名称 as 货源 from wz_kc", "wz_kc")
  610.     Private Sub frmKcCs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  611.         tbnSave.Enabled = False
  612.         dslocals.Clear()
  613.         dgview.DataSource = dslocals.Tables("wz_kc").DefaultView
  614.         txtDate.Value = Today.ToString
  615.     End Sub
  616.     Public Sub add()
  617.         dslocals.Clear()
  618.         txtNumber.Text() = ""
  619.         txtNumber.Focus()
  620.         txtDate.Value().Today().ToString()
  621.         txtNo.Text = 1
  622.         Dim hwdr, mmdr As System.Data.SqlClient.SqlDataReader
  623.         hwdr = lsweb.returnDataReader("select 货位 from wz_hw")
  624.         Do While hwdr.Read()
  625.             cbohw.Items.Add(hwdr("货位"))
  626.         Loop
  627.         cbohw.Text = ""
  628.         mmdr = lsweb.returnDataReader("select 操作员 from wz_mm")
  629.         Do While mmdr.Read()
  630.             cboczy.Items.Add(mmdr("操作员"))
  631.         Loop
  632.         cboczy.Text = ""
  633.         txtNumber.Text = ""
  634.         txtName.Text() = ""
  635.         txtRule.Text() = ""
  636.         txtUnit.Text() = ""
  637.         txtJJ.Text() = ""
  638.         txtCount.Text() = ""
  639.         txtmoney.Text() = CStr(0)
  640.         txtPackage.Text() = ""
  641.         txtBatch.Text() = ""
  642.         txtavaid.Text() = ""
  643.         txtHy.Text = ""
  644.         txtaddress.Text() = ""
  645.         txtPprice.Text() = CStr(0)
  646.         txtLprice.Text() = CStr(0)
  647.         txtJprice.Text() = CStr(0)
  648.         txtZprice.Text() = CStr(0)
  649.     End Sub
  650.     Public Function getinfo(ByVal strqueryid As String) As String
  651.         Dim strOrderId As String
  652.         strOrderId = strqueryid
  653.         Return strOrderId
  654.     End Function
  655.     Private Sub txtNumber_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNumber.KeyDown
  656.         If e.KeyCode = Keys.Enter Then
  658.             Dim dlg As frmMedQuery = New frmMedQuery
  659.             dlg.PYM = Me.getinfo(txtNumber.Text)
  660.             If dlg.PYM = "" Then
  661.                 ErrorProvider1.SetError(txtNumber, "不能为空，请输入查询码！")
  662.             Else
  663.                 dlg.ShowDialog()
  664.                 ErrorProvider1.SetError(txtNumber, "")
  665.             End If
  666.             Dim medIdvalue As String
  667.             medIdvalue = dlg.GetInfo("药品编号")
  668.             If medIdvalue Is Nothing Then
  669.                 ErrorProvider1.SetError(txtNumber, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
  670.                 'txtNumber.Focus()
  671.             Else
  672.                 Dim runSqlQuery As String
  673.                 runSqlQuery = "select * from wz_cp where 药品编号='" & medIdvalue & " '"
  674.                 Dim dv As DataView
  675.                 ' Dim mOrderId As New managers
  676.                 '调用mCustomId对象的SPcustomersID函数
  677.                 Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
  678.                 'bb为一随意表名
  679.                 dtOrder.TableName = "bb"
  680.                 dv = dtOrder.DefaultView
  681.                 txtNumber.Text = dv(0)("药品编号")
  682.                 txtName.Text = dv(0)("药品名称")
  683.                 txtRule.Text = dv(0)("药品规格")
  684.                 txtUnit.Text = dv(0)("单位")
  685.                 txtJJ.Text = dv(0)("单价")
  686.                 txtavaid.Text = dv(0)("有效期")
  687.                 'txtPackage.Text = dv(0)("包装")
  688.                 txtaddress.Text = dv(0)("产地")
  689.                 txtPprice.Text = dv(0)("批发价")
  690.                 txtLprice.Text = dv(0)("零售价")
  692.                 ErrorProvider1.SetError(txtNumber, "")
  693.                 txtCount.Focus()
  694.             End If
  696.         End If
  697.     End Sub
  698.     Private Sub clear()
  701.         txtNo.ReadOnly = True
  702.         cboczy.Enabled = False
  704.         cboHw.Enabled = False
  705.         txtNumber.Text = ""
  706.         txtName.Text() = ""
  707.         txtRule.Text() = ""
  708.         txtUnit.Text() = ""
  709.         txtHy.Text = ""
  711.         txtJJ.Text() = 0.0
  712.         txtCount.Text() = 0
  713.         txtMoney.Text() = 0.0
  714.         txtPackage.Text() = ""
  715.         txtBatch.Text() = ""
  716.         txtAvaid.Text() = ""
  717.         txtAddress.Text() = ""
  718.         txtPprice.Text() = CStr(0.0)
  719.         txtLprice.Text() = CStr(0.0)
  720.         txtJprice.Text() = CStr(0.0)
  721.         txtZprice.Text() = CStr(0.0)
  722.     End Sub
  723.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  724.         If strboolean = "tbnAdd.Enabled = True" Then
  725.             tbnsave.Enabled = False
  726.             tbnprint.Enabled = False
  727.             tbnexit.Enabled = True
  728.         ElseIf strboolean = "tbnAdd.Enabled = False" Then
  729.             tbnAdd.Enabled = False
  730.             tbnsave.Enabled = True
  731.             tbnprint.Enabled = True
  732.             tbnexit.Enabled = True
  733.         ElseIf strboolean = "tbnSave.Enabled = True" Then
  734.             tbnAdd.Enabled = False
  735.             tbnprint.Enabled = True
  736.             tbnexit.Enabled = True
  737.         ElseIf strboolean = "tbnSave.Enabled = False" Then
  738.             tbnsave.Enabled = False
  739.             tbnAdd.Enabled = True
  740.             tbnprint.Enabled = True
  741.             tbnexit.Enabled = True
  742.         End If
  743.     End Sub
  745.     Private Sub cbohw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cbohw.KeyDown
  746.         If e.KeyCode = Keys.Enter Then
  748.             cboczy.Focus()
  750.         End If
  751.     End Sub
  755.     Private Sub cboczy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboczy.KeyDown
  756.         If e.KeyCode = Keys.Enter Then
  758.             txtNumber.Focus()
  760.         End If
  761.     End Sub
  767.     Private Sub txtCount_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCount.KeyDown
  768.         If e.KeyCode = Keys.Enter Then
  769.             If txtCount.Text = String.Empty Then
  770.                 txtCount_Validating(Nothing, Nothing)
  771.             Else
  772.                 CalMxMoney()
  773.             End If
  774.             Me.txtJJ.Focus()
  775.         End If
  776.     End Sub
  780.     Private Sub txtJJ_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtJJ.KeyDown
  782.         If e.KeyCode = Keys.Enter Then
  784.             txtPackage.Focus()
  786.         End If
  787.     End Sub
  791.     Private Sub txtPackage_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPackage.KeyDown
  792.         If e.KeyCode = Keys.Enter Then
  794.             txtBatch.Focus()
  796.         End If
  797.     End Sub
  801.     Private Sub txtBatch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBatch.KeyDown
  802.         If e.KeyCode = Keys.Enter Then
  804.             txtHy.Focus()
  806.         End If
  807.     End Sub
  811.     Private Sub txtHy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtHy.KeyDown
  812.         If e.KeyCode = Keys.Enter Then
  814.             txtPprice.Focus()
  816.         End If
  817.     End Sub
  821.     Private Sub txtPprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPprice.KeyDown
  822.         If e.KeyCode = Keys.Enter Then
  824.             txtLprice.Focus()
  826.         End If
  827.     End Sub
  831.     Private Sub txtLprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtLprice.KeyDown
  832.         If e.KeyCode = Keys.Enter Then
  834.             txtJprice.Focus()
  836.         End If
  837.     End Sub
  841.     Private Sub txtJprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtJprice.KeyDown
  842.         If e.KeyCode = Keys.Enter Then
  844.             txtZprice.Focus()
  846.         End If
  847.     End Sub
  849.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrcs.ButtonClick
  850.         Select Case e.Button.Text
  851.             Case "添加"
  852.                 add()
  853.                 tbnEnable("tbnAdd.Enabled = False", tbrcs)
  854.             Case "保存"
  855.                 save()
  856.                 tbnEnable("tbnSave.Enabled = False", tbrcs)
  857.             Case "退出"
  858.                 Me.Close()
  860.         End Select
  861.     End Sub
  863.     Private Sub save()
  864.         If lsweb.updatedataset("select 序号,药品编号,药品名称,药品规格,单位,进价,数量,金额,批号,有效期,包装,产地,批发价,零售价,建议价,最低价,货位,客户名称 as 货源 from wz_kc", "wz_kc", dslocals, DataRowState.Added) = True Then
  865.             lsweb.runSql("exec sp_kccs")
  867.             MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  868.         Else
  869.             MessageBox.Show("信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  870.         End If
  872.     End Sub
  874.     Private Sub txtZprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtZprice.KeyDown
  875.         If Not IsNumeric(txtZprice.Text) Or txtZprice.Text = String.Empty Then
  876.             ErrorProvider1.SetError(txtZprice, "不是数值类型且不能为空。")
  877.             txtZprice.Focus()
  878.         Else
  879.             If e.KeyCode = Keys.Enter Then
  880.                 Static i As Int16
  881.                 If dslocals.Tables("wz_kc").Rows.Count < 1 Then
  882.                     i = 1
  883.                 Else
  884.                     i = i + 1
  885.                 End If
  886.                 txtNo.Text = CStr(i)
  887.                 Dim dr As DataRow = dslocals.Tables("wz_kc").NewRow()
  888.                 dr("序号") = CInt(Me.txtNo.Text.Trim)
  889.                 dr("药品编号") = Me.txtNumber.Text.Trim
  890.                 dr("药品名称") = Me.txtName.Text.Trim
  891.                 dr("药品规格") = Me.txtRule.Text.Trim
  892.                 dr("单位") = Me.txtUnit.Text.Trim
  893.                 dr("进价") = CDec(Me.txtJJ.Text.Trim)
  894.                 dr("数量") = Me.txtCount.Text.Trim
  895.                 dr("金额") = CDec(Me.txtJJ.Text.Trim) * CInt(Me.txtCount.Text.Trim)
  896.                 dr("批号") = Me.txtBatch.Text.Trim
  897.                 dr("有效期") = Me.txtavaid.Text.Trim
  898.                 dr("包装") = Me.txtPackage.Text.Trim
  899.                 dr("产地") = Me.txtaddress.Text.Trim
  900.                 dr("批发价") = Me.txtPprice.Text.Trim
  901.                 dr("零售价") = Me.txtLprice.Text.Trim
  902.                 dr("建议价") = CInt(Me.txtJprice.Text.Trim)
  903.                 dr("最低价") = CInt(Me.txtZprice.Text.Trim)
  904.                 dr("货源") = Me.txtHy.Text.Trim
  905.                 dr("货位") = Me.cbohw.Text.Trim
  906.                 dslocals.Tables("wz_kc").Rows.Add(dr)
  907.                 txtNumber.Focus()
  908.                 clear()
  910.             End If
  911.             ErrorProvider1.SetError(txtZprice, "")
  912.         End If
  913.         dgview.DataSource = dslocals.Tables("wz_kc").DefaultView
  914.     End Sub
  916.     Private Sub cbohw_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cbohw.Validating
  917.         If cbohw.Text = String.Empty Then
  918.             ErrorProvider1.SetError(cbohw, "不能为空。")
  919.             cbohw.Focus()
  920.         Else
  921.             ErrorProvider1.SetError(cbohw, "")
  922.         End If
  923.     End Sub
  925.     Private Sub txtCount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtCount.Validating
  926.         If txtCount.Text = String.Empty Then
  927.             ErrorProvider1.SetError(txtCount, "不能为空。")
  928.             txtCount.Focus()
  929.         Else
  930.             ErrorProvider1.SetError(txtCount, "")
  931.         End If
  932.     End Sub
  934.     Private Sub txtJJ_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtJJ.Validating
  935.         If Not IsNumeric(txtJJ.Text) Or txtJJ.Text = String.Empty Then
  936.             ErrorProvider1.SetError(txtJJ, "不是数值类型且不能为空。")
  937.             e.Cancel = True
  938.         Else
  939.             ErrorProvider1.SetError(txtJJ, "")
  940.         End If
  941.     End Sub
  943.     Private Sub txtPackage_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPackage.Validating
  944.         If txtPackage.Text = String.Empty Then
  945.             ErrorProvider1.SetError(txtPackage, "不能为空。")
  946.             txtPackage.Focus()
  947.         Else
  948.             ErrorProvider1.SetError(txtPackage, "")
  949.         End If
  950.     End Sub
  952.     Private Sub txtBatch_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtBatch.Validating
  953.         If txtBatch.Text = String.Empty Then
  954.             ErrorProvider1.SetError(txtBatch, "不能为空。")
  955.             txtBatch.Focus()
  956.         Else
  957.             ErrorProvider1.SetError(txtBatch, "")
  958.         End If
  959.     End Sub
  961.     Private Sub txtHy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtHy.Validating
  962.         If txtHy.Text = String.Empty Then
  963.             ErrorProvider1.SetError(txtHy, "不能为空。")
  964.             txtHy.Focus()
  965.         Else
  966.             ErrorProvider1.SetError(txtHy, "")
  967.         End If
  968.     End Sub
  970.     Private Sub txtPprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPprice.Validating
  971.         If Not IsNumeric(txtPprice.Text) Or txtPprice.Text = String.Empty Then
  972.             ErrorProvider1.SetError(txtPprice, "不是数值类型且不能为空。")
  973.             e.Cancel = True
  974.         Else
  975.             ErrorProvider1.SetError(txtPprice, "")
  976.         End If
  977.     End Sub
  979.     Private Sub txtLprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtLprice.Validating
  980.         If Not IsNumeric(txtLprice.Text) Or txtLprice.Text = String.Empty Then
  981.             ErrorProvider1.SetError(txtLprice, "不是数值类型且不能为空。")
  982.             e.Cancel = True
  983.         Else
  984.             ErrorProvider1.SetError(txtLprice, "")
  985.         End If
  986.     End Sub
  988.     Private Sub txtJprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtJprice.Validating
  989.         If Not IsNumeric(txtJprice.Text) Or txtJprice.Text = String.Empty Then
  990.             ErrorProvider1.SetError(txtJprice, "不是数值类型且不能为空。")
  991.             e.Cancel = True
  992.         Else
  993.             ErrorProvider1.SetError(txtJprice, "")
  994.         End If
  995.     End Sub
  999.     Private Sub txtZprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtZprice.Validating
  1000.         If Not IsNumeric(txtZprice.Text) Or txtZprice.Text = String.Empty Then
  1001.             ErrorProvider1.SetError(txtZprice, "不是数值类型且不能为空。")
  1002.             e.Cancel = True
  1003.         Else
  1004.             ErrorProvider1.SetError(txtZprice, "")
  1005.         End If
  1006.     End Sub
  1008.     Private Sub CalMxMoney()
  1009.         Dim price As Double = CType(txtJJ.Text, Double)
  1010.         Dim count As Int16 = CInt(txtCount.Text)
  1011.         Me.txtmoney.Text = (price * count).ToString
  1012.     End Sub
  1014.     Private Sub txtZprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtZprice.TextChanged
  1016.     End Sub
  1018.     Private Sub txtCount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCount.TextChanged
  1020.     End Sub
  1022.     Private Sub cboczy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboczy.SelectedIndexChanged
  1024.     End Sub
  1026.     Private Sub cboczy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cboczy.Validating
  1027.         If cboczy.Text = String.Empty Then
  1028.             ErrorProvider1.SetError(cboczy, "不能为空。")
  1029.             cboczy.Focus()
  1030.         Else
  1031.             ErrorProvider1.SetError(cboczy, "")
  1032.         End If
  1033.     End Sub
  1035.     Private Sub frmKcCs_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
  1036.        
  1037.     End Sub
  1038. End Class