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

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

医药行业

开发平台：

Visual Basic

frmPd.vb：源码内容
  1. Public Class frmPd
  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 tbrpd As System.Windows.Forms.ToolBar
  34.     Friend WithEvents tbrAdd As System.Windows.Forms.ToolBarButton
  35.     Friend WithEvents tbrSave As System.Windows.Forms.ToolBarButton
  36.     Friend WithEvents tbrPrint As System.Windows.Forms.ToolBarButton
  37.     Friend WithEvents tbrsp As System.Windows.Forms.ToolBarButton
  38.     Friend WithEvents tbrExit As System.Windows.Forms.ToolBarButton
  39.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  40.     Friend WithEvents Label11 As System.Windows.Forms.Label
  41.     Friend WithEvents Label12 As System.Windows.Forms.Label
  42.     Friend WithEvents Label13 As System.Windows.Forms.Label
  43.     Friend WithEvents txtBillnumber As System.Windows.Forms.TextBox
  44.     Friend WithEvents txtDate As System.Windows.Forms.DateTimePicker
  45.     Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
  46.     Friend WithEvents txtSzy As System.Windows.Forms.TextBox
  47.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  48.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  49.     Friend WithEvents txtProduct As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtBatch As System.Windows.Forms.TextBox
  51.     Friend WithEvents txtMoney As System.Windows.Forms.TextBox
  52.     Friend WithEvents txtPrice As System.Windows.Forms.TextBox
  53.     Friend WithEvents txtCount As System.Windows.Forms.TextBox
  54.     Friend WithEvents txtUnit As System.Windows.Forms.TextBox
  55.     Friend WithEvents txtMedName As System.Windows.Forms.TextBox
  56.     Friend WithEvents txtMedNumber As System.Windows.Forms.TextBox
  57.     Friend WithEvents txtNo As System.Windows.Forms.TextBox
  58.     Friend WithEvents Label10 As System.Windows.Forms.Label
  59.     Friend WithEvents Label9 As System.Windows.Forms.Label
  60.     Friend WithEvents Label8 As System.Windows.Forms.Label
  61.     Friend WithEvents Label7 As System.Windows.Forms.Label
  62.     Friend WithEvents Label6 As System.Windows.Forms.Label
  63.     Friend WithEvents Label5 As System.Windows.Forms.Label
  64.     Friend WithEvents Label3 As System.Windows.Forms.Label
  65.     Friend WithEvents Label2 As System.Windows.Forms.Label
  66.     Friend WithEvents Label1 As System.Windows.Forms.Label
  67.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  68.     Friend WithEvents dgPd As System.Windows.Forms.DataGrid
  69.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  70.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  71.         Me.components = New System.ComponentModel.Container
  72.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPd))
  73.         Me.tbrpd = New System.Windows.Forms.ToolBar
  74.         Me.tbrAdd = New System.Windows.Forms.ToolBarButton
  75.         Me.tbrSave = New System.Windows.Forms.ToolBarButton
  76.         Me.tbrPrint = New System.Windows.Forms.ToolBarButton
  77.         Me.tbrsp = New System.Windows.Forms.ToolBarButton
  78.         Me.tbrExit = New System.Windows.Forms.ToolBarButton
  79.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  80.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  81.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  82.         Me.txtSzy = New System.Windows.Forms.TextBox
  83.         Me.txtBillnumber = New System.Windows.Forms.TextBox
  84.         Me.txtDate = New System.Windows.Forms.DateTimePicker
  85.         Me.Label13 = New System.Windows.Forms.Label
  86.         Me.Label12 = New System.Windows.Forms.Label
  87.         Me.Label11 = New System.Windows.Forms.Label
  88.         Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
  89.         Me.txtProduct = New System.Windows.Forms.TextBox
  90.         Me.txtBatch = New System.Windows.Forms.TextBox
  91.         Me.txtMoney = New System.Windows.Forms.TextBox
  92.         Me.txtPrice = New System.Windows.Forms.TextBox
  93.         Me.txtCount = New System.Windows.Forms.TextBox
  94.         Me.txtUnit = New System.Windows.Forms.TextBox
  95.         Me.txtMedName = New System.Windows.Forms.TextBox
  96.         Me.txtMedNumber = New System.Windows.Forms.TextBox
  97.         Me.txtNo = New System.Windows.Forms.TextBox
  98.         Me.Panel1 = New System.Windows.Forms.Panel
  99.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  100.         Me.Label10 = New System.Windows.Forms.Label
  101.         Me.Label9 = New System.Windows.Forms.Label
  102.         Me.Label8 = New System.Windows.Forms.Label
  103.         Me.Label7 = New System.Windows.Forms.Label
  104.         Me.Label6 = New System.Windows.Forms.Label
  105.         Me.Label5 = New System.Windows.Forms.Label
  106.         Me.Label3 = New System.Windows.Forms.Label
  107.         Me.Label2 = New System.Windows.Forms.Label
  108.         Me.Label1 = New System.Windows.Forms.Label
  109.         Me.Panel2 = New System.Windows.Forms.Panel
  110.         Me.dgPd = New System.Windows.Forms.DataGrid
  111.         Me.GroupBox2.SuspendLayout()
  112.         Me.Panel1.SuspendLayout()
  113.         Me.GroupBox1.SuspendLayout()
  114.         Me.Panel2.SuspendLayout()
  115.         CType(Me.dgPd, System.ComponentModel.ISupportInitialize).BeginInit()
  116.         Me.SuspendLayout()
  117.         '
  118.         'tbrpd
  119.         '
  120.         Me.tbrpd.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  121.         Me.tbrpd.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrAdd, Me.tbrSave, Me.tbrPrint, Me.tbrsp, Me.tbrExit})
  122.         Me.tbrpd.DropDownArrows = True
  123.         Me.tbrpd.ImageList = Me.ImageList2
  124.         Me.tbrpd.Location = New System.Drawing.Point(0, 0)
  125.         Me.tbrpd.Name = "tbrpd"
  126.         Me.tbrpd.ShowToolTips = True
  127.         Me.tbrpd.Size = New System.Drawing.Size(681, 41)
  128.         Me.tbrpd.TabIndex = 0
  129.         '
  130.         'tbrAdd
  131.         '
  132.         Me.tbrAdd.ImageIndex = 7
  133.         Me.tbrAdd.Text = "添加"
  134.         '
  135.         'tbrSave
  136.         '
  137.         Me.tbrSave.ImageIndex = 4
  138.         Me.tbrSave.Text = "保存"
  139.         '
  140.         'tbrPrint
  141.         '
  142.         Me.tbrPrint.ImageIndex = 12
  143.         Me.tbrPrint.Text = "打印"
  144.         '
  145.         'tbrsp
  146.         '
  147.         Me.tbrsp.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  148.         '
  149.         'tbrExit
  150.         '
  151.         Me.tbrExit.ImageIndex = 11
  152.         Me.tbrExit.Text = "退出"
  153.         '
  154.         'ImageList2
  155.         '
  156.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  157.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  158.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  159.         '
  160.         'StatusBar1
  161.         '
  162.         Me.StatusBar1.Location = New System.Drawing.Point(0, 382)
  163.         Me.StatusBar1.Name = "StatusBar1"
  164.         Me.StatusBar1.Size = New System.Drawing.Size(681, 18)
  165.         Me.StatusBar1.TabIndex = 1
  166.         '
  167.         'GroupBox2
  168.         '
  169.         Me.GroupBox2.Controls.Add(Me.txtSzy)
  170.         Me.GroupBox2.Controls.Add(Me.txtBillnumber)
  171.         Me.GroupBox2.Controls.Add(Me.txtDate)
  172.         Me.GroupBox2.Controls.Add(Me.Label13)
  173.         Me.GroupBox2.Controls.Add(Me.Label12)
  174.         Me.GroupBox2.Controls.Add(Me.Label11)
  175.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
  176.         Me.GroupBox2.Location = New System.Drawing.Point(0, 41)
  177.         Me.GroupBox2.Name = "GroupBox2"
  178.         Me.GroupBox2.Size = New System.Drawing.Size(681, 49)
  179.         Me.GroupBox2.TabIndex = 4
  180.         Me.GroupBox2.TabStop = False
  181.         Me.GroupBox2.Text = "票据信息"
  182.         '
  183.         'txtSzy
  184.         '
  185.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtSzy, True)
  186.         Me.MsdnTextboxValidator1.SetDataType(Me.txtSzy, MSDNTextboxValidator.DataTypeConstants.StringType)
  187.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtSzy, "")
  188.         Me.txtSzy.Location = New System.Drawing.Point(56, 19)
  189.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtSzy, "")
  190.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtSzy, "")
  191.         Me.txtSzy.Name = "txtSzy"
  192.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtSzy, "")
  193.         Me.MsdnTextboxValidator1.SetRequired(Me.txtSzy, False)
  194.         Me.txtSzy.TabIndex = 6
  195.         Me.txtSzy.Text = ""
  196.         '
  197.         'txtBillnumber
  198.         '
  199.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBillnumber, True)
  200.         Me.MsdnTextboxValidator1.SetDataType(Me.txtBillnumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  201.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBillnumber, "")
  202.         Me.txtBillnumber.Location = New System.Drawing.Point(486, 19)
  203.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBillnumber, "")
  204.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtBillnumber, "")
  205.         Me.txtBillnumber.Name = "txtBillnumber"
  206.         Me.txtBillnumber.ReadOnly = True
  207.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBillnumber, "")
  208.         Me.MsdnTextboxValidator1.SetRequired(Me.txtBillnumber, False)
  209.         Me.txtBillnumber.Size = New System.Drawing.Size(174, 21)
  210.         Me.txtBillnumber.TabIndex = 5
  211.         Me.txtBillnumber.Text = ""
  212.         '
  213.         'txtDate
  214.         '
  215.         Me.txtDate.Location = New System.Drawing.Point(222, 19)
  216.         Me.txtDate.Name = "txtDate"
  217.         Me.txtDate.Size = New System.Drawing.Size(138, 21)
  218.         Me.txtDate.TabIndex = 4
  219.         '
  220.         'Label13
  221.         '
  222.         Me.Label13.AutoSize = True
  223.         Me.Label13.Location = New System.Drawing.Point(456, 25)
  224.         Me.Label13.Name = "Label13"
  225.         Me.Label13.Size = New System.Drawing.Size(42, 17)
  226.         Me.Label13.TabIndex = 2
  227.         Me.Label13.Text = "票号："
  228.         '
  229.         'Label12
  230.         '
  231.         Me.Label12.AutoSize = True
  232.         Me.Label12.Location = New System.Drawing.Point(192, 25)
  233.         Me.Label12.Name = "Label12"
  234.         Me.Label12.Size = New System.Drawing.Size(42, 17)
  235.         Me.Label12.TabIndex = 1
  236.         Me.Label12.Text = "日期："
  237.         '
  238.         'Label11
  239.         '
  240.         Me.Label11.AutoSize = True
  241.         Me.Label11.Location = New System.Drawing.Point(6, 25)
  242.         Me.Label11.Name = "Label11"
  243.         Me.Label11.Size = New System.Drawing.Size(54, 17)
  244.         Me.Label11.TabIndex = 0
  245.         Me.Label11.Text = "操作员："
  246.         '
  247.         'MsdnTextboxValidator1
  248.         '
  249.         Me.MsdnTextboxValidator1.DisplayControl = Nothing
  250.         Me.MsdnTextboxValidator1.ErrorProvider = Nothing
  251.         Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
  252.         Me.MsdnTextboxValidator1.TooltipProvider = Nothing
  253.         '
  254.         'txtProduct
  255.         '
  256.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtProduct, True)
  257.         Me.MsdnTextboxValidator1.SetDataType(Me.txtProduct, MSDNTextboxValidator.DataTypeConstants.StringType)
  258.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtProduct, "")
  259.         Me.txtProduct.Location = New System.Drawing.Point(552, 37)
  260.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtProduct, "")
  261.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtProduct, "")
  262.         Me.txtProduct.Name = "txtProduct"
  263.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtProduct, "")
  264.         Me.MsdnTextboxValidator1.SetRequired(Me.txtProduct, False)
  265.         Me.txtProduct.Size = New System.Drawing.Size(108, 21)
  266.         Me.txtProduct.TabIndex = 19
  267.         Me.txtProduct.Text = ""
  268.         '
  269.         'txtBatch
  270.         '
  271.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBatch, True)
  272.         Me.MsdnTextboxValidator1.SetDataType(Me.txtBatch, MSDNTextboxValidator.DataTypeConstants.StringType)
  273.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBatch, "")
  274.         Me.txtBatch.Location = New System.Drawing.Point(468, 37)
  275.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBatch, "")
  276.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtBatch, "")
  277.         Me.txtBatch.Name = "txtBatch"
  278.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBatch, "")
  279.         Me.MsdnTextboxValidator1.SetRequired(Me.txtBatch, False)
  280.         Me.txtBatch.Size = New System.Drawing.Size(75, 21)
  281.         Me.txtBatch.TabIndex = 18
  282.         Me.txtBatch.Text = ""
  283.         '
  284.         'txtMoney
  285.         '
  286.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMoney, True)
  287.         Me.MsdnTextboxValidator1.SetDataType(Me.txtMoney, MSDNTextboxValidator.DataTypeConstants.StringType)
  288.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMoney, "")
  289.         Me.txtMoney.Location = New System.Drawing.Point(402, 37)
  290.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMoney, "")
  291.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtMoney, "")
  292.         Me.txtMoney.Name = "txtMoney"
  293.         Me.txtMoney.ReadOnly = True
  294.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMoney, "")
  295.         Me.MsdnTextboxValidator1.SetRequired(Me.txtMoney, False)
  296.         Me.txtMoney.Size = New System.Drawing.Size(60, 21)
  297.         Me.txtMoney.TabIndex = 17
  298.         Me.txtMoney.Text = ""
  299.         '
  300.         'txtPrice
  301.         '
  302.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPrice, True)
  303.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPrice, MSDNTextboxValidator.DataTypeConstants.StringType)
  304.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPrice, "")
  305.         Me.txtPrice.Location = New System.Drawing.Point(336, 37)
  306.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPrice, "")
  307.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPrice, "")
  308.         Me.txtPrice.Name = "txtPrice"
  309.         Me.txtPrice.ReadOnly = True
  310.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPrice, "")
  311.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPrice, False)
  312.         Me.txtPrice.Size = New System.Drawing.Size(60, 21)
  313.         Me.txtPrice.TabIndex = 16
  314.         Me.txtPrice.Text = ""
  315.         '
  316.         'txtCount
  317.         '
  318.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCount, True)
  319.         Me.MsdnTextboxValidator1.SetDataType(Me.txtCount, MSDNTextboxValidator.DataTypeConstants.Int16Type)
  320.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCount, "")
  321.         Me.txtCount.Location = New System.Drawing.Point(282, 37)
  322.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCount, "")
  323.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtCount, "")
  324.         Me.txtCount.Name = "txtCount"
  325.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCount, "")
  326.         Me.MsdnTextboxValidator1.SetRequired(Me.txtCount, False)
  327.         Me.txtCount.Size = New System.Drawing.Size(48, 21)
  328.         Me.txtCount.TabIndex = 15
  329.         Me.txtCount.Text = ""
  330.         '
  331.         'txtUnit
  332.         '
  333.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtUnit, True)
  334.         Me.MsdnTextboxValidator1.SetDataType(Me.txtUnit, MSDNTextboxValidator.DataTypeConstants.StringType)
  335.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtUnit, "")
  336.         Me.txtUnit.Location = New System.Drawing.Point(246, 37)
  337.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtUnit, "")
  338.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtUnit, "")
  339.         Me.txtUnit.Name = "txtUnit"
  340.         Me.txtUnit.ReadOnly = True
  341.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtUnit, "")
  342.         Me.MsdnTextboxValidator1.SetRequired(Me.txtUnit, False)
  343.         Me.txtUnit.Size = New System.Drawing.Size(30, 21)
  344.         Me.txtUnit.TabIndex = 14
  345.         Me.txtUnit.Text = ""
  346.         '
  347.         'txtMedName
  348.         '
  349.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMedName, True)
  350.         Me.MsdnTextboxValidator1.SetDataType(Me.txtMedName, MSDNTextboxValidator.DataTypeConstants.StringType)
  351.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMedName, "")
  352.         Me.txtMedName.Location = New System.Drawing.Point(114, 37)
  353.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMedName, "")
  354.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtMedName, "")
  355.         Me.txtMedName.Name = "txtMedName"
  356.         Me.txtMedName.ReadOnly = True
  357.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMedName, "")
  358.         Me.MsdnTextboxValidator1.SetRequired(Me.txtMedName, False)
  359.         Me.txtMedName.Size = New System.Drawing.Size(126, 21)
  360.         Me.txtMedName.TabIndex = 12
  361.         Me.txtMedName.Text = ""
  362.         '
  363.         'txtMedNumber
  364.         '
  365.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMedNumber, True)
  366.         Me.MsdnTextboxValidator1.SetDataType(Me.txtMedNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  367.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMedNumber, "")
  368.         Me.txtMedNumber.Location = New System.Drawing.Point(48, 37)
  369.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMedNumber, "")
  370.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtMedNumber, "")
  371.         Me.txtMedNumber.Name = "txtMedNumber"
  372.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMedNumber, "")
  373.         Me.MsdnTextboxValidator1.SetRequired(Me.txtMedNumber, False)
  374.         Me.txtMedNumber.Size = New System.Drawing.Size(60, 21)
  375.         Me.txtMedNumber.TabIndex = 11
  376.         Me.txtMedNumber.Text = ""
  377.         '
  378.         'txtNo
  379.         '
  380.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNo, True)
  381.         Me.MsdnTextboxValidator1.SetDataType(Me.txtNo, MSDNTextboxValidator.DataTypeConstants.StringType)
  382.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNo, "")
  383.         Me.txtNo.Location = New System.Drawing.Point(6, 37)
  384.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNo, "")
  385.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtNo, "")
  386.         Me.txtNo.Name = "txtNo"
  387.         Me.txtNo.ReadOnly = True
  388.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNo, "")
  389.         Me.MsdnTextboxValidator1.SetRequired(Me.txtNo, False)
  390.         Me.txtNo.Size = New System.Drawing.Size(36, 21)
  391.         Me.txtNo.TabIndex = 10
  392.         Me.txtNo.Text = "1"
  393.         '
  394.         'Panel1
  395.         '
  396.         Me.Panel1.Controls.Add(Me.GroupBox1)
  397.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
  398.         Me.Panel1.Location = New System.Drawing.Point(0, 90)
  399.         Me.Panel1.Name = "Panel1"
  400.         Me.Panel1.Size = New System.Drawing.Size(681, 86)
  401.         Me.Panel1.TabIndex = 5
  402.         '
  403.         'GroupBox1
  404.         '
  405.         Me.GroupBox1.Controls.Add(Me.txtProduct)
  406.         Me.GroupBox1.Controls.Add(Me.txtBatch)
  407.         Me.GroupBox1.Controls.Add(Me.txtMoney)
  408.         Me.GroupBox1.Controls.Add(Me.txtPrice)
  409.         Me.GroupBox1.Controls.Add(Me.txtCount)
  410.         Me.GroupBox1.Controls.Add(Me.txtUnit)
  411.         Me.GroupBox1.Controls.Add(Me.txtMedName)
  412.         Me.GroupBox1.Controls.Add(Me.txtMedNumber)
  413.         Me.GroupBox1.Controls.Add(Me.txtNo)
  414.         Me.GroupBox1.Controls.Add(Me.Label10)
  415.         Me.GroupBox1.Controls.Add(Me.Label9)
  416.         Me.GroupBox1.Controls.Add(Me.Label8)
  417.         Me.GroupBox1.Controls.Add(Me.Label7)
  418.         Me.GroupBox1.Controls.Add(Me.Label6)
  419.         Me.GroupBox1.Controls.Add(Me.Label5)
  420.         Me.GroupBox1.Controls.Add(Me.Label3)
  421.         Me.GroupBox1.Controls.Add(Me.Label2)
  422.         Me.GroupBox1.Controls.Add(Me.Label1)
  423.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
  424.         Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  425.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  426.         Me.GroupBox1.Name = "GroupBox1"
  427.         Me.GroupBox1.Size = New System.Drawing.Size(681, 86)
  428.         Me.GroupBox1.TabIndex = 3
  429.         Me.GroupBox1.TabStop = False
  430.         Me.GroupBox1.Text = "盘点库存信息"
  431.         '
  432.         'Label10
  433.         '
  434.         Me.Label10.AutoSize = True
  435.         Me.Label10.Location = New System.Drawing.Point(576, 19)
  436.         Me.Label10.Name = "Label10"
  437.         Me.Label10.Size = New System.Drawing.Size(29, 17)
  438.         Me.Label10.TabIndex = 9
  439.         Me.Label10.Text = "摘要"
  440.         '
  441.         'Label9
  442.         '
  443.         Me.Label9.AutoSize = True
  444.         Me.Label9.Location = New System.Drawing.Point(492, 19)
  445.         Me.Label9.Name = "Label9"
  446.         Me.Label9.Size = New System.Drawing.Size(29, 17)
  447.         Me.Label9.TabIndex = 8
  448.         Me.Label9.Text = "批号"
  449.         '
  450.         'Label8
  451.         '
  452.         Me.Label8.AutoSize = True
  453.         Me.Label8.Location = New System.Drawing.Point(420, 19)
  454.         Me.Label8.Name = "Label8"
  455.         Me.Label8.Size = New System.Drawing.Size(29, 17)
  456.         Me.Label8.TabIndex = 7
  457.         Me.Label8.Text = "金额"
  458.         '
  459.         'Label7
  460.         '
  461.         Me.Label7.AutoSize = True
  462.         Me.Label7.Location = New System.Drawing.Point(354, 19)
  463.         Me.Label7.Name = "Label7"
  464.         Me.Label7.Size = New System.Drawing.Size(29, 17)
  465.         Me.Label7.TabIndex = 6
  466.         Me.Label7.Text = "进价"
  467.         '
  468.         'Label6
  469.         '
  470.         Me.Label6.AutoSize = True
  471.         Me.Label6.Location = New System.Drawing.Point(294, 19)
  472.         Me.Label6.Name = "Label6"
  473.         Me.Label6.Size = New System.Drawing.Size(29, 17)
  474.         Me.Label6.TabIndex = 5
  475.         Me.Label6.Text = "数量"
  476.         '
  477.         'Label5
  478.         '
  479.         Me.Label5.AutoSize = True
  480.         Me.Label5.Location = New System.Drawing.Point(246, 19)
  481.         Me.Label5.Name = "Label5"
  482.         Me.Label5.Size = New System.Drawing.Size(29, 17)
  483.         Me.Label5.TabIndex = 4
  484.         Me.Label5.Text = "单位"
  485.         '
  486.         'Label3
  487.         '
  488.         Me.Label3.AutoSize = True
  489.         Me.Label3.Location = New System.Drawing.Point(156, 19)
  490.         Me.Label3.Name = "Label3"
  491.         Me.Label3.Size = New System.Drawing.Size(54, 17)
  492.         Me.Label3.TabIndex = 2
  493.         Me.Label3.Text = "药品名称"
  494.         '
  495.         'Label2
  496.         '
  497.         Me.Label2.AutoSize = True
  498.         Me.Label2.Location = New System.Drawing.Point(54, 19)
  499.         Me.Label2.Name = "Label2"
  500.         Me.Label2.Size = New System.Drawing.Size(54, 17)
  501.         Me.Label2.TabIndex = 1
  502.         Me.Label2.Text = "药品编号"
  503.         '
  504.         'Label1
  505.         '
  506.         Me.Label1.AutoSize = True
  507.         Me.Label1.Location = New System.Drawing.Point(12, 19)
  508.         Me.Label1.Name = "Label1"
  509.         Me.Label1.Size = New System.Drawing.Size(29, 17)
  510.         Me.Label1.TabIndex = 0
  511.         Me.Label1.Text = "序号"
  512.         '
  513.         'Panel2
  514.         '
  515.         Me.Panel2.Controls.Add(Me.dgPd)
  516.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
  517.         Me.Panel2.Location = New System.Drawing.Point(0, 176)
  518.         Me.Panel2.Name = "Panel2"
  519.         Me.Panel2.Size = New System.Drawing.Size(681, 206)
  520.         Me.Panel2.TabIndex = 6
  521.         '
  522.         'dgPd
  523.         '
  524.         Me.dgPd.AlternatingBackColor = System.Drawing.Color.Gainsboro
  525.         Me.dgPd.BackColor = System.Drawing.Color.Silver
  526.         Me.dgPd.BackgroundColor = System.Drawing.Color.Silver
  527.         Me.dgPd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  528.         Me.dgPd.CaptionBackColor = System.Drawing.Color.DarkSlateBlue
  529.         Me.dgPd.CaptionFont = New System.Drawing.Font("Tahoma", 8.0!)
  530.         Me.dgPd.CaptionForeColor = System.Drawing.Color.White
  531.         Me.dgPd.CaptionVisible = False
  532.         Me.dgPd.DataMember = ""
  533.         Me.dgPd.Dock = System.Windows.Forms.DockStyle.Fill
  534.         Me.dgPd.FlatMode = True
  535.         Me.dgPd.ForeColor = System.Drawing.Color.Black
  536.         Me.dgPd.GridLineColor = System.Drawing.Color.White
  537.         Me.dgPd.HeaderBackColor = System.Drawing.Color.DarkGray
  538.         Me.dgPd.HeaderForeColor = System.Drawing.Color.Black
  539.         Me.dgPd.LinkColor = System.Drawing.Color.DarkSlateBlue
  540.         Me.dgPd.Location = New System.Drawing.Point(0, 0)
  541.         Me.dgPd.Name = "dgPd"
  542.         Me.dgPd.ParentRowsBackColor = System.Drawing.Color.Black
  543.         Me.dgPd.ParentRowsForeColor = System.Drawing.Color.White
  544.         Me.dgPd.RowHeadersVisible = False
  545.         Me.dgPd.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
  546.         Me.dgPd.SelectionForeColor = System.Drawing.Color.White
  547.         Me.dgPd.Size = New System.Drawing.Size(681, 206)
  548.         Me.dgPd.TabIndex = 4
  549.         '
  550.         'frmPd
  551.         '
  552.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  553.         Me.ClientSize = New System.Drawing.Size(681, 400)
  554.         Me.Controls.Add(Me.Panel2)
  555.         Me.Controls.Add(Me.Panel1)
  556.         Me.Controls.Add(Me.GroupBox2)
  557.         Me.Controls.Add(Me.StatusBar1)
  558.         Me.Controls.Add(Me.tbrpd)
  559.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  560.         Me.Name = "frmPd"
  561.         Me.Text = "库存盘点"
  562.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  563.         Me.GroupBox2.ResumeLayout(False)
  564.         Me.Panel1.ResumeLayout(False)
  565.         Me.GroupBox1.ResumeLayout(False)
  566.         Me.Panel2.ResumeLayout(False)
  567.         CType(Me.dgPd, System.ComponentModel.ISupportInitialize).EndInit()
  568.         Me.ResumeLayout(False)
  570.     End Sub
  572. #End Region
  573.     Public bool As Boolean
  574.     Public lswebpd As New jxcmanage
  575.     Public dslocalpd As DataSet = lswebpd.returndataset("select 序号,药品编号,药品名称,单位,进价,数量,金额,批号,货位,日期,票号,操作员 from wz_pd", "wz_pd")
  576.     Public Function getinfo(ByVal strqueryid As String) As String
  577.         Dim strOrderId As String
  578.         strOrderId = strqueryid
  579.         Return strOrderId
  580.     End Function
  581.     Private Sub frmPd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  582.         dslocalpd.Clear()
  583.         dgPd.DataSource = dslocalpd.Tables("wz_pd").DefaultView
  584.         Dim frmloginer As New frmLogin
  585.         txtSzy.Text = frmloginer.struser
  586.         txtDate.Value = Today.ToString
  587.     End Sub
  588.     Private Sub add()
  589.         dslocalpd.Clear()
  591.         txtBillnumber.Text = lswebpd.selectbill("PD").ToString
  592.         txtNo.Text = 1
  593.         txtMedNumber.Text = ""
  594.         txtMedNumber.Focus()
  595.         txtMedName.Text() = ""
  596.         txtUnit.Text() = ""
  597.         txtPrice.Text() = 0.0
  598.         txtCount.Text() = 0
  599.         txtBatch.Text() = ""
  600.         txtProduct.Text() = ""
  601.     End Sub
  602.     Private Sub CalMxMoney()
  603.         Dim price As Double = CType(txtPrice.Text, Double)
  604.         Dim count As Int16 = CInt(txtCount.Text)
  605.         Me.txtMoney.Text = (price * count).ToString
  606.     End Sub
  608.     Private Sub cboczy_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  609.         If e.KeyCode = Keys.Enter Then
  610.             Me.txtMedNumber.Focus()
  611.         End If
  612.     End Sub
  614.     Private Sub txtCount_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs)
  615.         If Trim(Me.txtCount.Text) = "" Then
  616.             MessageBox.Show("请输入数量!", "提示", MessageBoxButtons.OK)
  617.             Me.txtCount.Focus()
  618.             Exit Sub
  619.         End If
  620.         If IsNumeric(Me.txtCount.Text) = False Then
  621.             MessageBox.Show("数量输入错误", "提示", MessageBoxButtons.OK)
  622.             Me.txtCount.Focus()
  623.             Exit Sub
  624.         End If
  625.     End Sub
  626.     Private Sub clear()
  627.         txtDate.Enabled = False
  628.         txtBillnumber.ReadOnly = True
  629.         txtNo.ReadOnly = True
  630.         txtMedNumber.Text = ""
  631.         txtMedName.Text() = ""
  632.         txtUnit.Text() = ""
  633.         txtPrice.Text() = 0.0
  634.         txtCount.Text() = 0
  635.         txtBatch.Text() = ""
  636.         txtProduct.Text() = ""
  637.     End Sub
  638.     Private Sub txtBatch_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs)
  639.         If Trim(Me.txtBatch.Text) = "" Then
  640.             MessageBox.Show("请输入数量!", "提示", MessageBoxButtons.OK)
  641.             Me.txtBatch.Focus()
  642.             Exit Sub
  643.         End If
  644.     End Sub
  645.     Private Sub save()
  646.         If lswebpd.updatedataset("select 序号,药品编号,药品名称,单位,进价,数量,金额,批号,货位,日期,票号,操作员 from wz_pd", "wz_pd", dslocalpd, DataRowState.Added) = True Then
  647.             MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  648.         Else
  649.             MessageBox.Show("信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  650.         End If
  651.     End Sub
  652.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  653.         If strboolean = "tbrAdd.Enabled = True" Then
  654.             tbrSave.Enabled = False
  655.             tbrPrint.Enabled = False
  656.             tbrExit.Enabled = True
  657.         ElseIf strboolean = "tbrAdd.Enabled = False" Then
  658.             tbrAdd.Enabled = False
  659.             tbrSave.Enabled = True
  660.             tbrPrint.Enabled = True
  661.             tbrExit.Enabled = True
  662.         ElseIf strboolean = "tbrSave.Enabled = True" Then
  663.             tbrAdd.Enabled = False
  664.             tbrPrint.Enabled = True
  665.             tbrExit.Enabled = True
  666.         ElseIf strboolean = "tbrSave.Enabled = False" Then
  667.             tbrSave.Enabled = False
  668.             tbrAdd.Enabled = True
  669.             tbrPrint.Enabled = True
  670.             tbrExit.Enabled = True
  671.         End If
  672.     End Sub
  673.     Private Sub tbrpd_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrpd.ButtonClick
  674.         Select Case e.Button.Text
  675.             Case "添加"
  676.                 bool = False
  677.                 tbnEnable("tbrAdd.Enabled = False", tbrpd)
  678.                 add()
  679.             Case "保存"
  680.                 bool = True
  681.                 tbnEnable("tbrSave.Enabled = False", tbrpd)
  682.                 save()
  683.             Case "打印"
  684.                 Dim frmviewpder As New frmviewpd
  685.                 frmviewpder.Show()
  686.             Case "退出"
  688.                 Me.Close()
  689.                
  690.         End Select
  691.     End Sub
  695.     Private Sub txtMedNumber_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMedNumber.KeyDown
  696.         If e.KeyCode = Keys.Enter Then
  697.             Dim dlgs As frmMedKcQuery = New frmMedKcQuery
  698.             dlgs.PYMs = Me.getinfo(txtMedNumber.Text)
  699.             dlgs.ShowDialog()
  700.             Dim medIdvalue, medbatch, hw As String
  701.             medIdvalue = dlgs.GetInfo("药品编号")
  702.             medbatch = dlgs.GetInfo("批号")
  704.             hw = dlgs.GetInfo("货位")
  706.             If medIdvalue Is Nothing Then
  707.                 MessageBox.Show("没有查到记录，请重新开始！")
  708.             Else
  709.                 Dim runSqlQuery As String
  710.                 runSqlQuery = "select * from wz_kc where 药品编号='" & medIdvalue & "'and 批号 ='" & medbatch & "' and wz_kc.货位='" & hw & "'"
  711.                 Dim dv As DataView
  712.                 ' Dim mOrderId As New managers
  713.                 '调用mCustomId对象的SPcustomersID函数
  714.                 Dim dtOrder As DataTable = lswebpd.runSql(runSqlQuery).Tables(0)
  715.                 'bb为一随意表名
  716.                 dtOrder.TableName = "bb"
  717.                 dv = dtOrder.DefaultView
  718.                 txtMedNumber.Text = dv(0)("药品编号")
  719.                 txtMedName.Text = dv(0)("药品名称")
  720.                 txtUnit.Text = dv(0)("单位")
  721.                 txtPrice.Text = dv(0)("进价")
  722.                 txtBatch.Text = dv(0)("批号")
  723.                 txtProduct.Text = dv(0)("货位")
  724.             End If
  725.             txtCount.Focus()
  726.         End If
  727.     End Sub
  731.     Private Sub txtProduct_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtProduct.KeyDown
  732.         If e.KeyCode = Keys.Enter Then
  733.             Static i As Int16
  734.             If dslocalpd.Tables("wz_pd").Rows.Count < 1 Then
  735.                 i = 1
  736.             Else
  737.                 i = i + 1
  738.             End If
  739.             txtNo.Text = CStr(i)
  740.             Dim dr As DataRow = dslocalpd.Tables("wz_pd").NewRow()
  741.             dr("序号") = CInt(Me.txtNo.Text.Trim)
  742.             dr("药品编号") = Me.txtMedNumber.Text.Trim
  743.             dr("药品名称") = Me.txtMedName.Text.Trim
  744.             dr("单位") = Me.txtUnit.Text.Trim
  745.             dr("进价") = CDec(Me.txtPrice.Text.Trim)
  746.             dr("数量") = Me.txtCount.Text.Trim
  747.             dr("金额") = CDec(Me.txtPrice.Text.Trim) * CInt(Me.txtCount.Text.Trim)
  748.             dr("批号") = Me.txtBatch.Text.Trim
  749.             dr("日期") = Me.txtDate.Text.Trim
  750.             dr("票号") = Me.txtBillnumber.Text.Trim
  751.             dr("货位") = Me.txtProduct.Text.Trim
  752.             dr("操作员") = Me.txtSzy.Text.Trim
  753.             dslocalpd.Tables("wz_pd").Rows.Add(dr)
  754.             clear()
  755.             Me.txtMedNumber.Focus()
  756.         End If
  757.         dgPd.DataSource = dslocalpd.Tables("wz_pd").DefaultView
  758.     End Sub
  762.     Private Sub txtCount_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCount.KeyDown
  763.         If e.KeyCode = Keys.Enter Then
  764.             Me.txtBatch.Focus()
  765.             CalMxMoney()
  766.         End If
  767.     End Sub
  771.     Private Sub txtBatch_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBatch.KeyDown
  772.         If e.KeyCode = Keys.Enter Then
  773.             Me.txtProduct.Focus()
  774.         End If
  775.     End Sub
  778.     Private Sub frmPd_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
  779.         If txtBillnumber.Text <> String.Empty And tbrSave.Enabled = True Then
  781.             lswebpd.cancelbill(txtBillnumber.Text.Trim)
  783.         End If
  784.     End Sub
  785. End Class