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

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

医药行业

开发平台：

Visual Basic

frmKhTotal.vb：源码内容
  1. Public Class frmKhTotal
  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 GroupBox2 As System.Windows.Forms.GroupBox
  33.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  34.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  35.     Friend WithEvents btnQueryAll As System.Windows.Forms.Button
  36.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  37.     Friend WithEvents Label3 As System.Windows.Forms.Label
  38.     Friend WithEvents txtEndTime As System.Windows.Forms.DateTimePicker
  39.     Friend WithEvents Label2 As System.Windows.Forms.Label
  40.     Friend WithEvents txtBeginTime As System.Windows.Forms.DateTimePicker
  41.     Friend WithEvents Label1 As System.Windows.Forms.Label
  42.     Friend WithEvents txtkhName As System.Windows.Forms.TextBox
  43.     Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
  44.     Friend WithEvents tabtable As System.Windows.Forms.TabControl
  45.     Friend WithEvents tbrk As System.Windows.Forms.TabPage
  46.     Friend WithEvents tbrkt As System.Windows.Forms.TabPage
  47.     Friend WithEvents tbck As System.Windows.Forms.TabPage
  48.     Friend WithEvents tbckt As System.Windows.Forms.TabPage
  49.     Friend WithEvents tbys As System.Windows.Forms.TabPage
  50.     Friend WithEvents tbyf As System.Windows.Forms.TabPage
  51.     Friend WithEvents tbps As System.Windows.Forms.TabPage
  52.     Friend WithEvents tbpst As System.Windows.Forms.TabPage
  53.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  54.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  55.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  56.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  57.         Me.btnPrint = New System.Windows.Forms.Button
  58.         Me.btnQuery = New System.Windows.Forms.Button
  59.         Me.btnQueryAll = New System.Windows.Forms.Button
  60.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  61.         Me.txtkhName = New System.Windows.Forms.TextBox
  62.         Me.Label3 = New System.Windows.Forms.Label
  63.         Me.txtEndTime = New System.Windows.Forms.DateTimePicker
  64.         Me.Label2 = New System.Windows.Forms.Label
  65.         Me.txtBeginTime = New System.Windows.Forms.DateTimePicker
  66.         Me.Label1 = New System.Windows.Forms.Label
  67.         Me.GroupBox3 = New System.Windows.Forms.GroupBox
  68.         Me.tabtable = New System.Windows.Forms.TabControl
  69.         Me.tbrk = New System.Windows.Forms.TabPage
  70.         Me.tbrkt = New System.Windows.Forms.TabPage
  71.         Me.tbck = New System.Windows.Forms.TabPage
  72.         Me.tbckt = New System.Windows.Forms.TabPage
  73.         Me.tbys = New System.Windows.Forms.TabPage
  74.         Me.tbyf = New System.Windows.Forms.TabPage
  75.         Me.tbps = New System.Windows.Forms.TabPage
  76.         Me.tbpst = New System.Windows.Forms.TabPage
  77.         Me.Panel1 = New System.Windows.Forms.Panel
  78.         Me.dgview = New System.Windows.Forms.DataGrid
  79.         Me.GroupBox2.SuspendLayout()
  80.         Me.GroupBox1.SuspendLayout()
  81.         Me.GroupBox3.SuspendLayout()
  82.         Me.tabtable.SuspendLayout()
  83.         Me.Panel1.SuspendLayout()
  84.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  85.         Me.SuspendLayout()
  86.         '
  87.         'GroupBox2
  88.         '
  89.         Me.GroupBox2.Controls.Add(Me.btnPrint)
  90.         Me.GroupBox2.Controls.Add(Me.btnQuery)
  91.         Me.GroupBox2.Controls.Add(Me.btnQueryAll)
  92.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Right
  93.         Me.GroupBox2.Location = New System.Drawing.Point(576, 80)
  94.         Me.GroupBox2.Name = "GroupBox2"
  95.         Me.GroupBox2.Size = New System.Drawing.Size(96, 372)
  96.         Me.GroupBox2.TabIndex = 3
  97.         Me.GroupBox2.TabStop = False
  98.         '
  99.         'btnPrint
  100.         '
  101.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  102.         Me.btnPrint.Location = New System.Drawing.Point(8, 56)
  103.         Me.btnPrint.Name = "btnPrint"
  104.         Me.btnPrint.TabIndex = 2
  105.         Me.btnPrint.Text = "打印"
  106.         '
  107.         'btnQuery
  108.         '
  109.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  110.         Me.btnQuery.Location = New System.Drawing.Point(8, 32)
  111.         Me.btnQuery.Name = "btnQuery"
  112.         Me.btnQuery.TabIndex = 1
  113.         Me.btnQuery.Tag = ""
  114.         Me.btnQuery.Text = "条件查询"
  115.         '
  116.         'btnQueryAll
  117.         '
  118.         Me.btnQueryAll.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  119.         Me.btnQueryAll.Location = New System.Drawing.Point(8, 8)
  120.         Me.btnQueryAll.Name = "btnQueryAll"
  121.         Me.btnQueryAll.TabIndex = 0
  122.         Me.btnQueryAll.Tag = ""
  123.         Me.btnQueryAll.Text = "全部查询"
  124.         '
  125.         'GroupBox1
  126.         '
  127.         Me.GroupBox1.Controls.Add(Me.txtkhName)
  128.         Me.GroupBox1.Controls.Add(Me.Label3)
  129.         Me.GroupBox1.Controls.Add(Me.txtEndTime)
  130.         Me.GroupBox1.Controls.Add(Me.Label2)
  131.         Me.GroupBox1.Controls.Add(Me.txtBeginTime)
  132.         Me.GroupBox1.Controls.Add(Me.Label1)
  133.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  134.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  135.         Me.GroupBox1.Name = "GroupBox1"
  136.         Me.GroupBox1.Size = New System.Drawing.Size(672, 80)
  137.         Me.GroupBox1.TabIndex = 2
  138.         Me.GroupBox1.TabStop = False
  139.         '
  140.         'txtkhName
  141.         '
  142.         Me.txtkhName.Location = New System.Drawing.Point(72, 48)
  143.         Me.txtkhName.Name = "txtkhName"
  144.         Me.txtkhName.Size = New System.Drawing.Size(312, 21)
  145.         Me.txtkhName.TabIndex = 5
  146.         Me.txtkhName.Text = ""
  147.         '
  148.         'Label3
  149.         '
  150.         Me.Label3.AutoSize = True
  151.         Me.Label3.Location = New System.Drawing.Point(16, 56)
  152.         Me.Label3.Name = "Label3"
  153.         Me.Label3.Size = New System.Drawing.Size(60, 17)
  154.         Me.Label3.TabIndex = 4
  155.         Me.Label3.Text = "客户名称:"
  156.         '
  157.         'txtEndTime
  158.         '
  159.         Me.txtEndTime.Location = New System.Drawing.Point(272, 16)
  160.         Me.txtEndTime.Name = "txtEndTime"
  161.         Me.txtEndTime.Size = New System.Drawing.Size(112, 21)
  162.         Me.txtEndTime.TabIndex = 3
  163.         Me.txtEndTime.Value = New Date(2006, 2, 22, 0, 0, 0, 0)
  164.         '
  165.         'Label2
  166.         '
  167.         Me.Label2.AutoSize = True
  168.         Me.Label2.Location = New System.Drawing.Point(216, 24)
  169.         Me.Label2.Name = "Label2"
  170.         Me.Label2.Size = New System.Drawing.Size(60, 17)
  171.         Me.Label2.TabIndex = 2
  172.         Me.Label2.Text = "结束日期:"
  173.         '
  174.         'txtBeginTime
  175.         '
  176.         Me.txtBeginTime.Location = New System.Drawing.Point(72, 16)
  177.         Me.txtBeginTime.Name = "txtBeginTime"
  178.         Me.txtBeginTime.Size = New System.Drawing.Size(112, 21)
  179.         Me.txtBeginTime.TabIndex = 1
  180.         Me.txtBeginTime.Value = New Date(2006, 2, 22, 0, 0, 0, 0)
  181.         '
  182.         'Label1
  183.         '
  184.         Me.Label1.AutoSize = True
  185.         Me.Label1.Location = New System.Drawing.Point(16, 24)
  186.         Me.Label1.Name = "Label1"
  187.         Me.Label1.Size = New System.Drawing.Size(60, 17)
  188.         Me.Label1.TabIndex = 0
  189.         Me.Label1.Text = "开始日期:"
  190.         '
  191.         'GroupBox3
  192.         '
  193.         Me.GroupBox3.Controls.Add(Me.tabtable)
  194.         Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
  195.         Me.GroupBox3.Location = New System.Drawing.Point(0, 80)
  196.         Me.GroupBox3.Name = "GroupBox3"
  197.         Me.GroupBox3.Size = New System.Drawing.Size(576, 48)
  198.         Me.GroupBox3.TabIndex = 5
  199.         Me.GroupBox3.TabStop = False
  200.         '
  201.         'tabtable
  202.         '
  203.         Me.tabtable.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
  204.         Me.tabtable.Controls.Add(Me.tbrk)
  205.         Me.tabtable.Controls.Add(Me.tbrkt)
  206.         Me.tabtable.Controls.Add(Me.tbck)
  207.         Me.tabtable.Controls.Add(Me.tbckt)
  208.         Me.tabtable.Controls.Add(Me.tbys)
  209.         Me.tabtable.Controls.Add(Me.tbyf)
  210.         Me.tabtable.Controls.Add(Me.tbps)
  211.         Me.tabtable.Controls.Add(Me.tbpst)
  212.         Me.tabtable.Dock = System.Windows.Forms.DockStyle.Fill
  213.         Me.tabtable.Location = New System.Drawing.Point(3, 17)
  214.         Me.tabtable.Name = "tabtable"
  215.         Me.tabtable.SelectedIndex = 0
  216.         Me.tabtable.Size = New System.Drawing.Size(570, 28)
  217.         Me.tabtable.TabIndex = 6
  218.         '
  219.         'tbrk
  220.         '
  221.         Me.tbrk.Location = New System.Drawing.Point(4, 24)
  222.         Me.tbrk.Name = "tbrk"
  223.         Me.tbrk.Size = New System.Drawing.Size(562, 0)
  224.         Me.tbrk.TabIndex = 0
  225.         Me.tbrk.Text = "采购入库"
  226.         '
  227.         'tbrkt
  228.         '
  229.         Me.tbrkt.Location = New System.Drawing.Point(4, 24)
  230.         Me.tbrkt.Name = "tbrkt"
  231.         Me.tbrkt.Size = New System.Drawing.Size(648, 0)
  232.         Me.tbrkt.TabIndex = 1
  233.         Me.tbrkt.Text = "采购退货"
  234.         Me.tbrkt.Visible = False
  235.         '
  236.         'tbck
  237.         '
  238.         Me.tbck.Location = New System.Drawing.Point(4, 24)
  239.         Me.tbck.Name = "tbck"
  240.         Me.tbck.Size = New System.Drawing.Size(648, 0)
  241.         Me.tbck.TabIndex = 2
  242.         Me.tbck.Text = "销售出库"
  243.         Me.tbck.Visible = False
  244.         '
  245.         'tbckt
  246.         '
  247.         Me.tbckt.Location = New System.Drawing.Point(4, 24)
  248.         Me.tbckt.Name = "tbckt"
  249.         Me.tbckt.Size = New System.Drawing.Size(648, 0)
  250.         Me.tbckt.TabIndex = 3
  251.         Me.tbckt.Text = "销售退货"
  252.         Me.tbckt.Visible = False
  253.         '
  254.         'tbys
  255.         '
  256.         Me.tbys.Location = New System.Drawing.Point(4, 24)
  257.         Me.tbys.Name = "tbys"
  258.         Me.tbys.Size = New System.Drawing.Size(648, 0)
  259.         Me.tbys.TabIndex = 4
  260.         Me.tbys.Text = "应收账款"
  261.         Me.tbys.Visible = False
  262.         '
  263.         'tbyf
  264.         '
  265.         Me.tbyf.Location = New System.Drawing.Point(4, 24)
  266.         Me.tbyf.Name = "tbyf"
  267.         Me.tbyf.Size = New System.Drawing.Size(648, 0)
  268.         Me.tbyf.TabIndex = 5
  269.         Me.tbyf.Text = "应付账款"
  270.         Me.tbyf.Visible = False
  271.         '
  272.         'tbps
  273.         '
  274.         Me.tbps.Location = New System.Drawing.Point(4, 24)
  275.         Me.tbps.Name = "tbps"
  276.         Me.tbps.Size = New System.Drawing.Size(648, 0)
  277.         Me.tbps.TabIndex = 6
  278.         Me.tbps.Text = "配送单"
  279.         Me.tbps.Visible = False
  280.         '
  281.         'tbpst
  282.         '
  283.         Me.tbpst.Location = New System.Drawing.Point(4, 24)
  284.         Me.tbpst.Name = "tbpst"
  285.         Me.tbpst.Size = New System.Drawing.Size(648, 0)
  286.         Me.tbpst.TabIndex = 7
  287.         Me.tbpst.Text = "配送退货单"
  288.         Me.tbpst.Visible = False
  289.         '
  290.         'Panel1
  291.         '
  292.         Me.Panel1.Controls.Add(Me.dgview)
  293.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  294.         Me.Panel1.Location = New System.Drawing.Point(0, 128)
  295.         Me.Panel1.Name = "Panel1"
  296.         Me.Panel1.Size = New System.Drawing.Size(576, 324)
  297.         Me.Panel1.TabIndex = 6
  298.         '
  299.         'dgview
  300.         '
  301.         Me.dgview.DataMember = ""
  302.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  303.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  304.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  305.         Me.dgview.Name = "dgview"
  306.         Me.dgview.Size = New System.Drawing.Size(576, 324)
  307.         Me.dgview.TabIndex = 5
  308.         '
  309.         'frmKhTotal
  310.         '
  311.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  312.         Me.ClientSize = New System.Drawing.Size(672, 452)
  313.         Me.Controls.Add(Me.Panel1)
  314.         Me.Controls.Add(Me.GroupBox3)
  315.         Me.Controls.Add(Me.GroupBox2)
  316.         Me.Controls.Add(Me.GroupBox1)
  317.         Me.Name = "frmKhTotal"
  318.         Me.Text = "frmKhTotal"
  319.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  320.         Me.GroupBox2.ResumeLayout(False)
  321.         Me.GroupBox1.ResumeLayout(False)
  322.         Me.GroupBox3.ResumeLayout(False)
  323.         Me.tabtable.ResumeLayout(False)
  324.         Me.Panel1.ResumeLayout(False)
  325.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  326.         Me.ResumeLayout(False)
  328.     End Sub
  330. #End Region
  331.     Public lsweb As New jxcmanage
  332.     Public strquery As String
  333.     Public strqueryes As String
  334.     Private Sub frmKhTotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  335.         txtBeginTime.Value = Today.ToString
  336.         txtEndTime.Value = Today.ToString
  337.     End Sub
  339.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  340.         Dim dslocal As DataSet
  341.         If txtkhName.Text = String.Empty Then
  342.             MessageBox.Show("不许为空！请输入查询值。", "", MessageBoxButtons.OK)
  343.         Else
  346.             Select Case tabtable.SelectedTab.Text
  348.                 Case "采购入库"
  349.                     strquery = "select * from wz_rk where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 客户名称='" & txtkhName.Text.Trim & "' and substring(票号,1,2)='RK'"
  350.                 Case "采购退货"
  351.                     strquery = "select * from wz_rk where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 客户名称='" & txtkhName.Text.Trim & "' and substring(票号,1,2)='TL'"
  352.                 Case "销售出库"
  353.                     strquery = "select * from wz_ck where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 客户名称='" & txtkhName.Text.Trim & "' and substring(票号,1,2)='CK'"
  354.                 Case "销售退货"
  355.                     strquery = "select * from wz_ck where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 客户名称='" & txtkhName.Text.Trim & "' and substring(票号,1,2)='TK'"
  356.                 Case "应收账款"
  357.                     strquery = "select * from wz_ck_sk where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 客户名称='" & txtkhName.Text.Trim & "'"
  358.                 Case "应付账款"
  359.                     strquery = "select * from wz_rk_fk where 日期 between '" & txtBeginTime.Value & "' and '" & txtEndTime.Value & "' and 客户名称='" & txtkhName.Text.Trim & "'"
  360.                 Case "配送单"
  361.                     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 a.PsMedName='" & txtkhName.Text.Trim & "'"
  362.                 Case "配送退货单"
  363.                     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 a.PsMedName='" & txtkhName.Text.Trim & "'"
  365.             End Select
  368.             dslocal = lsweb.runSql(strquery)
  369.             dgview.DataSource = dslocal.Tables(0).DefaultView
  370.         End If
  371.     End Sub
  373.     Private Sub btnQueryAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryAll.Click
  374.         Dim dslocal As DataSet
  375.         Select Case tabtable.SelectedTab.Text
  377.             Case "采购入库"
  378.                 strqueryes = "select * from wz_rk where substring(票号,1,2)='RK'"
  379.             Case "采购退货"
  380.                 strqueryes = "select * from wz_rk where substring(票号,1,2)='TL'"
  381.             Case "销售出库"
  382.                 strqueryes = "select * from wz_ck where substring(票号,1,2)='CK'"
  383.             Case "销售退货"
  384.                 strqueryes = "select * from wz_ck where substring(票号,1,2)='TK'"
  385.             Case "应收账款"
  386.                 strqueryes = "select * from wz_ck_sk"
  387.             Case "应付账款"
  388.                 strqueryes = "select * from wz_rk_fk"
  389.             Case "配送单"
  390.                 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"
  391.             Case "配送退货单"
  392.                 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"
  394.         End Select
  397.         dslocal = lsweb.runSql(strqueryes)
  398.         dgview.DataSource = dslocal.Tables(0).DefaultView
  399.     End Sub
  400. End Class