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

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

医药行业

开发平台：

Visual Basic

frmMdcf.vb：源码内容
  1. Public Class frmMdcf
  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 StatusBar1 As System.Windows.Forms.StatusBar
  33.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  34.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  35.     Friend WithEvents Label1 As System.Windows.Forms.Label
  36.     Friend WithEvents Label2 As System.Windows.Forms.Label
  37.     Friend WithEvents Label3 As System.Windows.Forms.Label
  38.     Friend WithEvents Label4 As System.Windows.Forms.Label
  39.     Friend WithEvents Label5 As System.Windows.Forms.Label
  40.     Friend WithEvents Label6 As System.Windows.Forms.Label
  41.     Friend WithEvents Label16 As System.Windows.Forms.Label
  42.     Friend WithEvents Label12 As System.Windows.Forms.Label
  43.     Friend WithEvents txtProduct As System.Windows.Forms.TextBox
  44.     Friend WithEvents txtAvaid As System.Windows.Forms.TextBox
  45.     Friend WithEvents txtBatch As System.Windows.Forms.TextBox
  46.     Friend WithEvents txtMoney As System.Windows.Forms.TextBox
  47.     Friend WithEvents txtPrice As System.Windows.Forms.TextBox
  48.     Friend WithEvents txtCount As System.Windows.Forms.TextBox
  49.     Friend WithEvents txtMedRule As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtmedName As System.Windows.Forms.TextBox
  51.     Friend WithEvents txtMedNumber As System.Windows.Forms.TextBox
  52.     Friend WithEvents Label19 As System.Windows.Forms.Label
  53.     Friend WithEvents Label18 As System.Windows.Forms.Label
  54.     Friend WithEvents Label17 As System.Windows.Forms.Label
  55.     Friend WithEvents Label15 As System.Windows.Forms.Label
  56.     Friend WithEvents Label14 As System.Windows.Forms.Label
  57.     Friend WithEvents Label13 As System.Windows.Forms.Label
  58.     Friend WithEvents Label11 As System.Windows.Forms.Label
  59.     Friend WithEvents Label10 As System.Windows.Forms.Label
  60.     Friend WithEvents Label9 As System.Windows.Forms.Label
  61.     Friend WithEvents Label7 As System.Windows.Forms.Label
  62.     Friend WithEvents txtName As System.Windows.Forms.TextBox
  63.     Friend WithEvents txtdemo As System.Windows.Forms.TextBox
  64.     Friend WithEvents txtdoctor As System.Windows.Forms.TextBox
  65.     Friend WithEvents txtbillnumber As System.Windows.Forms.TextBox
  66.     Friend WithEvents txtdate As System.Windows.Forms.DateTimePicker
  67.     Friend WithEvents txtshy As System.Windows.Forms.ComboBox
  68.     Friend WithEvents tbnAdd As System.Windows.Forms.ToolBarButton
  69.     Friend WithEvents tbnsave As System.Windows.Forms.ToolBarButton
  70.     Friend WithEvents tbnPrint As System.Windows.Forms.ToolBarButton
  71.     Friend WithEvents tbnExit As System.Windows.Forms.ToolBarButton
  72.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  73.     Friend WithEvents txtunit As System.Windows.Forms.TextBox
  74.     Friend WithEvents txtpackage As System.Windows.Forms.TextBox
  75.     Friend WithEvents txtno As System.Windows.Forms.TextBox
  76.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  77.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  78.     Friend WithEvents tbncf As System.Windows.Forms.ToolBar
  79.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  80.     Friend WithEvents Label8 As System.Windows.Forms.Label
  81.     Friend WithEvents txthw As System.Windows.Forms.TextBox
  82.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  83.         Me.components = New System.ComponentModel.Container
  84.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMdcf))
  85.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  86.         Me.tbncf = New System.Windows.Forms.ToolBar
  87.         Me.tbnAdd = New System.Windows.Forms.ToolBarButton
  88.         Me.tbnsave = New System.Windows.Forms.ToolBarButton
  89.         Me.tbnPrint = New System.Windows.Forms.ToolBarButton
  90.         Me.tbnExit = New System.Windows.Forms.ToolBarButton
  91.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  92.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  93.         Me.txthw = New System.Windows.Forms.TextBox
  94.         Me.Label8 = New System.Windows.Forms.Label
  95.         Me.txtshy = New System.Windows.Forms.ComboBox
  96.         Me.txtdate = New System.Windows.Forms.DateTimePicker
  97.         Me.txtName = New System.Windows.Forms.TextBox
  98.         Me.txtdemo = New System.Windows.Forms.TextBox
  99.         Me.txtdoctor = New System.Windows.Forms.TextBox
  100.         Me.txtbillnumber = New System.Windows.Forms.TextBox
  101.         Me.Label6 = New System.Windows.Forms.Label
  102.         Me.Label5 = New System.Windows.Forms.Label
  103.         Me.Label4 = New System.Windows.Forms.Label
  104.         Me.Label3 = New System.Windows.Forms.Label
  105.         Me.Label2 = New System.Windows.Forms.Label
  106.         Me.Label1 = New System.Windows.Forms.Label
  107.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  108.         Me.txtno = New System.Windows.Forms.TextBox
  109.         Me.txtpackage = New System.Windows.Forms.TextBox
  110.         Me.txtunit = New System.Windows.Forms.TextBox
  111.         Me.Label7 = New System.Windows.Forms.Label
  112.         Me.Label16 = New System.Windows.Forms.Label
  113.         Me.Label12 = New System.Windows.Forms.Label
  114.         Me.txtProduct = New System.Windows.Forms.TextBox
  115.         Me.txtAvaid = New System.Windows.Forms.TextBox
  116.         Me.txtBatch = New System.Windows.Forms.TextBox
  117.         Me.txtMoney = New System.Windows.Forms.TextBox
  118.         Me.txtPrice = New System.Windows.Forms.TextBox
  119.         Me.txtCount = New System.Windows.Forms.TextBox
  120.         Me.txtMedRule = New System.Windows.Forms.TextBox
  121.         Me.txtmedName = New System.Windows.Forms.TextBox
  122.         Me.txtMedNumber = New System.Windows.Forms.TextBox
  123.         Me.Label19 = New System.Windows.Forms.Label
  124.         Me.Label18 = New System.Windows.Forms.Label
  125.         Me.Label17 = New System.Windows.Forms.Label
  126.         Me.Label15 = New System.Windows.Forms.Label
  127.         Me.Label14 = New System.Windows.Forms.Label
  128.         Me.Label13 = New System.Windows.Forms.Label
  129.         Me.Label11 = New System.Windows.Forms.Label
  130.         Me.Label10 = New System.Windows.Forms.Label
  131.         Me.Label9 = New System.Windows.Forms.Label
  132.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  133.         Me.Panel1 = New System.Windows.Forms.Panel
  134.         Me.dgview = New System.Windows.Forms.DataGrid
  135.         Me.GroupBox1.SuspendLayout()
  136.         Me.GroupBox2.SuspendLayout()
  137.         Me.Panel1.SuspendLayout()
  138.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  139.         Me.SuspendLayout()
  140.         '
  141.         'StatusBar1
  142.         '
  143.         Me.StatusBar1.Location = New System.Drawing.Point(0, 574)
  144.         Me.StatusBar1.Name = "StatusBar1"
  145.         Me.StatusBar1.Size = New System.Drawing.Size(718, 22)
  146.         Me.StatusBar1.TabIndex = 0
  147.         Me.StatusBar1.Text = "StatusBar1"
  148.         '
  149.         'tbncf
  150.         '
  151.         Me.tbncf.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  152.         Me.tbncf.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnAdd, Me.tbnsave, Me.tbnPrint, Me.tbnExit})
  153.         Me.tbncf.DropDownArrows = True
  154.         Me.tbncf.ImageList = Me.ImageList2
  155.         Me.tbncf.Location = New System.Drawing.Point(0, 0)
  156.         Me.tbncf.Name = "tbncf"
  157.         Me.tbncf.ShowToolTips = True
  158.         Me.tbncf.Size = New System.Drawing.Size(718, 44)
  159.         Me.tbncf.TabIndex = 1
  160.         '
  161.         'tbnAdd
  162.         '
  163.         Me.tbnAdd.ImageIndex = 7
  164.         Me.tbnAdd.Text = "添加"
  165.         '
  166.         'tbnsave
  167.         '
  168.         Me.tbnsave.ImageIndex = 4
  169.         Me.tbnsave.Text = "保存"
  170.         '
  171.         'tbnPrint
  172.         '
  173.         Me.tbnPrint.ImageIndex = 12
  174.         Me.tbnPrint.Text = "打印"
  175.         '
  176.         'tbnExit
  177.         '
  178.         Me.tbnExit.ImageIndex = 11
  179.         Me.tbnExit.Text = "退出"
  180.         '
  181.         'ImageList2
  182.         '
  183.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  184.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  185.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  186.         '
  187.         'GroupBox1
  188.         '
  189.         Me.GroupBox1.Controls.Add(Me.txthw)
  190.         Me.GroupBox1.Controls.Add(Me.Label8)
  191.         Me.GroupBox1.Controls.Add(Me.txtshy)
  192.         Me.GroupBox1.Controls.Add(Me.txtdate)
  193.         Me.GroupBox1.Controls.Add(Me.txtName)
  194.         Me.GroupBox1.Controls.Add(Me.txtdemo)
  195.         Me.GroupBox1.Controls.Add(Me.txtdoctor)
  196.         Me.GroupBox1.Controls.Add(Me.txtbillnumber)
  197.         Me.GroupBox1.Controls.Add(Me.Label6)
  198.         Me.GroupBox1.Controls.Add(Me.Label5)
  199.         Me.GroupBox1.Controls.Add(Me.Label4)
  200.         Me.GroupBox1.Controls.Add(Me.Label3)
  201.         Me.GroupBox1.Controls.Add(Me.Label2)
  202.         Me.GroupBox1.Controls.Add(Me.Label1)
  203.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  204.         Me.GroupBox1.Location = New System.Drawing.Point(0, 44)
  205.         Me.GroupBox1.Name = "GroupBox1"
  206.         Me.GroupBox1.Size = New System.Drawing.Size(718, 149)
  207.         Me.GroupBox1.TabIndex = 2
  208.         Me.GroupBox1.TabStop = False
  209.         Me.GroupBox1.Text = "处方信息"
  210.         '
  211.         'txthw
  212.         '
  213.         Me.txthw.Location = New System.Drawing.Point(312, 64)
  214.         Me.txthw.Name = "txthw"
  215.         Me.txthw.ReadOnly = True
  216.         Me.txthw.Size = New System.Drawing.Size(128, 25)
  217.         Me.txthw.TabIndex = 13
  218.         Me.txthw.Text = ""
  219.         '
  220.         'Label8
  221.         '
  222.         Me.Label8.AutoSize = True
  223.         Me.Label8.Location = New System.Drawing.Point(272, 72)
  224.         Me.Label8.Name = "Label8"
  225.         Me.Label8.Size = New System.Drawing.Size(44, 21)
  226.         Me.Label8.TabIndex = 12
  227.         Me.Label8.Text = "货位:"
  228.         '
  229.         'txtshy
  230.         '
  231.         Me.txtshy.Location = New System.Drawing.Point(520, 62)
  232.         Me.txtshy.Name = "txtshy"
  233.         Me.txtshy.Size = New System.Drawing.Size(136, 23)
  234.         Me.txtshy.TabIndex = 11
  235.         '
  236.         'txtdate
  237.         '
  238.         Me.txtdate.Location = New System.Drawing.Point(520, 24)
  239.         Me.txtdate.Name = "txtdate"
  240.         Me.txtdate.Size = New System.Drawing.Size(136, 25)
  241.         Me.txtdate.TabIndex = 10
  242.         Me.txtdate.Value = New Date(2006, 4, 5, 0, 0, 0, 0)
  243.         '
  244.         'txtName
  245.         '
  246.         Me.txtName.Location = New System.Drawing.Point(312, 24)
  247.         Me.txtName.Name = "txtName"
  248.         Me.txtName.Size = New System.Drawing.Size(160, 25)
  249.         Me.txtName.TabIndex = 9
  250.         Me.txtName.Text = ""
  251.         '
  252.         'txtdemo
  253.         '
  254.         Me.txtdemo.Location = New System.Drawing.Point(88, 104)
  255.         Me.txtdemo.Name = "txtdemo"
  256.         Me.txtdemo.Size = New System.Drawing.Size(568, 25)
  257.         Me.txtdemo.TabIndex = 8
  258.         Me.txtdemo.Text = ""
  259.         '
  260.         'txtdoctor
  261.         '
  262.         Me.txtdoctor.Location = New System.Drawing.Point(88, 62)
  263.         Me.txtdoctor.Name = "txtdoctor"
  264.         Me.txtdoctor.Size = New System.Drawing.Size(144, 25)
  265.         Me.txtdoctor.TabIndex = 7
  266.         Me.txtdoctor.Text = ""
  267.         '
  268.         'txtbillnumber
  269.         '
  270.         Me.txtbillnumber.Location = New System.Drawing.Point(88, 24)
  271.         Me.txtbillnumber.Name = "txtbillnumber"
  272.         Me.txtbillnumber.ReadOnly = True
  273.         Me.txtbillnumber.Size = New System.Drawing.Size(144, 25)
  274.         Me.txtbillnumber.TabIndex = 6
  275.         Me.txtbillnumber.Text = ""
  276.         '
  277.         'Label6
  278.         '
  279.         Me.Label6.AutoSize = True
  280.         Me.Label6.Location = New System.Drawing.Point(464, 72)
  281.         Me.Label6.Name = "Label6"
  282.         Me.Label6.Size = New System.Drawing.Size(60, 21)
  283.         Me.Label6.TabIndex = 5
  284.         Me.Label6.Text = "审核员:"
  285.         '
  286.         'Label5
  287.         '
  288.         Me.Label5.AutoSize = True
  289.         Me.Label5.Location = New System.Drawing.Point(480, 31)
  290.         Me.Label5.Name = "Label5"
  291.         Me.Label5.Size = New System.Drawing.Size(44, 21)
  292.         Me.Label5.TabIndex = 4
  293.         Me.Label5.Text = "日期:"
  294.         '
  295.         'Label4
  296.         '
  297.         Me.Label4.AutoSize = True
  298.         Me.Label4.Location = New System.Drawing.Point(8, 113)
  299.         Me.Label4.Name = "Label4"
  300.         Me.Label4.Size = New System.Drawing.Size(83, 21)
  301.         Me.Label4.TabIndex = 3
  302.         Me.Label4.Text = "备注/功用:"
  303.         '
  304.         'Label3
  305.         '
  306.         Me.Label3.AutoSize = True
  307.         Me.Label3.Location = New System.Drawing.Point(240, 32)
  308.         Me.Label3.Name = "Label3"
  309.         Me.Label3.Size = New System.Drawing.Size(75, 21)
  310.         Me.Label3.TabIndex = 2
  311.         Me.Label3.Text = "处方名称:"
  312.         '
  313.         'Label2
  314.         '
  315.         Me.Label2.AutoSize = True
  316.         Me.Label2.Location = New System.Drawing.Point(32, 72)
  317.         Me.Label2.Name = "Label2"
  318.         Me.Label2.Size = New System.Drawing.Size(60, 21)
  319.         Me.Label2.TabIndex = 1
  320.         Me.Label2.Text = "药剂师:"
  321.         '
  322.         'Label1
  323.         '
  324.         Me.Label1.AutoSize = True
  325.         Me.Label1.Location = New System.Drawing.Point(16, 31)
  326.         Me.Label1.Name = "Label1"
  327.         Me.Label1.Size = New System.Drawing.Size(75, 21)
  328.         Me.Label1.TabIndex = 0
  329.         Me.Label1.Text = "处方编号:"
  330.         '
  331.         'GroupBox2
  332.         '
  333.         Me.GroupBox2.Controls.Add(Me.txtno)
  334.         Me.GroupBox2.Controls.Add(Me.txtpackage)
  335.         Me.GroupBox2.Controls.Add(Me.txtunit)
  336.         Me.GroupBox2.Controls.Add(Me.Label7)
  337.         Me.GroupBox2.Controls.Add(Me.Label16)
  338.         Me.GroupBox2.Controls.Add(Me.Label12)
  339.         Me.GroupBox2.Controls.Add(Me.txtProduct)
  340.         Me.GroupBox2.Controls.Add(Me.txtAvaid)
  341.         Me.GroupBox2.Controls.Add(Me.txtBatch)
  342.         Me.GroupBox2.Controls.Add(Me.txtMoney)
  343.         Me.GroupBox2.Controls.Add(Me.txtPrice)
  344.         Me.GroupBox2.Controls.Add(Me.txtCount)
  345.         Me.GroupBox2.Controls.Add(Me.txtMedRule)
  346.         Me.GroupBox2.Controls.Add(Me.txtmedName)
  347.         Me.GroupBox2.Controls.Add(Me.txtMedNumber)
  348.         Me.GroupBox2.Controls.Add(Me.Label19)
  349.         Me.GroupBox2.Controls.Add(Me.Label18)
  350.         Me.GroupBox2.Controls.Add(Me.Label17)
  351.         Me.GroupBox2.Controls.Add(Me.Label15)
  352.         Me.GroupBox2.Controls.Add(Me.Label14)
  353.         Me.GroupBox2.Controls.Add(Me.Label13)
  354.         Me.GroupBox2.Controls.Add(Me.Label11)
  355.         Me.GroupBox2.Controls.Add(Me.Label10)
  356.         Me.GroupBox2.Controls.Add(Me.Label9)
  357.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
  358.         Me.GroupBox2.Location = New System.Drawing.Point(0, 193)
  359.         Me.GroupBox2.Name = "GroupBox2"
  360.         Me.GroupBox2.Size = New System.Drawing.Size(718, 144)
  361.         Me.GroupBox2.TabIndex = 3
  362.         Me.GroupBox2.TabStop = False
  363.         Me.GroupBox2.Text = "药品信息"
  364.         '
  365.         'txtno
  366.         '
  367.         Me.txtno.Location = New System.Drawing.Point(96, 62)
  368.         Me.txtno.Name = "txtno"
  369.         Me.txtno.ReadOnly = True
  370.         Me.txtno.Size = New System.Drawing.Size(32, 25)
  371.         Me.txtno.TabIndex = 118
  372.         Me.txtno.Text = ""
  373.         '
  374.         'txtpackage
  375.         '
  376.         Me.txtpackage.Location = New System.Drawing.Point(616, 103)
  377.         Me.txtpackage.Name = "txtpackage"
  378.         Me.txtpackage.ReadOnly = True
  379.         Me.txtpackage.Size = New System.Drawing.Size(88, 25)
  380.         Me.txtpackage.TabIndex = 117
  381.         Me.txtpackage.Text = ""
  382.         '
  383.         'txtunit
  384.         '
  385.         Me.txtunit.Location = New System.Drawing.Point(616, 64)
  386.         Me.txtunit.Name = "txtunit"
  387.         Me.txtunit.ReadOnly = True
  388.         Me.txtunit.Size = New System.Drawing.Size(88, 25)
  389.         Me.txtunit.TabIndex = 116
  390.         Me.txtunit.Text = ""
  391.         '
  392.         'Label7
  393.         '
  394.         Me.Label7.AutoSize = True
  395.         Me.Label7.Location = New System.Drawing.Point(53, 72)
  396.         Me.Label7.Name = "Label7"
  397.         Me.Label7.Size = New System.Drawing.Size(52, 21)
  398.         Me.Label7.TabIndex = 115
  399.         Me.Label7.Text = "序号："
  400.         '
  401.         'Label16
  402.         '
  403.         Me.Label16.AutoSize = True
  404.         Me.Label16.Location = New System.Drawing.Point(576, 113)
  405.         Me.Label16.Name = "Label16"
  406.         Me.Label16.Size = New System.Drawing.Size(52, 21)
  407.         Me.Label16.TabIndex = 113
  408.         Me.Label16.Text = "包装："
  409.         '
  410.         'Label12
  411.         '
  412.         Me.Label12.AutoSize = True
  413.         Me.Label12.Location = New System.Drawing.Point(576, 72)
  414.         Me.Label12.Name = "Label12"
  415.         Me.Label12.Size = New System.Drawing.Size(52, 21)
  416.         Me.Label12.TabIndex = 112
  417.         Me.Label12.Text = "单位："
  418.         '
  419.         'txtProduct
  420.         '
  421.         Me.txtProduct.Location = New System.Drawing.Point(312, 103)
  422.         Me.txtProduct.Name = "txtProduct"
  423.         Me.txtProduct.ReadOnly = True
  424.         Me.txtProduct.Size = New System.Drawing.Size(96, 25)
  425.         Me.txtProduct.TabIndex = 111
  426.         Me.txtProduct.Text = ""
  427.         '
  428.         'txtAvaid
  429.         '
  430.         Me.txtAvaid.Location = New System.Drawing.Point(472, 104)
  431.         Me.txtAvaid.Name = "txtAvaid"
  432.         Me.txtAvaid.ReadOnly = True
  433.         Me.txtAvaid.Size = New System.Drawing.Size(88, 25)
  434.         Me.txtAvaid.TabIndex = 110
  435.         Me.txtAvaid.Text = ""
  436.         '
  437.         'txtBatch
  438.         '
  439.         Me.txtBatch.Location = New System.Drawing.Point(96, 103)
  440.         Me.txtBatch.Name = "txtBatch"
  441.         Me.txtBatch.ReadOnly = True
  442.         Me.txtBatch.Size = New System.Drawing.Size(128, 25)
  443.         Me.txtBatch.TabIndex = 109
  444.         Me.txtBatch.Text = ""
  445.         '
  446.         'txtMoney
  447.         '
  448.         Me.txtMoney.Location = New System.Drawing.Point(472, 64)
  449.         Me.txtMoney.Name = "txtMoney"
  450.         Me.txtMoney.ReadOnly = True
  451.         Me.txtMoney.Size = New System.Drawing.Size(88, 25)
  452.         Me.txtMoney.TabIndex = 107
  453.         Me.txtMoney.Text = "0.00"
  454.         '
  455.         'txtPrice
  456.         '
  457.         Me.txtPrice.Location = New System.Drawing.Point(312, 64)
  458.         Me.txtPrice.Name = "txtPrice"
  459.         Me.txtPrice.Size = New System.Drawing.Size(96, 25)
  460.         Me.txtPrice.TabIndex = 106
  461.         Me.txtPrice.Text = "0.00"
  462.         '
  463.         'txtCount
  464.         '
  465.         Me.txtCount.Location = New System.Drawing.Point(176, 64)
  466.         Me.txtCount.Name = "txtCount"
  467.         Me.txtCount.Size = New System.Drawing.Size(48, 25)
  468.         Me.txtCount.TabIndex = 105
  469.         Me.txtCount.Text = ""
  470.         '
  471.         'txtMedRule
  472.         '
  473.         Me.txtMedRule.Location = New System.Drawing.Point(568, 24)
  474.         Me.txtMedRule.Name = "txtMedRule"
  475.         Me.txtMedRule.ReadOnly = True
  476.         Me.txtMedRule.Size = New System.Drawing.Size(136, 25)
  477.         Me.txtMedRule.TabIndex = 103
  478.         Me.txtMedRule.Text = ""
  479.         '
  480.         'txtmedName
  481.         '
  482.         Me.txtmedName.Location = New System.Drawing.Point(312, 24)
  483.         Me.txtmedName.Name = "txtmedName"
  484.         Me.txtmedName.ReadOnly = True
  485.         Me.txtmedName.Size = New System.Drawing.Size(168, 25)
  486.         Me.txtmedName.TabIndex = 102
  487.         Me.txtmedName.Text = ""
  488.         '
  489.         'txtMedNumber
  490.         '
  491.         Me.txtMedNumber.Location = New System.Drawing.Point(96, 21)
  492.         Me.txtMedNumber.Name = "txtMedNumber"
  493.         Me.txtMedNumber.Size = New System.Drawing.Size(128, 25)
  494.         Me.txtMedNumber.TabIndex = 101
  495.         Me.txtMedNumber.Text = ""
  496.         '
  497.         'Label19
  498.         '
  499.         Me.Label19.AutoSize = True
  500.         Me.Label19.Location = New System.Drawing.Point(272, 112)
  501.         Me.Label19.Name = "Label19"
  502.         Me.Label19.Size = New System.Drawing.Size(52, 21)
  503.         Me.Label19.TabIndex = 100
  504.         Me.Label19.Text = "产地："
  505.         '
  506.         'Label18
  507.         '
  508.         Me.Label18.AutoSize = True
  509.         Me.Label18.Location = New System.Drawing.Point(416, 113)
  510.         Me.Label18.Name = "Label18"
  511.         Me.Label18.Size = New System.Drawing.Size(67, 21)
  512.         Me.Label18.TabIndex = 99
  513.         Me.Label18.Text = "有效期："
  514.         '
  515.         'Label17
  516.         '
  517.         Me.Label17.AutoSize = True
  518.         Me.Label17.Location = New System.Drawing.Point(53, 113)
  519.         Me.Label17.Name = "Label17"
  520.         Me.Label17.Size = New System.Drawing.Size(52, 21)
  521.         Me.Label17.TabIndex = 98
  522.         Me.Label17.Text = "批号："
  523.         '
  524.         'Label15
  525.         '
  526.         Me.Label15.AutoSize = True
  527.         Me.Label15.ForeColor = System.Drawing.Color.Red
  528.         Me.Label15.Location = New System.Drawing.Point(432, 72)
  529.         Me.Label15.Name = "Label15"
  530.         Me.Label15.Size = New System.Drawing.Size(52, 21)
  531.         Me.Label15.TabIndex = 97
  532.         Me.Label15.Text = "金额："
  533.         '
  534.         'Label14
  535.         '
  536.         Me.Label14.AutoSize = True
  537.         Me.Label14.Location = New System.Drawing.Point(272, 72)
  538.         Me.Label14.Name = "Label14"
  539.         Me.Label14.Size = New System.Drawing.Size(52, 21)
  540.         Me.Label14.TabIndex = 96
  541.         Me.Label14.Text = "单价："
  542.         '
  543.         'Label13
  544.         '
  545.         Me.Label13.AutoSize = True
  546.         Me.Label13.Location = New System.Drawing.Point(136, 72)
  547.         Me.Label13.Name = "Label13"
  548.         Me.Label13.Size = New System.Drawing.Size(52, 21)
  549.         Me.Label13.TabIndex = 95
  550.         Me.Label13.Text = "数量："
  551.         '
  552.         'Label11
  553.         '
  554.         Me.Label11.AutoSize = True
  555.         Me.Label11.Location = New System.Drawing.Point(496, 32)
  556.         Me.Label11.Name = "Label11"
  557.         Me.Label11.Size = New System.Drawing.Size(83, 21)
  558.         Me.Label11.TabIndex = 94
  559.         Me.Label11.Text = "药品规格："
  560.         '
  561.         'Label10
  562.         '
  563.         Me.Label10.AutoSize = True
  564.         Me.Label10.Location = New System.Drawing.Point(240, 31)
  565.         Me.Label10.Name = "Label10"
  566.         Me.Label10.Size = New System.Drawing.Size(83, 21)
  567.         Me.Label10.TabIndex = 93
  568.         Me.Label10.Text = "药品名称："
  569.         '
  570.         'Label9
  571.         '
  572.         Me.Label9.AutoSize = True
  573.         Me.Label9.Location = New System.Drawing.Point(21, 31)
  574.         Me.Label9.Name = "Label9"
  575.         Me.Label9.Size = New System.Drawing.Size(83, 21)
  576.         Me.Label9.TabIndex = 92
  577.         Me.Label9.Text = "药品编号："
  578.         '
  579.         'ErrorProvider1
  580.         '
  581.         Me.ErrorProvider1.ContainerControl = Me
  582.         '
  583.         'Panel1
  584.         '
  585.         Me.Panel1.Controls.Add(Me.dgview)
  586.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  587.         Me.Panel1.Location = New System.Drawing.Point(0, 337)
  588.         Me.Panel1.Name = "Panel1"
  589.         Me.Panel1.Size = New System.Drawing.Size(718, 237)
  590.         Me.Panel1.TabIndex = 4
  591.         '
  592.         'dgview
  593.         '
  594.         Me.dgview.DataMember = ""
  595.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  596.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  597.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  598.         Me.dgview.Name = "dgview"
  599.         Me.dgview.Size = New System.Drawing.Size(718, 237)
  600.         Me.dgview.TabIndex = 5
  601.         '
  602.         'frmMdcf
  603.         '
  604.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  605.         Me.ClientSize = New System.Drawing.Size(718, 596)
  606.         Me.Controls.Add(Me.Panel1)
  607.         Me.Controls.Add(Me.GroupBox2)
  608.         Me.Controls.Add(Me.GroupBox1)
  609.         Me.Controls.Add(Me.tbncf)
  610.         Me.Controls.Add(Me.StatusBar1)
  611.         Me.Name = "frmMdcf"
  612.         Me.Text = "零售处方管理"
  613.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  614.         Me.GroupBox1.ResumeLayout(False)
  615.         Me.GroupBox2.ResumeLayout(False)
  616.         Me.Panel1.ResumeLayout(False)
  617.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  618.         Me.ResumeLayout(False)
  620.     End Sub
  622. #End Region
  623.     Public bool As Boolean
  624.     Public lsweb As New jxcmanage
  625.     Public dslocals As DataSet = lsweb.returndataset("select Number as 序号,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Lcount as 数量,Price 单价,Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期,Package as 包装,CDate as 日期,Yjs as 药剂师,BillNumber as 票号,CfName as 处方名称,Shy as 审核员,Demo as 货位 from mdcf", "mdcf")
  627.     
  629.     Private Sub txtName_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtName.KeyDown
  630.         If e.KeyCode = Keys.Enter Then
  631.             txtdoctor.Focus()
  632.         End If
  633.     End Sub
  635.     
  637.     Private Sub txtdoctor_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtdoctor.KeyDown
  638.         If e.KeyCode = Keys.Enter Then
  639.             txtshy.Focus()
  640.         End If
  641.     End Sub
  643.    
  645.     Private Sub txtshy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtshy.KeyDown
  646.         If e.KeyCode = Keys.Enter Then
  647.             txtdemo.Focus()
  648.         End If
  649.     End Sub
  651.   
  653.     Private Sub txtdemo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtdemo.KeyDown
  654.         If e.KeyCode = Keys.Enter Then
  655.             txtMedNumber.Focus()
  656.         End If
  657.     End Sub
  659.     Public Function getinfo(ByVal strqueryid As String) As String
  660.         Dim strOrderId As String
  661.         strOrderId = strqueryid
  662.         Return strOrderId
  663.     End Function
  664.     Private Sub CalMxMoney()
  665.         Dim price As Double = CType(txtPrice.Text.Trim, Double)
  666.         Dim count As Int16 = CInt(txtCount.Text.Trim)
  667.         Me.txtMoney.Text = (price * count).ToString
  668.     End Sub
  670.     Private Sub txtMedNumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMedNumber.KeyDown
  671.         If e.KeyCode = Keys.Enter Then
  672.             Dim dlg As frmMedKcQuery = New frmMedKcQuery
  673.             dlg.PYMs = Me.getinfo(txtMedNumber.Text)
  674.             If dlg.PYMs = "" Then
  675.                 ErrorProvider1.SetError(txtMedNumber, "不能为空，请输入查询码！")
  676.             Else
  677.                 dlg.ShowDialog()
  678.                 ErrorProvider1.SetError(txtMedNumber, "")
  679.             End If
  680.             Dim medIdvalue, medbatch, product, avaid, hw, package As String
  681.             medIdvalue = dlg.GetInfo("药品编号")
  682.             medbatch = dlg.GetInfo("批号")
  683.             product = dlg.GetInfo("产地")
  684.             avaid = dlg.GetInfo("有效期")
  685.             hw = dlg.GetInfo("货位")
  686.             package = dlg.GetInfo("包装")
  687.             If medIdvalue Is Nothing Then
  688.                 ErrorProvider1.SetError(txtMedNumber, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
  689.             Else
  690.                 Dim runSqlQuery As String
  691.                 runSqlQuery = "select * from wz_kc where 药品编号='" & medIdvalue & "' and 批号 ='" & medbatch & "' and 产地='" & product & "' and 有效期='" & avaid & "' and 货位='" & hw & "' and 包装='" & package & "'"
  692.                 Dim dv As DataView
  693.                 ' Dim mOrderId As New managers
  694.                 '调用mCustomId对象的SPcustomersID函数
  695.                 Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
  696.                 'bb为一随意表名
  697.                 dtOrder.TableName = "bb"
  698.                 dv = dtOrder.DefaultView
  699.                 txtMedNumber.Text = dv(0)("药品编号")
  700.                 txtmedName.Text = dv(0)("药品名称")
  701.                 txtMedRule.Text = dv(0)("药品规格")
  702.                 txtUnit.Text = dv(0)("单位")
  703.                 txtPrice.Text = dv(0)("进价")
  704.                 txtCount.Text = dv(0)("数量")
  705.                 txtAvaid.Text = dv(0)("有效期")
  706.                 txtPackage.Text = dv(0)("包装")
  707.                 txtProduct.Text = dv(0)("产地")
  708.                 txtBatch.Text = dv(0)("批号")
  709.                 txthw.Text = dv(0)("货位")
  710.                 ErrorProvider1.SetError(txtMedNumber, "")
  711.             End If
  712.             txtCount.Focus()
  713.         End If
  714.     End Sub
  715.     Private Sub save()
  716.         If lsweb.updatedataset("select Number as 序号,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Lcount as 数量,Price 单价,Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期,Package as 包装,CDate as 日期,Yjs as 药剂师,BillNumber as 票号,CfName as 处方名称,Shy as 审核员,Demo as 货位 from mdcf", "mdcf", dslocals, DataRowState.Added) = True Then
  717.             MessageBox.Show("销售信息成功保存！", "提示", MessageBoxButtons.OK)
  718.         Else
  719.             MessageBox.Show("销售信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  720.         End If
  723.     End Sub
  724.   
  725.     Private Sub txtCount_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCount.KeyDown
  726.         If e.KeyCode = Keys.Enter Then
  727.             txtPrice.Focus()
  728.             CalMxMoney()
  729.         End If
  730.     End Sub
  732.     Private Sub frmMdcf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  733.         dslocals.Clear()
  734.         dgview.DataSource = dslocals.Tables("Mdcf").DefaultView
  735.         txtdate.Value = Today().ToString()
  738.         Dim hwdr As System.Data.SqlClient.SqlDataReader
  739.         hwdr = lsweb.returnDataReader("select 操作员 from wz_mm")
  740.         Do While hwdr.Read()
  741.             txtshy.Items.Add(hwdr("操作员"))
  743.         Loop
  744.         txtdate.Value = Today.ToString
  745.     End Sub
  746.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  747.         If strboolean = "tbnAdd.Enabled = True" Then
  748.             tbnSave.Enabled = False
  749.             tbnPrint.Enabled = False
  750.             tbnExit.Enabled = True
  751.         ElseIf strboolean = "tbnAdd.Enabled = False" Then
  752.             tbnAdd.Enabled = False
  753.             tbnSave.Enabled = True
  754.             tbnPrint.Enabled = True
  755.             tbnExit.Enabled = True
  756.         ElseIf strboolean = "tbnSave.Enabled = True" Then
  757.             tbnAdd.Enabled = False
  758.             tbnPrint.Enabled = True
  759.             tbnExit.Enabled = True
  760.         ElseIf strboolean = "tbnSave.Enabled = False" Then
  761.             tbnSave.Enabled = False
  762.             tbnAdd.Enabled = True
  763.             tbnPrint.Enabled = True
  764.             tbnExit.Enabled = True
  765.         End If
  766.     End Sub
  769.     Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtName.Validating
  770.         If txtName.Text = String.Empty Then
  771.             ErrorProvider1.SetError(txtName, "不能为空。")
  772.             txtName.Focus()
  773.         Else
  774.             ErrorProvider1.SetError(txtName, "")
  775.         End If
  776.     End Sub
  778.     Private Sub txtdoctor_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtdoctor.Validating
  779.         If txtdoctor.Text = String.Empty Then
  780.             ErrorProvider1.SetError(txtdoctor, "不能为空。")
  781.             txtdoctor.Focus()
  782.         Else
  783.             ErrorProvider1.SetError(txtdoctor, "")
  784.         End If
  785.     End Sub
  787.     Private Sub txtshy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtshy.Validating
  788.         If txtshy.Text = String.Empty Then
  789.             ErrorProvider1.SetError(txtshy, "不能为空。")
  790.             txtshy.Focus()
  791.         Else
  792.             ErrorProvider1.SetError(txtshy, "")
  793.         End If
  794.     End Sub
  796.     Private Sub txtdemo_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtdemo.Validating
  797.         If txtdemo.Text = String.Empty Then
  798.             ErrorProvider1.SetError(txtdemo, "不能为空。")
  799.             txtdemo.Focus()
  800.         Else
  801.             ErrorProvider1.SetError(txtdemo, "")
  802.         End If
  803.     End Sub
  805.     Private Sub txtCount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtCount.Validating
  806.         If txtCount.Text = String.Empty Then
  807.             ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空。")
  808.             txtCount.Focus()
  809.         Else
  810.             ErrorProvider1.SetError(txtCount, "")
  811.         End If
  812.     End Sub
  816.     Private Sub txtPrice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPrice.Validating
  817.         If Not IsNumeric(txtPrice.Text) Or txtPrice.Text = String.Empty Then
  818.             ErrorProvider1.SetError(txtPrice, "不是数值类型且不能为空。")
  819.             txtPrice.Focus()
  820.         Else
  821.             ErrorProvider1.SetError(txtPrice, "")
  822.         End If
  823.     End Sub
  824.     Public Sub add()
  825.         dslocals.Clear()
  826.         txtName.Focus()
  827.         txtName.Text() = ""
  828.         txtbillnumber.Text = lsweb.selectbill("CF").ToString
  829.         txtno.Text = 1
  830.         txtdate.Value = Today().ToString()
  833.         
  834.         txtdoctor.Text = ""
  835.         txtdemo.Text = ""
  836.         txtMedNumber.Text = ""
  837.         txtmedName.Text() = ""
  838.         txtMedRule.Text() = ""
  839.         txtunit.Text() = ""
  840.         txtPrice.Text() = 0.0
  841.         txtCount.Text() = 0
  842.         txtMoney.Text() = 0.0
  843.         txtpackage.Text() = ""
  844.         txtBatch.Text() = ""
  845.         txtAvaid.Text() = ""
  846.         txtProduct.Text() = ""
  848.     End Sub
  849.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbncf.ButtonClick
  850.         Select Case e.Button.Text
  851.             Case "添加"
  852.                 add()
  853.                 tbnEnable("tbnAdd.Enabled = False", tbncf)
  854.             Case "保存"
  855.                 If txtbillnumber.Text = String.Empty Then
  856.                     MessageBox.Show("请点击添加按钮！", "提示：", MessageBoxButtons.OK)
  857.                 Else
  858.                     save()
  859.                     tbnEnable("tbnSave.Enabled = False", tbncf)
  860.                 End If
  862.             Case "退出"
  864.                     Me.Close()
  867.         End Select
  868.     End Sub
  869.     Private Sub clear()
  870.         txtMedNumber.Text = ""
  871.         txtmedName.Text = ""
  872.         txtMedRule.Text = ""
  873.         txtunit.Text = ""
  874.         txtPrice.Text = 0.0
  875.         txtCount.Text = 0
  876.         txtMoney.Text = 0.0
  877.         txtAvaid.Text = ""
  878.         txtpackage.Text = ""
  879.         txtProduct.Text = ""
  880.         txtBatch.Text = ""
  884.     End Sub
  886.     Private Sub txtPrice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPrice.KeyDown
  887.         If e.KeyCode = Keys.Enter Then
  888.             If txtPrice.Text = String.Empty Then
  889.                 txtPrice_Validating(Nothing, Nothing)
  890.             Else
  891.                 Static i As Int16
  892.                 If dslocals.Tables("mdcf").Rows.Count < 1 Then
  893.                     i = 1
  894.                 Else
  895.                     i = i + 1
  896.                 End If
  897.                 txtno.Text = CStr(i)
  898.                 Dim dr As DataRow = dslocals.Tables("mdcf").NewRow()
  899.                 dr("序号") = CStr(i)
  900.                 dr("药品编号") = Me.txtMedNumber.Text.Trim
  901.                 dr("药品名称") = Me.txtmedName.Text.Trim
  902.                 dr("药品规格") = Me.txtMedRule.Text.Trim
  903.                 dr("单位") = Me.txtunit.Text.Trim
  904.                 dr("数量") = Me.txtCount.Text.Trim
  905.                 dr("单价") = CDec(Me.txtPrice.Text.Trim)
  906.                 dr("金额") = CDec(Me.txtPrice.Text.Trim) * CInt(Me.txtCount.Text.Trim)
  907.                 dr("批号") = Me.txtBatch.Text.Trim
  908.                 dr("有效期") = Me.txtAvaid.Text.Trim
  909.                 dr("产地") = Me.txtProduct.Text.Trim
  910.                 dr("货位") = Me.txthw.Text.Trim
  911.                 dr("包装") = Me.txtpackage.Text.Trim
  912.                 dr("票号") = Me.txtbillnumber.Text.Trim
  913.                 dr("货位") = Me.txthw.Text.Trim
  914.                 dr("日期") = Me.txtdate.Value
  915.                 dr("药剂师") = Me.txtdoctor.Text.Trim
  916.                 dr("审核员") = Me.txtshy.Text.Trim
  917.                 dr("处方名称") = Me.txtName.Text.Trim
  918.                 dslocals.Tables("mdcf").Rows.Add(dr)
  919.                 txtMedNumber.Text = ""
  920.                 txtMedNumber.Focus()
  922.                 'CalTotalMoney()
  923.                 clear()
  924.             End If
  925.         End If
  927.         dgview.DataSource = dslocals.Tables("mdcf").DefaultView
  928.     End Sub
  930.     Private Sub frmMdcf_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
  931.         If txtbillnumber.Text <> String.Empty And tbnsave.Enabled = True Then
  933.             lsweb.cancelbill(txtbillnumber.Text.Trim)
  934.         End If
  935.     End Sub
  937.     Private Sub txtMedNumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMedNumber.TextChanged
  939.     End Sub
  941.     Private Sub txtPrice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPrice.TextChanged
  943.     End Sub
  944. End Class