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

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

医药行业

开发平台：

Visual Basic

frmCpTotal.vb：源码内容
  1. Public Class frmCpTotal
  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 GroupBox1 As System.Windows.Forms.GroupBox
  33.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  34.     Friend WithEvents Label1 As System.Windows.Forms.Label
  35.     Friend WithEvents txtBeginTime As System.Windows.Forms.DateTimePicker
  36.     Friend WithEvents Label2 As System.Windows.Forms.Label
  37.     Friend WithEvents txtEndTime As System.Windows.Forms.DateTimePicker
  38.     Friend WithEvents Label3 As System.Windows.Forms.Label
  39.     Friend WithEvents txtMedName As System.Windows.Forms.TextBox
  40.     Friend WithEvents Label4 As System.Windows.Forms.Label
  41.     Friend WithEvents txtBatch As System.Windows.Forms.TextBox
  42.     Friend WithEvents btnQueryAll As System.Windows.Forms.Button
  43.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  44.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  45.     Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
  46.     Friend WithEvents tabtable As System.Windows.Forms.TabControl
  47.     Friend WithEvents tbrk As System.Windows.Forms.TabPage
  48.     Friend WithEvents tbrkt As System.Windows.Forms.TabPage
  49.     Friend WithEvents tbck As System.Windows.Forms.TabPage
  50.     Friend WithEvents tbckt As System.Windows.Forms.TabPage
  51.     Friend WithEvents tbkc As System.Windows.Forms.TabPage
  52.     Friend WithEvents tbkcbs As System.Windows.Forms.TabPage
  53.     Friend WithEvents tbkcby As System.Windows.Forms.TabPage
  54.     Friend WithEvents tbbh As System.Windows.Forms.TabPage
  55.     Friend WithEvents tbSh As System.Windows.Forms.TabPage
  56.     Friend WithEvents tbps As System.Windows.Forms.TabPage
  57.     Friend WithEvents tbpst As System.Windows.Forms.TabPage
  58.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  59.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  60.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  61.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  62.         Me.txtBatch = New System.Windows.Forms.TextBox
  63.         Me.Label4 = New System.Windows.Forms.Label
  64.         Me.txtMedName = New System.Windows.Forms.TextBox
  65.         Me.Label3 = New System.Windows.Forms.Label
  66.         Me.txtEndTime = New System.Windows.Forms.DateTimePicker
  67.         Me.Label2 = New System.Windows.Forms.Label
  68.         Me.txtBeginTime = New System.Windows.Forms.DateTimePicker
  69.         Me.Label1 = New System.Windows.Forms.Label
  70.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  71.         Me.btnPrint = New System.Windows.Forms.Button
  72.         Me.btnQuery = New System.Windows.Forms.Button
  73.         Me.btnQueryAll = New System.Windows.Forms.Button
  74.         Me.GroupBox3 = New System.Windows.Forms.GroupBox
  75.         Me.tabtable = New System.Windows.Forms.TabControl
  76.         Me.tbrk = New System.Windows.Forms.TabPage
  77.         Me.tbrkt = New System.Windows.Forms.TabPage
  78.         Me.tbck = New System.Windows.Forms.TabPage
  79.         Me.tbckt = New System.Windows.Forms.TabPage
  80.         Me.tbkc = New System.Windows.Forms.TabPage
  81.         Me.tbkcbs = New System.Windows.Forms.TabPage
  82.         Me.tbkcby = New System.Windows.Forms.TabPage
  83.         Me.tbbh = New System.Windows.Forms.TabPage
  84.         Me.tbSh = New System.Windows.Forms.TabPage
  85.         Me.tbps = New System.Windows.Forms.TabPage
  86.         Me.tbpst = New System.Windows.Forms.TabPage
  87.         Me.Panel1 = New System.Windows.Forms.Panel
  88.         Me.dgview = New System.Windows.Forms.DataGrid
  89.         Me.GroupBox1.SuspendLayout()
  90.         Me.GroupBox2.SuspendLayout()
  91.         Me.GroupBox3.SuspendLayout()
  92.         Me.tabtable.SuspendLayout()
  93.         Me.Panel1.SuspendLayout()
  94.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  95.         Me.SuspendLayout()
  96.         '
  97.         'GroupBox1
  98.         '
  99.         Me.GroupBox1.Controls.Add(Me.txtBatch)
  100.         Me.GroupBox1.Controls.Add(Me.Label4)
  101.         Me.GroupBox1.Controls.Add(Me.txtMedName)
  102.         Me.GroupBox1.Controls.Add(Me.Label3)
  103.         Me.GroupBox1.Controls.Add(Me.txtEndTime)
  104.         Me.GroupBox1.Controls.Add(Me.Label2)
  105.         Me.GroupBox1.Controls.Add(Me.txtBeginTime)
  106.         Me.GroupBox1.Controls.Add(Me.Label1)
  107.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  108.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  109.         Me.GroupBox1.Name = "GroupBox1"
  110.         Me.GroupBox1.Size = New System.Drawing.Size(1028, 103)
  111.         Me.GroupBox1.TabIndex = 0
  112.         Me.GroupBox1.TabStop = False
  113.         '
  114.         'txtBatch
  115.         '
  116.         Me.txtBatch.Location = New System.Drawing.Point(363, 62)
  117.         Me.txtBatch.Name = "txtBatch"
  118.         Me.txtBatch.Size = New System.Drawing.Size(149, 25)
  119.         Me.txtBatch.TabIndex = 7
  120.         Me.txtBatch.Text = ""
  121.         '
  122.         'Label4
  123.         '
  124.         Me.Label4.AutoSize = True
  125.         Me.Label4.Location = New System.Drawing.Point(320, 72)
  126.         Me.Label4.Name = "Label4"
  127.         Me.Label4.Size = New System.Drawing.Size(44, 21)
  128.         Me.Label4.TabIndex = 6
  129.         Me.Label4.Text = "批号:"
  130.         '
  131.         'txtMedName
  132.         '
  133.         Me.txtMedName.Location = New System.Drawing.Point(96, 62)
  134.         Me.txtMedName.Name = "txtMedName"
  135.         Me.txtMedName.Size = New System.Drawing.Size(149, 25)
  136.         Me.txtMedName.TabIndex = 5
  137.         Me.txtMedName.Text = ""
  138.         '
  139.         'Label3
  140.         '
  141.         Me.Label3.AutoSize = True
  142.         Me.Label3.Location = New System.Drawing.Point(21, 72)
  143.         Me.Label3.Name = "Label3"
  144.         Me.Label3.Size = New System.Drawing.Size(75, 21)
  145.         Me.Label3.TabIndex = 4
  146.         Me.Label3.Text = "药品名称:"
  147.         '
  148.         'txtEndTime
  149.         '
  150.         Me.txtEndTime.Location = New System.Drawing.Point(363, 21)
  151.         Me.txtEndTime.Name = "txtEndTime"
  152.         Me.txtEndTime.Size = New System.Drawing.Size(149, 25)
  153.         Me.txtEndTime.TabIndex = 3
  154.         Me.txtEndTime.Value = New Date(2006, 2, 22, 0, 0, 0, 0)
  155.         '
  156.         'Label2
  157.         '
  158.         Me.Label2.AutoSize = True
  159.         Me.Label2.Location = New System.Drawing.Point(288, 31)
  160.         Me.Label2.Name = "Label2"
  161.         Me.Label2.Size = New System.Drawing.Size(75, 21)
  162.         Me.Label2.TabIndex = 2
  163.         Me.Label2.Text = "结束日期:"
  164.         '
  165.         'txtBeginTime
  166.         '
  167.         Me.txtBeginTime.Location = New System.Drawing.Point(96, 21)
  168.         Me.txtBeginTime.Name = "txtBeginTime"
  169.         Me.txtBeginTime.Size = New System.Drawing.Size(149, 25)
  170.         Me.txtBeginTime.TabIndex = 1
  171.         Me.txtBeginTime.Value = New Date(2006, 2, 22, 0, 0, 0, 0)
  172.         '
  173.         'Label1
  174.         '
  175.         Me.Label1.AutoSize = True
  176.         Me.Label1.Location = New System.Drawing.Point(21, 31)
  177.         Me.Label1.Name = "Label1"
  178.         Me.Label1.Size = New System.Drawing.Size(75, 21)
  179.         Me.Label1.TabIndex = 0
  180.         Me.Label1.Text = "开始日期:"
  181.         '
  182.         'GroupBox2
  183.         '
  184.         Me.GroupBox2.Controls.Add(Me.btnPrint)
  185.         Me.GroupBox2.Controls.Add(Me.btnQuery)
  186.         Me.GroupBox2.Controls.Add(Me.btnQueryAll)
  187.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Right
  188.         Me.GroupBox2.Location = New System.Drawing.Point(924, 103)
  189.         Me.GroupBox2.Name = "GroupBox2"
  190.         Me.GroupBox2.Size = New System.Drawing.Size(104, 529)
  191.         Me.GroupBox2.TabIndex = 1
  192.         Me.GroupBox2.TabStop = False
  193.         '
  194.         'btnPrint
  195.         '
  196.         Me.btnPrint.Dock = System.Windows.Forms.DockStyle.Top
  197.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  198.         Me.btnPrint.Location = New System.Drawing.Point(3, 81)
  199.         Me.btnPrint.Name = "btnPrint"
  200.         Me.btnPrint.Size = New System.Drawing.Size(98, 30)
  201.         Me.btnPrint.TabIndex = 2
  202.         Me.btnPrint.Text = "打印"
  203.         '
  204.         'btnQuery
  205.         '
  206.         Me.btnQuery.Dock = System.Windows.Forms.DockStyle.Top
  207.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  208.         Me.btnQuery.Location = New System.Drawing.Point(3, 51)
  209.         Me.btnQuery.Name = "btnQuery"
  210.         Me.btnQuery.Size = New System.Drawing.Size(98, 30)
  211.         Me.btnQuery.TabIndex = 1
  212.         Me.btnQuery.Tag = ""
  213.         Me.btnQuery.Text = "条件查询"
  214.         '
  215.         'btnQueryAll
  216.         '
  217.         Me.btnQueryAll.Dock = System.Windows.Forms.DockStyle.Top
  218.         Me.btnQueryAll.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  219.         Me.btnQueryAll.Location = New System.Drawing.Point(3, 21)
  220.         Me.btnQueryAll.Name = "btnQueryAll"
  221.         Me.btnQueryAll.Size = New System.Drawing.Size(98, 30)
  222.         Me.btnQueryAll.TabIndex = 0
  223.         Me.btnQueryAll.Tag = ""
  224.         Me.btnQueryAll.Text = "全部查询"
  225.         '
  226.         'GroupBox3
  227.         '
  228.         Me.GroupBox3.Controls.Add(Me.tabtable)
  229.         Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
  230.         Me.GroupBox3.Location = New System.Drawing.Point(0, 103)
  231.         Me.GroupBox3.Name = "GroupBox3"
  232.         Me.GroupBox3.Size = New System.Drawing.Size(924, 62)
  233.         Me.GroupBox3.TabIndex = 4
  234.         Me.GroupBox3.TabStop = False
  235.         '
  236.         'tabtable
  237.         '
  238.         Me.tabtable.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
  239.         Me.tabtable.Controls.Add(Me.tbrk)
  240.         Me.tabtable.Controls.Add(Me.tbrkt)
  241.         Me.tabtable.Controls.Add(Me.tbck)
  242.         Me.tabtable.Controls.Add(Me.tbckt)
  243.         Me.tabtable.Controls.Add(Me.tbkc)
  244.         Me.tabtable.Controls.Add(Me.tbkcbs)
  245.         Me.tabtable.Controls.Add(Me.tbkcby)
  246.         Me.tabtable.Controls.Add(Me.tbbh)
  247.         Me.tabtable.Controls.Add(Me.tbSh)
  248.         Me.tabtable.Controls.Add(Me.tbps)
  249.         Me.tabtable.Controls.Add(Me.tbpst)
  250.         Me.tabtable.Dock = System.Windows.Forms.DockStyle.Fill
  251.         Me.tabtable.Location = New System.Drawing.Point(3, 21)
  252.         Me.tabtable.Name = "tabtable"
  253.         Me.tabtable.SelectedIndex = 0
  254.         Me.tabtable.Size = New System.Drawing.Size(918, 38)
  255.         Me.tabtable.TabIndex = 3
  256.         '
  257.         'tbrk
  258.         '
  259.         Me.tbrk.Location = New System.Drawing.Point(4, 27)
  260.         Me.tbrk.Name = "tbrk"
  261.         Me.tbrk.Size = New System.Drawing.Size(910, 7)
  262.         Me.tbrk.TabIndex = 0
  263.         Me.tbrk.Text = "采购入库"
  264.         '
  265.         'tbrkt
  266.         '
  267.         Me.tbrkt.Location = New System.Drawing.Point(4, 27)
  268.         Me.tbrkt.Name = "tbrkt"
  269.         Me.tbrkt.Size = New System.Drawing.Size(884, 5)
  270.         Me.tbrkt.TabIndex = 1
  271.         Me.tbrkt.Text = "采购退货"
  272.         Me.tbrkt.Visible = False
  273.         '
  274.         'tbck
  275.         '
  276.         Me.tbck.Location = New System.Drawing.Point(4, 27)
  277.         Me.tbck.Name = "tbck"
  278.         Me.tbck.Size = New System.Drawing.Size(884, 5)
  279.         Me.tbck.TabIndex = 2
  280.         Me.tbck.Text = "销售出库"
  281.         Me.tbck.Visible = False
  282.         '
  283.         'tbckt
  284.         '
  285.         Me.tbckt.Location = New System.Drawing.Point(4, 27)
  286.         Me.tbckt.Name = "tbckt"
  287.         Me.tbckt.Size = New System.Drawing.Size(884, 5)
  288.         Me.tbckt.TabIndex = 3
  289.         Me.tbckt.Text = "销售退货"
  290.         Me.tbckt.Visible = False
  291.         '
  292.         'tbkc
  293.         '
  294.         Me.tbkc.Location = New System.Drawing.Point(4, 27)
  295.         Me.tbkc.Name = "tbkc"
  296.         Me.tbkc.Size = New System.Drawing.Size(884, 5)
  297.         Me.tbkc.TabIndex = 4
  298.         Me.tbkc.Text = "当前库存"
  299.         Me.tbkc.Visible = False
  300.         '
  301.         'tbkcbs
  302.         '
  303.         Me.tbkcbs.Location = New System.Drawing.Point(4, 27)
  304.         Me.tbkcbs.Name = "tbkcbs"
  305.         Me.tbkcbs.Size = New System.Drawing.Size(884, 5)
  306.         Me.tbkcbs.TabIndex = 5
  307.         Me.tbkcbs.Text = "报损单"
  308.         Me.tbkcbs.Visible = False
  309.         '
  310.         'tbkcby
  311.         '
  312.         Me.tbkcby.Location = New System.Drawing.Point(4, 27)
  313.         Me.tbkcby.Name = "tbkcby"
  314.         Me.tbkcby.Size = New System.Drawing.Size(884, 5)
  315.         Me.tbkcby.TabIndex = 6
  316.         Me.tbkcby.Text = "报溢单"
  317.         Me.tbkcby.Visible = False
  318.         '
  319.         'tbbh
  320.         '
  321.         Me.tbbh.Location = New System.Drawing.Point(4, 27)
  322.         Me.tbbh.Name = "tbbh"
  323.         Me.tbbh.Size = New System.Drawing.Size(884, 5)
  324.         Me.tbbh.TabIndex = 7
  325.         Me.tbbh.Text = "门店补货单"
  326.         Me.tbbh.Visible = False
  327.         '
  328.         'tbSh
  329.         '
  330.         Me.tbSh.Location = New System.Drawing.Point(4, 27)
  331.         Me.tbSh.Name = "tbSh"
  332.         Me.tbSh.Size = New System.Drawing.Size(884, 5)
  333.         Me.tbSh.TabIndex = 9
  334.         Me.tbSh.Text = "门店收货单"
  335.         Me.tbSh.Visible = False
  336.         '
  337.         'tbps
  338.         '
  339.         Me.tbps.Location = New System.Drawing.Point(4, 27)
  340.         Me.tbps.Name = "tbps"
  341.         Me.tbps.Size = New System.Drawing.Size(884, 5)
  342.         Me.tbps.TabIndex = 10
  343.         Me.tbps.Text = "配送单"
  344.         Me.tbps.Visible = False
  345.         '
  346.         'tbpst
  347.         '
  348.         Me.tbpst.Location = New System.Drawing.Point(4, 27)
  349.         Me.tbpst.Name = "tbpst"
  350.         Me.tbpst.Size = New System.Drawing.Size(884, 5)
  351.         Me.tbpst.TabIndex = 11
  352.         Me.tbpst.Text = "配送退货单"
  353.         Me.tbpst.Visible = False
  354.         '
  355.         'Panel1
  356.         '
  357.         Me.Panel1.Controls.Add(Me.dgview)
  358.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  359.         Me.Panel1.Location = New System.Drawing.Point(0, 165)
  360.         Me.Panel1.Name = "Panel1"
  361.         Me.Panel1.Size = New System.Drawing.Size(924, 467)
  362.         Me.Panel1.TabIndex = 5
  363.         '
  364.         'dgview
  365.         '
  366.         Me.dgview.DataMember = ""
  367.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  368.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  369.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  370.         Me.dgview.Name = "dgview"
  371.         Me.dgview.Size = New System.Drawing.Size(924, 467)
  372.         Me.dgview.TabIndex = 4
  373.         '
  374.         'frmCpTotal
  375.         '
  376.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  377.         Me.ClientSize = New System.Drawing.Size(1028, 632)
  378.         Me.Controls.Add(Me.Panel1)
  379.         Me.Controls.Add(Me.GroupBox3)
  380.         Me.Controls.Add(Me.GroupBox2)
  381.         Me.Controls.Add(Me.GroupBox1)
  382.         Me.Name = "frmCpTotal"
  383.         Me.Text = "药品统计分析"
  384.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  385.         Me.GroupBox1.ResumeLayout(False)
  386.         Me.GroupBox2.ResumeLayout(False)
  387.         Me.GroupBox3.ResumeLayout(False)
  388.         Me.tabtable.ResumeLayout(False)
  389.         Me.Panel1.ResumeLayout(False)
  390.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  391.         Me.ResumeLayout(False)
  393.     End Sub
  395. #End Region
  396.     Public lsweb As New jxcmanage
  397.     Public strquery As String
  398.     Public strqueryes As String
  400.     Private Sub tabtable_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  402.         Dim strtable As String
  404.         Select Case tabtable.SelectedTab.Text
  405.             Case "采购入库"
  406.                 btnQuery.Tag = "wz_rk"
  407.                 btnQueryAll.Tag = "wz_rk"
  410.             Case "采购退货"
  412.             Case "销售出库"
  414.                 btnQuery.Tag = "wz_ck"
  415.                 btnQueryAll.Tag = "wz_ck"
  416.             Case "销售退货"
  417.             Case "当前库存"
  419.                 ' btnQuery.Tag = "wz_kc"
  420.                 ' btnQueryAll.Tag = "wz_kc"
  421.             Case "报损单"
  422.             Case "报溢单"
  423.             Case "门店补货单"
  424.             Case "门店收货单"
  425.             Case "配送单"
  426.             Case "配送返货单"
  430.         End Select
  431.     End Sub
  433.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  435.         Dim dslocal As DataSet
  436.         If txtMedName.Text = String.Empty Or txtBatch.Text = String.Empty Then
  437.             MessageBox.Show("不许为空！请输入查询值。", "", MessageBoxButtons.OK)
  438.         Else
  441.             Select Case tabtable.SelectedTab.Text
  442.                 Case "当前库存"
  443.                     strquery = "select * from wz_kc where 药品名称='" & txtMedName.Text.Trim & "' and 批号='" & txtBatch.Text.Trim & "'"
  444.                 Case "采购入库"
  445.                     strquery = "select * from wz_rk where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 药品名称='" & txtMedName.Text.Trim & "' and 批号='" & txtBatch.Text.Trim & "' and substring(票号,1,2)='RK'"
  446.                 Case "采购退货"
  447.                     strquery = "select * from wz_rk where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 药品名称='" & txtMedName.Text.Trim & "' and 批号='" & txtBatch.Text.Trim & "' and substring(票号,1,2)='TL'"
  448.                 Case "销售出库"
  449.                     strquery = "select * from wz_ck where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 药品名称='" & txtMedName.Text.Trim & "' and 批号='" & txtBatch.Text.Trim & "' and substring(票号,1,2)='CK'"
  450.                 Case "销售退货"
  451.                     strquery = "select * from wz_ck where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 药品名称='" & txtMedName.Text.Trim & "' and 批号='" & txtBatch.Text.Trim & "' and substring(票号,1,2)='TK'"
  452.                 Case "报损单"
  453.                     strquery = "select * from wz_kc_bs where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 药品名称='" & txtMedName.Text.Trim & "' and 批号='" & txtBatch.Text.Trim & "'"
  454.                 Case "报溢单"
  455.                     strquery = "select * from wz_kc_by where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 药品名称='" & txtMedName.Text.Trim & "' and 批号='" & txtBatch.Text.Trim & "'"
  456.                 Case "门店补货单"
  457.                     strquery = "select a.BhTime as 日期,PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,Lcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from MdBh a,MdBhMx b where a.BillNumber=b.BillNumber and a.BhTime between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and MedName='" & txtMedName.Text.Trim & "' and Batch='" & txtBatch.Text.Trim & "'"
  458.                 Case "门店收货单"
  459.                     strquery = "select a.shdata as 日期,PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,Lcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from Mdshdj a,MdshdjMx b where a.BillNumber=b.BillNumber and a.shdata between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and MedName='" & txtMedName.Text.Trim & "' and Batch='" & txtBatch.Text.Trim & "'"
  460.                 Case "配送单"
  461.                     strquery = "select a.BhDate as 日期,a.PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,pfcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from pspsdj a,pspsdjMx b where a.BillNumber=b.BillNumber and a.BhDate between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and MedName='" & txtMedName.Text.Trim & "' and Batch='" & txtBatch.Text.Trim & "'"
  462.                 Case "配送退货单"
  463.                     strquery = "select a.ThTime as 日期,a.PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,lcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from psth a,psthMx b where a.BillNumber=b.BillNumber and a.ThTime between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and MedName='" & txtMedName.Text.Trim & "' and Batch='" & txtBatch.Text.Trim & "'"
  465.             End Select
  468.             dslocal = lsweb.runSql(strquery)
  469.             dgview.DataSource = dslocal.Tables(0).DefaultView
  470.         End If
  471.     End Sub
  475.     Private Sub btnQueryAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryAll.Click
  476.         Dim dslocal As DataSet
  477.         Select Case tabtable.SelectedTab.Text
  478.             Case "当前库存"
  479.                 strqueryes = "select * from wz_kc"
  480.             Case "采购入库"
  481.                 strqueryes = "select * from wz_rk where substring(票号,1,2)='RK'"
  482.             Case "采购退货"
  483.                 strqueryes = "select * from wz_rk where substring(票号,1,2)='TL'"
  484.             Case "销售出库"
  485.                 strqueryes = "select * from wz_ck where substring(票号,1,2)='CK'"
  486.             Case "销售退货"
  487.                 strqueryes = "select * from wz_ck where substring(票号,1,2)='TK'"
  488.             Case "报损单"
  489.                 strqueryes = "select * from wz_kc_bs"
  490.             Case "报溢单"
  491.                 strqueryes = "select * from wz_kc_by"
  492.             Case "门店补货单"
  493.                 strqueryes = "select a.BhTime as 日期,PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,Lcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from MdBh a,MdBhMx b where a.BillNumber=b.BillNumber"
  494.             Case "门店收货单"
  495.                 strqueryes = "select a.shdata as 日期,PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,Lcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from Mdshdj a,MdshdjMx b where a.BillNumber=b.BillNumber"
  496.             Case "配送单"
  497.                 strqueryes = "select a.BhDate as 日期,a.PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,pfcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from pspsdj a,pspsdjMx b where a.BillNumber=b.BillNumber"
  498.             Case "配送退货单"
  499.                 strqueryes = "select a.ThTime as 日期,a.PsMedName as 门店名称,PsCenter as 配送中心,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,lcount as 数量,Price as 单价,b.Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期 from psth a,psthMx b where a.BillNumber=b.BillNumber"
  501.         End Select
  503.         dslocal = lsweb.runSql(strqueryes)
  504.         dgview.DataSource = dslocal.Tables(0).DefaultView
  505.     End Sub
  508.     Private Sub frmCpTotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  509.         txtBeginTime.Value = Today.ToString
  510.         txtEndTime.Value = Today.ToString
  511.     End Sub
  512. End Class