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

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

医药行业

开发平台：

Visual Basic

frmPsPf.vb：源码内容
  2. Public Class frmPsPf
  3.     Inherits System.Windows.Forms.Form
  5. #Region " Windows 窗体设计器生成的代码 "
  7.     Public Sub New()
  8.         MyBase.New()
  10.         '该调用是 Windows 窗体设计器所必需的。
  11.         InitializeComponent()
  13.         '在 InitializeComponent() 调用之后添加任何初始化
  15.     End Sub
  17.     '窗体重写 dispose 以清理组件列表。
  18.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  19.         If disposing Then
  20.             If Not (components Is Nothing) Then
  21.                 components.Dispose()
  22.             End If
  23.         End If
  24.         MyBase.Dispose(disposing)
  25.     End Sub
  27.     'Windows 窗体设计器所必需的
  28.     Private components As System.ComponentModel.IContainer
  30.     '注意: 以下过程是 Windows 窗体设计器所必需的
  31.     '可以使用 Windows 窗体设计器修改此过程。
  32.     '不要使用代码编辑器修改它。
  33.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  34.     Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
  35.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  36.     Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
  37.     Friend WithEvents Label2 As System.Windows.Forms.Label
  38.     Friend WithEvents Button3 As System.Windows.Forms.Button
  39.     Friend WithEvents 票据信息 As System.Windows.Forms.GroupBox
  40.     Friend WithEvents Label21 As System.Windows.Forms.Label
  41.     Friend WithEvents Label8 As System.Windows.Forms.Label
  42.     Friend WithEvents Label7 As System.Windows.Forms.Label
  43.     Friend WithEvents Label6 As System.Windows.Forms.Label
  44.     Friend WithEvents Label5 As System.Windows.Forms.Label
  45.     Friend WithEvents Label4 As System.Windows.Forms.Label
  46.     Friend WithEvents Label3 As System.Windows.Forms.Label
  47.     Friend WithEvents Label9 As System.Windows.Forms.Label
  48.     Friend WithEvents Label10 As System.Windows.Forms.Label
  49.     Friend WithEvents txtShy As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtBhy As System.Windows.Forms.TextBox
  51.     Friend WithEvents txtBhType As System.Windows.Forms.TextBox
  52.     Friend WithEvents txtPsCenter As System.Windows.Forms.TextBox
  53.     Friend WithEvents txtPsMedName As System.Windows.Forms.TextBox
  54.     Friend WithEvents txtBillNumber As System.Windows.Forms.TextBox
  55.     Friend WithEvents txtsum As System.Windows.Forms.TextBox
  56.     Friend WithEvents tbnSh As System.Windows.Forms.ToolBarButton
  57.     Friend WithEvents tbnPrint As System.Windows.Forms.ToolBarButton
  58.     Friend WithEvents tbnExit As System.Windows.Forms.ToolBarButton
  59.     Friend WithEvents Label11 As System.Windows.Forms.Label
  60.     Friend WithEvents lblsh As System.Windows.Forms.Label
  61.     Friend WithEvents txtBhDate As System.Windows.Forms.TextBox
  62.     Friend WithEvents txtDhDate As System.Windows.Forms.TextBox
  63.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  64.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  65.     Friend WithEvents Button2 As System.Windows.Forms.Button
  66.     Friend WithEvents Button1 As System.Windows.Forms.Button
  67.     Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
  68.     Friend WithEvents Label1 As System.Windows.Forms.Label
  69.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  70.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  71.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  72.         Me.components = New System.ComponentModel.Container
  73.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPsPf))
  74.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  75.         Me.ToolBar1 = New System.Windows.Forms.ToolBar
  76.         Me.tbnSh = New System.Windows.Forms.ToolBarButton
  77.         Me.tbnPrint = New System.Windows.Forms.ToolBarButton
  78.         Me.tbnExit = New System.Windows.Forms.ToolBarButton
  79.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  80.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  81.         Me.Button3 = New System.Windows.Forms.Button
  82.         Me.Label2 = New System.Windows.Forms.Label
  83.         Me.ListBox1 = New System.Windows.Forms.ListBox
  84.         Me.票据信息 = New System.Windows.Forms.GroupBox
  85.         Me.txtDhDate = New System.Windows.Forms.TextBox
  86.         Me.txtBhDate = New System.Windows.Forms.TextBox
  87.         Me.lblsh = New System.Windows.Forms.Label
  88.         Me.Label11 = New System.Windows.Forms.Label
  89.         Me.txtsum = New System.Windows.Forms.TextBox
  90.         Me.Label21 = New System.Windows.Forms.Label
  91.         Me.Label8 = New System.Windows.Forms.Label
  92.         Me.Label7 = New System.Windows.Forms.Label
  93.         Me.Label6 = New System.Windows.Forms.Label
  94.         Me.Label5 = New System.Windows.Forms.Label
  95.         Me.Label4 = New System.Windows.Forms.Label
  96.         Me.Label3 = New System.Windows.Forms.Label
  97.         Me.Label9 = New System.Windows.Forms.Label
  98.         Me.Label10 = New System.Windows.Forms.Label
  99.         Me.txtShy = New System.Windows.Forms.TextBox
  100.         Me.txtBhy = New System.Windows.Forms.TextBox
  101.         Me.txtBhType = New System.Windows.Forms.TextBox
  102.         Me.txtPsCenter = New System.Windows.Forms.TextBox
  103.         Me.txtPsMedName = New System.Windows.Forms.TextBox
  104.         Me.txtBillNumber = New System.Windows.Forms.TextBox
  105.         Me.Panel1 = New System.Windows.Forms.Panel
  106.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  107.         Me.Button2 = New System.Windows.Forms.Button
  108.         Me.Button1 = New System.Windows.Forms.Button
  109.         Me.ComboBox1 = New System.Windows.Forms.ComboBox
  110.         Me.Label1 = New System.Windows.Forms.Label
  111.         Me.dgview = New System.Windows.Forms.DataGrid
  112.         Me.GroupBox1.SuspendLayout()
  113.         Me.票据信息.SuspendLayout()
  114.         Me.Panel1.SuspendLayout()
  115.         Me.GroupBox2.SuspendLayout()
  116.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  117.         Me.SuspendLayout()
  118.         '
  119.         'StatusBar1
  120.         '
  121.         Me.StatusBar1.Location = New System.Drawing.Point(0, 428)
  122.         Me.StatusBar1.Name = "StatusBar1"
  123.         Me.StatusBar1.Size = New System.Drawing.Size(741, 17)
  124.         Me.StatusBar1.TabIndex = 0
  125.         Me.StatusBar1.Text = "StatusBar1"
  126.         '
  127.         'ToolBar1
  128.         '
  129.         Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  130.         Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnSh, Me.tbnPrint, Me.tbnExit})
  131.         Me.ToolBar1.DropDownArrows = True
  132.         Me.ToolBar1.ImageList = Me.ImageList2
  133.         Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
  134.         Me.ToolBar1.Name = "ToolBar1"
  135.         Me.ToolBar1.ShowToolTips = True
  136.         Me.ToolBar1.Size = New System.Drawing.Size(741, 41)
  137.         Me.ToolBar1.TabIndex = 1
  138.         '
  139.         'tbnSh
  140.         '
  141.         Me.tbnSh.ImageIndex = 2
  142.         Me.tbnSh.Text = "审核"
  143.         '
  144.         'tbnPrint
  145.         '
  146.         Me.tbnPrint.ImageIndex = 12
  147.         Me.tbnPrint.Text = "打印"
  148.         '
  149.         'tbnExit
  150.         '
  151.         Me.tbnExit.ImageIndex = 11
  152.         Me.tbnExit.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.         'GroupBox1
  161.         '
  162.         Me.GroupBox1.Controls.Add(Me.Button3)
  163.         Me.GroupBox1.Controls.Add(Me.Label2)
  164.         Me.GroupBox1.Controls.Add(Me.ListBox1)
  165.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
  166.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  167.         Me.GroupBox1.Name = "GroupBox1"
  168.         Me.GroupBox1.Size = New System.Drawing.Size(222, 387)
  169.         Me.GroupBox1.TabIndex = 2
  170.         Me.GroupBox1.TabStop = False
  171.         Me.GroupBox1.Text = "待处理的补货单"
  172.         '
  173.         'Button3
  174.         '
  175.         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  176.         Me.Button3.Location = New System.Drawing.Point(66, 12)
  177.         Me.Button3.Name = "Button3"
  178.         Me.Button3.Size = New System.Drawing.Size(56, 19)
  179.         Me.Button3.TabIndex = 2
  180.         Me.Button3.Text = "刷新"
  181.         Me.Button3.TextAlign = System.Drawing.ContentAlignment.TopCenter
  182.         '
  183.         'Label2
  184.         '
  185.         Me.Label2.AutoSize = True
  186.         Me.Label2.Location = New System.Drawing.Point(12, 19)
  187.         Me.Label2.Name = "Label2"
  188.         Me.Label2.Size = New System.Drawing.Size(60, 17)
  189.         Me.Label2.TabIndex = 1
  190.         Me.Label2.Text = "选择票号:"
  191.         '
  192.         'ListBox1
  193.         '
  194.         Me.ListBox1.ItemHeight = 12
  195.         Me.ListBox1.Location = New System.Drawing.Point(6, 37)
  196.         Me.ListBox1.Name = "ListBox1"
  197.         Me.ListBox1.Size = New System.Drawing.Size(210, 304)
  198.         Me.ListBox1.TabIndex = 0
  199.         '
  200.         '票据信息
  201.         '
  202.         Me.票据信息.Controls.Add(Me.txtDhDate)
  203.         Me.票据信息.Controls.Add(Me.txtBhDate)
  204.         Me.票据信息.Controls.Add(Me.lblsh)
  205.         Me.票据信息.Controls.Add(Me.Label11)
  206.         Me.票据信息.Controls.Add(Me.txtsum)
  207.         Me.票据信息.Controls.Add(Me.Label21)
  208.         Me.票据信息.Controls.Add(Me.Label8)
  209.         Me.票据信息.Controls.Add(Me.Label7)
  210.         Me.票据信息.Controls.Add(Me.Label6)
  211.         Me.票据信息.Controls.Add(Me.Label5)
  212.         Me.票据信息.Controls.Add(Me.Label4)
  213.         Me.票据信息.Controls.Add(Me.Label3)
  214.         Me.票据信息.Controls.Add(Me.Label9)
  215.         Me.票据信息.Controls.Add(Me.Label10)
  216.         Me.票据信息.Controls.Add(Me.txtShy)
  217.         Me.票据信息.Controls.Add(Me.txtBhy)
  218.         Me.票据信息.Controls.Add(Me.txtBhType)
  219.         Me.票据信息.Controls.Add(Me.txtPsCenter)
  220.         Me.票据信息.Controls.Add(Me.txtPsMedName)
  221.         Me.票据信息.Controls.Add(Me.txtBillNumber)
  222.         Me.票据信息.Dock = System.Windows.Forms.DockStyle.Top
  223.         Me.票据信息.Location = New System.Drawing.Point(222, 41)
  224.         Me.票据信息.Name = "票据信息"
  225.         Me.票据信息.Size = New System.Drawing.Size(519, 124)
  226.         Me.票据信息.TabIndex = 4
  227.         Me.票据信息.TabStop = False
  228.         Me.票据信息.Text = "票据信息"
  229.         '
  230.         'txtDhDate
  231.         '
  232.         Me.txtDhDate.BorderStyle = System.Windows.Forms.BorderStyle.None
  233.         Me.txtDhDate.Location = New System.Drawing.Point(414, 19)
  234.         Me.txtDhDate.Name = "txtDhDate"
  235.         Me.txtDhDate.ReadOnly = True
  236.         Me.txtDhDate.Size = New System.Drawing.Size(84, 14)
  237.         Me.txtDhDate.TabIndex = 41
  238.         Me.txtDhDate.Text = ""
  239.         '
  240.         'txtBhDate
  241.         '
  242.         Me.txtBhDate.BorderStyle = System.Windows.Forms.BorderStyle.None
  243.         Me.txtBhDate.Location = New System.Drawing.Point(240, 19)
  244.         Me.txtBhDate.Name = "txtBhDate"
  245.         Me.txtBhDate.ReadOnly = True
  246.         Me.txtBhDate.Size = New System.Drawing.Size(102, 14)
  247.         Me.txtBhDate.TabIndex = 40
  248.         Me.txtBhDate.Text = ""
  249.         '
  250.         'lblsh
  251.         '
  252.         Me.lblsh.AutoSize = True
  253.         Me.lblsh.Location = New System.Drawing.Point(72, 93)
  254.         Me.lblsh.Name = "lblsh"
  255.         Me.lblsh.Size = New System.Drawing.Size(42, 17)
  256.         Me.lblsh.TabIndex = 39
  257.         Me.lblsh.Text = "未审核"
  258.         '
  259.         'Label11
  260.         '
  261.         Me.Label11.AutoSize = True
  262.         Me.Label11.ForeColor = System.Drawing.Color.Red
  263.         Me.Label11.Location = New System.Drawing.Point(6, 93)
  264.         Me.Label11.Name = "Label11"
  265.         Me.Label11.Size = New System.Drawing.Size(60, 17)
  266.         Me.Label11.TabIndex = 38
  267.         Me.Label11.Text = "审核状态:"
  268.         '
  269.         'txtsum
  270.         '
  271.         Me.txtsum.BorderStyle = System.Windows.Forms.BorderStyle.None
  272.         Me.txtsum.Location = New System.Drawing.Point(414, 68)
  273.         Me.txtsum.Name = "txtsum"
  274.         Me.txtsum.ReadOnly = True
  275.         Me.txtsum.Size = New System.Drawing.Size(84, 14)
  276.         Me.txtsum.TabIndex = 35
  277.         Me.txtsum.Text = ""
  278.         '
  279.         'Label21
  280.         '
  281.         Me.Label21.AutoSize = True
  282.         Me.Label21.ForeColor = System.Drawing.Color.Red
  283.         Me.Label21.Location = New System.Drawing.Point(348, 68)
  284.         Me.Label21.Name = "Label21"
  285.         Me.Label21.Size = New System.Drawing.Size(60, 17)
  286.         Me.Label21.TabIndex = 34
  287.         Me.Label21.Text = "合计金额:"
  288.         '
  289.         'Label8
  290.         '
  291.         Me.Label8.AutoSize = True
  292.         Me.Label8.Location = New System.Drawing.Point(360, 44)
  293.         Me.Label8.Name = "Label8"
  294.         Me.Label8.Size = New System.Drawing.Size(54, 17)
  295.         Me.Label8.TabIndex = 33
  296.         Me.Label8.Text = "审核员："
  297.         '
  298.         'Label7
  299.         '
  300.         Me.Label7.AutoSize = True
  301.         Me.Label7.Location = New System.Drawing.Point(174, 68)
  302.         Me.Label7.Name = "Label7"
  303.         Me.Label7.Size = New System.Drawing.Size(54, 17)
  304.         Me.Label7.TabIndex = 32
  305.         Me.Label7.Text = "补货员："
  306.         '
  307.         'Label6
  308.         '
  309.         Me.Label6.AutoSize = True
  310.         Me.Label6.Location = New System.Drawing.Point(174, 44)
  311.         Me.Label6.Name = "Label6"
  312.         Me.Label6.Size = New System.Drawing.Size(66, 17)
  313.         Me.Label6.TabIndex = 31
  314.         Me.Label6.Text = "补货类型："
  315.         '
  316.         'Label5
  317.         '
  318.         Me.Label5.AutoSize = True
  319.         Me.Label5.Location = New System.Drawing.Point(6, 68)
  320.         Me.Label5.Name = "Label5"
  321.         Me.Label5.Size = New System.Drawing.Size(66, 17)
  322.         Me.Label5.TabIndex = 30
  323.         Me.Label5.Text = "配送中心："
  324.         '
  325.         'Label4
  326.         '
  327.         Me.Label4.AutoSize = True
  328.         Me.Label4.Location = New System.Drawing.Point(6, 44)
  329.         Me.Label4.Name = "Label4"
  330.         Me.Label4.Size = New System.Drawing.Size(66, 17)
  331.         Me.Label4.TabIndex = 29
  332.         Me.Label4.Text = "配送对象："
  333.         '
  334.         'Label3
  335.         '
  336.         Me.Label3.AutoSize = True
  337.         Me.Label3.Location = New System.Drawing.Point(348, 19)
  338.         Me.Label3.Name = "Label3"
  339.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  340.         Me.Label3.TabIndex = 28
  341.         Me.Label3.Text = "到货日期："
  342.         '
  343.         'Label9
  344.         '
  345.         Me.Label9.AutoSize = True
  346.         Me.Label9.Location = New System.Drawing.Point(174, 19)
  347.         Me.Label9.Name = "Label9"
  348.         Me.Label9.Size = New System.Drawing.Size(66, 17)
  349.         Me.Label9.TabIndex = 27
  350.         Me.Label9.Text = "补货日期："
  351.         '
  352.         'Label10
  353.         '
  354.         Me.Label10.AutoSize = True
  355.         Me.Label10.Location = New System.Drawing.Point(6, 19)
  356.         Me.Label10.Name = "Label10"
  357.         Me.Label10.Size = New System.Drawing.Size(42, 17)
  358.         Me.Label10.TabIndex = 26
  359.         Me.Label10.Text = "票号："
  360.         '
  361.         'txtShy
  362.         '
  363.         Me.txtShy.BorderStyle = System.Windows.Forms.BorderStyle.None
  364.         Me.txtShy.Location = New System.Drawing.Point(414, 44)
  365.         Me.txtShy.Name = "txtShy"
  366.         Me.txtShy.ReadOnly = True
  367.         Me.txtShy.Size = New System.Drawing.Size(84, 14)
  368.         Me.txtShy.TabIndex = 25
  369.         Me.txtShy.Text = ""
  370.         '
  371.         'txtBhy
  372.         '
  373.         Me.txtBhy.BorderStyle = System.Windows.Forms.BorderStyle.None
  374.         Me.txtBhy.Location = New System.Drawing.Point(240, 68)
  375.         Me.txtBhy.Name = "txtBhy"
  376.         Me.txtBhy.ReadOnly = True
  377.         Me.txtBhy.Size = New System.Drawing.Size(102, 14)
  378.         Me.txtBhy.TabIndex = 24
  379.         Me.txtBhy.Text = ""
  380.         '
  381.         'txtBhType
  382.         '
  383.         Me.txtBhType.BorderStyle = System.Windows.Forms.BorderStyle.None
  384.         Me.txtBhType.Location = New System.Drawing.Point(240, 44)
  385.         Me.txtBhType.Name = "txtBhType"
  386.         Me.txtBhType.ReadOnly = True
  387.         Me.txtBhType.Size = New System.Drawing.Size(102, 14)
  388.         Me.txtBhType.TabIndex = 23
  389.         Me.txtBhType.Text = ""
  390.         '
  391.         'txtPsCenter
  392.         '
  393.         Me.txtPsCenter.BorderStyle = System.Windows.Forms.BorderStyle.None
  394.         Me.txtPsCenter.Location = New System.Drawing.Point(72, 68)
  395.         Me.txtPsCenter.Name = "txtPsCenter"
  396.         Me.txtPsCenter.ReadOnly = True
  397.         Me.txtPsCenter.Size = New System.Drawing.Size(90, 14)
  398.         Me.txtPsCenter.TabIndex = 22
  399.         Me.txtPsCenter.Text = ""
  400.         '
  401.         'txtPsMedName
  402.         '
  403.         Me.txtPsMedName.BorderStyle = System.Windows.Forms.BorderStyle.None
  404.         Me.txtPsMedName.Location = New System.Drawing.Point(72, 44)
  405.         Me.txtPsMedName.Name = "txtPsMedName"
  406.         Me.txtPsMedName.ReadOnly = True
  407.         Me.txtPsMedName.Size = New System.Drawing.Size(90, 14)
  408.         Me.txtPsMedName.TabIndex = 21
  409.         Me.txtPsMedName.Text = ""
  410.         '
  411.         'txtBillNumber
  412.         '
  413.         Me.txtBillNumber.BorderStyle = System.Windows.Forms.BorderStyle.None
  414.         Me.txtBillNumber.Location = New System.Drawing.Point(48, 19)
  415.         Me.txtBillNumber.Name = "txtBillNumber"
  416.         Me.txtBillNumber.ReadOnly = True
  417.         Me.txtBillNumber.Size = New System.Drawing.Size(114, 14)
  418.         Me.txtBillNumber.TabIndex = 20
  419.         Me.txtBillNumber.Text = ""
  420.         '
  421.         'Panel1
  422.         '
  423.         Me.Panel1.Controls.Add(Me.GroupBox2)
  424.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  425.         Me.Panel1.Location = New System.Drawing.Point(222, 165)
  426.         Me.Panel1.Name = "Panel1"
  427.         Me.Panel1.Size = New System.Drawing.Size(519, 263)
  428.         Me.Panel1.TabIndex = 5
  429.         '
  430.         'GroupBox2
  431.         '
  432.         Me.GroupBox2.Controls.Add(Me.Button2)
  433.         Me.GroupBox2.Controls.Add(Me.Button1)
  434.         Me.GroupBox2.Controls.Add(Me.ComboBox1)
  435.         Me.GroupBox2.Controls.Add(Me.Label1)
  436.         Me.GroupBox2.Controls.Add(Me.dgview)
  437.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
  438.         Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
  439.         Me.GroupBox2.Name = "GroupBox2"
  440.         Me.GroupBox2.Size = New System.Drawing.Size(519, 263)
  441.         Me.GroupBox2.TabIndex = 4
  442.         Me.GroupBox2.TabStop = False
  443.         Me.GroupBox2.Text = "批复补货单"
  444.         '
  445.         'Button2
  446.         '
  447.         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  448.         Me.Button2.Location = New System.Drawing.Point(336, 19)
  449.         Me.Button2.Name = "Button2"
  450.         Me.Button2.Size = New System.Drawing.Size(64, 21)
  451.         Me.Button2.TabIndex = 4
  452.         Me.Button2.Text = "发货"
  453.         Me.Button2.TextAlign = System.Drawing.ContentAlignment.TopCenter
  454.         '
  455.         'Button1
  456.         '
  457.         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  458.         Me.Button1.Location = New System.Drawing.Point(270, 19)
  459.         Me.Button1.Name = "Button1"
  460.         Me.Button1.Size = New System.Drawing.Size(66, 21)
  461.         Me.Button1.TabIndex = 3
  462.         Me.Button1.Text = "自动批复"
  463.         Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter
  464.         '
  465.         'ComboBox1
  466.         '
  467.         Me.ComboBox1.Location = New System.Drawing.Point(144, 19)
  468.         Me.ComboBox1.Name = "ComboBox1"
  469.         Me.ComboBox1.Size = New System.Drawing.Size(120, 20)
  470.         Me.ComboBox1.TabIndex = 2
  471.         '
  472.         'Label1
  473.         '
  474.         Me.Label1.Location = New System.Drawing.Point(12, 19)
  475.         Me.Label1.Name = "Label1"
  476.         Me.Label1.Size = New System.Drawing.Size(140, 18)
  477.         Me.Label1.TabIndex = 1
  478.         Me.Label1.Text = "库存不足药品分配模式:"
  479.         '
  480.         'dgview
  481.         '
  482.         Me.dgview.DataMember = ""
  483.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  484.         Me.dgview.Location = New System.Drawing.Point(6, 44)
  485.         Me.dgview.Name = "dgview"
  486.         Me.dgview.Size = New System.Drawing.Size(492, 199)
  487.         Me.dgview.TabIndex = 0
  488.         '
  489.         'frmPsPf
  490.         '
  491.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  492.         Me.ClientSize = New System.Drawing.Size(741, 445)
  493.         Me.Controls.Add(Me.Panel1)
  494.         Me.Controls.Add(Me.票据信息)
  495.         Me.Controls.Add(Me.GroupBox1)
  496.         Me.Controls.Add(Me.ToolBar1)
  497.         Me.Controls.Add(Me.StatusBar1)
  498.         Me.Name = "frmPsPf"
  499.         Me.Text = "批复补货申请"
  500.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  501.         Me.GroupBox1.ResumeLayout(False)
  502.         Me.票据信息.ResumeLayout(False)
  503.         Me.Panel1.ResumeLayout(False)
  504.         Me.GroupBox2.ResumeLayout(False)
  505.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  506.         Me.ResumeLayout(False)
  508.     End Sub
  510. #End Region
  511.     Public lsweb As New jxcmanage
  512.     Public dslocals As DataSet
  513.     Public strquery As String
  514.     Private Sub frmPsPf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  515.         'dslocals = lsweb.returndataset("select psmedname+billnumber+CAST(money AS char(10)) as 未审批复 from psbhpf where PfBit = '0'", "psbhpf")
  516.         'If ListBox1.DataSource = "" Then
  517.         'MessageBox.Show("没有要批复的票据！", "提示:", MessageBoxButtons.OK)
  519.         'Else
  522.         ' ListBox1.DataSource = dslocals.Tables("psbhpf")
  523.         ' ListBox1.DisplayMember = "未审批复"
  524.         ' ListBox1.ValueMember = "未审批复"
  525.         ' dslocals.Clear()
  526.         ' End If
  528.         'tbnSh.Enabled = False
  529.         
  530.     End Sub
  531.     Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
  532.         Dim drlocals As System.Data.SqlClient.SqlDataReader
  533.         ListBox1.DisplayMember = "未审批复"
  534.         ListBox1.ValueMember = "未审批复"
  536.         strquery = Me.ListBox1.SelectedValue
  537.         drlocals = lsweb.returnDataReader("select * from psbhpf where billnumber = '" & strquery.Substring(4, 16) & "'")
  538.         Do While drlocals.Read()
  539.             txtBillNumber.Text = drlocals("billnumber")
  540.             txtBhDate.Text = drlocals("Cdate")
  541.             txtDhDate.Text = drlocals("Ddate")
  542.             txtPsMedName.Text = drlocals("PsMedName")
  543.             'txtBhType.Text = drlocals("billnumber")
  544.             txtShy.Text = drlocals("Shy")
  545.             txtPsCenter.Text = drlocals("PsCenter")
  546.             txtBhy.Text = drlocals("Bhy")
  547.             txtsum.Text = drlocals("money")
  548.         Loop
  549.         dslocals = lsweb.returndataset("select billnumber as 票号,medNumber as 药品编号,medname as 药品名称,medrule as 药品规格,unit as 单位,lcount as 申请数量,pfcount as 批复数量,pfbit as 审核,price as 单价,money as 金额,batch as 批号,avaid as 有效期,package as 包装,demo as 备注 from psbhpfmx where billnumber = '" & strquery.Substring(4, 16) & "' and pfbit='0'", "psbhpfmx")
  550.         dgview.DataSource = dslocals.Tables(0).DefaultView
  551.     End Sub
  553.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
  554.         Select Case e.Button.Text
  555.             Case "审核"
  557.                 If lsweb.updatedataset("select billnumber as 票号,medNumber as 药品编号,medname as 药品名称,medrule as 药品规格,unit as 单位,lcount as 申请数量,pfcount as 批复数量,pfbit as 审核,price as 单价,money as 金额,batch as 批号,avaid as 有效期,package as 包装,demo as 备注 from psbhpfmx where billnumber = '" & strquery.Substring(4, 16) & "' and pfbit='0'", "psbhpfmx", dslocals, DataRowState.Modified) = True Then
  558.                     lsweb.runSql("update psbhpf set pfbit='1' where billnumber='" & strquery.Substring(4, 16) & "'")
  559.                     lblsh.Text = "已审核"
  561.                     MessageBox.Show("药品信息成功保存！", "提示", MessageBoxButtons.OK)
  562.                 Else
  563.                     MessageBox.Show("药品信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  564.                 End If
  565.                 
  566.             Case "退出"
  567.                 Me.Close()
  569.         End Select
  570.     End Sub
  572.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  573.         Dim frmpster As New frmPsPst
  574.         strquery = Me.ListBox1.SelectedValue
  575.         frmpster.strSql = strquery
  576.         frmpster.Show()
  578.     End Sub
  580.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  581.         dslocals = lsweb.returndataset("select psmedname+billnumber+CAST(money AS char(10)) as 未审批复 from psbhpf where PfBit = '0'", "psbhpf")
  582.         ' If ListBox1.DataSource Is String.Empty Then
  583.         ' tbnSh.Enabled = False
  585.         ' End If
  587.         ListBox1.DataSource = dslocals.Tables("psbhpf")
  588.         ListBox1.DisplayMember = "未审批复"
  589.         ListBox1.ValueMember = "未审批复"
  590.         dslocals.Clear()
  591.        
  592.     End Sub
  594.     Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  595.         Dim frmpster As New frmPsPst
  596.         strquery = Me.ListBox1.SelectedValue
  597.         frmpster.strSql = strquery
  598.         frmpster.Show()
  599.     End Sub
  601.     Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
  603.     End Sub
  604. End Class