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

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

医药行业

开发平台：

Visual Basic

frmTj.vb：源码内容
  1. Public Class frmTj
  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 tbntj As System.Windows.Forms.ToolBar
  33.     Friend WithEvents Label10 As System.Windows.Forms.Label
  34.     Friend WithEvents txtpprice As System.Windows.Forms.TextBox
  35.     Friend WithEvents Label9 As System.Windows.Forms.Label
  36.     Friend WithEvents txtsj As System.Windows.Forms.TextBox
  37.     Friend WithEvents Label8 As System.Windows.Forms.Label
  38.     Friend WithEvents txtjj As System.Windows.Forms.TextBox
  39.     Friend WithEvents Label7 As System.Windows.Forms.Label
  40.     Friend WithEvents txtbillnumber As System.Windows.Forms.TextBox
  41.     Friend WithEvents txtunit As System.Windows.Forms.TextBox
  42.     Friend WithEvents txtmedrule As System.Windows.Forms.TextBox
  43.     Friend WithEvents txtmedname As System.Windows.Forms.TextBox
  44.     Friend WithEvents txtmednumber As System.Windows.Forms.TextBox
  45.     Friend WithEvents txtno As System.Windows.Forms.TextBox
  46.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  47.     Friend WithEvents Label6 As System.Windows.Forms.Label
  48.     Friend WithEvents Label5 As System.Windows.Forms.Label
  49.     Friend WithEvents Label4 As System.Windows.Forms.Label
  50.     Friend WithEvents Label3 As System.Windows.Forms.Label
  51.     Friend WithEvents Label2 As System.Windows.Forms.Label
  52.     Friend WithEvents Label1 As System.Windows.Forms.Label
  53.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  54.     Friend WithEvents txtlprice As System.Windows.Forms.TextBox
  55.     Friend WithEvents Label11 As System.Windows.Forms.Label
  56.     Friend WithEvents txtjprice As System.Windows.Forms.TextBox
  57.     Friend WithEvents Label12 As System.Windows.Forms.Label
  58.     Friend WithEvents txtzprice As System.Windows.Forms.TextBox
  59.     Friend WithEvents txtxzprice As System.Windows.Forms.TextBox
  60.     Friend WithEvents Label13 As System.Windows.Forms.Label
  61.     Friend WithEvents txtxjprice As System.Windows.Forms.TextBox
  62.     Friend WithEvents Label14 As System.Windows.Forms.Label
  63.     Friend WithEvents txtxlprice As System.Windows.Forms.TextBox
  64.     Friend WithEvents Label15 As System.Windows.Forms.Label
  65.     Friend WithEvents txtxpprice As System.Windows.Forms.TextBox
  66.     Friend WithEvents Label16 As System.Windows.Forms.Label
  67.     Friend WithEvents txtxsj As System.Windows.Forms.TextBox
  68.     Friend WithEvents Label17 As System.Windows.Forms.Label
  69.     Friend WithEvents txtxjj As System.Windows.Forms.TextBox
  70.     Friend WithEvents Label18 As System.Windows.Forms.Label
  71.     Friend WithEvents Label19 As System.Windows.Forms.Label
  72.     Friend WithEvents Label20 As System.Windows.Forms.Label
  73.     Friend WithEvents cbojsr As System.Windows.Forms.ComboBox
  74.     Friend WithEvents txtzy As System.Windows.Forms.TextBox
  75.     Friend WithEvents Label21 As System.Windows.Forms.Label
  76.     Friend WithEvents txtyw As System.Windows.Forms.TextBox
  77.     Friend WithEvents TextBox14 As System.Windows.Forms.TextBox
  78.     Friend WithEvents TextBox15 As System.Windows.Forms.TextBox
  79.     Friend WithEvents TextBox16 As System.Windows.Forms.TextBox
  80.     Friend WithEvents TextBox17 As System.Windows.Forms.TextBox
  81.     Friend WithEvents TextBox18 As System.Windows.Forms.TextBox
  82.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  83.     Friend WithEvents tbnadd As System.Windows.Forms.ToolBarButton
  84.     Friend WithEvents tbnsave As System.Windows.Forms.ToolBarButton
  85.     Friend WithEvents tbnprint As System.Windows.Forms.ToolBarButton
  86.     Friend WithEvents tbnexit As System.Windows.Forms.ToolBarButton
  87.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  88.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  89.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  90.         Me.components = New System.ComponentModel.Container
  91.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmTj))
  92.         Me.tbntj = New System.Windows.Forms.ToolBar
  93.         Me.tbnadd = New System.Windows.Forms.ToolBarButton
  94.         Me.tbnsave = New System.Windows.Forms.ToolBarButton
  95.         Me.tbnprint = New System.Windows.Forms.ToolBarButton
  96.         Me.tbnexit = New System.Windows.Forms.ToolBarButton
  97.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  98.         Me.Label10 = New System.Windows.Forms.Label
  99.         Me.txtpprice = New System.Windows.Forms.TextBox
  100.         Me.Label9 = New System.Windows.Forms.Label
  101.         Me.txtsj = New System.Windows.Forms.TextBox
  102.         Me.Label8 = New System.Windows.Forms.Label
  103.         Me.txtjj = New System.Windows.Forms.TextBox
  104.         Me.Label7 = New System.Windows.Forms.Label
  105.         Me.txtbillnumber = New System.Windows.Forms.TextBox
  106.         Me.txtunit = New System.Windows.Forms.TextBox
  107.         Me.txtmedrule = New System.Windows.Forms.TextBox
  108.         Me.txtmedname = New System.Windows.Forms.TextBox
  109.         Me.txtmednumber = New System.Windows.Forms.TextBox
  110.         Me.txtno = New System.Windows.Forms.TextBox
  111.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  112.         Me.Label6 = New System.Windows.Forms.Label
  113.         Me.Label5 = New System.Windows.Forms.Label
  114.         Me.Label4 = New System.Windows.Forms.Label
  115.         Me.Label3 = New System.Windows.Forms.Label
  116.         Me.Label2 = New System.Windows.Forms.Label
  117.         Me.Label1 = New System.Windows.Forms.Label
  118.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  119.         Me.txtyw = New System.Windows.Forms.TextBox
  120.         Me.Label21 = New System.Windows.Forms.Label
  121.         Me.txtzy = New System.Windows.Forms.TextBox
  122.         Me.cbojsr = New System.Windows.Forms.ComboBox
  123.         Me.Label20 = New System.Windows.Forms.Label
  124.         Me.Label19 = New System.Windows.Forms.Label
  125.         Me.txtxzprice = New System.Windows.Forms.TextBox
  126.         Me.Label13 = New System.Windows.Forms.Label
  127.         Me.txtxjprice = New System.Windows.Forms.TextBox
  128.         Me.Label14 = New System.Windows.Forms.Label
  129.         Me.txtxlprice = New System.Windows.Forms.TextBox
  130.         Me.Label15 = New System.Windows.Forms.Label
  131.         Me.txtxpprice = New System.Windows.Forms.TextBox
  132.         Me.Label16 = New System.Windows.Forms.Label
  133.         Me.txtxsj = New System.Windows.Forms.TextBox
  134.         Me.Label17 = New System.Windows.Forms.Label
  135.         Me.txtxjj = New System.Windows.Forms.TextBox
  136.         Me.Label18 = New System.Windows.Forms.Label
  137.         Me.txtzprice = New System.Windows.Forms.TextBox
  138.         Me.Label12 = New System.Windows.Forms.Label
  139.         Me.txtjprice = New System.Windows.Forms.TextBox
  140.         Me.Label11 = New System.Windows.Forms.Label
  141.         Me.txtlprice = New System.Windows.Forms.TextBox
  142.         Me.TextBox14 = New System.Windows.Forms.TextBox
  143.         Me.TextBox15 = New System.Windows.Forms.TextBox
  144.         Me.TextBox16 = New System.Windows.Forms.TextBox
  145.         Me.TextBox17 = New System.Windows.Forms.TextBox
  146.         Me.TextBox18 = New System.Windows.Forms.TextBox
  147.         Me.dgview = New System.Windows.Forms.DataGrid
  148.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  149.         Me.GroupBox1.SuspendLayout()
  150.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  151.         Me.SuspendLayout()
  152.         '
  153.         'tbntj
  154.         '
  155.         Me.tbntj.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  156.         Me.tbntj.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnadd, Me.tbnsave, Me.tbnprint, Me.tbnexit})
  157.         Me.tbntj.DropDownArrows = True
  158.         Me.tbntj.ImageList = Me.ImageList2
  159.         Me.tbntj.Location = New System.Drawing.Point(0, 0)
  160.         Me.tbntj.Name = "tbntj"
  161.         Me.tbntj.ShowToolTips = True
  162.         Me.tbntj.Size = New System.Drawing.Size(896, 41)
  163.         Me.tbntj.TabIndex = 0
  164.         '
  165.         'tbnadd
  166.         '
  167.         Me.tbnadd.ImageIndex = 7
  168.         Me.tbnadd.Text = "添加"
  169.         '
  170.         'tbnsave
  171.         '
  172.         Me.tbnsave.ImageIndex = 4
  173.         Me.tbnsave.Text = "保存"
  174.         '
  175.         'tbnprint
  176.         '
  177.         Me.tbnprint.ImageIndex = 12
  178.         Me.tbnprint.Text = "打印"
  179.         '
  180.         'tbnexit
  181.         '
  182.         Me.tbnexit.ImageIndex = 11
  183.         Me.tbnexit.Text = "退出"
  184.         '
  185.         'ImageList2
  186.         '
  187.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  188.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  189.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  190.         '
  191.         'Label10
  192.         '
  193.         Me.Label10.AutoSize = True
  194.         Me.Label10.Location = New System.Drawing.Point(454, 64)
  195.         Me.Label10.Name = "Label10"
  196.         Me.Label10.Size = New System.Drawing.Size(54, 17)
  197.         Me.Label10.TabIndex = 19
  198.         Me.Label10.Text = "零售价："
  199.         '
  200.         'txtpprice
  201.         '
  202.         Me.txtpprice.Location = New System.Drawing.Point(352, 56)
  203.         Me.txtpprice.Name = "txtpprice"
  204.         Me.txtpprice.ReadOnly = True
  205.         Me.txtpprice.Size = New System.Drawing.Size(80, 21)
  206.         Me.txtpprice.TabIndex = 18
  207.         Me.txtpprice.Text = ""
  208.         '
  209.         'Label9
  210.         '
  211.         Me.Label9.AutoSize = True
  212.         Me.Label9.Location = New System.Drawing.Point(302, 64)
  213.         Me.Label9.Name = "Label9"
  214.         Me.Label9.Size = New System.Drawing.Size(54, 17)
  215.         Me.Label9.TabIndex = 17
  216.         Me.Label9.Text = "批发价："
  217.         '
  218.         'txtsj
  219.         '
  220.         Me.txtsj.Location = New System.Drawing.Point(200, 56)
  221.         Me.txtsj.Name = "txtsj"
  222.         Me.txtsj.ReadOnly = True
  223.         Me.txtsj.Size = New System.Drawing.Size(80, 21)
  224.         Me.txtsj.TabIndex = 16
  225.         Me.txtsj.Text = ""
  226.         '
  227.         'Label8
  228.         '
  229.         Me.Label8.AutoSize = True
  230.         Me.Label8.Location = New System.Drawing.Point(162, 64)
  231.         Me.Label8.Name = "Label8"
  232.         Me.Label8.Size = New System.Drawing.Size(42, 17)
  233.         Me.Label8.TabIndex = 15
  234.         Me.Label8.Text = "售价："
  235.         '
  236.         'txtjj
  237.         '
  238.         Me.txtjj.Location = New System.Drawing.Point(56, 56)
  239.         Me.txtjj.Name = "txtjj"
  240.         Me.txtjj.ReadOnly = True
  241.         Me.txtjj.Size = New System.Drawing.Size(80, 21)
  242.         Me.txtjj.TabIndex = 14
  243.         Me.txtjj.Text = ""
  244.         '
  245.         'Label7
  246.         '
  247.         Me.Label7.AutoSize = True
  248.         Me.Label7.Location = New System.Drawing.Point(18, 64)
  249.         Me.Label7.Name = "Label7"
  250.         Me.Label7.Size = New System.Drawing.Size(42, 17)
  251.         Me.Label7.TabIndex = 13
  252.         Me.Label7.Text = "进价："
  253.         '
  254.         'txtbillnumber
  255.         '
  256.         Me.txtbillnumber.AutoSize = False
  257.         Me.txtbillnumber.Location = New System.Drawing.Point(728, 17)
  258.         Me.txtbillnumber.Name = "txtbillnumber"
  259.         Me.txtbillnumber.ReadOnly = True
  260.         Me.txtbillnumber.Size = New System.Drawing.Size(152, 21)
  261.         Me.txtbillnumber.TabIndex = 12
  262.         Me.txtbillnumber.Text = ""
  263.         '
  264.         'txtunit
  265.         '
  266.         Me.txtunit.AutoSize = False
  267.         Me.txtunit.Location = New System.Drawing.Point(640, 17)
  268.         Me.txtunit.Name = "txtunit"
  269.         Me.txtunit.ReadOnly = True
  270.         Me.txtunit.Size = New System.Drawing.Size(32, 21)
  271.         Me.txtunit.TabIndex = 11
  272.         Me.txtunit.Text = ""
  273.         '
  274.         'txtmedrule
  275.         '
  276.         Me.txtmedrule.AutoSize = False
  277.         Me.txtmedrule.Location = New System.Drawing.Point(496, 16)
  278.         Me.txtmedrule.Name = "txtmedrule"
  279.         Me.txtmedrule.ReadOnly = True
  280.         Me.txtmedrule.Size = New System.Drawing.Size(100, 25)
  281.         Me.txtmedrule.TabIndex = 10
  282.         Me.txtmedrule.Text = ""
  283.         '
  284.         'txtmedname
  285.         '
  286.         Me.txtmedname.AutoSize = False
  287.         Me.txtmedname.Location = New System.Drawing.Point(320, 17)
  288.         Me.txtmedname.Name = "txtmedname"
  289.         Me.txtmedname.ReadOnly = True
  290.         Me.txtmedname.Size = New System.Drawing.Size(100, 25)
  291.         Me.txtmedname.TabIndex = 9
  292.         Me.txtmedname.Text = ""
  293.         '
  294.         'txtmednumber
  295.         '
  296.         Me.txtmednumber.Location = New System.Drawing.Point(168, 17)
  297.         Me.txtmednumber.Name = "txtmednumber"
  298.         Me.txtmednumber.Size = New System.Drawing.Size(80, 21)
  299.         Me.txtmednumber.TabIndex = 8
  300.         Me.txtmednumber.Text = ""
  301.         '
  302.         'txtno
  303.         '
  304.         Me.txtno.Location = New System.Drawing.Point(56, 16)
  305.         Me.txtno.Name = "txtno"
  306.         Me.txtno.ReadOnly = True
  307.         Me.txtno.Size = New System.Drawing.Size(40, 21)
  308.         Me.txtno.TabIndex = 7
  309.         Me.txtno.Text = ""
  310.         '
  311.         'GroupBox2
  312.         '
  313.         Me.GroupBox2.Location = New System.Drawing.Point(8, 40)
  314.         Me.GroupBox2.Name = "GroupBox2"
  315.         Me.GroupBox2.Size = New System.Drawing.Size(872, 8)
  316.         Me.GroupBox2.TabIndex = 6
  317.         Me.GroupBox2.TabStop = False
  318.         '
  319.         'Label6
  320.         '
  321.         Me.Label6.AutoSize = True
  322.         Me.Label6.Location = New System.Drawing.Point(602, 24)
  323.         Me.Label6.Name = "Label6"
  324.         Me.Label6.Size = New System.Drawing.Size(42, 17)
  325.         Me.Label6.TabIndex = 5
  326.         Me.Label6.Text = "单位："
  327.         '
  328.         'Label5
  329.         '
  330.         Me.Label5.AutoSize = True
  331.         Me.Label5.Location = New System.Drawing.Point(690, 24)
  332.         Me.Label5.Name = "Label5"
  333.         Me.Label5.Size = New System.Drawing.Size(42, 17)
  334.         Me.Label5.TabIndex = 4
  335.         Me.Label5.Text = "票号："
  336.         '
  337.         'Label4
  338.         '
  339.         Me.Label4.AutoSize = True
  340.         Me.Label4.Location = New System.Drawing.Point(18, 24)
  341.         Me.Label4.Name = "Label4"
  342.         Me.Label4.Size = New System.Drawing.Size(42, 17)
  343.         Me.Label4.TabIndex = 3
  344.         Me.Label4.Text = "序号："
  345.         '
  346.         'Label3
  347.         '
  348.         Me.Label3.AutoSize = True
  349.         Me.Label3.Location = New System.Drawing.Point(434, 24)
  350.         Me.Label3.Name = "Label3"
  351.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  352.         Me.Label3.TabIndex = 2
  353.         Me.Label3.Text = "药品规格："
  354.         '
  355.         'Label2
  356.         '
  357.         Me.Label2.AutoSize = True
  358.         Me.Label2.Location = New System.Drawing.Point(258, 24)
  359.         Me.Label2.Name = "Label2"
  360.         Me.Label2.Size = New System.Drawing.Size(66, 17)
  361.         Me.Label2.TabIndex = 1
  362.         Me.Label2.Text = "药品名称："
  363.         '
  364.         'Label1
  365.         '
  366.         Me.Label1.AutoSize = True
  367.         Me.Label1.Location = New System.Drawing.Point(106, 24)
  368.         Me.Label1.Name = "Label1"
  369.         Me.Label1.Size = New System.Drawing.Size(66, 17)
  370.         Me.Label1.TabIndex = 0
  371.         Me.Label1.Text = "药品编号："
  372.         '
  373.         'GroupBox1
  374.         '
  375.         Me.GroupBox1.Controls.Add(Me.txtyw)
  376.         Me.GroupBox1.Controls.Add(Me.Label21)
  377.         Me.GroupBox1.Controls.Add(Me.txtzy)
  378.         Me.GroupBox1.Controls.Add(Me.cbojsr)
  379.         Me.GroupBox1.Controls.Add(Me.Label20)
  380.         Me.GroupBox1.Controls.Add(Me.Label19)
  381.         Me.GroupBox1.Controls.Add(Me.txtxzprice)
  382.         Me.GroupBox1.Controls.Add(Me.Label13)
  383.         Me.GroupBox1.Controls.Add(Me.txtxjprice)
  384.         Me.GroupBox1.Controls.Add(Me.Label14)
  385.         Me.GroupBox1.Controls.Add(Me.txtxlprice)
  386.         Me.GroupBox1.Controls.Add(Me.Label15)
  387.         Me.GroupBox1.Controls.Add(Me.txtxpprice)
  388.         Me.GroupBox1.Controls.Add(Me.Label16)
  389.         Me.GroupBox1.Controls.Add(Me.txtxsj)
  390.         Me.GroupBox1.Controls.Add(Me.Label17)
  391.         Me.GroupBox1.Controls.Add(Me.txtxjj)
  392.         Me.GroupBox1.Controls.Add(Me.Label18)
  393.         Me.GroupBox1.Controls.Add(Me.txtzprice)
  394.         Me.GroupBox1.Controls.Add(Me.Label12)
  395.         Me.GroupBox1.Controls.Add(Me.txtjprice)
  396.         Me.GroupBox1.Controls.Add(Me.Label11)
  397.         Me.GroupBox1.Controls.Add(Me.txtlprice)
  398.         Me.GroupBox1.Controls.Add(Me.Label10)
  399.         Me.GroupBox1.Controls.Add(Me.txtpprice)
  400.         Me.GroupBox1.Controls.Add(Me.Label9)
  401.         Me.GroupBox1.Controls.Add(Me.txtsj)
  402.         Me.GroupBox1.Controls.Add(Me.Label8)
  403.         Me.GroupBox1.Controls.Add(Me.txtjj)
  404.         Me.GroupBox1.Controls.Add(Me.Label7)
  405.         Me.GroupBox1.Controls.Add(Me.txtbillnumber)
  406.         Me.GroupBox1.Controls.Add(Me.txtunit)
  407.         Me.GroupBox1.Controls.Add(Me.txtmedrule)
  408.         Me.GroupBox1.Controls.Add(Me.txtmedname)
  409.         Me.GroupBox1.Controls.Add(Me.txtmednumber)
  410.         Me.GroupBox1.Controls.Add(Me.txtno)
  411.         Me.GroupBox1.Controls.Add(Me.GroupBox2)
  412.         Me.GroupBox1.Controls.Add(Me.Label6)
  413.         Me.GroupBox1.Controls.Add(Me.Label5)
  414.         Me.GroupBox1.Controls.Add(Me.Label4)
  415.         Me.GroupBox1.Controls.Add(Me.Label3)
  416.         Me.GroupBox1.Controls.Add(Me.Label2)
  417.         Me.GroupBox1.Controls.Add(Me.Label1)
  418.         Me.GroupBox1.Controls.Add(Me.TextBox14)
  419.         Me.GroupBox1.Controls.Add(Me.TextBox15)
  420.         Me.GroupBox1.Controls.Add(Me.TextBox16)
  421.         Me.GroupBox1.Controls.Add(Me.TextBox17)
  422.         Me.GroupBox1.Controls.Add(Me.TextBox18)
  423.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  424.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  425.         Me.GroupBox1.Name = "GroupBox1"
  426.         Me.GroupBox1.Size = New System.Drawing.Size(896, 158)
  427.         Me.GroupBox1.TabIndex = 1
  428.         Me.GroupBox1.TabStop = False
  429.         '
  430.         'txtyw
  431.         '
  432.         Me.txtyw.Location = New System.Drawing.Point(504, 120)
  433.         Me.txtyw.Name = "txtyw"
  434.         Me.txtyw.Size = New System.Drawing.Size(376, 21)
  435.         Me.txtyw.TabIndex = 42
  436.         Me.txtyw.Text = ""
  437.         '
  438.         'Label21
  439.         '
  440.         Me.Label21.AutoSize = True
  441.         Me.Label21.Location = New System.Drawing.Point(466, 128)
  442.         Me.Label21.Name = "Label21"
  443.         Me.Label21.Size = New System.Drawing.Size(42, 17)
  444.         Me.Label21.TabIndex = 41
  445.         Me.Label21.Text = "业务："
  446.         '
  447.         'txtzy
  448.         '
  449.         Me.txtzy.Location = New System.Drawing.Point(200, 120)
  450.         Me.txtzy.Name = "txtzy"
  451.         Me.txtzy.Size = New System.Drawing.Size(232, 21)
  452.         Me.txtzy.TabIndex = 40
  453.         Me.txtzy.Text = ""
  454.         '
  455.         'cbojsr
  456.         '
  457.         Me.cbojsr.Location = New System.Drawing.Point(56, 120)
  458.         Me.cbojsr.Name = "cbojsr"
  459.         Me.cbojsr.Size = New System.Drawing.Size(80, 20)
  460.         Me.cbojsr.TabIndex = 39
  461.         '
  462.         'Label20
  463.         '
  464.         Me.Label20.AutoSize = True
  465.         Me.Label20.Location = New System.Drawing.Point(7, 128)
  466.         Me.Label20.Name = "Label20"
  467.         Me.Label20.Size = New System.Drawing.Size(54, 17)
  468.         Me.Label20.TabIndex = 38
  469.         Me.Label20.Text = "经手人："
  470.         '
  471.         'Label19
  472.         '
  473.         Me.Label19.AutoSize = True
  474.         Me.Label19.Location = New System.Drawing.Point(162, 128)
  475.         Me.Label19.Name = "Label19"
  476.         Me.Label19.Size = New System.Drawing.Size(42, 17)
  477.         Me.Label19.TabIndex = 37
  478.         Me.Label19.Text = "摘要："
  479.         '
  480.         'txtxzprice
  481.         '
  482.         Me.txtxzprice.Location = New System.Drawing.Point(800, 88)
  483.         Me.txtxzprice.Name = "txtxzprice"
  484.         Me.txtxzprice.Size = New System.Drawing.Size(80, 21)
  485.         Me.txtxzprice.TabIndex = 36
  486.         Me.txtxzprice.Text = "0.00"
  487.         '
  488.         'Label13
  489.         '
  490.         Me.Label13.AutoSize = True
  491.         Me.Label13.Location = New System.Drawing.Point(740, 96)
  492.         Me.Label13.Name = "Label13"
  493.         Me.Label13.Size = New System.Drawing.Size(66, 17)
  494.         Me.Label13.TabIndex = 35
  495.         Me.Label13.Text = "现最低价："
  496.         '
  497.         'txtxjprice
  498.         '
  499.         Me.txtxjprice.Location = New System.Drawing.Point(656, 88)
  500.         Me.txtxjprice.Name = "txtxjprice"
  501.         Me.txtxjprice.Size = New System.Drawing.Size(80, 21)
  502.         Me.txtxjprice.TabIndex = 34
  503.         Me.txtxjprice.Text = "0.00"
  504.         '
  505.         'Label14
  506.         '
  507.         Me.Label14.AutoSize = True
  508.         Me.Label14.Location = New System.Drawing.Point(594, 96)
  509.         Me.Label14.Name = "Label14"
  510.         Me.Label14.Size = New System.Drawing.Size(66, 17)
  511.         Me.Label14.TabIndex = 33
  512.         Me.Label14.Text = "现建议价："
  513.         '
  514.         'txtxlprice
  515.         '
  516.         Me.txtxlprice.Location = New System.Drawing.Point(504, 88)
  517.         Me.txtxlprice.Name = "txtxlprice"
  518.         Me.txtxlprice.Size = New System.Drawing.Size(80, 21)
  519.         Me.txtxlprice.TabIndex = 32
  520.         Me.txtxlprice.Text = "0.00"
  521.         '
  522.         'Label15
  523.         '
  524.         Me.Label15.AutoSize = True
  525.         Me.Label15.Location = New System.Drawing.Point(442, 96)
  526.         Me.Label15.Name = "Label15"
  527.         Me.Label15.Size = New System.Drawing.Size(66, 17)
  528.         Me.Label15.TabIndex = 31
  529.         Me.Label15.Text = "现零售价："
  530.         '
  531.         'txtxpprice
  532.         '
  533.         Me.txtxpprice.Location = New System.Drawing.Point(352, 88)
  534.         Me.txtxpprice.Name = "txtxpprice"
  535.         Me.txtxpprice.Size = New System.Drawing.Size(80, 21)
  536.         Me.txtxpprice.TabIndex = 30
  537.         Me.txtxpprice.Text = "0.00"
  538.         '
  539.         'Label16
  540.         '
  541.         Me.Label16.AutoSize = True
  542.         Me.Label16.Location = New System.Drawing.Point(290, 96)
  543.         Me.Label16.Name = "Label16"
  544.         Me.Label16.Size = New System.Drawing.Size(66, 17)
  545.         Me.Label16.TabIndex = 29
  546.         Me.Label16.Text = "现批发价："
  547.         '
  548.         'txtxsj
  549.         '
  550.         Me.txtxsj.Location = New System.Drawing.Point(200, 88)
  551.         Me.txtxsj.Name = "txtxsj"
  552.         Me.txtxsj.Size = New System.Drawing.Size(80, 21)
  553.         Me.txtxsj.TabIndex = 28
  554.         Me.txtxsj.Text = "0.00"
  555.         '
  556.         'Label17
  557.         '
  558.         Me.Label17.AutoSize = True
  559.         Me.Label17.Location = New System.Drawing.Point(150, 96)
  560.         Me.Label17.Name = "Label17"
  561.         Me.Label17.Size = New System.Drawing.Size(54, 17)
  562.         Me.Label17.TabIndex = 27
  563.         Me.Label17.Text = "现售价："
  564.         '
  565.         'txtxjj
  566.         '
  567.         Me.txtxjj.Location = New System.Drawing.Point(56, 88)
  568.         Me.txtxjj.Name = "txtxjj"
  569.         Me.txtxjj.Size = New System.Drawing.Size(80, 21)
  570.         Me.txtxjj.TabIndex = 26
  571.         Me.txtxjj.Text = "0.00"
  572.         '
  573.         'Label18
  574.         '
  575.         Me.Label18.AutoSize = True
  576.         Me.Label18.Location = New System.Drawing.Point(8, 96)
  577.         Me.Label18.Name = "Label18"
  578.         Me.Label18.Size = New System.Drawing.Size(54, 17)
  579.         Me.Label18.TabIndex = 25
  580.         Me.Label18.Text = "现进价："
  581.         '
  582.         'txtzprice
  583.         '
  584.         Me.txtzprice.Location = New System.Drawing.Point(800, 56)
  585.         Me.txtzprice.Name = "txtzprice"
  586.         Me.txtzprice.ReadOnly = True
  587.         Me.txtzprice.Size = New System.Drawing.Size(80, 21)
  588.         Me.txtzprice.TabIndex = 24
  589.         Me.txtzprice.Text = ""
  590.         '
  591.         'Label12
  592.         '
  593.         Me.Label12.AutoSize = True
  594.         Me.Label12.Location = New System.Drawing.Point(752, 64)
  595.         Me.Label12.Name = "Label12"
  596.         Me.Label12.Size = New System.Drawing.Size(54, 17)
  597.         Me.Label12.TabIndex = 23
  598.         Me.Label12.Text = "最低价："
  599.         '
  600.         'txtjprice
  601.         '
  602.         Me.txtjprice.Location = New System.Drawing.Point(656, 56)
  603.         Me.txtjprice.Name = "txtjprice"
  604.         Me.txtjprice.ReadOnly = True
  605.         Me.txtjprice.Size = New System.Drawing.Size(80, 21)
  606.         Me.txtjprice.TabIndex = 22
  607.         Me.txtjprice.Text = ""
  608.         '
  609.         'Label11
  610.         '
  611.         Me.Label11.AutoSize = True
  612.         Me.Label11.Location = New System.Drawing.Point(606, 64)
  613.         Me.Label11.Name = "Label11"
  614.         Me.Label11.Size = New System.Drawing.Size(54, 17)
  615.         Me.Label11.TabIndex = 21
  616.         Me.Label11.Text = "建议价："
  617.         '
  618.         'txtlprice
  619.         '
  620.         Me.txtlprice.Location = New System.Drawing.Point(504, 56)
  621.         Me.txtlprice.Name = "txtlprice"
  622.         Me.txtlprice.ReadOnly = True
  623.         Me.txtlprice.Size = New System.Drawing.Size(80, 21)
  624.         Me.txtlprice.TabIndex = 20
  625.         Me.txtlprice.Text = ""
  626.         '
  627.         'TextBox14
  628.         '
  629.         Me.TextBox14.Location = New System.Drawing.Point(352, 56)
  630.         Me.TextBox14.Name = "TextBox14"
  631.         Me.TextBox14.ReadOnly = True
  632.         Me.TextBox14.Size = New System.Drawing.Size(80, 21)
  633.         Me.TextBox14.TabIndex = 18
  634.         Me.TextBox14.Text = ""
  635.         '
  636.         'TextBox15
  637.         '
  638.         Me.TextBox15.Location = New System.Drawing.Point(656, 56)
  639.         Me.TextBox15.Name = "TextBox15"
  640.         Me.TextBox15.ReadOnly = True
  641.         Me.TextBox15.Size = New System.Drawing.Size(80, 21)
  642.         Me.TextBox15.TabIndex = 22
  643.         Me.TextBox15.Text = ""
  644.         '
  645.         'TextBox16
  646.         '
  647.         Me.TextBox16.Location = New System.Drawing.Point(504, 56)
  648.         Me.TextBox16.Name = "TextBox16"
  649.         Me.TextBox16.ReadOnly = True
  650.         Me.TextBox16.Size = New System.Drawing.Size(80, 21)
  651.         Me.TextBox16.TabIndex = 20
  652.         Me.TextBox16.Text = ""
  653.         '
  654.         'TextBox17
  655.         '
  656.         Me.TextBox17.Location = New System.Drawing.Point(200, 56)
  657.         Me.TextBox17.Name = "TextBox17"
  658.         Me.TextBox17.ReadOnly = True
  659.         Me.TextBox17.Size = New System.Drawing.Size(80, 21)
  660.         Me.TextBox17.TabIndex = 16
  661.         Me.TextBox17.Text = ""
  662.         '
  663.         'TextBox18
  664.         '
  665.         Me.TextBox18.Location = New System.Drawing.Point(800, 56)
  666.         Me.TextBox18.Name = "TextBox18"
  667.         Me.TextBox18.ReadOnly = True
  668.         Me.TextBox18.Size = New System.Drawing.Size(80, 21)
  669.         Me.TextBox18.TabIndex = 24
  670.         Me.TextBox18.Text = ""
  671.         '
  672.         'dgview
  673.         '
  674.         Me.dgview.DataMember = ""
  675.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  676.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  677.         Me.dgview.Location = New System.Drawing.Point(0, 199)
  678.         Me.dgview.Name = "dgview"
  679.         Me.dgview.Size = New System.Drawing.Size(896, 277)
  680.         Me.dgview.TabIndex = 2
  681.         '
  682.         'ErrorProvider1
  683.         '
  684.         Me.ErrorProvider1.ContainerControl = Me
  685.         '
  686.         'frmTj
  687.         '
  688.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  689.         Me.ClientSize = New System.Drawing.Size(896, 476)
  690.         Me.Controls.Add(Me.dgview)
  691.         Me.Controls.Add(Me.GroupBox1)
  692.         Me.Controls.Add(Me.tbntj)
  693.         Me.Name = "frmTj"
  694.         Me.Text = "frmTj"
  695.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  696.         Me.GroupBox1.ResumeLayout(False)
  697.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  698.         Me.ResumeLayout(False)
  700.     End Sub
  702. #End Region
  703.     Public lsweb As New jxcmanage
  704.     Public dslocals As DataSet = lsweb.returndataset("select 序号,药品编号,药品名称,药品规格,单位,进价,售价,批发价,零售价,建议价,最低价,现进价,现售价,现批发价,现零售价,现建议价,现最低价,票号,摘要,经手人,业务 from wz_tj", "wz_tj")
  705.     Private Sub txtmednumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtmednumber.TextChanged
  707.     End Sub
  708.     Public Function getinfo(ByVal strqueryid As String) As String
  709.         Dim strOrderId As String
  710.         strOrderId = strqueryid
  711.         Return strOrderId
  712.     End Function
  713.     Private Sub txtmednumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtmednumber.KeyDown
  714.         If e.KeyCode = Keys.Enter Then
  716.             Dim dlg As frmMedQuery = New frmMedQuery
  717.             dlg.PYM = Me.getinfo(txtmednumber.Text)
  718.             If dlg.PYM = "" Then
  719.                 ErrorProvider1.SetError(txtmednumber, "不能为空，请输入查询码！")
  720.             Else
  721.                 dlg.ShowDialog()
  722.                 ErrorProvider1.SetError(txtmednumber, "")
  723.             End If
  724.             Dim medIdvalue As String
  725.             medIdvalue = dlg.GetInfo("药品编号")
  726.             If medIdvalue Is Nothing Then
  727.                 ErrorProvider1.SetError(txtmednumber, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
  728.                 'txtNumber.Focus()
  729.             Else
  730.                 Dim runSqlQuery As String
  731.                 runSqlQuery = "select * from wz_cp where 药品编号='" & medIdvalue & " '"
  732.                 Dim dv As DataView
  733.                 ' Dim mOrderId As New managers
  734.                 '调用mCustomId对象的SPcustomersID函数
  735.                 Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
  736.                 'bb为一随意表名
  737.                 dtOrder.TableName = "bb"
  738.                 dv = dtOrder.DefaultView
  739.                 txtmednumber.Text = dv(0)("药品编号")
  740.                 txtmedname.Text = dv(0)("药品名称")
  741.                 txtmedrule.Text = dv(0)("药品规格")
  742.                 txtunit.Text = dv(0)("单位")
  743.                 txtjj.Text = dv(0)("单价")
  744.                 txtsj.Text = dv(0)("售价")
  745.                 txtxjj.Text = dv(0)("单价")
  746.                 txtxsj.Text = dv(0)("售价")
  748.                 txtpprice.Text = dv(0)("批发价")
  749.                 txtlprice.Text = dv(0)("零售价")
  750.                 txtjprice.Text = dv(0)("建议价")
  751.                 txtzprice.Text = dv(0)("最低价")
  753.                 txtxpprice.Text = dv(0)("批发价")
  754.                 txtxlprice.Text = dv(0)("零售价")
  755.                 txtxjprice.Text = dv(0)("建议价")
  756.                 txtxzprice.Text = dv(0)("最低价")
  758.                 ErrorProvider1.SetError(txtmednumber, "")
  759.                 txtxjj.Focus()
  760.             End If
  762.         End If
  763.     End Sub
  765.     Private Sub txtxjj_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtxjj.TextChanged
  767.     End Sub
  769.     Private Sub txtxjj_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtxjj.KeyDown
  770.         If e.KeyCode = Keys.Enter Then
  772.             txtxsj.Focus()
  775.         End If
  776.     End Sub
  778.     Private Sub txtxsj_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtxsj.TextChanged
  780.     End Sub
  782.     Private Sub txtxsj_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtxsj.KeyDown
  783.         If e.KeyCode = Keys.Enter Then
  785.             txtxpprice.Focus()
  789.         End If
  790.     End Sub
  792.     Private Sub txtxpprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtxpprice.TextChanged
  794.     End Sub
  796.     Private Sub txtxpprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtxpprice.KeyDown
  797.         If e.KeyCode = Keys.Enter Then
  799.             txtxlprice.Focus()
  802.         End If
  803.     End Sub
  805.     Private Sub txtxlprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtxlprice.TextChanged
  807.     End Sub
  809.     Private Sub txtxlprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtxlprice.KeyDown
  810.         If e.KeyCode = Keys.Enter Then
  812.             txtxjprice.Focus()
  816.         End If
  817.     End Sub
  819.     Private Sub txtxjprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtxjprice.TextChanged
  821.     End Sub
  823.     Private Sub txtxjprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtxjprice.KeyDown
  824.         If e.KeyCode = Keys.Enter Then
  826.             txtxzprice.Focus()
  830.         End If
  831.     End Sub
  833.     Private Sub txtxzprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtxzprice.TextChanged
  835.     End Sub
  837.     Private Sub txtxzprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtxzprice.KeyDown
  838.         If e.KeyCode = Keys.Enter Then
  840.             cbojsr.Focus()
  844.         End If
  845.     End Sub
  847.     Private Sub cbojsr_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbojsr.SelectedIndexChanged
  849.     End Sub
  851.     Private Sub cbojsr_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cbojsr.KeyDown
  852.         If e.KeyCode = Keys.Enter Then
  854.             txtzy.Focus()
  857.         End If
  858.     End Sub
  860.     Private Sub txtzy_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtzy.TextChanged
  862.     End Sub
  864.     Private Sub txtzy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzy.KeyDown
  865.         If e.KeyCode = Keys.Enter Then
  867.             txtyw.Focus()
  870.         End If
  871.     End Sub
  873.     Private Sub txtxjj_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtxjj.Validating
  874.         If Not IsNumeric(txtxjj.Text) Or txtxjj.Text = String.Empty Then
  875.             ErrorProvider1.SetError(txtxjj, "不是数值类型且不能为空。")
  876.             e.Cancel = True
  877.         Else
  878.             ErrorProvider1.SetError(txtxjj, "")
  879.         End If
  880.     End Sub
  882.     Private Sub txtxsj_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtxsj.Validating
  883.         If Not IsNumeric(txtxsj.Text) Or txtxsj.Text = String.Empty Then
  884.             ErrorProvider1.SetError(txtxsj, "不是数值类型且不能为空。")
  885.             e.Cancel = True
  886.         Else
  887.             ErrorProvider1.SetError(txtxsj, "")
  888.         End If
  889.     End Sub
  891.     Private Sub txtxpprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtxpprice.Validating
  892.         If Not IsNumeric(txtxpprice.Text) Or txtxpprice.Text = String.Empty Then
  893.             ErrorProvider1.SetError(txtxpprice, "不是数值类型且不能为空。")
  894.             e.Cancel = True
  895.         Else
  896.             ErrorProvider1.SetError(txtxpprice, "")
  897.         End If
  898.     End Sub
  900.     Private Sub txtxlprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtxlprice.Validating
  901.         If Not IsNumeric(txtxlprice.Text) Or txtxlprice.Text = String.Empty Then
  902.             ErrorProvider1.SetError(txtxlprice, "不是数值类型且不能为空。")
  903.             e.Cancel = True
  904.         Else
  905.             ErrorProvider1.SetError(txtxlprice, "")
  906.         End If
  907.     End Sub
  909.     Private Sub txtxjprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtxjprice.Validating
  910.         If Not IsNumeric(txtxjprice.Text) Or txtxjprice.Text = String.Empty Then
  911.             ErrorProvider1.SetError(txtxjprice, "不是数值类型且不能为空。")
  912.             e.Cancel = True
  913.         Else
  914.             ErrorProvider1.SetError(txtxjprice, "")
  915.         End If
  916.     End Sub
  918.     Private Sub txtxzprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtxzprice.Validating
  919.         If Not IsNumeric(txtxzprice.Text) Or txtxzprice.Text = String.Empty Then
  920.             ErrorProvider1.SetError(txtxzprice, "不是数值类型且不能为空。")
  921.             e.Cancel = True
  922.         Else
  923.             ErrorProvider1.SetError(txtxzprice, "")
  924.         End If
  925.     End Sub
  927.     Private Sub cbojsr_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cbojsr.Validating
  928.         If cbojsr.Text = String.Empty Then
  929.             ErrorProvider1.SetError(cbojsr, "不能为空!")
  931.             e.Cancel = True
  932.         Else
  933.             ErrorProvider1.SetError(cbojsr, "")
  934.         End If
  935.     End Sub
  937.     Private Sub frmTj_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  938.         tbnsave.Enabled = False
  939.         dslocals.Clear()
  940.         dgview.DataSource = dslocals.Tables("wz_tj").DefaultView
  941.     End Sub
  942.     Public Sub add()
  943.         dslocals.Clear()
  944.         txtmednumber.Text() = ""
  945.         txtmednumber.Focus()
  947.         txtNo.Text = 1
  948.         Dim mmdr As System.Data.SqlClient.SqlDataReader
  949.         
  950.         mmdr = lsweb.returnDataReader("select 操作员 from wz_mm")
  951.         Do While mmdr.Read()
  952.             cbojsr.Items.Add(mmdr("操作员"))
  953.         Loop
  955.         txtbillnumber.Text = lsweb.selectbill("TJ").ToString
  956.         txtmedname.Text() = ""
  957.         txtmedrule.Text() = ""
  958.         txtUnit.Text() = ""
  959.         txtjj.Text() = CStr(0)
  960.         txtsj.Text() = CStr(0)
  961.         txtPprice.Text() = CStr(0)
  962.         txtLprice.Text() = CStr(0)
  963.         txtJprice.Text() = CStr(0)
  964.         txtzprice.Text() = CStr(0)
  965.         txtxjj.Text() = CStr(0)
  966.         txtxsj.Text() = CStr(0)
  967.         txtxpprice.Text() = CStr(0)
  968.         txtxlprice.Text() = CStr(0)
  969.         txtxjprice.Text() = CStr(0)
  970.         txtxzprice.Text() = CStr(0)
  971.         txtyw.Text = ""
  972.         txtzy.Text = ""
  974.     End Sub
  976.     Private Sub clear()
  979.         txtNo.ReadOnly = True
  980.         cbojsr.Enabled = False
  983.         txtmednumber.Text = ""
  984.         txtmedname.Text() = ""
  985.         txtmedrule.Text() = ""
  986.         txtUnit.Text() = ""
  987.        
  988.         txtJJ.Text() = 0.0
  989.         txtsj.Text() = 0.0
  990.         txtPprice.Text() = CStr(0.0)
  991.         txtLprice.Text() = CStr(0.0)
  992.         txtJprice.Text() = CStr(0.0)
  993.         txtzprice.Text() = CStr(0.0)
  995.         txtxjj.Text() = 0.0
  996.         txtxsj.Text() = 0.0
  997.         txtxpprice.Text() = CStr(0.0)
  998.         txtxlprice.Text() = CStr(0.0)
  999.         txtxjprice.Text() = CStr(0.0)
  1000.         txtxzprice.Text() = CStr(0.0)
  1001.         txtzy.Text = ""
  1002.         txtyw.Text = ""
  1004.     End Sub
  1006.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  1007.         If strboolean = "tbnAdd.Enabled = True" Then
  1008.             tbnsave.Enabled = False
  1009.             tbnprint.Enabled = False
  1010.             tbnexit.Enabled = True
  1011.         ElseIf strboolean = "tbnAdd.Enabled = False" Then
  1012.             tbnAdd.Enabled = False
  1013.             tbnsave.Enabled = True
  1014.             tbnprint.Enabled = True
  1015.             tbnexit.Enabled = True
  1016.         ElseIf strboolean = "tbnSave.Enabled = True" Then
  1017.             tbnAdd.Enabled = False
  1018.             tbnprint.Enabled = True
  1019.             tbnexit.Enabled = True
  1020.         ElseIf strboolean = "tbnSave.Enabled = False" Then
  1021.             tbnsave.Enabled = False
  1022.             tbnAdd.Enabled = True
  1023.             tbnprint.Enabled = True
  1024.             tbnexit.Enabled = True
  1025.         End If
  1026.     End Sub
  1027.     Private Sub save()
  1028.         If lsweb.updatedataset("select 序号,药品编号,药品名称,药品规格,单位,进价,售价,批发价,零售价,建议价,最低价,现进价,现售价,现批发价,现零售价,现建议价,现最低价,票号,摘要,经手人,业务 from wz_tj", "wz_tj", dslocals, DataRowState.Added) = True Then
  1029.             MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  1030.         Else
  1031.             MessageBox.Show("信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  1032.         End If
  1034.     End Sub
  1036.     Private Sub txtyw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtyw.KeyDown
  1038.         If e.KeyCode = Keys.Enter Then
  1039.             Static i As Int16
  1040.             i = i + 1
  1041.             txtno.Text = CStr(i)
  1042.             Dim dr As DataRow = dslocals.Tables("wz_tj").NewRow()
  1043.             dr("序号") = CInt(Me.txtno.Text.Trim)
  1044.             dr("票号") = Me.txtbillnumber.Text.Trim
  1045.             dr("药品编号") = Me.txtmednumber.Text.Trim
  1046.             dr("药品名称") = Me.txtmedname.Text.Trim
  1047.             dr("药品规格") = Me.txtmedrule.Text.Trim
  1048.             dr("单位") = Me.txtunit.Text.Trim
  1049.             dr("进价") = CDec(Me.txtjj.Text.Trim)
  1050.             dr("现进价") = CDec(Me.txtxjj.Text.Trim)
  1051.             dr("售价") = CDec(Me.txtsj.Text.Trim)
  1052.             dr("现售价") = CDec(Me.txtxsj.Text.Trim)
  1053.             dr("批发价") = CDec(Me.txtpprice.Text.Trim)
  1054.             dr("零售价") = CDec(Me.txtlprice.Text.Trim)
  1055.             dr("建议价") = CDec(Me.txtjprice.Text.Trim)
  1056.             dr("最低价") = CDec(Me.txtzprice.Text.Trim)
  1057.             dr("现批发价") = CDec(Me.txtxpprice.Text.Trim)
  1058.             dr("现零售价") = CDec(Me.txtxlprice.Text.Trim)
  1059.             dr("现建议价") = CDec(Me.txtxjprice.Text.Trim)
  1060.             dr("现最低价") = CDec(Me.txtxzprice.Text.Trim)
  1061.             dr("摘要") = Me.txtzy.Text.Trim
  1062.             dr("经手人") = Me.cbojsr.Text.Trim
  1063.             dr("业务") = Me.txtyw.Text.Trim
  1064.             dslocals.Tables("wz_tj").Rows.Add(dr)
  1065.             txtmednumber.Focus()
  1066.             ' clear()
  1068.         End If
  1071.         dgview.DataSource = dslocals.Tables("wz_tj").DefaultView
  1072.     End Sub
  1074.     Private Sub tbntj_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbntj.ButtonClick
  1075.         Select Case e.Button.Text
  1076.             Case "添加"
  1077.                 add()
  1078.                 tbnEnable("tbnAdd.Enabled = False", tbntj)
  1079.             Case "保存"
  1080.                 save()
  1081.                 tbnEnable("tbnSave.Enabled = False", tbntj)
  1082.             Case "退出"
  1083.                 Me.Close()
  1085.         End Select
  1086.     End Sub
  1087. End Class