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

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

医药行业

开发平台：

Visual Basic

frmCp.vb：源码内容
  1. 'Imports webJxc.WebReference
  2. 'Imports webJxc.frmCp
  3. Imports Microsoft.VisualBasic
  6. Public Class frmCp
  7.     Inherits System.Windows.Forms.Form
  9. #Region " Windows 窗体设计器生成的代码 "
  11.     Public Sub New()
  12.         MyBase.New()
  14.         '该调用是 Windows 窗体设计器所必需的。
  15.         InitializeComponent()
  17.         '在 InitializeComponent() 调用之后添加任何初始化
  19.     End Sub
  21.     '窗体重写 dispose 以清理组件列表。
  22.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  23.         If disposing Then
  24.             If Not (components Is Nothing) Then
  25.                 components.Dispose()
  26.             End If
  27.         End If
  28.         MyBase.Dispose(disposing)
  29.     End Sub
  31.     'Windows 窗体设计器所必需的
  32.     Private components As System.ComponentModel.IContainer
  34.     '注意: 以下过程是 Windows 窗体设计器所必需的
  35.     '可以使用 Windows 窗体设计器修改此过程。
  36.     '不要使用代码编辑器修改它。
  37.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  38.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  39.     Friend WithEvents tbrCp As System.Windows.Forms.ToolBar
  40.     Friend WithEvents dgcp As System.Windows.Forms.DataGrid
  41.     Friend WithEvents tbrAdd As System.Windows.Forms.ToolBarButton
  42.     Friend WithEvents tbrSave As System.Windows.Forms.ToolBarButton
  43.     Friend WithEvents tbrModify As System.Windows.Forms.ToolBarButton
  44.     Friend WithEvents tbrDelete As System.Windows.Forms.ToolBarButton
  45.     Friend WithEvents tbrPrint As System.Windows.Forms.ToolBarButton
  46.     Friend WithEvents Label1 As System.Windows.Forms.Label
  47.     Friend WithEvents Label2 As System.Windows.Forms.Label
  48.     Friend WithEvents Label3 As System.Windows.Forms.Label
  49.     Friend WithEvents Label4 As System.Windows.Forms.Label
  50.     Friend WithEvents Label5 As System.Windows.Forms.Label
  51.     Friend WithEvents Label6 As System.Windows.Forms.Label
  52.     Friend WithEvents Label7 As System.Windows.Forms.Label
  53.     Friend WithEvents Label8 As System.Windows.Forms.Label
  54.     Friend WithEvents Label9 As System.Windows.Forms.Label
  55.     Friend WithEvents Label10 As System.Windows.Forms.Label
  56.     Friend WithEvents Label11 As System.Windows.Forms.Label
  57.     Friend WithEvents Label12 As System.Windows.Forms.Label
  58.     Friend WithEvents Label13 As System.Windows.Forms.Label
  59.     Friend WithEvents txtName As System.Windows.Forms.TextBox
  60.     Friend WithEvents txtRule As System.Windows.Forms.TextBox
  61.     Friend WithEvents txtNumber As System.Windows.Forms.TextBox
  62.     Friend WithEvents txtPrice As System.Windows.Forms.TextBox
  63.     Friend WithEvents txtSprice As System.Windows.Forms.TextBox
  64.     Friend WithEvents txtUnit As System.Windows.Forms.TextBox
  65.     Friend WithEvents txtKl As System.Windows.Forms.TextBox
  66.     Friend WithEvents txtAddress As System.Windows.Forms.TextBox
  67.     Friend WithEvents txtProduct As System.Windows.Forms.TextBox
  68.     Friend WithEvents txtPprice As System.Windows.Forms.TextBox
  69.     Friend WithEvents txtLprice As System.Windows.Forms.TextBox
  70.     Friend WithEvents txtAvaid As System.Windows.Forms.TextBox
  71.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  72.     Friend WithEvents Label14 As System.Windows.Forms.Label
  73.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  74.     Friend WithEvents cboType As System.Windows.Forms.ComboBox
  75.     Friend WithEvents tbrSeparator As System.Windows.Forms.ToolBarButton
  76.     Friend WithEvents tbrExit As System.Windows.Forms.ToolBarButton
  77.     Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
  78.     Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
  79.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  80.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  81.     Friend WithEvents txtQuery As System.Windows.Forms.TextBox
  82.     Friend WithEvents Label15 As System.Windows.Forms.Label
  83.     Friend WithEvents Label16 As System.Windows.Forms.Label
  84.     Friend WithEvents txtjprice As System.Windows.Forms.TextBox
  85.     Friend WithEvents txtzprice As System.Windows.Forms.TextBox
  86.     Friend WithEvents txtmednumber As System.Windows.Forms.Label
  87.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  88.         Me.components = New System.ComponentModel.Container
  89.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmCp))
  90.         Me.tbrCp = New System.Windows.Forms.ToolBar
  91.         Me.tbrAdd = New System.Windows.Forms.ToolBarButton
  92.         Me.tbrSave = New System.Windows.Forms.ToolBarButton
  93.         Me.tbrModify = New System.Windows.Forms.ToolBarButton
  94.         Me.tbrDelete = New System.Windows.Forms.ToolBarButton
  95.         Me.tbrPrint = New System.Windows.Forms.ToolBarButton
  96.         Me.tbrSeparator = New System.Windows.Forms.ToolBarButton
  97.         Me.tbrExit = New System.Windows.Forms.ToolBarButton
  98.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  99.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  100.         Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel
  101.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  102.         Me.txtmednumber = New System.Windows.Forms.Label
  103.         Me.txtzprice = New System.Windows.Forms.TextBox
  104.         Me.txtjprice = New System.Windows.Forms.TextBox
  105.         Me.Label16 = New System.Windows.Forms.Label
  106.         Me.Label15 = New System.Windows.Forms.Label
  107.         Me.cboType = New System.Windows.Forms.ComboBox
  108.         Me.txtAvaid = New System.Windows.Forms.TextBox
  109.         Me.txtLprice = New System.Windows.Forms.TextBox
  110.         Me.txtPprice = New System.Windows.Forms.TextBox
  111.         Me.txtProduct = New System.Windows.Forms.TextBox
  112.         Me.txtAddress = New System.Windows.Forms.TextBox
  113.         Me.txtKl = New System.Windows.Forms.TextBox
  114.         Me.txtUnit = New System.Windows.Forms.TextBox
  115.         Me.txtSprice = New System.Windows.Forms.TextBox
  116.         Me.txtPrice = New System.Windows.Forms.TextBox
  117.         Me.txtNumber = New System.Windows.Forms.TextBox
  118.         Me.txtRule = New System.Windows.Forms.TextBox
  119.         Me.txtName = New System.Windows.Forms.TextBox
  120.         Me.Label13 = New System.Windows.Forms.Label
  121.         Me.Label12 = New System.Windows.Forms.Label
  122.         Me.Label11 = New System.Windows.Forms.Label
  123.         Me.Label10 = New System.Windows.Forms.Label
  124.         Me.Label9 = New System.Windows.Forms.Label
  125.         Me.Label8 = New System.Windows.Forms.Label
  126.         Me.Label7 = New System.Windows.Forms.Label
  127.         Me.Label6 = New System.Windows.Forms.Label
  128.         Me.Label5 = New System.Windows.Forms.Label
  129.         Me.Label4 = New System.Windows.Forms.Label
  130.         Me.Label3 = New System.Windows.Forms.Label
  131.         Me.Label2 = New System.Windows.Forms.Label
  132.         Me.Label1 = New System.Windows.Forms.Label
  133.         Me.dgcp = New System.Windows.Forms.DataGrid
  134.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  135.         Me.txtQuery = New System.Windows.Forms.TextBox
  136.         Me.btnQuery = New System.Windows.Forms.Button
  137.         Me.Label14 = New System.Windows.Forms.Label
  138.         Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
  139.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  140.         CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
  141.         Me.GroupBox1.SuspendLayout()
  142.         CType(Me.dgcp, System.ComponentModel.ISupportInitialize).BeginInit()
  143.         Me.GroupBox2.SuspendLayout()
  144.         Me.SuspendLayout()
  145.         '
  146.         'tbrCp
  147.         '
  148.         Me.tbrCp.AllowDrop = True
  149.         Me.tbrCp.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  150.         Me.tbrCp.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrAdd, Me.tbrSave, Me.tbrModify, Me.tbrDelete, Me.tbrPrint, Me.tbrSeparator, Me.tbrExit})
  151.         Me.tbrCp.DropDownArrows = True
  152.         Me.tbrCp.ImageList = Me.ImageList2
  153.         Me.tbrCp.Location = New System.Drawing.Point(0, 0)
  154.         Me.tbrCp.Name = "tbrCp"
  155.         Me.tbrCp.ShowToolTips = True
  156.         Me.tbrCp.Size = New System.Drawing.Size(712, 41)
  157.         Me.tbrCp.TabIndex = 0
  158.         '
  159.         'tbrAdd
  160.         '
  161.         Me.tbrAdd.ImageIndex = 7
  162.         Me.tbrAdd.Text = "添加"
  163.         '
  164.         'tbrSave
  165.         '
  166.         Me.tbrSave.ImageIndex = 4
  167.         Me.tbrSave.Text = "保存"
  168.         '
  169.         'tbrModify
  170.         '
  171.         Me.tbrModify.ImageIndex = 5
  172.         Me.tbrModify.Text = "修改"
  173.         '
  174.         'tbrDelete
  175.         '
  176.         Me.tbrDelete.ImageIndex = 6
  177.         Me.tbrDelete.Text = "删除"
  178.         '
  179.         'tbrPrint
  180.         '
  181.         Me.tbrPrint.ImageIndex = 12
  182.         Me.tbrPrint.Text = "打印"
  183.         '
  184.         'tbrSeparator
  185.         '
  186.         Me.tbrSeparator.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  187.         Me.tbrSeparator.Text = "退出"
  188.         '
  189.         'tbrExit
  190.         '
  191.         Me.tbrExit.ImageIndex = 11
  192.         Me.tbrExit.Text = "退出"
  193.         '
  194.         'ImageList2
  195.         '
  196.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  197.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  198.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  199.         '
  200.         'StatusBar1
  201.         '
  202.         Me.StatusBar1.Location = New System.Drawing.Point(0, 449)
  203.         Me.StatusBar1.Name = "StatusBar1"
  204.         Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1})
  205.         Me.StatusBar1.Size = New System.Drawing.Size(712, 21)
  206.         Me.StatusBar1.TabIndex = 1
  207.         '
  208.         'StatusBarPanel1
  209.         '
  210.         Me.StatusBarPanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
  211.         Me.StatusBarPanel1.Icon = CType(resources.GetObject("StatusBarPanel1.Icon"), System.Drawing.Icon)
  212.         Me.StatusBarPanel1.Text = "StatusBarPanel1"
  213.         '
  214.         'GroupBox1
  215.         '
  216.         Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  217.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  218.         Me.GroupBox1.Controls.Add(Me.txtmednumber)
  219.         Me.GroupBox1.Controls.Add(Me.txtzprice)
  220.         Me.GroupBox1.Controls.Add(Me.txtjprice)
  221.         Me.GroupBox1.Controls.Add(Me.Label16)
  222.         Me.GroupBox1.Controls.Add(Me.Label15)
  223.         Me.GroupBox1.Controls.Add(Me.cboType)
  224.         Me.GroupBox1.Controls.Add(Me.txtAvaid)
  225.         Me.GroupBox1.Controls.Add(Me.txtLprice)
  226.         Me.GroupBox1.Controls.Add(Me.txtPprice)
  227.         Me.GroupBox1.Controls.Add(Me.txtProduct)
  228.         Me.GroupBox1.Controls.Add(Me.txtAddress)
  229.         Me.GroupBox1.Controls.Add(Me.txtKl)
  230.         Me.GroupBox1.Controls.Add(Me.txtUnit)
  231.         Me.GroupBox1.Controls.Add(Me.txtSprice)
  232.         Me.GroupBox1.Controls.Add(Me.txtPrice)
  233.         Me.GroupBox1.Controls.Add(Me.txtNumber)
  234.         Me.GroupBox1.Controls.Add(Me.txtRule)
  235.         Me.GroupBox1.Controls.Add(Me.txtName)
  236.         Me.GroupBox1.Controls.Add(Me.Label13)
  237.         Me.GroupBox1.Controls.Add(Me.Label12)
  238.         Me.GroupBox1.Controls.Add(Me.Label11)
  239.         Me.GroupBox1.Controls.Add(Me.Label10)
  240.         Me.GroupBox1.Controls.Add(Me.Label9)
  241.         Me.GroupBox1.Controls.Add(Me.Label8)
  242.         Me.GroupBox1.Controls.Add(Me.Label7)
  243.         Me.GroupBox1.Controls.Add(Me.Label6)
  244.         Me.GroupBox1.Controls.Add(Me.Label5)
  245.         Me.GroupBox1.Controls.Add(Me.Label4)
  246.         Me.GroupBox1.Controls.Add(Me.Label3)
  247.         Me.GroupBox1.Controls.Add(Me.Label2)
  248.         Me.GroupBox1.Controls.Add(Me.Label1)
  249.         Me.GroupBox1.Location = New System.Drawing.Point(6, 56)
  250.         Me.GroupBox1.Name = "GroupBox1"
  251.         Me.GroupBox1.Size = New System.Drawing.Size(703, 160)
  252.         Me.GroupBox1.TabIndex = 2
  253.         Me.GroupBox1.TabStop = False
  254.         Me.GroupBox1.Text = "添加药品信息"
  255.         '
  256.         'txtmednumber
  257.         '
  258.         Me.txtmednumber.Location = New System.Drawing.Point(344, 120)
  259.         Me.txtmednumber.Name = "txtmednumber"
  260.         Me.txtmednumber.TabIndex = 31
  261.         '
  262.         'txtzprice
  263.         '
  264.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtzprice, True)
  265.         Me.MsdnTextboxValidator1.SetDataType(Me.txtzprice, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  266.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtzprice, "")
  267.         Me.txtzprice.Location = New System.Drawing.Point(216, 88)
  268.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtzprice, "")
  269.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtzprice, "")
  270.         Me.txtzprice.Name = "txtzprice"
  271.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtzprice, "")
  272.         Me.MsdnTextboxValidator1.SetRequired(Me.txtzprice, False)
  273.         Me.txtzprice.Size = New System.Drawing.Size(78, 21)
  274.         Me.txtzprice.TabIndex = 30
  275.         Me.txtzprice.Text = ""
  276.         '
  277.         'txtjprice
  278.         '
  279.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtjprice, True)
  280.         Me.MsdnTextboxValidator1.SetDataType(Me.txtjprice, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  281.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtjprice, "")
  282.         Me.txtjprice.Location = New System.Drawing.Point(60, 88)
  283.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtjprice, "")
  284.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtjprice, "")
  285.         Me.txtjprice.Name = "txtjprice"
  286.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtjprice, "")
  287.         Me.MsdnTextboxValidator1.SetRequired(Me.txtjprice, False)
  288.         Me.txtjprice.Size = New System.Drawing.Size(84, 21)
  289.         Me.txtjprice.TabIndex = 29
  290.         Me.txtjprice.Text = ""
  291.         '
  292.         'Label16
  293.         '
  294.         Me.Label16.AutoSize = True
  295.         Me.Label16.Location = New System.Drawing.Point(176, 96)
  296.         Me.Label16.Name = "Label16"
  297.         Me.Label16.Size = New System.Drawing.Size(48, 17)
  298.         Me.Label16.TabIndex = 28
  299.         Me.Label16.Text = "最低价:"
  300.         '
  301.         'Label15
  302.         '
  303.         Me.Label15.AutoSize = True
  304.         Me.Label15.Location = New System.Drawing.Point(20, 96)
  305.         Me.Label15.Name = "Label15"
  306.         Me.Label15.Size = New System.Drawing.Size(48, 17)
  307.         Me.Label15.TabIndex = 27
  308.         Me.Label15.Text = "建议价:"
  309.         '
  310.         'cboType
  311.         '
  312.         Me.cboType.Items.AddRange(New Object() {"P01:抗生素", "P02:其它抗菌药", "P03:维生素，激素，生化类", "P04:解热止痛感冒药", "P05:中枢药", "P06:心血管药", "P07:消化系统药", "P08:其它西药", "P09:中药", "Z01:抗生素", "Z02:其他抗菌素", "Z03:维生素，激素，生化类", "Z04:电解质，大输液", "Z05:麻醉，镇静，抗过敏，解热止痛", "Z06:心血管，血液，利尿药", "Z07:中药制剂", "Z08:其它", "F01:西药粉剂", "F02:中药制剂", "K01:抗菌类", "K02:西药液体", "K03:感冒止咳", "K04:中药治疗类", "K05:营养滋补类", "K06:其它", "W01:眼用药", "W02:五官科药材", "W03:栓剂", "W04:皮肤用", "W05:贴膏", "W06:液体制剂", "W07:外用粉剂", "B01:保健药品", "B02:保健食品", "B03:消字号", "Q01:敷料", "Q02:一次性布料", "Q03:一次性针筒", "Q04:一次性输液器", "Q05:一次性针头", "Q06:一次性其他用品", "Q07:医用材料", "Q08:医用器械"})
  313.         Me.cboType.Location = New System.Drawing.Point(216, 24)
  314.         Me.cboType.Name = "cboType"
  315.         Me.cboType.Size = New System.Drawing.Size(78, 20)
  316.         Me.cboType.TabIndex = 26
  317.         '
  318.         'txtAvaid
  319.         '
  320.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAvaid, True)
  321.         Me.MsdnTextboxValidator1.SetDataType(Me.txtAvaid, MSDNTextboxValidator.DataTypeConstants.StringType)
  322.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAvaid, "")
  323.         Me.txtAvaid.Location = New System.Drawing.Point(462, 88)
  324.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAvaid, "")
  325.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtAvaid, "")
  326.         Me.txtAvaid.Name = "txtAvaid"
  327.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAvaid, "")
  328.         Me.MsdnTextboxValidator1.SetRequired(Me.txtAvaid, False)
  329.         Me.txtAvaid.Size = New System.Drawing.Size(72, 21)
  330.         Me.txtAvaid.TabIndex = 25
  331.         Me.txtAvaid.Text = ""
  332.         '
  333.         'txtLprice
  334.         '
  335.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtLprice, True)
  336.         Me.MsdnTextboxValidator1.SetDataType(Me.txtLprice, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  337.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtLprice, "")
  338.         Me.txtLprice.Location = New System.Drawing.Point(600, 56)
  339.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtLprice, "")
  340.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtLprice, "")
  341.         Me.txtLprice.Name = "txtLprice"
  342.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtLprice, "")
  343.         Me.MsdnTextboxValidator1.SetRequired(Me.txtLprice, False)
  344.         Me.txtLprice.Size = New System.Drawing.Size(90, 21)
  345.         Me.txtLprice.TabIndex = 24
  346.         Me.txtLprice.Text = ""
  347.         '
  348.         'txtPprice
  349.         '
  350.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPprice, True)
  351.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPprice, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  352.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPprice, "")
  353.         Me.txtPprice.Location = New System.Drawing.Point(462, 56)
  354.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPprice, "")
  355.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPprice, "")
  356.         Me.txtPprice.Name = "txtPprice"
  357.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPprice, "")
  358.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPprice, False)
  359.         Me.txtPprice.Size = New System.Drawing.Size(72, 21)
  360.         Me.txtPprice.TabIndex = 23
  361.         Me.txtPprice.Text = ""
  362.         '
  363.         'txtProduct
  364.         '
  365.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtProduct, True)
  366.         Me.MsdnTextboxValidator1.SetDataType(Me.txtProduct, MSDNTextboxValidator.DataTypeConstants.StringType)
  367.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtProduct, "")
  368.         Me.txtProduct.Location = New System.Drawing.Point(60, 120)
  369.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtProduct, "")
  370.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtProduct, "")
  371.         Me.txtProduct.Name = "txtProduct"
  372.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtProduct, "")
  373.         Me.MsdnTextboxValidator1.SetRequired(Me.txtProduct, False)
  374.         Me.txtProduct.Size = New System.Drawing.Size(236, 21)
  375.         Me.txtProduct.TabIndex = 22
  376.         Me.txtProduct.Text = ""
  377.         '
  378.         'txtAddress
  379.         '
  380.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAddress, True)
  381.         Me.MsdnTextboxValidator1.SetDataType(Me.txtAddress, MSDNTextboxValidator.DataTypeConstants.StringType)
  382.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAddress, "")
  383.         Me.txtAddress.Location = New System.Drawing.Point(600, 88)
  384.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAddress, "")
  385.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtAddress, "")
  386.         Me.txtAddress.Name = "txtAddress"
  387.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAddress, "")
  388.         Me.MsdnTextboxValidator1.SetRequired(Me.txtAddress, False)
  389.         Me.txtAddress.Size = New System.Drawing.Size(90, 21)
  390.         Me.txtAddress.TabIndex = 21
  391.         Me.txtAddress.Text = ""
  392.         '
  393.         'txtKl
  394.         '
  395.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtKl, True)
  396.         Me.MsdnTextboxValidator1.SetDataType(Me.txtKl, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  397.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtKl, "")
  398.         Me.txtKl.Location = New System.Drawing.Point(366, 88)
  399.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtKl, "")
  400.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtKl, "")
  401.         Me.txtKl.Name = "txtKl"
  402.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtKl, "")
  403.         Me.MsdnTextboxValidator1.SetRequired(Me.txtKl, False)
  404.         Me.txtKl.Size = New System.Drawing.Size(40, 21)
  405.         Me.txtKl.TabIndex = 20
  406.         Me.txtKl.Text = ""
  407.         '
  408.         'txtUnit
  409.         '
  410.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtUnit, True)
  411.         Me.MsdnTextboxValidator1.SetDataType(Me.txtUnit, MSDNTextboxValidator.DataTypeConstants.StringType)
  412.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtUnit, "")
  413.         Me.txtUnit.Location = New System.Drawing.Point(366, 56)
  414.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtUnit, "")
  415.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtUnit, "")
  416.         Me.txtUnit.Name = "txtUnit"
  417.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtUnit, "")
  418.         Me.MsdnTextboxValidator1.SetRequired(Me.txtUnit, False)
  419.         Me.txtUnit.Size = New System.Drawing.Size(40, 21)
  420.         Me.txtUnit.TabIndex = 19
  421.         Me.txtUnit.Text = ""
  422.         '
  423.         'txtSprice
  424.         '
  425.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtSprice, True)
  426.         Me.MsdnTextboxValidator1.SetDataType(Me.txtSprice, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  427.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtSprice, "")
  428.         Me.txtSprice.Location = New System.Drawing.Point(216, 56)
  429.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtSprice, "")
  430.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtSprice, "")
  431.         Me.txtSprice.Name = "txtSprice"
  432.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtSprice, "")
  433.         Me.MsdnTextboxValidator1.SetRequired(Me.txtSprice, False)
  434.         Me.txtSprice.Size = New System.Drawing.Size(78, 21)
  435.         Me.txtSprice.TabIndex = 18
  436.         Me.txtSprice.Text = ""
  437.         '
  438.         'txtPrice
  439.         '
  440.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPrice, True)
  441.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPrice, MSDNTextboxValidator.DataTypeConstants.DecimalType)
  442.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPrice, "")
  443.         Me.txtPrice.Location = New System.Drawing.Point(60, 56)
  444.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPrice, "")
  445.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPrice, "")
  446.         Me.txtPrice.Name = "txtPrice"
  447.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPrice, "")
  448.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPrice, False)
  449.         Me.txtPrice.Size = New System.Drawing.Size(84, 21)
  450.         Me.txtPrice.TabIndex = 17
  451.         Me.txtPrice.Text = ""
  452.         '
  453.         'txtNumber
  454.         '
  455.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNumber, True)
  456.         Me.MsdnTextboxValidator1.SetDataType(Me.txtNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  457.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNumber, "")
  458.         Me.txtNumber.Location = New System.Drawing.Point(600, 24)
  459.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNumber, "")
  460.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtNumber, "")
  461.         Me.txtNumber.Name = "txtNumber"
  462.         Me.txtNumber.ReadOnly = True
  463.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNumber, "")
  464.         Me.MsdnTextboxValidator1.SetRequired(Me.txtNumber, False)
  465.         Me.txtNumber.Size = New System.Drawing.Size(90, 21)
  466.         Me.txtNumber.TabIndex = 16
  467.         Me.txtNumber.Text = ""
  468.         '
  469.         'txtRule
  470.         '
  471.         Me.txtRule.BackColor = System.Drawing.SystemColors.HighlightText
  472.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtRule, True)
  473.         Me.MsdnTextboxValidator1.SetDataType(Me.txtRule, MSDNTextboxValidator.DataTypeConstants.StringType)
  474.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtRule, "")
  475.         Me.txtRule.Location = New System.Drawing.Point(366, 25)
  476.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtRule, "")
  477.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtRule, "")
  478.         Me.txtRule.Name = "txtRule"
  479.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtRule, "")
  480.         Me.MsdnTextboxValidator1.SetRequired(Me.txtRule, False)
  481.         Me.txtRule.Size = New System.Drawing.Size(168, 21)
  482.         Me.txtRule.TabIndex = 15
  483.         Me.txtRule.Text = ""
  484.         '
  485.         'txtName
  486.         '
  487.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtName, True)
  488.         Me.MsdnTextboxValidator1.SetDataType(Me.txtName, MSDNTextboxValidator.DataTypeConstants.StringType)
  489.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtName, "")
  490.         Me.txtName.Location = New System.Drawing.Point(60, 24)
  491.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtName, "")
  492.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtName, "")
  493.         Me.txtName.Name = "txtName"
  494.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtName, "")
  495.         Me.MsdnTextboxValidator1.SetRequired(Me.txtName, False)
  496.         Me.txtName.Size = New System.Drawing.Size(84, 21)
  497.         Me.txtName.TabIndex = 13
  498.         Me.txtName.Text = ""
  499.         '
  500.         'Label13
  501.         '
  502.         Me.Label13.AutoSize = True
  503.         Me.Label13.Location = New System.Drawing.Point(560, 64)
  504.         Me.Label13.Name = "Label13"
  505.         Me.Label13.Size = New System.Drawing.Size(48, 17)
  506.         Me.Label13.TabIndex = 12
  507.         Me.Label13.Text = "零售价:"
  508.         '
  509.         'Label12
  510.         '
  511.         Me.Label12.AutoSize = True
  512.         Me.Label12.Location = New System.Drawing.Point(422, 62)
  513.         Me.Label12.Name = "Label12"
  514.         Me.Label12.Size = New System.Drawing.Size(48, 17)
  515.         Me.Label12.TabIndex = 11
  516.         Me.Label12.Text = "批发价:"
  517.         '
  518.         'Label11
  519.         '
  520.         Me.Label11.AutoSize = True
  521.         Me.Label11.Location = New System.Drawing.Point(422, 96)
  522.         Me.Label11.Name = "Label11"
  523.         Me.Label11.Size = New System.Drawing.Size(48, 17)
  524.         Me.Label11.TabIndex = 10
  525.         Me.Label11.Text = "有效期:"
  526.         '
  527.         'Label10
  528.         '
  529.         Me.Label10.AutoSize = True
  530.         Me.Label10.Location = New System.Drawing.Point(8, 128)
  531.         Me.Label10.Name = "Label10"
  532.         Me.Label10.Size = New System.Drawing.Size(60, 17)
  533.         Me.Label10.TabIndex = 9
  534.         Me.Label10.Text = "生产厂家:"
  535.         '
  536.         'Label9
  537.         '
  538.         Me.Label9.AutoSize = True
  539.         Me.Label9.Location = New System.Drawing.Point(572, 96)
  540.         Me.Label9.Name = "Label9"
  541.         Me.Label9.Size = New System.Drawing.Size(35, 17)
  542.         Me.Label9.TabIndex = 8
  543.         Me.Label9.Text = "产地:"
  544.         '
  545.         'Label8
  546.         '
  547.         Me.Label8.AutoSize = True
  548.         Me.Label8.Location = New System.Drawing.Point(338, 96)
  549.         Me.Label8.Name = "Label8"
  550.         Me.Label8.Size = New System.Drawing.Size(35, 17)
  551.         Me.Label8.TabIndex = 7
  552.         Me.Label8.Text = "扣率:"
  553.         '
  554.         'Label7
  555.         '
  556.         Me.Label7.AutoSize = True
  557.         Me.Label7.Location = New System.Drawing.Point(188, 64)
  558.         Me.Label7.Name = "Label7"
  559.         Me.Label7.Size = New System.Drawing.Size(35, 17)
  560.         Me.Label7.TabIndex = 6
  561.         Me.Label7.Text = "售价:"
  562.         '
  563.         'Label6
  564.         '
  565.         Me.Label6.AutoSize = True
  566.         Me.Label6.Location = New System.Drawing.Point(32, 64)
  567.         Me.Label6.Name = "Label6"
  568.         Me.Label6.Size = New System.Drawing.Size(35, 17)
  569.         Me.Label6.TabIndex = 5
  570.         Me.Label6.Text = "单价:"
  571.         '
  572.         'Label5
  573.         '
  574.         Me.Label5.AutoSize = True
  575.         Me.Label5.Location = New System.Drawing.Point(338, 62)
  576.         Me.Label5.Name = "Label5"
  577.         Me.Label5.Size = New System.Drawing.Size(35, 17)
  578.         Me.Label5.TabIndex = 4
  579.         Me.Label5.Text = "单位:"
  580.         '
  581.         'Label4
  582.         '
  583.         Me.Label4.AutoSize = True
  584.         Me.Label4.Location = New System.Drawing.Point(164, 32)
  585.         Me.Label4.Name = "Label4"
  586.         Me.Label4.Size = New System.Drawing.Size(60, 17)
  587.         Me.Label4.TabIndex = 3
  588.         Me.Label4.Text = "药品类型:"
  589.         '
  590.         'Label3
  591.         '
  592.         Me.Label3.AutoSize = True
  593.         Me.Label3.Location = New System.Drawing.Point(314, 31)
  594.         Me.Label3.Name = "Label3"
  595.         Me.Label3.Size = New System.Drawing.Size(60, 17)
  596.         Me.Label3.TabIndex = 2
  597.         Me.Label3.Text = "药品规格:"
  598.         '
  599.         'Label2
  600.         '
  601.         Me.Label2.AutoSize = True
  602.         Me.Label2.Location = New System.Drawing.Point(8, 32)
  603.         Me.Label2.Name = "Label2"
  604.         Me.Label2.Size = New System.Drawing.Size(60, 17)
  605.         Me.Label2.TabIndex = 1
  606.         Me.Label2.Text = "药品名称:"
  607.         '
  608.         'Label1
  609.         '
  610.         Me.Label1.AutoSize = True
  611.         Me.Label1.Location = New System.Drawing.Point(548, 31)
  612.         Me.Label1.Name = "Label1"
  613.         Me.Label1.Size = New System.Drawing.Size(60, 17)
  614.         Me.Label1.TabIndex = 0
  615.         Me.Label1.Text = "药品编号:"
  616.         '
  617.         'dgcp
  618.         '
  619.         Me.dgcp.AlternatingBackColor = System.Drawing.Color.Gainsboro
  620.         Me.dgcp.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  621.                     Or System.Windows.Forms.AnchorStyles.Left) _
  622.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  623.         Me.dgcp.BackColor = System.Drawing.Color.Silver
  624.         Me.dgcp.BackgroundColor = System.Drawing.Color.LightGray
  625.         Me.dgcp.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  626.         Me.dgcp.CaptionBackColor = System.Drawing.Color.DarkSlateBlue
  627.         Me.dgcp.CaptionFont = New System.Drawing.Font("Tahoma", 8.0!)
  628.         Me.dgcp.CaptionForeColor = System.Drawing.Color.White
  629.         Me.dgcp.CaptionVisible = False
  630.         Me.dgcp.DataMember = ""
  631.         Me.dgcp.FlatMode = True
  632.         Me.dgcp.ForeColor = System.Drawing.Color.Black
  633.         Me.dgcp.GridLineColor = System.Drawing.Color.White
  634.         Me.dgcp.HeaderBackColor = System.Drawing.Color.DarkGray
  635.         Me.dgcp.HeaderForeColor = System.Drawing.Color.Black
  636.         Me.dgcp.LinkColor = System.Drawing.Color.DarkSlateBlue
  637.         Me.dgcp.Location = New System.Drawing.Point(6, 272)
  638.         Me.dgcp.Name = "dgcp"
  639.         Me.dgcp.ParentRowsBackColor = System.Drawing.Color.Black
  640.         Me.dgcp.ParentRowsForeColor = System.Drawing.Color.White
  641.         Me.dgcp.RowHeadersVisible = False
  642.         Me.dgcp.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
  643.         Me.dgcp.SelectionForeColor = System.Drawing.Color.White
  644.         Me.dgcp.Size = New System.Drawing.Size(703, 160)
  645.         Me.dgcp.TabIndex = 3
  646.         '
  647.         'GroupBox2
  648.         '
  649.         Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  650.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  651.         Me.GroupBox2.Controls.Add(Me.txtQuery)
  652.         Me.GroupBox2.Controls.Add(Me.btnQuery)
  653.         Me.GroupBox2.Controls.Add(Me.Label14)
  654.         Me.GroupBox2.Location = New System.Drawing.Point(6, 224)
  655.         Me.GroupBox2.Name = "GroupBox2"
  656.         Me.GroupBox2.Size = New System.Drawing.Size(703, 48)
  657.         Me.GroupBox2.TabIndex = 4
  658.         Me.GroupBox2.TabStop = False
  659.         Me.GroupBox2.Text = "查询药品信息"
  660.         '
  661.         'txtQuery
  662.         '
  663.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtQuery, True)
  664.         Me.MsdnTextboxValidator1.SetDataType(Me.txtQuery, MSDNTextboxValidator.DataTypeConstants.StringType)
  665.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtQuery, "")
  666.         Me.txtQuery.Location = New System.Drawing.Point(272, 18)
  667.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtQuery, "")
  668.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtQuery, "")
  669.         Me.txtQuery.Name = "txtQuery"
  670.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtQuery, "")
  671.         Me.MsdnTextboxValidator1.SetRequired(Me.txtQuery, False)
  672.         Me.txtQuery.Size = New System.Drawing.Size(168, 21)
  673.         Me.txtQuery.TabIndex = 3
  674.         Me.txtQuery.Text = ""
  675.         '
  676.         'btnQuery
  677.         '
  678.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  679.         Me.btnQuery.Location = New System.Drawing.Point(440, 18)
  680.         Me.btnQuery.Name = "btnQuery"
  681.         Me.btnQuery.Size = New System.Drawing.Size(88, 21)
  682.         Me.btnQuery.TabIndex = 2
  683.         Me.btnQuery.Text = "查询"
  684.         '
  685.         'Label14
  686.         '
  687.         Me.Label14.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  688.                     Or System.Windows.Forms.AnchorStyles.Left) _
  689.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  690.         Me.Label14.AutoSize = True
  691.         Me.Label14.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  692.         Me.Label14.Location = New System.Drawing.Point(126, 25)
  693.         Me.Label14.Name = "Label14"
  694.         Me.Label14.Size = New System.Drawing.Size(153, 17)
  695.         Me.Label14.TabIndex = 1
  696.         Me.Label14.Text = "请输入药品编号或拼音码："
  697.         '
  698.         'MsdnTextboxValidator1
  699.         '
  700.         Me.MsdnTextboxValidator1.DisplayControl = Nothing
  701.         Me.MsdnTextboxValidator1.ErrorProvider = Nothing
  702.         Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
  703.         Me.MsdnTextboxValidator1.TooltipProvider = Nothing
  704.         '
  705.         'ErrorProvider1
  706.         '
  707.         Me.ErrorProvider1.ContainerControl = Me
  708.         '
  709.         'frmCp
  710.         '
  711.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  712.         Me.BackColor = System.Drawing.SystemColors.Control
  713.         Me.ClientSize = New System.Drawing.Size(712, 470)
  714.         Me.Controls.Add(Me.GroupBox2)
  715.         Me.Controls.Add(Me.dgcp)
  716.         Me.Controls.Add(Me.GroupBox1)
  717.         Me.Controls.Add(Me.StatusBar1)
  718.         Me.Controls.Add(Me.tbrCp)
  719.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  720.         Me.MaximizeBox = False
  721.         Me.Name = "frmCp"
  722.         Me.Text = "药品基本信息"
  723.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  724.         CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
  725.         Me.GroupBox1.ResumeLayout(False)
  726.         CType(Me.dgcp, System.ComponentModel.ISupportInitialize).EndInit()
  727.         Me.GroupBox2.ResumeLayout(False)
  728.         Me.ResumeLayout(False)
  730.     End Sub
  732. #End Region
  733.     Public lsweb As New jxcmanage
  734.     Public dslocals As New DataSet
  735.     Public web As New WebReference.DataManager
  737.     Private Sub frmCp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  738.         dslocals = lsweb.returndataset("select * from wz_cp", "wz_cp")
  739.         dslocals.Clear()
  740.         dgcp.DataSource = dslocals.Tables("wz_cp").DefaultView
  741.         tbrSave.Enabled = False
  742.         tbrAdd.Enabled = True
  743.         tbrModify.Enabled = True
  744.         tbrDelete.Enabled = True
  745.         tbrPrint.Enabled = True
  746.         tbrExit.Enabled = True
  747.      
  749.     End Sub
  750.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  751.         If strboolean = "tbrAdd.Enabled = True" Then
  752.             tbrSave.Enabled = False
  753.             tbrModify.Enabled = False
  754.             tbrDelete.Enabled = False
  755.             tbrPrint.Enabled = False
  756.             tbrExit.Enabled = True
  758.         ElseIf strboolean = "tbrAdd.Enabled = False" Then
  759.             tbrAdd.Enabled = False
  760.             tbrSave.Enabled = True
  761.             tbrModify.Enabled = False
  762.             tbrDelete.Enabled = False
  763.             tbrPrint.Enabled = True
  764.             tbrExit.Enabled = True
  765.         ElseIf strboolean = "tbrSave.Enabled = True" Then
  766.             tbrAdd.Enabled = False
  767.             tbrModify.Enabled = False
  768.             tbrDelete.Enabled = False
  769.             tbrPrint.Enabled = True
  770.             tbrExit.Enabled = True
  771.         ElseIf strboolean = "tbrSave.Enabled = False" Then
  772.             tbrSave.Enabled = False
  773.             tbrAdd.Enabled = True
  774.             tbrModify.Enabled = True
  775.             tbrDelete.Enabled = True
  776.             tbrPrint.Enabled = True
  777.             tbrExit.Enabled = True
  778.         ElseIf strboolean = "tbrModify.Enabled = True" Then
  779.             tbrAdd.Enabled = False
  780.             tbrSave.Enabled = True
  781.             tbrDelete.Enabled = False
  782.             tbrPrint.Enabled = False
  783.             tbrExit.Enabled = True
  784.         ElseIf strboolean = "tbrModify.Enabled = False" Then
  785.             tbrModify.Enabled = False
  786.             tbrAdd.Enabled = False
  787.             tbrSave.Enabled = True
  788.             tbrDelete.Enabled = False
  789.             tbrPrint.Enabled = True
  790.             tbrExit.Enabled = True
  791.         ElseIf strboolean = "tbrDelete.Enabled = True" Then
  792.             tbrAdd.Enabled = False
  793.             tbrSave.Enabled = True
  794.             tbrModify.Enabled = False
  795.             tbrPrint.Enabled = False
  796.             tbrExit.Enabled = True
  797.         ElseIf strboolean = "tbrDelete.Enabled = False" Then
  798.             tbrDelete.Enabled = False
  799.             tbrAdd.Enabled = False
  800.             tbrSave.Enabled = True
  801.             tbrModify.Enabled = False
  802.             tbrPrint.Enabled = False
  803.             tbrExit.Enabled = True
  804.         End If
  805.     End Sub
  807.     Private Sub cboType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboType.SelectedIndexChanged
  808.         Dim cbotext As String = cboType.Text.Substring(0, 3)
  809.         Dim webserver As New jxcmanage
  810.         Dim number As Integer
  811.         number = webserver.maxint(cbotext) + 1
  812.         Dim txtnum As String = cbotext & "-"
  813.         txtNumber.Text = cbotext & "-" & Format(number, "0000")
  814.     End Sub
  815.     Private Sub tbrCp_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrCp.ButtonClick
  816.         Select Case e.Button.Text
  817.             Case "添加"
  818.                 tbnEnable("tbrAdd.Enabled = False", tbrCp)
  819.                 add()
  821.                 dslocals.Clear()
  822.                 dgcp.DataSource = dslocals.Tables("wz_cp").DefaultView
  823.             Case "保存"
  824.                 If txtNumber.Text = String.Empty Or txtPrice.Text = "" Or txtSprice.Text = "" Or txtPprice.Text = "" Or txtLprice.Text = "" Or txtjprice.Text = "" Or txtzprice.Text = "" Or txtKl.Text = "" Then
  825.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  826.                 Else
  827.                     save()
  828.                     tbnEnable("tbrSave.Enabled = False", tbrCp)
  829.                 End If
  831.             Case "修改"
  832.                 modify()
  833.                 tbnEnable("tbrModify.Enabled = False", tbrCp)
  834.             Case "删除"
  835.                 delete()
  836.                 tbnEnable("tbrDelete.Enabled = False", tbrCp)
  837.             Case "打印"
  838.                 print()
  840.             Case "退出"
  841.                 Me.Close()
  842.         End Select
  844.     End Sub
  845.     Private Sub print()
  847.         If txtQuery.Text = String.Empty Then
  848.             MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  849.         Else
  850.             Dim frmviewcper As New frmviewcp
  851.             frmviewcper.strquery = lsweb.getinfoes(txtQuery.Text)
  852.             frmviewcper.Show()
  855.         End If
  856.     End Sub
  858.     Private Sub save()
  859.         dslocals = lsweb.returndataset("select * from wz_cp", "wz_cp")
  860.         Dim dr As DataRow = dslocals.Tables(0).NewRow()
  861.         dr("药品编号") = txtNumber.Text.Trim
  862.         dr("药品名称") = txtName.Text.Trim
  863.         dr("药品规格") = txtRule.Text.Trim
  864.         dr("药品类型") = cboType.Text.Trim
  865.         dr("单位") = txtUnit.Text.Trim
  866.         dr("单价") = txtPrice.Text.Trim
  867.         dr("售价") = txtSprice.Text.Trim
  868.         dr("扣率") = txtKl.Text.Trim
  869.         dr("产地") = txtAddress.Text.Trim
  870.         dr("生产厂家") = txtProduct.Text.Trim
  871.         dr("有效期") = txtAvaid.Text.Trim
  872.         dr("批发价") = txtPprice.Text.Trim
  873.         dr("零售价") = txtLprice.Text.Trim
  874.         dr("建议价") = txtjprice.Text.Trim
  875.         dr("最低价") = txtzprice.Text.Trim
  876.         dr("数量") = 0
  877.         dr("金额") = 0
  878.         dslocals.Tables(0).Rows.Add(dr)
  879.         If lsweb.updatedataset("select * from wz_cp", "wz_cp", dslocals, DataRowState.Added) = True Then
  880.             MessageBox.Show("药品信息成功保存！", "提示", MessageBoxButtons.OK)
  881.         Else
  882.             MessageBox.Show("药品信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  883.         End If
  884.         'lsweb.Dispose()
  886.     End Sub
  887.     Private Sub modify()
  888.         'Try
  889.         ' Dim STRSQL As String
  890.         ' STRSQL = "update wz_cp set 药品编号='" & txtmednumber.Text.Trim & "',药品名称='" & txtName.Text.Trim & "',药品规格='" & txtRule.Text.Trim & "',药品类型='" & cboType.Text.Trim & "',单位='" & txtUnit.Text.Trim & "',单价=" & CDec(txtPrice.Text.Trim) & ",售价=" & CDec(txtSprice.Text.Trim) & ",扣率='" & txtKl.Text.Trim & "',产地='" & txtAddress.Text.Trim & "',生产厂家='" & txtProduct.Text.Trim & "',登记日期=getdate(),有效期='" & txtAvaid.Text.Trim & "',批发价=" & CDec(txtPprice.Text.Trim) & ",零售价=" & CDec(txtLprice.Text.Trim) & ",建议价=" & CDec(txtjprice.Text.Trim) & ",最低价=" & CDec(txtzprice.Text.Trim) & " where 药品编号='" & txtmednumber.Text.Trim & "'"
  891.         ' lsweb.runSql(STRSQL)
  892.         ' MessageBox.Show("药品信息修改成功！", "提示", MessageBoxButtons.OK)
  893.         ' Catch ex As Exception
  894.         '     MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK)
  896.         ' End Try
  897.         If lsweb.updatecp(txtmednumber.Text.Trim, txtName.Text.Trim, txtRule.Text.Trim, cboType.Text.Trim, txtUnit.Text.Trim, txtPrice.Text.Trim, txtSprice.Text.Trim, txtKl.Text.Trim, txtAddress.Text.Trim, txtProduct.Text.Trim, txtAvaid.Text.Trim, txtPprice.Text.Trim, txtLprice.Text.Trim, txtjprice.Text.Trim, txtzprice.Text.Trim) = True Then
  898.             MessageBox.Show("药品信息修改成功！", "提示", MessageBoxButtons.OK)
  899.         Else
  900.             MessageBox.Show("药品信息修改失败！", "提示", MessageBoxButtons.OK)
  901.         End If
  902.     End Sub
  903.     Private Sub add()
  904.         txtNumber.Focus()
  905.         txtNumber.Text = "".Trim()
  906.         txtName.Text = "".Trim()
  907.         txtRule.Text = "".Trim()
  908.         cboType.Text = "".Trim()
  909.         txtUnit.Text = "".Trim()
  910.         txtPrice.Text = "".Trim()
  911.         txtSprice.Text = "".Trim()
  912.         txtKl.Text = "".Trim()
  913.         txtAddress.Text = "".Trim()
  914.         txtProduct.Text = "".Trim()
  915.         txtAvaid.Text = "".Trim()
  916.         txtPprice.Text = "".Trim()
  917.         txtLprice.Text = "".Trim()
  918.         txtjprice.Text = "".Trim()
  919.         txtzprice.Text = "".Trim()
  920.     End Sub
  922.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  923.         If txtQuery.Text = "" Then
  924.             dslocals = lsweb.returndataset("select * from wz_cp", "wz_cp")
  925.             dgcp.DataSource = dslocals.Tables("wz_cp").DefaultView
  926.         Else
  927.             dslocals = lsweb.returndataset("select * from wz_cp where 药品编号 like'%" & txtQuery.Text.Trim & "%' or 拼音码 like '%" & txtQuery.Text.Trim & "%'", "wz_cp")
  928.             dgcp.DataSource = dslocals.Tables("wz_cp").DefaultView
  929.         End If
  930.     End Sub
  935.     Private Sub delete()
  937.         Dim drv As DataRowView = BindingContext(Me.dgcp.DataSource).Current
  938.         If drv(0) Is System.DBNull.Value Then
  939.             MessageBox.Show("没有要删除的记录!", "提示", MessageBoxButtons.OK)
  940.         Else
  941.             Dim strquery As String = drv(0)
  942.             If lsweb.deletecp(strquery) = True Then
  943.                 MessageBox.Show("已经删除记录啦!", "提示", MessageBoxButtons.OK)
  944.             Else
  945.                 MessageBox.Show("删除记录失败!", "提示", MessageBoxButtons.OK)
  946.             End If
  947.         End If
  954.     End Sub
  955.     Private Sub view()
  956.         Dim drv As DataRowView = BindingContext(Me.dgcp.DataSource).Current
  957.         Dim dr As DataRow
  958.         dr = drv.Row
  959.         txtmednumber.Text = IIf(dr("药品编号") Is System.DBNull.Value, "", dr("药品编号"))
  960.         txtNumber.Text = IIf(dr("药品编号") Is System.DBNull.Value, "", dr("药品编号"))
  961.         txtName.Text = IIf(dr("药品名称") Is System.DBNull.Value, "", dr("药品名称"))
  962.         txtRule.Text = IIf(dr("药品规格") Is System.DBNull.Value, "", dr("药品规格"))
  963.         cboType.Text = IIf(dr("药品类型") Is System.DBNull.Value, "", dr("药品类型"))
  964.         txtUnit.Text = IIf(dr("单位") Is System.DBNull.Value, "", dr("单位"))
  965.         txtPrice.Text = IIf(dr("单价") Is System.DBNull.Value, 0, dr("单价"))
  966.         txtSprice.Text = IIf(dr("售价") Is System.DBNull.Value, 0, dr("售价"))
  967.         txtKl.Text = IIf(dr("扣率") Is System.DBNull.Value, 0, dr("扣率"))
  968.         txtAddress.Text = IIf(dr("产地") Is System.DBNull.Value, "", dr("产地"))
  969.         txtProduct.Text = IIf(dr("生产厂家") Is System.DBNull.Value, "", dr("生产厂家"))
  970.         txtAvaid.Text = IIf(dr("有效期") Is System.DBNull.Value, "", dr("有效期"))
  971.         txtPprice.Text = IIf(dr("批发价") Is System.DBNull.Value, 0, dr("批发价"))
  972.         txtLprice.Text = IIf(dr("零售价") Is System.DBNull.Value, 0, dr("零售价"))
  973.         txtjprice.Text = IIf(dr("建议价") Is System.DBNull.Value, 0, dr("建议价"))
  974.         txtzprice.Text = IIf(dr("最低价") Is System.DBNull.Value, 0, dr("最低价"))
  975.     End Sub
  982.     Private Sub dgcp_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgcp.CurrentCellChanged
  983.         view()
  984.         tbrModify.Enabled = True
  985.         tbrDelete.Enabled = True
  986.         tbrPrint.Enabled = True
  987.         tbrExit.Enabled = True
  988.     End Sub
  992.     Private Sub txtName_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtName.KeyDown
  993.         If e.KeyCode = Keys.Enter Then
  994.             cboType.Focus()
  995.         End If
  997.     End Sub
  999.     Private Sub cboType_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboType.KeyDown
  1000.         If e.KeyCode = Keys.Enter Then
  1001.             txtRule.Focus()
  1002.         End If
  1004.     End Sub
  1008.     Private Sub txtRule_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtRule.KeyDown
  1009.         If e.KeyCode = Keys.Enter Then
  1010.             txtPrice.Focus()
  1011.         End If
  1013.     End Sub
  1017.     Private Sub txtPrice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPrice.KeyDown
  1018.         If e.KeyCode = Keys.Enter Then
  1019.             txtSprice.Focus()
  1020.         End If
  1022.     End Sub
  1026.     Private Sub txtSprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSprice.KeyDown
  1027.         If e.KeyCode = Keys.Enter Then
  1028.             txtUnit.Focus()
  1029.         End If
  1031.     End Sub
  1035.     Private Sub txtUnit_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUnit.KeyDown
  1036.         If e.KeyCode = Keys.Enter Then
  1037.             txtPprice.Focus()
  1039.         End If
  1041.     End Sub
  1045.     Private Sub txtPprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPprice.KeyDown
  1046.         If e.KeyCode = Keys.Enter Then
  1047.             txtLprice.Focus()
  1048.         End If
  1050.     End Sub
  1054.     Private Sub txtLprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtLprice.KeyDown
  1055.         If e.KeyCode = Keys.Enter Then
  1056.             txtjprice.Focus()
  1057.         End If
  1059.     End Sub
  1063.     Private Sub txtKl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtKl.KeyDown
  1064.         If e.KeyCode = Keys.Enter Then
  1065.             txtAvaid.Focus()
  1066.         End If
  1068.     End Sub
  1072.     Private Sub txtAddress_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAddress.KeyDown
  1073.         If e.KeyCode = Keys.Enter Then
  1074.             txtProduct.Focus()
  1075.         End If
  1077.     End Sub
  1081.     Private Sub txtProduct_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtProduct.KeyDown
  1082.         If e.KeyCode = Keys.Enter Then
  1083.             txtAvaid.Focus()
  1084.         End If
  1086.     End Sub
  1088.     Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtName.Validating
  1089.         If txtName.Text = String.Empty Then
  1090.             ErrorProvider1.SetError(txtName, "不能为空，请输入药品名称！")
  1091.             txtName.Focus()
  1092.         Else
  1093.             ErrorProvider1.SetError(txtName, "")
  1094.         End If
  1095.     End Sub
  1097.     Private Sub cboType_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cboType.Validating
  1098.         If cboType.Text = String.Empty Then
  1099.             ErrorProvider1.SetError(cboType, "不能为空，请选择列表栏！")
  1100.             cboType.Focus()
  1102.         Else
  1103.             ErrorProvider1.SetError(cboType, "")
  1104.         End If
  1105.     End Sub
  1107.     Private Sub txtRule_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtRule.Validating
  1108.         If txtRule.Text = String.Empty Then
  1109.             ErrorProvider1.SetError(txtRule, "不能为空，请输入药品规格！")
  1110.             txtRule.Focus()
  1112.         Else
  1113.             ErrorProvider1.SetError(txtRule, "")
  1114.         End If
  1115.     End Sub
  1117.     Private Sub txtPrice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPrice.Validating
  1118.         If Not IsNumeric(txtPrice.Text) Or txtPrice.Text = String.Empty Then
  1119.             ErrorProvider1.SetError(txtPrice, "不是数值类型且不能为空。")
  1120.             txtPrice.Focus()
  1122.         Else
  1123.             ErrorProvider1.SetError(txtPrice, "")
  1124.         End If
  1125.     End Sub
  1127.     Private Sub txtSprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtSprice.Validating
  1128.         If Not IsNumeric(txtSprice.Text) Or txtSprice.Text = String.Empty Then
  1129.             ErrorProvider1.SetError(txtSprice, "不是数值类型且不能为空。")
  1130.             txtSprice.Focus()
  1132.         Else
  1133.             ErrorProvider1.SetError(txtSprice, "")
  1134.         End If
  1135.     End Sub
  1137.     Private Sub txtUnit_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtUnit.Validating
  1138.         If txtUnit.Text = String.Empty Then
  1139.             ErrorProvider1.SetError(txtUnit, "不能为空，请输入单位！")
  1140.             txtUnit.Focus()
  1141.         Else
  1142.             ErrorProvider1.SetError(txtUnit, "")
  1143.         End If
  1144.     End Sub
  1146.     Private Sub txtPprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPprice.Validating
  1147.         If Not IsNumeric(txtPprice.Text) Or txtPprice.Text = String.Empty Then
  1148.             ErrorProvider1.SetError(txtPprice, "不是数值类型且不能为空。")
  1149.             txtPprice.Focus()
  1150.         Else
  1151.             ErrorProvider1.SetError(txtPprice, "")
  1152.         End If
  1153.     End Sub
  1155.     Private Sub txtLprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtLprice.Validating
  1156.         If Not IsNumeric(txtLprice.Text) Or txtLprice.Text = String.Empty Then
  1157.             ErrorProvider1.SetError(txtLprice, "不是数值类型且不能为空。")
  1158.             txtLprice.Focus()
  1159.         Else
  1160.             ErrorProvider1.SetError(txtLprice, "")
  1161.         End If
  1162.     End Sub
  1164.     Private Sub txtKl_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtKl.Validating
  1165.         If Not IsNumeric(txtKl.Text) Or txtKl.Text = String.Empty Then
  1166.             ErrorProvider1.SetError(txtKl, "不是数值类型且不能为空。")
  1167.             txtKl.Focus()
  1168.         Else
  1169.             ErrorProvider1.SetError(txtKl, "")
  1170.         End If
  1171.     End Sub
  1173.     Private Sub txtAddress_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtAddress.Validating
  1174.         If txtAddress.Text = String.Empty Then
  1175.             ErrorProvider1.SetError(txtAddress, "不能为空，请输入产地！")
  1176.             txtAddress.Focus()
  1177.         Else
  1178.             ErrorProvider1.SetError(txtAddress, "")
  1179.         End If
  1180.     End Sub
  1182.     Private Sub txtProduct_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtProduct.Validating
  1183.         If txtProduct.Text = String.Empty Then
  1184.             ErrorProvider1.SetError(txtProduct, "不能为空，请输入生产厂家！")
  1185.             txtProduct.Focus()
  1187.         Else
  1188.             ErrorProvider1.SetError(txtProduct, "")
  1189.         End If
  1190.     End Sub
  1194.     Private Sub txtAvaid_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtAvaid.Validating
  1195.         If txtAvaid.Text = String.Empty Then
  1196.             ErrorProvider1.SetError(txtAvaid, "不能为空，请输入有效期！")
  1197.             txtAvaid.Focus()
  1199.         Else
  1200.             ErrorProvider1.SetError(txtAvaid, "")
  1201.         End If
  1202.     End Sub
  1210.     Private Sub txtAvaid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAvaid.KeyDown
  1211.         If e.KeyCode = Keys.Enter Then
  1212.             txtAddress.Focus()
  1213.         End If
  1215.     End Sub
  1217.     
  1219.     Private Sub txtjprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtjprice.KeyDown
  1220.         If e.KeyCode = Keys.Enter Then
  1221.             txtzprice.Focus()
  1222.         End If
  1223.     End Sub
  1225.   
  1227.     Private Sub txtzprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzprice.KeyDown
  1228.         If e.KeyCode = Keys.Enter Then
  1229.             txtKl.Focus()
  1230.         End If
  1231.     End Sub
  1233.    
  1235.     Private Sub txtjprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtjprice.Validating
  1236.         If Not IsNumeric(txtjprice.Text) Or txtjprice.Text = String.Empty Then
  1237.             ErrorProvider1.SetError(txtjprice, "不是数值类型且不能为空。")
  1238.             txtjprice.Focus()
  1240.         Else
  1241.             ErrorProvider1.SetError(txtjprice, "")
  1242.         End If
  1243.     End Sub
  1245.     Private Sub txtzprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtzprice.Validating
  1246.         If Not IsNumeric(txtzprice.Text) Or txtzprice.Text = String.Empty Then
  1247.             ErrorProvider1.SetError(txtzprice, "不是数值类型且不能为空。")
  1248.             txtzprice.Focus()
  1250.         Else
  1251.             ErrorProvider1.SetError(txtzprice, "")
  1252.         End If
  1253.     End Sub
  1255.     
  1256. End Class